İngilizce Türkçe Kelime + Ezber + Oyun Programı

Programı puanlamanızı rica eder, olumlu / olumsuz değerli yorumlarınızı beklerim.

  • Kullanılan toplam oy
    18
Saban Sertkaya

Saban Sertkaya

Katılım
6 Temmuz 2015
Mesajlar
919
Excel Vers. ve Dili
1950
İngilizce Türkçe kelime ezberleme, oyun, eğlence vb. (adına ne derseniz) tarzında bir program.
7 farklı bölümden oluşmaktadır.
Mevcutta 3600'den fazla kelime olup yaklaşık bir o kadar da teknik terim ve resim eklenecektir.
Kendiniz veya çocuklarınız kullanabilir, eğlenebilirsiniz.
Dilerim beğenir ve güzel puanlar verirsiniz. Ankete katılımınızı özellikle rica ederim.

Not = Pictures klasörünün içinde resimler vardır. Sonradan bir miktar daha resim eklenmiştir. Tüm resimleri aynı klasör içinde toplayınız. Program içinde resimleri görebilmek için; Pictures klasörü ile Excel dosyasının yan yana olması yeterlidir.

Dosya linkleri aşağıdadır.

Excel dosyası :
İngilizce-Türkçe

Resimlerin bulunduğu Pictures klasörü :
Resimler-1
Resimler-2

Her iki dosyanın yanyana durmasını gösteren örnek resim :

İndir goruntu

Dosyayı indir goruntu
dosya.co
 
ÖmerFaruk

ÖmerFaruk

Destek Ekibi
Destek Ekibi
Katılım
22 Ekim 2017
Mesajlar
4,883
Excel Vers. ve Dili
Microsoft 365 Tr-64
Kelime türetme kısmında eksikler var sanırım.
İstatistiksel sonuçları da kaydeder ve gelişimin takibi de izlenebilirse
Bulmacalarda süre ve hatalar performans puanı olarak eklenirse
Çok güzel olur
Bence müthiş bir çalışma. Eline emeğine sağlık.
 
Saban Sertkaya

Saban Sertkaya

Katılım
6 Temmuz 2015
Mesajlar
919
Excel Vers. ve Dili
1950
Sayın NextLevel,
Değerli yorumunuz için teşekkür ederim. Önerilerinizi mutlaka göz önünde bulunduracağım.
Kelime Türet bölümündeki küçük hatayı dosyayı ekledikten sonra farkettim. Yeni oyun dediğimizde bulunacak kelime sayısı sıfırlanmıyor.
Kendi elimdeki dosyada düzelttim. Bilahere buraya eklerim.
 
Saban Sertkaya

Saban Sertkaya

Katılım
6 Temmuz 2015
Mesajlar
919
Excel Vers. ve Dili
1950
Sayın relaxim, ankete verdiğiniz güzel puanlama için teşekkür ederim.
 
Asri

Asri

Katılım
24 Nisan 2005
Mesajlar
3,685
Excel Vers. ve Dili
Office 2016 EN 64 Bit
Altın Üyelik Bitiş Tarihi
25/05/2022
Güzel çalışma,
"KELİME SAYISINI TESPİT ET" işleminin yerine, aşağıda yazdığım kodu kullanabilirsiniz.
1 sn de sonucu gösterir.
Kodlar aynı zamanda bulunabilecek kelimeleri de listeler.
Verilen cevapları tüm listede aramanıza gerek kalmaz.

C#: 
Sub harflerden_kelime_turet()
   Dim kelimeler(100000, 2) As String
   Set shkelime = Sheets("Kelime")
   Application.ScreenUpdating = False
   Application.EnableEvents = False

   UserForm5.Label129 = 0
   UserForm5.Label130 = 0
   UserForm5.Label131 = 0
   UserForm5.Label132 = 0
   UserForm5.Label133 = 0
   UserForm5.Label134 = 0
   UserForm5.Label135 = 0
   UserForm5.Label136 = 0
   UserForm5.Label137 = 0
   UserForm5.Label138 = 0
   UserForm5.Label139 = 0
  
   Range("B:D").ClearContents

   gec = ""
   For k = 1 To 12
     gec = gec & Cells(k, "A").Value
   Next k

   referansturet = buyukharf(gec)
   For i = 1 To 100000
    kelimeler(i, 1) = ""
    kelimeler(i, 2) = ""
   Next i
    
    sonsatirturet = shkelime.Cells(shkelime.Rows.Count, "B").End(3).Row
    shkelime.Range("B2:B" & sonsatirturet).Copy Range("C1")
    Range("D1").FormulaR1C1 = "=LEN(RC[-1])"
    Range("D1").AutoFill Destination:=Range("D1:D" & sonsatirturet)
    Columns("D:D").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("D1").Select
    Application.CutCopyMode = False

    Columns("C:D").Select
    Range("D1").Activate
    Range("C:D").Sort key1:=Range("D1"), order1:=xlDescending, key2:=Range("C1"), order2:=xlAscending, Header:=xlNo
    
       For Z = 1 To sonsatirturet
         kelimeler(Z, 1) = buyukharf(Cells(Z, "C").Value)
       Next Z
