nasıl ingilizce kelime öğrenme uygulaması yapabilirim

perfora · 22 Mart 2006

herkese selamlar, ekte bir miktar ingilizce kelime ve karşılarında anlamları mevcut istediğim. ikinci sayfada bir tuşa basarak o listeden (ki o listeye eklemeler olacak) örneğin 30 tanesini rastgele olarak getirsin istersem sadece ingilizce kelimeleri getirsin anlamları ben yazayım , yada anlamları getirsin ingilizce kelimeleri ben yazayım tabii ki birde yazdıklarımı kontrol etsin doğru yanlış diye.

mümkünmü böyle bir şey

manevra · 23 Mart 2006

senin o dedigin excelle yapılabilir belki ama istediginiz "kelime ezber" programı ile yapılmış durumda zaten. bir çok ek özellik de cabası. mesela ayarladiginiz süre periyodunda size kelime soruyor.
google dan arattirirsaniz programi bulabilirsiniz zannedersem.

irfanyus · 27 Kasım 2008

merhaba arkadaşlar,

benimde ingilizce kelime öğretecek bir excel dosyasına ihtiyacım var.

arkadaşın bahsetti programı evde kullanıyorum ancak işte kullanma şansım yok.

benim aklımdaki sistem kelimeyi yazmak ingilizce kelimeyi sorsun ve 4 tane de şık sunsun cevaplardan random seçerek.

excel hakkında fazla bir bilgim yok bu mümkün mü bilmiyorum ama böyle bir uygulama varsa çok işime yarar zira toeic sınavına hazırlanıyorum ve işten vakit kalmıyor eve pestilim çıkmış bir şekilde gidiyorum.:redface:

Saygılarımla,

hsayar · 27 Kasım 2008

irfanyus' Alıntı:
merhaba arkadaşlar,

benimde ingilizce kelime öğretecek bir excel dosyasına ihtiyacım var.

arkadaşın bahsetti programı evde kullanıyorum ancak işte kullanma şansım yok.

benim aklımdaki sistem kelimeyi yazmak ingilizce kelimeyi sorsun ve 4 tane de şık sunsun cevaplardan random seçerek.

excel hakkında fazla bir bilgim yok bu mümkün mü bilmiyorum ama böyle bir uygulama varsa çok işime yarar zira toeic sınavına hazırlanıyorum ve işten vakit kalmıyor eve pestilim çıkmış bir şekilde gidiyorum.:redface:

Saygılarımla,

Siz İngilizce kelime veritabanını hazırlayın 4 tane yanlış randomize cevabı ve 1 doğru cevabı ben görüntülerim.

irfanyus · 27 Kasım 2008

biraz sonra işten çıkıyorum. yarın öğlene kadar listeyi yollamış olurum.

ilginiz için teşekkürler

usta07 · 27 Kasım 2008

Ekteki dosyadan faydalanabilirsiniz.

irfanyus · 28 Kasım 2008

hsayar' Alıntı:
Siz İngilizce kelime veritabanını hazırlayın 4 tane yanlış randomize cevabı ve 1 doğru cevabı ben görüntülerim.

şu anda çalıştığım kelimeler bunlar. flashcard yapmıştım kartondan onları ekledim

irfanyus · 28 Kasım 2008

usta07' Alıntı:
Ekteki dosyadan faydalanabilirsiniz.

dostum malesef bilgisayarda winzip ve benzeri program yok. hiçbirşekilde de yükleyemiyorum malum. bunun açılmış olarak yüklenmişini gönderebilirsen çok mutlu olurum.

Çok teşekkürler

hsayar · 28 Kasım 2008

usta07' Alıntı:
Ekteki dosyadan faydalanabilirsiniz.

irfanyus' Alıntı:
şu anda çalıştığım kelimeler bunlar. flashcard yapmıştım kartondan onları ekledim

iki kelime havuzundan faydalanarak aşağıdaki dosyayı elde ettim.
önce kodlar
userforma

Kod:

Option Explicit
Private strTrkKelime As String
Private iCvpKont As Integer
Private Sub cmdCevap1_Click()
Call cevapKontrol(1)
End Sub
Private Sub cmdCevap2_Click()
Call cevapKontrol(2)
End Sub
Private Sub cmdCevap3_Click()
Call cevapKontrol(3)
End Sub
Private Sub cmdCevap4_Click()
Call cevapKontrol(4)
End Sub
Private Sub cmdCevap5_Click()
Call cevapKontrol(5)
End Sub
Private Sub cevapKontrol(i)
  If Controls("cmdCevap" & i).Caption = strTrkKelime Then
    MsgBox "Tebrikler, Doğru Cevap"
    Call ingilizce_Türkçe
  Else
    MsgBox "Üzgünüm, Yanlış Cevap < " & 2 - iCvpKont & " > Tahmin Hakkınız kaldı"
    iCvpKont = iCvpKont + 1
    If iCvpKont = 3 Then Call ingilizce_Türkçe
  End If
