Menampilkan Data Yang Sudah di Input Dengan VB 6

Tutorial ini saya buat untuk mengerti dasar logika yang di pakai dalam pemrograman VB 6 ini, dalam input data yang mana data-data tersebut akan ditampilkan. Namun dalam tutorial ini kita masih belum menggunakan database, jadi sekedar belajar logika dasarnya terlebih dahulu.

Untuk pertama-tama buat dulu form’nya seperti ini :

• Untuk mengisi data pada ComboBox, pada “Properties” -> “List” , klik tanda panah kearah bawah / breakdown, kemudian ketikan, missal : SMA, lalu Enter. Untuk pengisian selanjutnya, caranya sama cukup di breakdown, lalu isi data kedua.

• Begitu juga cara diatas, sama caranya untuk pengisian ListBox.

Berikut dibawah ini adalah coding nya.

Private Sub cmdbatal_Click()
' Untuk menyembunyikan frame 2
Frame2.Visible = False
‘ Untuk mengosongkan data pada form
txtnama = ""
txtalamat = ""
txttempatlahir = ""
txttgllahir = ""
Cmbasalsekolah = ""
Chkrenang = Unchecked
Chkmenyanyi = Uncheked
Chksepakbola = Unchecked
Chkbeladiri = Unchecked
Optlakilaki = False
optperempuan = False
Optmi = False
Optka = False
Lstsumberinformasi.Text = ""
Label11 = ""
Label12 = ""
Label13 = ""
Label14 = ""
Label15 = ""
Label16 = ""
Label17 = ""
Label18 = ""
Label19 = ""

txtnama.SetFocus

End Sub

Private Sub cmdkeluar_Click()
Unload Me
End Sub


Private Sub cmdsimpan_Click()
On Error Resume next
‘ Untuk validasi agar semua data terisi

If txtnama = "" Or txtalamat = "" Or txttempatlahir = "" Or txttgllahir = "" Then
MsgBox " Maaf masih ada data yang kosong", vbInformation, "PErhatian"
txtnama.SetFocus
Else
' Untuk Menampilkan Frame 2 yang di hidden
Frame2.Visible = True
Label11.Caption = "Nama Anda = " & txtnama.Text
Label19.Caption = "Informasi dari =" & Lstsumberinformasi
If Optlakilaki.Value = True Then
Label17.Caption = "Jenis Kelamin : Pria"
End If
If optperempuan.Value = True Then
Label17.Caption = "JEnis Kelamin : Perempuan"
End If
Label12.Caption = "Alamat :" & txtalamat.Text
Label13.Caption = "TmpLahir :" & txttempatlahir.Text
Label14.Caption = "tgllahir :" & txttgllahir.Text
Label15.Caption = "Asal Sklh :" & Cmbasalsekolah.Text

If Chkrenang.Value = vbChecked Then
hobi1 = "renang"
ElseIf Chkrenang.Value = vbUnchecked Then
hobi1 = ""
End If
If Chkmenyanyi.Value = vbChecked Then
hobi2 = "Menyanyi"
ElseIf Chkmenyanyi.Value = vbUnchecked Then
hobi2 = ""
End If
If Chksepakbola.Value = vbChecked Then
hobi3 = "sepakbola"
ElseIf Chksepakbola.Value = vbUnchecked Then
hobi3 = ""
End If
If Chkbeladiri.Value = vbChecked Then
hobi4 = "beladiri"
ElseIf Chkbeladiri.Value = vbUnchecked Then
hobi4 = ""
End If
Label16.Caption = hobi1 & " " & hobi2 & " " & hobi3 & " " & hobi4

If Optmi.Value = True Then
Label18.Caption = "Jurusan : MI"
End If
If Optka.Value = True Then
Label18.Caption = "Jurusan : KA"
End If
End If
End Sub

Private Sub Form_Activate()
Frame2.Visible = False
End Sub

Selamat Mencoba.

Posted in: VB 6 dasar