0 Membuat Converter ASCII ke HEXA

Sebelumnya saya membuat tutorial bagaimana cara membuat Aplikasi Alarm dari Visual Basic 6
Kali ini Saya akan membuat tutorial bagaimana membuat Aplikasi Converter dari ASCII ke HEXA

Baiklah kita mulai saja ..

Aplikasi yang Dibutuhkan :

1.Visual Basic 6 Full / Portable
2.Source Code

Tutorial membuat Converter ASCII ke HEXA :

Buat 2 buah label ( Ascii & Hexa )
2 buah TextBox
2 Buah Command Button

Masukan code Berikut ini kedalam Form :

'Converter ASCII ke HEXA
'freakscoder.blogspot.com
Dim tulis As String
Dim tblString(183), tblHex(183) As Variant
Dim i As Integer

Sub descTblString()
For i = 1 To 183
tblString(i) = Chr(i)
Next
End Sub

Sub descTblHex()
For i = 0 To 183
tblHex(i) = Hex(i)
Next
End Sub

Private Function HexString(EvalString As String) As String
Dim intStrLen As Integer
Dim intLoop As Integer
Dim strHex As String

EvalString = Trim(EvalString)
intStrLen = Len(EvalString)
For intLoop = 1 To intStrLen
strHex = strHex & Hex(Asc(Mid(EvalString, intLoop, 1)))
Next
HexString = strHex
End Function 

Private Sub Form_Activate()
tulis = "---==" & Form1.Caption

End Sub



Private Sub Picture1_Click()
Picture1.Visible = False
End Sub

tulis = Right(tulis, Len(tulis) - 1) & Left(tulis, 1)
Form1.Caption = tulis
End Sub
Private Sub convertstring()
Dim idx As Integer
m = Len(Text1)
For i = 1 To m
cHex = Mid(Text1, i, 2)
i = i + 1
For idx = 1 To 183
If tblHex(idx) = cHex Then
Text2 = Text2 + tblString(idx)
End If
Next
Next
End Sub

Masukan Code berikut ini ke dalam Command1 :

'Button Convert ASCII
Private Sub Command1_Click()
If Text1 = "" Then
MsgBox "Silahkan Isi dulu Di tabel ASCII", vbCritical, " Error "
Text1.SetFocus
Else
Text2 = HexString(Text1)
End If
End Sub

Masukan Code berikut ini kedalam Command2 :

'Button Clear Convert ASCII
Private Sub Command2_Click()
Text2.Text = “”
Text1.Text = “”
End Sub

Notice :
- untuk text yang saya beri warna MERAH itu adalah dimana nanti kita bila tidak mengisikan di form ascii akan keluar Error seperti yang saya tulis di atas .
- Dan untuk yang saya beri warna BIRU itu adalah dimana Judul dari pesan yang akan keluar nanti
- Silahkan edit kata2 tersebut dengan yang di inginkan...

Nah sekian tutorial Membuat Converter ASCII ke HEXA
Dan ini Desain Aplikasi saya

Sekian Tutorial dari saya ,
Division-Freaks404

./e0f