son:

  sayturet = 0
   For Z = 1 To sonsatirturet
       kelimetext = kelimeler(Z, 1)

       If Len(kelimetext) > Len(referansturet) Then
          kelimeler(Z, 2) = "X"
          GoTo sonz
       End If
    
       If kelimetext = "" Then
          Exit For
       End If
    
       gecici = kelimetext
       For j1 = 1 To Len(referansturet)
           harfref = Mid(referansturet, j1, 1)
           gecici = Replace(gecici, harfref, "", 1, 1)
       Next j1

       If gecici <> "" Then
          kelimeler(Z, 2) = "X"
       End If
sonz:

   Next Z
   satir = 0
   For Z = 1 To sonsatirturet
     If kelimeler(Z, 2) <> "X" Then
        satir = satir + 1
        i = Len(kelimeler(Z, 1))
        If i = 2 Then UserForm5.Label129 = Val(UserForm5.Label129) + 1
        If i = 3 Then UserForm5.Label130 = Val(UserForm5.Label130) + 1
        If i = 4 Then UserForm5.Label131 = Val(UserForm5.Label131) + 1
        If i = 5 Then UserForm5.Label132 = Val(UserForm5.Label132) + 1
        If i = 6 Then UserForm5.Label133 = Val(UserForm5.Label133) + 1
        If i = 7 Then UserForm5.Label134 = Val(UserForm5.Label134) + 1
        If i = 8 Then UserForm5.Label135 = Val(UserForm5.Label135) + 1
        If i = 9 Then UserForm5.Label136 = Val(UserForm5.Label136) + 1
        If i = 10 Then UserForm5.Label137 = Val(UserForm5.Label137) + 1
        If i = 11 Then UserForm5.Label138 = Val(UserForm5.Label138) + 1
        If i = 12 Then UserForm5.Label139 = Val(UserForm5.Label139) + 1

     End If
   Next Z
   TextBox1 = "Bulunan Toplam Kelime"
   UserForm5.Label147 = Val(UserForm5.Label129) + Val(UserForm5.Label130) + Val(UserForm5.Label131) + Val(UserForm5.Label132) + Val(UserForm5.Label133) + Val(UserForm5.Label134) + _
           Val(UserForm5.Label135) + Val(UserForm5.Label136) + Val(UserForm5.Label137) + Val(UserForm5.Label138) + Val(UserForm5.Label139)

   Range("B:D").ClearContents
   Application.ScreenUpdating = True
   Application.EnableEvents = True
   MsgBox "Bu harfler ile kurulabilecek Kelime tespit edilmiştir."

End Sub

Public Function buyukharf(cumle)
gecici = ""
For i = 1 To Len(cumle)
          h = Mid(cumle, i, 1)
          Select Case h
            Case "ğ": gecici = gecici + "Ğ"
            Case "ü": gecici = gecici + "Ü"
            Case "ş": gecici = gecici + "Ş"
            Case "ç": gecici = gecici + "Ç"
            Case "ö": gecici = gecici + "Ö"
            Case "ı": gecici = gecici + "I"
            Case "i": gecici = gecici + "İ"
            Case Else: gecici = gecici + UCase(h)
            End Select
Next i
buyukharf = gecici
End Function
 
Saban Sertkaya

Saban Sertkaya

Katılım
6 Temmuz 2015
Mesajlar
919
Excel Vers. ve Dili
1950
Merhabalar Sayın Asri,

Sanırım vba şifresini geçip kod bölümüne ulaşmışsınız. :)
Kelime Türet'te düşüş sayısını yazmasını görsel olsun diye bilerek istedim.
Elbette bulunan kelimeler de listelenebiliyor. Ama onu da göstermek istemedim tabi ki.

Ama zahmet edip yeni bir kodlama yaptığınız ve güzel bir puan verdiğiniz içinde çok teşekkür ederim.

