Berikut salah satu contoh dasar Ascii pada Visual Basic 2008 dan dapat anda terapkan dan kembangkan nantinya pada program anda.
1. Buat sebuah project baru dengan nama Ascii
2. Pada Form1 masukkan satu buah label untuk menampilka kod ascii
3. Pada Form1 masukan script
Public Class Form1
Private Sub Form1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress
Dim keyascii As Integer = AscW(e.KeyChar)
Label1.Text = keyascii
End Sub
End Class
3. Jalankan program
Tekan enter, maka akan tampil
Silahkan anda tekan tombol yang lainnya maka akan tampil kode ascii nya. untukpenerapannya anda bisa menggunakan tehnik ini contoh saya biasanyamenggunakan kode ascii 13 untuk melakukan proses-proses selanjutnya pada form.
untuk source kode silahkan download di sini. caranya :
Demikian catatan fey kali ini. jikalau ada kata-kata yang kurang atau salah saya mohon maaf. semoga bermanfaat.
No comments:
Post a Comment