End Sub

Private Sub UserForm_Initialize()
  Call ingilizce_Türkçe
End Sub
Private Sub ingilizce_Türkçe()
Dim Csf As Excel.Worksheet:     Set Csf = Worksheets("Sozluk")
Dim dataEngKelime As Variant, dataTrkKelimeler As Variant, dataButonNo As Variant
Dim Sonsat As Long, lngSmdEngInd As Long, lngOncEngInd As Long
Dim i As Integer

'\\ Kontrolleri Sıfırlıyoruz
  iCvpKont = 0
  lblSoru.Caption = ""
  lblOkunus.Caption = ""
  For i = 1 To 5
    Controls("cmdCevap" & i).Caption = ""
  Next i

'\\ Havuzdan değerleri alıyoruz.
With Csf
  Sonsat = .Cells(65536, 1).End(3).Row
  dataEngKelime = BenzersizRastgeleSayilar(1, 2, Sonsat, enCevapHayır)
  lngSmdEngInd = dataEngKelime(1)
  strTrkKelime = .Cells(lngSmdEngInd, 2).Value
  lblSoru.Caption = .Cells(lngSmdEngInd, 1).Value
  lblOkunus.Caption = .Cells(lngSmdEngInd, 3).Value
CevaplarıHazırla:
  dataTrkKelimeler = BenzersizRastgeleSayilar(4, 1, Sonsat, enCevapHayır)
  For i = LBound(dataTrkKelimeler) To UBound(dataTrkKelimeler)
    If dataTrkKelimeler(i) = lngSmdEngInd Then GoTo CevaplarıHazırla
    If dataTrkKelimeler(i) = lngOncEngInd Then GoTo CevaplarıHazırla
  Next i
CevaplarıYaz:
  dataButonNo = BenzersizRastgeleSayilar(4, 1, 5, enCevapHayır)
  For i = LBound(dataButonNo) To UBound(dataButonNo)
    Controls("cmdCevap" & dataButonNo(i)).Caption = .Cells(dataTrkKelimeler(i), 2).Value
  Next i
  For i = 1 To 5
    If Controls("cmdCevap" & i).Caption = "" Then Controls("cmdCevap" & i).Caption = strTrkKelime
  Next i
End With
lngOncEngInd = lngSmdEngInd
End Sub

module

Kod:

Public Enum enCevap
  enCevapevet
  enCevapHayır
End Enum
Function BenzersizRastgeleSayilar(KacAdetSayi As Long, EnKucukSayi As Long, EnBuyukSayi As Long, Optional Sıralımı As enCevap) As Variant
'Benzersiz Rastgele Sayılar Üretir.
'Kullanımı Aşağıdaki gibidir
'Data = UniqueRandomNumbers(6, 1, 49)
Dim RandColl As Collection, varTemp() As Long
Dim k&, i&, j&
BenzersizRastgeleSayilar = False

If KacAdetSayi < 1 Then Exit Function
If EnKucukSayi > EnBuyukSayi Then Exit Function
If KacAdetSayi > (EnBuyukSayi - EnKucukSayi + 1) Then Exit Function
Set RandColl = New Collection
Randomize
Do
On Error Resume Next
i = CLng(Rnd * (EnBuyukSayi - EnKucukSayi) + EnKucukSayi)
RandColl.Add i, CStr(i)
On Error GoTo 0
Loop Until RandColl.Count = KacAdetSayi

ReDim varTemp(1 To KacAdetSayi)

For i = 1 To KacAdetSayi
varTemp(i) = RandColl(i)
Next i
Set RandColl = Nothing

If Sıralımı = enCevapevet Then
  '**************ripek********************
  For i = 1 To KacAdetSayi - 1
      For j = i + 1 To KacAdetSayi
          If varTemp(i) > varTemp(j) Then
              k = varTemp(i)
              varTemp(i) = varTemp(j)
              varTemp(j) = k
          End If
      Next j
  Next i
  '**************ripek********************
End If
BenzersizRastgeleSayilar = varTemp
Erase varTemp
k = 0: i = 0: j = 0
'*****www.excel.web.Tr***********
End Function

ockucukay · 28 Kasım 2008

sayın hsayar
yaptığınız programı test ettim, elinize sağlık çok güzel olmuş. yalnız bazen doğru cevabın olduğu düğme üzerinde (hani programlarda bilgisayarın önerdiği düğme üzerinde kesik veya noktalı bir belirtme dikdörtgeni olur) öneri yapıyormuş gibi işaret koyuyor.bunu da düzeltirseniz süper olacak.