Not : Kodlamanızı kullanacağım inşallah.
 
Son düzenleme:
Saban Sertkaya

Saban Sertkaya

Katılım
6 Temmuz 2015
Mesajlar
919
Excel Vers. ve Dili
1950
Sayın Hamitcan,
Ankete katılıp güzel puanlamanız için teşekkür ederim.
 
Asri

Asri

Katılım
24 Nisan 2005
Mesajlar
3,685
Excel Vers. ve Dili
Office 2016 EN 64 Bit
Altın Üyelik Bitiş Tarihi
25/05/2022
Saban Sertkaya' Alıntı:
Merhabalar Sayın Asri,

Sanırım vba şifresini geçip kod bölümüne ulaşmışsınız. :)
Kelime Türet'te düşüş sayısını yazmasını görsel olsun diye bilerek istedim.
Elbette bulunan kelimeler de listelenebiliyor. Ama onu da göstermek istemedim tabi ki.

Ama zahmet edip yeni bir kodlama yaptığınız ve güzel bir puan verdiğiniz içinde çok teşekkür ederim.

Not : Kodlamanızı kullanacağım inşallah.
Genişletmek için tıkla ...
VBA kodlarını korumak istiyorsanız @Zeki Gürsoy un koruma programını kullanabilirsiniz.
Onun haricinde şifre konusu sadece formalite oluyor :)
 
Saban Sertkaya

Saban Sertkaya

Katılım
6 Temmuz 2015
Mesajlar
919
Excel Vers. ve Dili
1950
Sayın Asri,
Kodlamanızı incelemedim. Olduğu gibi aldım, YENİ OYUN butonun altına koydum ve çalıştırdım. Sonuç üretmedi, bilginize...
 
Asri

Asri

Katılım
24 Nisan 2005
Mesajlar
3,685
Excel Vers. ve Dili
Office 2016 EN 64 Bit
Altın Üyelik Bitiş Tarihi
25/05/2022
Saban Sertkaya' Alıntı:
Sayın Asri,
Kodlamanızı incelemedim. Olduğu gibi aldım, YENİ OYUN butonun altına koydum ve çalıştırdım. Sonuç üretmedi, bilginize...
Genişletmek için tıkla ...
userform5 deki "yeni oyun" butonundaki kodlarda. 'KELİME SAYISINI TESPİT ET ten sonrasını silin. Öncesi kalacak.
.
.
.
Call harflerden_kelime_turet
'KELİME SAYISINI TESPİT ET
End sub

sub harflerden_kelime_turet() bu prosedürün kodlarını Modul2 e ekleyin.
 
Korhan Ayhan

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
43,384
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Elinize emeğinize sağlık.

Paylaşımınız için teşekkürler..
 
Saban Sertkaya

Saban Sertkaya

Katılım
6 Temmuz 2015
Mesajlar
919
Excel Vers. ve Dili
1950
Korhan hocam, değerli yorumunuz ve ankete katılımınız için teşekkür ederim.
 
Mdemir63

Mdemir63

Altın Üye
Katılım
7 Temmuz 2006
Mesajlar
2,962
Excel Vers. ve Dili
Ofis2010 32Bit Türkçe
Altın Üyelik Bitiş Tarihi
19-02-2026
@Saban Sertkaya hocam emeğinize sağlık. Paylaşımınız için çok teşekkür ederim.
 
Saban Sertkaya

Saban Sertkaya

Katılım
6 Temmuz 2015
Mesajlar
919
Excel Vers. ve Dili
1950
Sayın Mdemir63,
Beğenmenize sevindim. Ankete katılımınız için ayrıca teşekkür ederim.
 
mhaluksen

mhaluksen

Altın Üye
Katılım
27 Ocak 2006
Mesajlar
206
Excel Vers. ve Dili
ofis 2010- Türkçe
Altın Üyelik Bitiş Tarihi
25-06-2026
VBA şifresi ne , son şeklini atar mısınız?
 
Saban Sertkaya

Saban Sertkaya

Katılım
6 Temmuz 2015
Mesajlar
919
Excel Vers. ve Dili
1950
Sayın mhaluksen,
Zaman buldukça uğraşıyorum ve bir bölüm daha eklemeye çalışıyorum. Bitmek üzere inşallah. Bittikten sonra yeni halini ekleyeyim.

Ankete katılımınız için ayrıca teşekkür ederim.
 
Cevap yazmak için giriş yap yada kayıt ol.
Üst