MEMBUAT PROGRAM SEDERHANA VB 6.0

Untuk membuatnya anda terlebih dahulu menaruh 3 komponen label, 2 Text Box, 2 Combo box.

Lalu ubah komponen label menjadi DATA SISWA, NIM, dan NAMA.

Untuk Komponen Combo Box ubah menjati BERSIH dan KELUAR.

Setelah itu isi kode listing di bawah ini:

Sub bersih()

txtnim.Text = ""

txtnama.Text = ""

txtnim.SetFocus

End Sub

Private Sub cmdbersih_Click()

bersih

End Sub

Private Sub cmdkeluar_Click()

p = MsgBox("anda mau leaver", vbQuestion + vbYesNo, "info")

If p = vbYes Then

End

End If

End Sub

Private Sub txtnim_change()

If txtnim.Text = "18091326" Then

txtnama.Text = "firman sahrizal"

Else

If txtnim.Text = "18091337" Then

txtnama.Text = "abdul mukti"

End If

End If

End Sub

MAKA SETELAH DI ISI LISTING NA.. MAKAN AKAN MUNCUL SEPERTI GAMBAR DI BAWAH INI.