[+] Post Title :

BIKIN APLIKASI CONVERTER ASCII TO HEXA MENGGUNAKAN VISUAL BASIC

[+] Date : Rabu, 01 Februari 2012
[+] Author : šëHëR!êž Hⁿc
[+] Link : http://seherieshnc.blogspot.com/2012/01/bikin-aplikasi-converter-ascii-to-hexa.html
[+] Type : Tutorial

Kali ini saya akan membahas step by step membuat aplikasi sederhana "Ascii To Hexa Converter". Langsung aja gan, mata udah mulai ngantuk nih.
Disini saya menggunakan Visual Basic 6.0

1. Pertama buka VB 6.0
2. New Project standard EXE

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

4. Langsung eksekusi gan...
Dobel Klik Di Form1 dan copas code berikut : 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 Command1_Click() If Text1 = "" Then MsgBox "Harap Isi Kolom Ascii", vbCritical Text1.SetFocus Else Text2 = HexString(Text1) End If End Sub Private Sub Command2_Click() Text2.Text = “” Text1.Text = “” End Sub 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
5. Jalankan dengan menekan tombol F5

Done...