Menuliskan Huruf Alfabet Secara Otomatis Di VB

Sebelumnya saya telah membahas mengenai cara Menuliskan Barisan Bilangan dengan pola maju dan mundur, untuk tutorial kali ini kita akan menuliskan huruf A sampai Z dan a sampai z, baiklah berikut tutorialnya :

1. Jalalankan Program VB dengan project Stanadar EXE
2. Tambahkan 2 command button, dan 2 List Box

3. Untuk Properti, di sini saya hanya mengubah captionnya saja, untuk command 1 ubah menjadi "Kapital", sedangkan untuk command 2 = "huruf Kecil, sedangkan untuk properties dan toolbox lainya tidak saya ubah, jika anda ingin mengubahnya silahkan saja.

4. Lalu tuliskan scrip berikut :

Private Sub Command1_Click()
List1.Clear  'Mengosongkan Area List 1
For besar = 1 To 26 'Nilai dari besar adalah 1 sampai 26
kodeASCII = 64 + besar 'kodeASCII 64 di tambah nilai dari besar
List1.AddItem Chr(kodeASCII) 'List 1 di tambahkan nilai dari kodeASCII
Next besar
End Sub

Private Sub Command2_Click()
List2.Clear 'Mengosongkan Area List 2
For kecil = 33 To 58 'Nilai dari besar adalah 33 sampai 58
kodeASCII = 64 + kecil 'kodeASCII 64 di tambah nilai dari besar
List2.AddItem Chr(kodeASCII) 'List 1 di tambahkan nilai dari kodeASCII
Next kecil
End Sub
Keterangan :
KodeASCII adalah sebuah kode di visual basic yang salah satunya adalah kode untuk alfabet, di mana A dituliskan dengan kode 65, B = 66, dan seterusnya sampai Z = 90, sedangkan untuk huruf a (huruf kecil) di kodekan 9 7, B = 98, dan seterusnya sampai z = 122
Sedangkan script Chr, di gunakan untuk mengambil karakter dari kodeASCII
5. Dan sekarang waktunya untuk mencoba dan jalankan programnya, 
ketika anda mengklik command 1 (KAPITAL), maka akan muncul list A sampai Z di list 1, dan juga
ketika anda mengklik command 2 (HURUF KECIL), maka akan muncul list a sampai z di list 2,

Itulah Cara Menampilkan Huruf Alfabet di Visual Basic, untuk tutorial selanjutnya, masih dengan tema yang sama (For dan Next), saya akan membuat Program untuk menampilkan barisan dengan pola acak, seperti 1 1 2 3 5 8 13 21 34 N, 

Sekian dan terimakasih
Selamat Mencoba 

0 Response to "Menuliskan Huruf Alfabet Secara Otomatis Di VB"

Post a Comment