Program Sederhana Mencari Bilangan ASCII dengan Visual Basic 6

Well, lagi-lagi ini tugas kuliah saya...
masih sangat sederhana... tapi aku tetap ngotot untuk membagikannya... hhehee

Here we go...

outputnya :

Listing Codenya :

Private Sub Command1_Click() // Tombol ASC
Text2.Text = Asc(Text1.Text)
End Sub

Private Sub Command2_Click() // Tombol Ulangi
Text1.Text = ""
Text2.Text = ""
End Sub

Private Sub Command3_Click() // tombol CHR
Text2.Text = Chr(Text1.Text)

End Sub

Private Sub Command4_Click() // tombol selesai
Unload Me
End Sub

Semoga bermanfaat ^_^

0 komentar:

Poskan Komentar


up