hsayar · 28 Kasım 2008

ockucukay' Alıntı:
sayın hsayar
yaptığınız programı test ettim, elinize sağlık çok güzel olmuş. yalnız bazen doğru cevabın olduğu düğme üzerinde (hani programlarda bilgisayarın önerdiği düğme üzerinde kesik veya noktalı bir belirtme dikdörtgeni olur) öneri yapıyormuş gibi işaret koyuyor.bunu da düzeltirseniz süper olacak.

labellara setfocus yapılamadığından birşey yapamadım.

Ama textboxlara yapılıyor

bağlantı git/gel olduğu için linki kopyalamıştım.
http://www.excel.web.tr/attachment.php?attachmentid=53112&stc=1&d=1227885474
doğru cevabı merak edenler
Aşağıdaki prosodörü değiştirebilirler;

Kod:

Private Sub cevapKontrol(i)
  If Controls("cmdCevap" & i).Caption = strTrkKelime Then
    MsgBox "Tebrikler, Doğru Cevap"
    Call ingilizce_Türkçe
  Else
    MsgBox "Üzgünüm, Yanlış Cevap < " & 2 - iCvpKont & " > Tahmin Hakkınız kaldı"
    iCvpKont = iCvpKont + 1
    If iCvpKont = 3 Then
     MsgBox "Doğru Cevap:" & vbNewLine & vbNewLine & strTrkKelime & vbNewLine & vbNewLine & "Olacaktı.", vbInformation, "HSAYAR"
     Call ingilizce_Türkçe
   End If
  End If
  txtSoru.SetFocus
End Sub

irfanyus · 28 Kasım 2008

çok güzel bir uygulama tam benim ihtiyacım olduğu gibi.

emeğinize sağlık. çok teşekkür ederim

k::

iyi akşamlar

hsayar' Alıntı:

iki kelime havuzundan faydalanarak aşağıdaki dosyayı elde ettim.
önce kodlar
userforma

Kod:

Option Explicit
Private strTrkKelime As String
Private iCvpKont As Integer
Private Sub cmdCevap1_Click()
Call cevapKontrol(1)
End Sub
Private Sub cmdCevap2_Click()
Call cevapKontrol(2)
End Sub
Private Sub cmdCevap3_Click()
Call cevapKontrol(3)
End Sub
Private Sub cmdCevap4_Click()
Call cevapKontrol(4)
End Sub
Private Sub cmdCevap5_Click()
Call cevapKontrol(5)
End Sub
Private Sub cevapKontrol(i)
  If Controls("cmdCevap" & i).Caption = strTrkKelime Then
    MsgBox "Tebrikler, Doğru Cevap"
    Call ingilizce_Türkçe
  Else
    MsgBox "Üzgünüm, Yanlış Cevap < " & 2 - iCvpKont & " > Tahmin Hakkınız kaldı"
    iCvpKont = iCvpKont + 1
    If iCvpKont = 3 Then Call ingilizce_Türkçe
  End If
End Sub

Private Sub UserForm_Initialize()
  Call ingilizce_Türkçe
End Sub
Private Sub ingilizce_Türkçe()
Dim Csf As Excel.Worksheet:     Set Csf = Worksheets("Sozluk")
Dim dataEngKelime As Variant, dataTrkKelimeler As Variant, dataButonNo As Variant
Dim Sonsat As Long, lngSmdEngInd As Long, lngOncEngInd As Long
Dim i As Integer

'\\ Kontrolleri Sıfırlıyoruz
  iCvpKont = 0
  lblSoru.Caption = ""
  lblOkunus.Caption = ""
  For i = 1 To 5
    Controls("cmdCevap" & i).Caption = ""
  Next i

'\\ Havuzdan değerleri alıyoruz.
With Csf
  Sonsat = .Cells(65536, 1).End(3).Row
  dataEngKelime = BenzersizRastgeleSayilar(1, 2, Sonsat, enCevapHayır)
  lngSmdEngInd = dataEngKelime(1)
  strTrkKelime = .Cells(lngSmdEngInd, 2).Value
  lblSoru.Caption = .Cells(lngSmdEngInd, 1).Value
  lblOkunus.Caption = .Cells(lngSmdEngInd, 3).Value
CevaplarıHazırla:
  dataTrkKelimeler = BenzersizRastgeleSayilar(4, 1, Sonsat, enCevapHayır)
  For i = LBound(dataTrkKelimeler) To UBound(dataTrkKelimeler)
    If dataTrkKelimeler(i) = lngSmdEngInd Then GoTo CevaplarıHazırla
    If dataTrkKelimeler(i) = lngOncEngInd Then GoTo CevaplarıHazırla
  Next i
