Membuat Program Pesan Rahasia (VB)

Sambil nunggu itali vs paraguay, saya mau berbagi sedikit nih. Saya mau share caranya membuat program yang menampilkan pesan rahasia dengan menggunakan Visual Basic. Mungkin dari Anda sudah mengetahui tentang ini, tapi tidak ada salahnya kan saya share lagi. hehe.. ;-p

Langsung aja yaaa

pertama buka aplikasi Visual Basic, disini saya menggunakan VisualBasic 6. Kemudian buat Form seperti gambar dibawah

Seperti yang kita lihat pada gambar bahwa form ini terdiri dari 1 buah CommandButton dan 1 buah Timer. Sekarang mari kita ubah nilai properties dari masing-masing objek yang ada pada form.

Klik CommandButton pada form, kemudian liat pada panel properties. Ubah nilai captionnya menjadi Show Message. Sekarang klik komponen Timer pada form, kemudian liat pada panel properties, ubah nilai enabled-nya menjadi False, name-nya menjadi tmrKetik, Interval-nya menjadi 250, dan isi nilai tag dengan kalimat pesan yang akan dimunculkan. Misalnya kita isikan nilai tag dengan Ini adalah pesan rahasianya. Anda bisa mengganti pesannya sesuai dengan apa yang ingin Anda sampaikan. Setelah selesai maka tampilan form akan menjadi seperti gambar di bawah

Sekarang tahap pengkodean.. Let’s Play.. 

Buka code editor atau dengan menekan F7 kemudian masukkan kode-kode berikut

‘deklarasi variable nilai
Dim nilai As Integer

Private Sub Command1_Click()
Jalan
End Sub

Private Sub tmrKetik_Timer()
On Error Resume Next
nilai = nilai + 1
‘mengirimkan nilai teks per huruf
SendKeys Mid(tmrKetik.Tag, nilai, 1)
‘jika teks sudah diketik semuanya, maka hentikan proses
If nilai = Len(tmrKetik.Tag) Then
tmrKetik.Enabled = False
nilai = 0
End If
End Sub

Private Sub Jalan()
‘mendaftarkan variabel msword
Dim msword
‘menjalankan program aplikasi Ms. Word
Set msword = CreateObject(“word.basic”)
msword.appshow
‘membuat file baru
msword.filenew
‘aktif timer ketik
tmrKetik.Enabled = True
End Sub