Program ini gua buat berdasarkan pengalaman gua yang sering
kesulitan nyari karakter derajat, dan akhirnya gua bikin program kecil untuk
generat karakter akhirnya dapet tuh karakter derajatnya.
Nah di sini gua bakalan posting cara pembuatan program sederhana ini, ya sayang dari pada di buang gitu aja mending di posting aja.
Dasar dari program ini kita akan memakai function Chr yaitu function untuk menampilkan karakter dengan menyebutkan kode char nya. kode char yang ada di sini yaitu dari 0 sampai dengan 255, namun kita akan mulai dari kode 1 sampai 255.
Buka Microsoft Visual basic 6.0, lalu tambahkan objek ListBox, TextBox, dan Label. Ganti propertisnya :
ListBox
- Name = "LstSymbol"
TextBox
- Name = "TxtCopy"
Label
- Caption = "Copy Here"
Atur posisi objek seperti gambar di bawah.
Kode :
Option Explicit
Private Sub Form_Load()
Dim L As Integer
TxtCopy.Text = ""
LstSymbol.Clear
For L = 1 To 255
LstSymbol.AddItem L & " = " & Chr(L)
Next L
End Sub
Private Sub ShowSymbol()
If LstSymbol.Text = "" Then Exit Sub
TxtCopy.Text = Split(LstSymbol.Text, " = ")(1)
End Sub
Private Sub LstSymbol_Click()
ShowSymbol
End Sub
Private Sub LstSymbol_KeyUp(KeyCode As Integer, Shift As Integer)
ShowSymbol
End Sub
Ok program Pencari karakternya sudah jadi, tinggal di tes
Contoh program bisa di download
Password : kumprog.blogspot.com