Membuat Huruf Urut dari a Sampai z dengan Visual Vasic 6.0


 

setelah kemarin membuat angka urut dari 1 sampai 100, kali ini membuat huruf urut dari a sampai z

oke.. langsung saja berikut prosedurnya menggunakan tabel ASCII

yaitu bentuk desimal dari huruf diubah ke ASCII

berikut kodenya:

Dim a As Integer
Private Sub Form_Load()
‘angka desimal sebelum a adalah 96
‘sedangkan angka desimal a = 97 dan z = 122
a = 96
Do
a = a + 1
Text1.Text = Text1.Text & “[” & Chr(a) & “] ” ‘disini chr merubah dari desimal ke ASCII
Loop Until a = 122
End Sub

dan hasilnya:

kalau untuk menampilkan seluruh ASCII dari ASCII pertama hingga terakhir berikut kodenya:

Dim a As Integer
Private Sub Form_Load()
a = 0
Do
Text1.Text = Text1.Text & “[” & Chr(a) & “] “ ‘disini chr merubah dari desimal ke ASCII
a = a + 1
Loop Until a = 256
End Sub

hasilnya:

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s