Entry Data Mahasiswa

Langkah-Langkah:

1.Buka Microsoft Visual Basic 6.0

2.Pada tampilan dibawah ini :

3.Kemudian pilih standard.exe lalu klik open

4.Muncul gambar seperti ini

5. Pada menu Toolbox pilih Label,textbox,command,dan combo

   * Buat 5 label pada latihan text box

   - pada label1,pilih caption dan ganti nama dengan Entry Data Mahasiswa

   - pada label2,pilih caption dan ganti nama dengan NIM

   - pada label3,pilih caption dan ganti nama dengan Nama

   - pada label4,pilih caption dan ganti nama dengan Tanggal Lahir

   - pada label5,pilih caption dan ganti nama dengan Jurusan

    * Buat 2 textbox pada latihan text box

    -  Dari ke-dua textboxt  tersebut,pada caption nya dikosongkan

     * Buat 3 command pada latihan text box

     - pada command1,pilih caption dan ganti nama dengan Ulang

     - pada command2,pilih caption dan ganti nama dengan Tampil

     - pada command3,pilih caption dan ganti nama dengan Keluar

   * Buat 5 combo pada latihan text box

   - pada combo1,pilih caption dan ganti nama dengan DD

   - pada combo2,pilih caption dan ganti nama dengan MM

   - pada combo3,pilih caption dan ganti nama dengan YYYY

   - pada combo4,pilih caption dan ganti nama dengan TI,SI,SK,KA

 

Jadinya seperti ini :

6. Lalu klik 2x pada command1/Ulang

Private Sub Command1_Click()

Text1.Text = ""

Text2.Text = ""

Combo1.Text = ""

Combo2.Text = ""

Combo3.Text = ""

Combo4.Text = ""

Text1.SetFocus

End Sub

7.Lalu klik 2x pada command 2/Tampil

    * Isikan formnya seperti ini :

Private Sub Command2_Click()

Dim ket As String

ket = "NIM : " + Text1.Text + Chr(13)

ket = ket + "Nama : " + Text2.Text + Chr(13)

ket = ket + "Tanggal lahir : " + Combo1.Text + Combo2.Text + Combo3.Text + Chr(13)

ket = ket + "Jurusan : " + Combo4.Text + Chr(13)

MsgBox ket, , "Data Mahasiswa"

End Sub

8.Lalu klik 2x pada command 3/keluar

    * Isikan formnya seperti ini :

Private Sub Command2_Click()

Unload Me

End Sub

     

9. Lalu klik 2x pada Text1

    * Isikan formnya seperti ini :

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

SendKeys "{tab}"

KeyAscii = 0

End If

End Sub

10. Lalu klik 2x pada Text2   

    * Isikan formnya seperti ini :

          Private Sub Text2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

SendKeys "{tab}"

KeyAscii = 0

End If

End Sub

Setelah Mengikuti Tutorial Di-Atas

Cobalah anda klik “ F5 “ (Play)

Apakah berhasil atau tidak.

Inilah contoh program yang telah berhasil

Hasil Pada Saat Klik Command  “ Tampil “