Kamus VB 6.0

Private Sub About_Click()
frmAbout.Show
End Sub

Private Sub cmdTerjemahkan_Click()
Dim kata As String

Open App.Path & "\kamus.txt" For Input As #1

kata = Me.txtInggris.Text
Do While Not EOF(1)
  Input #1, Data
  hasil = Split(Data, "=")
  If Trim(hasil(0)) = kata Then
   Me.txtIndonesia.Text = hasil(1)
    Exit Do
  End If
Loop

Close #1
End Sub

Private Sub ReadMe_Click()
Open App.Path & "\README!!.txt" For Output As Read
End Sub

Comments