Skip to main content

Kamus VB 6.0

Image
By
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
Labels:

Comments

Post a Comment

Popular posts from this blog

Tutorial Java Servlet

By
Post a Comment
Read more

Kumpulan Video Coding

By
https://www.youtube.com/user/TheGeekStyle/playlists https://www.youtube.com/playlist?list=PLxOOFFsKqfQQfgkcRBS0gJZv7Eo4DlzW-
Post a Comment
Read more

Software Developer Hiring - Coding Test at HackerRank

By
       Hi all, wherever you are, whatever you do, just whatever. Ya Allah gua udah kaga ngoding lagi malah dapet coding interview di hackerRank, gua udah milih jalan menjadi system admin seperti di sekolah dulu yang berhubungan dengan Teknik Komputer dan Jaringan, tapi gua ga pilih jaringan yang dimana seharusnya itu menjadi pilihan gua karena itu ga ada coding codingan tapi gua malah pilih devops karena sedang booming padahal itu sama aja sebenernya kayak sysadmin cuma versi 4 kata mas Lazuardi.      Di umur gua yang ke 25 waktu itu gua udah memilih dan memutuskan untuk pergi dari karir programmer/software developer/software engineer/whatever they callled. Gua lebih memilih dan nyaman dan lain-lain dengan kerjaan yang berhubungan dengan server/vps seperti menginstall web server, generate ssl dari certbot nya lestencrypt, pointing domain, install mysql server, konfigurasi web server untuk laravel, etc.      Tidak menyebutkan brand tapi a...
Post a Comment
Read more