Jumat, 07 Juli 2017

Jafar pahrudin

Pencari Karakter

Kumpulan Program

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.

kumpulan program

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

Jafar pahrudin

About Jafar pahrudin

Author Description here.. Nulla sagittis convallis. Curabitur consequat. Quisque metus enim, venenatis fermentum, mollis in, porta et, nibh. Duis vulputate elit in elit. Mauris dictum libero id justo.

Subscribe to this Blog via Email :