Menuliskan Abjad Alfabet Secara Otomatis Di Vb

Sebelumnya aku telah membahas mengenai cara Menuliskan Barisan Bilangan dengan contoh maju dan mundur, untuk tutorial kali ini kita akan menuliskan karakter A hingga Z dan a hingga z, sepakat berikut tutorialnya :

1. Jalalankan Program VB dengan project Stanadar EXE

2. Tambahkan 2 command button, dan 2 List Box

3. Untuk Properti, di sini aku hanya mengubah captionnya saja, untuk command 1 ubah menjadi "Kapital", sedangkan untuk command 2 = "huruf Kecil, sedangkan untuk properties dan toolbox lainya tidak aku ubah, kalau 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 yaitu 1 hingga 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 yaitu 33 hingga 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 yaitu sebuah isyarat di visual basic yang salah satunya yaitu isyarat untuk alfabet, di mana A dituliskan dengan isyarat 65, B = 66, dan seterusnya hingga Z = 90, sedangkan untuk karakter a (huruf kecil) di kodekan 9 7, B = 98, dan seterusnya hingga z = 122
Sedangkan script Chr, di gunakan untuk mengambil karakter dari kodeASCII

5. Dan kini waktunya untuk mencoba dan jalankan programnya, 

saat anda mengklik command 1 (KAPITAL), maka akan muncul list A hingga Z di list 1, dan juga

saat anda mengklik command 2 (HURUF KECIL), maka akan muncul list a hingga z di list 2,

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

Sekian dan terimakasih

Selamat Mencoba