İ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
    13
Katılım
6 Temmuz 2015
Mesajlar
862
Excel Vers. ve Dili
2003
İ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 :
 

NextLevel

Altın Üye
Katılım
22 Ekim 2017
Mesajlar
733
Excel Vers. ve Dili
Ofis 2016 TR
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.
 
Katılım
6 Temmuz 2015
Mesajlar
862
Excel Vers. ve Dili
2003
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.
 
Katılım
6 Temmuz 2015
Mesajlar
862
Excel Vers. ve Dili
2003
Sayın relaxim, ankete verdiğiniz güzel puanlama için teşekkür ederim.
 

Asri

Altın Üye
Altın Üye
Katılım
24 Nisan 2005
Mesajlar
3,217
Excel Vers. ve Dili
Office 2016 EN 64 Bit
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
 
Katılım
6 Temmuz 2015
Mesajlar
862
Excel Vers. ve Dili
2003
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:
Katılım
6 Temmuz 2015
Mesajlar
862
Excel Vers. ve Dili
2003
Sayın Hamitcan,
Ankete katılıp güzel puanlamanız için teşekkür ederim.
 

Asri

Altın Üye
Altın Üye
Katılım
24 Nisan 2005
Mesajlar
3,217
Excel Vers. ve Dili
Office 2016 EN 64 Bit
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.
VBA kodlarını korumak istiyorsanız @Zeki Gürsoy un koruma programını kullanabilirsiniz.
Onun haricinde şifre konusu sadece formalite oluyor :)
 
Katılım
6 Temmuz 2015
Mesajlar
862
Excel Vers. ve Dili
2003
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

Altın Üye
Altın Üye
Katılım
24 Nisan 2005
Mesajlar
3,217
Excel Vers. ve Dili
Office 2016 EN 64 Bit
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...
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

Moderatör
Yönetici
Katılım
15 Mart 2005
Mesajlar
30,301
Excel Vers. ve Dili
OFFICE 2019 PRO TR
Elinize emeğinize sağlık.

Paylaşımınız için teşekkürler..
 
Katılım
6 Temmuz 2015
Mesajlar
862
Excel Vers. ve Dili
2003
Korhan hocam, değerli yorumunuz ve ankete katılımınız için teşekkür ederim.
 
Katılım
6 Temmuz 2015
Mesajlar
862
Excel Vers. ve Dili
2003
Sayın Mdemir63,
Beğenmenize sevindim. Ankete katılımınız için ayrıca teşekkür ederim.
 

mhaluksen

Altın Üye
Altın Üye
Katılım
27 Ocak 2006
Mesajlar
158
Excel Vers. ve Dili
ofis 2010- Türkçe
VBA şifresi ne , son şeklini atar mısınız?
 
Katılım
6 Temmuz 2015
Mesajlar
862
Excel Vers. ve Dili
2003
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.
 
Üst