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
Post a Comment