Karakter ~~> ASCII , ASCII ~~> Karakter

Saya Kali Ini Mau Ngeshare Sedikit Ilmu Tentang Visual Basic, Yaitu....

||MENGKONVERSI KARAKTER KE ASCII DAN SEBALIKNYA||

Yang Saya Pakai Di Sini Adalah Visual Basic 6, Oke Langsung Saja...


KARAKTER KE ASCII
1.Buka VB6
2.Buat Project Baru
3.Masukan : 1 Textbox
                    1 CommandButton
4.Kosongkan Textbox Text(di Properties) , Dan ganti Max Lenght nya Dengan 1
5. Dobel Klik Pada CommandButton(command1) Lalu tulis Kode Ini :

Private Sub Command1_Click()
Dim a As String
Dim Hasil As Integer

a = Text1.text
If a = "" Then
Beep
Text1.SetFocus
Text1.Text = ""
Else
Hasil = Asc(a)
MsgBox"ASCII Dari " & a " = " & Hasil,vbinformation,"Hasil"
End If
End Sub

Nah... Klo Yang ASCII Ke Karakter Gak Jauh Beda... Gini nih caranya...


1.Buka VB6
2.Buat Project Baru
3.Masukan : 1 Textbox
                    1 CommandButton
4.Kosongkan Textbox Text(di Properties) , Dan ganti Max Lenght nya Dengan 3
5. Dobel Klik Pada CommandButton(command1) Lalu tulis Kode Ini :


Private Sub Command1_Click()
Dim a As String
Dim Hasil As Integer

a = Text1.text
If a = "" Or a >= "256" Then
Beep
Text1.SetFocus
Text1.Text = ""
Else
Hasil = Chr(a)
MsgBox"Karakter Dari " & a " = " & Hasil,vbinformation,"Hasil"
End If
End Sub

Oke Thanks Segini Dulu Ilmunya... See you Next Time....