Membuat Form Biodata menggunakan VB 6.0

1. Buat sebuah Project Exe baru.

2. Buat form seperti yang dibawah :

Penjelasan :

• Buat 2 Label yang caption-nya diberi nama NRP dan NAMA.
• Buat 3 TextBox yang name diberi nama txtnrp, txtnama dan txthasil.
• Buat 2 frame yang caption diberi nama menjadi Jenis Kelamin dan Hobby.
• Buat 2 option Button diberi nama caption nya laki dan perempuan. kemudian ganti name nya menjadi optlaki dan optperempuan.
• Buat 4 CheckBox diberi nama caption Berenang, Tidur, Makan, Music, kemudian ganti name nya dengan chk1, chk2, chk3, chk4.
• Txthasil untuk property nya  diganti Multiline = True, ScrollBars = 2.

3. Membuat Objek aktif dengn property setfocus dan menggunakan event keypress bila menekan tombol Enter.

            Private Sub txtnrp_KeyPress(KeyAscii As Integer) If Not (KeyAscii >= Asc("0") & Chr(13) And KeyAscii <= Asc("9") & Chr(13) Or KeyAscii = vbKeyBack Or KeyAscii = vbKeyDelete Or KeyAscii = vbKeyReturn Or KeyAscii = vbKeySpace) Then MsgBox "Isikan Angka Saja", 48, "Perhatian" KeyAscii = 0 Else End If If KeyAscii = vbKeyReturn Then txtnama.SetFocus Else End If End Sub

4. Membuat tulisan txtnama huruf besar semua.

Private Sub txtnama_KeyPress(KeyAscii As Integer) If Not (KeyAscii >= Asc("a") & Chr(13) And KeyAscii <= Asc("z") & Chr(13) Or (KeyAscii >= Asc("A") & Chr(13) And KeyAscii <= Asc("Z") & Chr(13) Or KeyAscii = vbKeyBack Or KeyAscii = vbKeyReturn Or KeyAscii = vbKeyDelete Or KeyAscii = vbKeySpace)) Then MsgBox "Isikan Huruf Saja", 48, "Perhatian" KeyAscii = 0 End If KeyAscii = Asc(UCase$(Chr$(KeyAscii))) If KeyAscii = vbKeyReturn Then optlaki.SetFocus Else End If End Sub  

5. Hasil dari program bila ditekan tombol Ok.

Private Sub cmdok_Click() Dim jk As String, hobby As String If optlaki.Value = True Then jk = "Laki-laki" Else jk = "Perempuan" End If If Chk1.Value = 1 Then hobby = "Berenang" Else Chk1.Visible = False End If If Chk2.Value = 1 Then hobby = hobby & "Tidur" Else Chk2.Visible = False End If If Chk3.Value = 1 Then hobby = hobby & "Makan" Else Chk3.Visible = False End If If Chk4.Value = 1 Then hobby = hobby & "Music" Else Chk4.Visible = False End If txthasil.Text = "NRP : " & txtnrp.Text & vbNewLine & _ "Nama : " & txtnama.Text & vbNewLine & _ "Jenis Kelamin : " & jk & vbNewLine & _ "Hobby: " & hobby End Sub

Penjelasan :

• "Dim jk As String, Hobby As String" merupakan variable string.
• "vbNewline" adalah function untuk mengganti baris baru.
• "& _ " untuk mempermudah pengkodingan agar bisa dilanjutkan digaris baru.

6. Bila anda mau menghilangkan Check Box "Berenang" pada saat program dijalankan.

Private Sub Form_Load() chk1.Visible = False End Sub  

7. Menggunakan event keypress dengan menggunakan tombol Escape pada form untuk keluar dari program. Anda harus mengganti property di form Keypreview = true.

Private Sub Form_KeyPress(KeyAscii As Integer) If KeyAscii = vbKeyEscape Then End End If End Sub 


Coding Lengkapnya :

Private Sub chk1_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase$(Chr$(KeyAscii))) If KeyAscii = vbKeyReturn Then Chk2.SetFocus Else End If End Sub Private Sub chk2_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase$(Chr$(KeyAscii))) If KeyAscii = vbKeyReturn Then Chk3.SetFocus Else End If End Sub Private Sub chk3_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase$(Chr$(KeyAscii))) If KeyAscii = vbKeyReturn Then Chk4.SetFocus Else End If End Sub Private Sub cmdok_Click() Dim jk As String, hobby As String If optlaki.Value = True Then jk = "Laki-laki" Else jk = "Perempuan" End If If Chk1.Value = 1 Then hobby = "berenang" Else Chk1.Visible = False End If If Chk2.Value = 1 Then hobby = hobby & "Tidur" Else Chk2.Visible = False End If If Chk3.Value = 1 Then hobby = hobby & "Makan" Else Chk3.Visible = False End If If Chk4.Value = 1 Then hobby = hobby & "Music" Else Chk4.Visible = False End If txthasil.Text = "NRP : " & txtnrp.Text & vbNewLine & _ "Nama : " & txtnama.Text & vbNewLine & _ "Jenis Kelamin : " & jk & vbNewLine & _ "Hobby: " & hobby End Sub Private Sub Form_KeyPress(KeyAscii As Integer) If KeyAscii = vbKeyEscape Then End End If End Sub Private Sub optlaki_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase$(Chr$(KeyAscii))) If KeyAscii = vbKeyReturn Then Chk1.SetFocus Else End If End Sub Private Sub txtnama_KeyPress(KeyAscii As Integer) If Not (KeyAscii >= Asc("a") & Chr(13) And KeyAscii <= Asc("z") & Chr(13) Or (KeyAscii >= Asc("A") & Chr(13) And KeyAscii <= Asc("Z") & Chr(13) Or KeyAscii = vbKeyBack Or KeyAscii = vbKeyReturn Or KeyAscii = vbKeyDelete Or KeyAscii = vbKeySpace)) Then MsgBox "Isikan Huruf Saja", 48, "Perhatian" KeyAscii = 0 End If KeyAscii = Asc(UCase$(Chr$(KeyAscii))) If KeyAscii = vbKeyReturn Then optlaki.SetFocus Else End If End Sub Private Sub txtnrp_KeyPress(KeyAscii As Integer) If Not (KeyAscii >= Asc("0") & Chr(13) And KeyAscii <= Asc("9") & Chr(13) Or KeyAscii = vbKeyBack Or KeyAscii = vbKeyDelete Or KeyAscii = vbKeyReturn Or KeyAscii = vbKeySpace) Then MsgBox "Isikan Angka Saja", 48, "Perhatian" KeyAscii = 0 Else End If If KeyAscii = vbKeyReturn Then txtnama.SetFocus Else End If End Sub  



Maka hasilnya:

Bila di klik Ok :

=================semoga bermanfaat===============