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