CevaplarıYaz:
  dataButonNo = BenzersizRastgeleSayilar(4, 1, 5, enCevapHayır)
  For i = LBound(dataButonNo) To UBound(dataButonNo)
    Controls("cmdCevap" & dataButonNo(i)).Caption = .Cells(dataTrkKelimeler(i), 2).Value
  Next i
  For i = 1 To 5
    If Controls("cmdCevap" & i).Caption = "" Then Controls("cmdCevap" & i).Caption = strTrkKelime
  Next i
End With
lngOncEngInd = lngSmdEngInd
End Sub

module

Kod:

Public Enum enCevap
  enCevapevet
  enCevapHayır
End Enum
Function BenzersizRastgeleSayilar(KacAdetSayi As Long, EnKucukSayi As Long, EnBuyukSayi As Long, Optional Sıralımı As enCevap) As Variant
'Benzersiz Rastgele Sayılar Üretir.
'Kullanımı Aşağıdaki gibidir
'Data = UniqueRandomNumbers(6, 1, 49)
Dim RandColl As Collection, varTemp() As Long
Dim k&, i&, j&
BenzersizRastgeleSayilar = False

If KacAdetSayi < 1 Then Exit Function
If EnKucukSayi > EnBuyukSayi Then Exit Function
If KacAdetSayi > (EnBuyukSayi - EnKucukSayi + 1) Then Exit Function
Set RandColl = New Collection
Randomize
Do
On Error Resume Next
i = CLng(Rnd * (EnBuyukSayi - EnKucukSayi) + EnKucukSayi)
RandColl.Add i, CStr(i)
On Error GoTo 0
Loop Until RandColl.Count = KacAdetSayi

ReDim varTemp(1 To KacAdetSayi)

For i = 1 To KacAdetSayi
varTemp(i) = RandColl(i)
Next i
Set RandColl = Nothing

If Sıralımı = enCevapevet Then
  '**************ripek********************
  For i = 1 To KacAdetSayi - 1
      For j = i + 1 To KacAdetSayi
          If varTemp(i) > varTemp(j) Then
              k = varTemp(i)
              varTemp(i) = varTemp(j)
              varTemp(j) = k
          End If
      Next j
  Next i
  '**************ripek********************
End If
BenzersizRastgeleSayilar = varTemp
Erase varTemp
k = 0: i = 0: j = 0
'*****www.excel.web.Tr***********
End Function

Ferhat Pazarçevirdi · 28 Kasım 2008

Benim de çok hoşuma gitti ...

Tebrikler Hüseyin bey ....

BirTürk1 · 28 Kasım 2008

usta07' Alıntı:
Ekteki dosyadan faydalanabilirsiniz.

SAYIN USTA sizin örneğinizi inceleme fırsatım oldu diğerlerine bakamadım
irşey eklemek istiyorum

Since = ŞİMDİYE KADAR

ben cevap olarak

ŞİMDİYE DEK yazdım yanlış cevap oldu oysa doğru sayılabilir bu esneklik sağlanabilirmi

leumruk · 28 Kasım 2008

Syn. hsayar
Elinize sağlık orijinal bir çalışma olmuş.

hsayar · 28 Kasım 2008

sn irfanyus, sn leumruk teşekkür ederim.
Sn ferhat hocam sizlerden öğrendiklerimiz ile bir şeyler yapıyoruz. Asıl bensize teşekkür ederim.

BirTürk1 · 28 Kasım 2008

sayın hsayar çalışma güzel
evet lise yıllarımdan beri test sisteminin başarıyı olumlu yönde etkilediğini savunurum zaten

hsayar · 28 Kasım 2008

Elinde excelde ingilizce-Türkçe sözlüğü olan varsa eklesin bari geliştirelim. 2600 kelime ile olmaz bu iş.

BirTürk1 · 28 Kasım 2008

evet sayın hsayar ben arkadaşlarımdan bakayım bu işle alakalı 1 2 tanıdığım vardı

usta07 · 28 Kasım 2008

Hüseyin Bey,
Tebrikler, Elinize sağlık güzel bir çalışma olmuş.

nasıl ingilizce kelime öğrenme uygulaması yapabilirim

perfora

manevra

irfanyus

hsayar

irfanyus

usta07

Destek Ekibi

Ekli dosyalar

irfanyus

Ekli dosyalar

irfanyus

hsayar

Ekli dosyalar

ockucukay

hsayar

Ekli dosyalar

irfanyus

Ferhat Pazarçevirdi

Özel Üye

BirTürk1

Destek Ekibi

leumruk

Uzman

hsayar

BirTürk1

Destek Ekibi

hsayar

BirTürk1

Destek Ekibi

usta07

Destek Ekibi