Sürekli bilgisayar başında çalışan insanlara yönelik ingilizce kelimeleri sürekli size hatırlatan programdır. Excel dosyasından kelimeleri okuyarak arasından rastgele seçip size hatırlatır.

Bunun için buradaki dosyayı indirip excelle aynı yere koyarsınız ve çalıştırırsınız. Gizle diyerek arka plana atabilirsiniz. O zamanı gelince size bir kelime hatırlatacaktır. İsterseniz sağ alt köşedeki icona sağ tıklayarak süresini ayarlayabilirsiniz.

Eğer bilgisayarım her açıldığında otomatik olarak çalışsın derseniz başlangıca bir kısayol atmakta fayda vardır.

Kodları ise buradadır.

Imports System.Data.OleDb
Public Class Form1

Private m_sConn1 As String
 Dim dosya As String
 Dim sql As New System.Data.OleDb.OleDbCommand
 Public kelime1(10000), kelime2(10000) As String
 Dim i, b, c As Integer
 Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

oku()
 End Sub

Sub oku()
 dosya = "dosya.xls"
 Me.Cursor = Cursors.WaitCursor
 i = 1
 b = 0
 For j = 0 To 100
 kelime1(j) = ""
 kelime2(j) = ""
 Next
 Try

m_sConn1 = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
 "Data Source= " & dosya & ";" & _
 "Extended Properties=""Excel 8.0;HDR=YES;IMEX=0"""
 Dim conn1 As New System.Data.OleDb.OleDbConnection(m_sConn1)
 conn1.Open()
 Dim srg As String
 srg = "SELECT eng, tr From [klm$]"
 Dim cmd1 As New System.Data.OleDb.OleDbCommand(srg, conn1)
 Dim rdr As OleDbDataReader = cmd1.ExecuteReader
 Do While rdr.Read()
 'l(i) = True
 kelime1(i) = rdr.GetValue(0)
 kelime2(i) = rdr.GetValue(1)
 i = i + 1
 b = b + 1
 Loop
 rdr.Close()
 conn1.Close()
 Catch ex As Exception
 ' MsgBox(ex.ToString)
 End Try

 ekranayaz()
 Me.Cursor = Cursors.Default
 c = Int((Rnd() * b) + 1)
 Label1.Text = kelime1(c)
 End Sub

Sub ekranayaz()
 For k = 1 To b
 On Error Resume Next
 TextBox1.Text = TextBox1.Text & vbNewLine & kelime1(k) & ":" & kelime2(k)
 Next k

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
 c = Int((Rnd() * b) + 1)
 Label1.Text = kelime1(c)
 Label2.Text = ""
 End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 Label2.Text = kelime2(c)
 End Sub

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
 oku()
 End Sub

Sub baskakelime()
 c = Int((Rnd() * b) + 1)
 Label1.Text = kelime1(c)
 Label2.Text = ""
 NotifyIcon1.Visible = True
 NotifyIcon1.ShowBalloonTip(500, kelime1(c), kelime2(c), ToolTipIcon.Info)
 End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
 Timer1.Enabled = True
 Me.Hide()
 End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
 'Me.Show()
 baskakelime()
 'Timer1.Enabled = False

End Sub

Private Sub NotifyIcon1_MouseDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles NotifyIcon1.MouseDoubleClick
 baskakelime()
 End Sub

Private Sub AçToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AçToolStripMenuItem.Click
 Me.Show()
 End Sub

Private Sub KapatToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KapatToolStripMenuItem.Click
 Me.Close()
 End Sub

Private Sub RasgeleToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RasgeleToolStripMenuItem.Click
 baskakelime()
 End Sub

Private Sub NotifyIcon1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles NotifyIcon1.MouseDown
 NotifyIcon1.ContextMenuStrip = ContextMenuStrip1
 End Sub

Private Sub SüreyiAyarlaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SüreyiAyarlaToolStripMenuItem.Click
 Timer1.Interval = InputBox("Yeni süreyi saniye cinsinden giriniz", "Zaman Ayarı", 30) * 1000
 End Sub

Private Sub YardımToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles YardımToolStripMenuItem.Click
 Dim yardim As String

yardim = "üds.exe dosyası ile dosya.xls(excel) dosyasını aynı yere kopyalayın." & vbNewLine & _
 "Dosya.xls excel dosyasının ilk satırı hariç tüm satırları değiştirebilirsiniz." & vbNewLine & _
 "Normalde 30 sn. aralıklarla sağ altta uyarı şeklinde kelimelerin ingilizce ve türkçesi çıkacaktır" & vbNewLine & _
 "Bu alana sağ tıklayarak süreyi ayarlayabilirsiniz" & vbNewLine & _
 "Sağ tıklayıp aç diyerek rasgele kelime çağırabilirsiniz" & vbNewLine & _
 "Uyarı şeklinde kelimelerin çıkmasına devam etmek isterseniz gizle demeniz yeterlidir."
 MsgBox(yardim, , "bdede")
 End Sub