Membuat 3 Form Pada Ms. Visual Basic
Program Login :
Untuk membuat
form Login sederhana, buatlah 2 buah form dan pada Form1 kita hanya membutuhkan
3 Label, 2 TextBox dan 2 Command Button.
Untuk membuat label gunakan icon Label pada toolbox di sebelah kiri lembar kerja. Kemudian ada 2 textbox dengan nama atribut text1 dan text2, masing-masing text tersebut memiliki tipe data text.
Terdapat 2 tombol dalam form yaitu tombol dengan nama atribut command1 dan command2. Perintah menambahkan command button terdapat pada toolbox.
Gunakanlah properties untuk mengedit atribut-atribut pada form, misal pada command1 ubah caption pada propertiesnya menjadi Login dan pada command2 ubah caption menjadi Cancel.
Setelah itu klik 2x di tombol “Login” dan ketik codingannya :
Private Sub Command1_Click() If Text1.Text = "Admin" And Text2.Text = "12345" Then
Form2.Show
Form1.Hide
Else
MsgBox "Username atau Password ada yang salah!"
Text2.SetFocus
Text2 = ""
Text1.SetFocus
Text1 = ""
End If
End Sub
Dan klik 2x di tombol “Cancel” dan ketik codingannya :
Private Sub Command2_Click()
MsgBox ("Terimakasih telah menggunakan program ini")
End
End Sub
Setelah itu klik 2x di tombol “Biodata” dan ketik codingannya :
Private Sub Biodata_Click()
Form3.Show
Form2.Hide
End Sub
Setelah itu klik 2x di tombol “Exit” dan ketik codingannya :
Private Sub Exit_Click()
Setelah itu klik 2x di tombol “Proses” dan ketik codingannya :
Private Sub Command1_Click()
Keterangan :
1. If Text1.Text = “Admin” And Text2.Text = “12345” Then
1. If Text1.Text = “Admin” And Text2.Text = “12345” Then
nama username
dan password
2. MsgBox “Username
atau Password ada yang salah”
untuk
memberitahu user, bahwa username atau password yang dimasukkan ada yang salah
3. MsgBox (“Terima
Kasih telah menggunakan program ini”)
untuk
memberitahu user, jika user telah membatalkan login
4. Command1_Click(
)
variable dari
Login
5. Command2_Click()
variable dari
Cancel
6. Form2.Show
untuk
menampilkan Form2
7. Form1.Hide
untuk menyembunyikan
Form1
Tekan F5 untuk melihat hasilnya. Coba isi Username dengan “Admin” dan Password dengan “12345” kemudian klik Login, maka Form2 akan ditampilkan :
Jika user salah memasukkan username atau password, maka akan muncul peringatan :
Dan jika user ingin membatalkan login, maka klik “Cancel” dan akan muncul pemberitahuan :
Program Menu Editor :
Untuk membuat Menu Editor pada Form2, klik Tools lalu pilih Menu Editor atau tekan Ctrl + E. Kemudian masukkan Menu, Biodata, Kondisi, Perulangan, dan Exit pada Caption dan Name lalu klik OK.
Private Sub Biodata_Click()
Form3.Show
Form2.Hide
End Sub
Setelah itu klik 2x di tombol “Exit” dan ketik codingannya :
Private Sub Exit_Click()
Dim tanya As Integer
tanya = MsgBox("Yakin mau keluar dari program?", vbQuestion + vbOKCancel, "Pemberitahuan")
tanya = MsgBox("Yakin mau keluar dari program?", vbQuestion + vbOKCancel, "Pemberitahuan")
If tanya = vbCancel Then
ElseIf tanya = vbOK Then
End
End If
End Sub
Setelah itu klik 2x di tombol “Kondisi” dan ketik codingannya :
Private Sub Kondisi_Click()
ElseIf tanya = vbOK Then
End
End If
End Sub
Setelah itu klik 2x di tombol “Kondisi” dan ketik codingannya :
Private Sub Kondisi_Click()
Form4.Show
Form2.Hide
End Sub
Dan klik 2x di tombol “Perulangan” dan ketik codingannya :
Private Sub Perulangan_Click()
Dan klik 2x di tombol “Perulangan” dan ketik codingannya :
Private Sub Perulangan_Click()
Form5.Show
Form2.Hide
End Sub
Keterangan :
1. Form2.Hide
1. Form2.Hide
untuk
menyembunyikan Form2
2. Form3.Show
untuk
menampilkan Form3
3. Form4.Show
untuk
menampilkan Form4
4. Form5.Show
untuk
menampilkan Form5
5. tanya = MsgBox
(“Yakin mau keluar dari program?”, vbQuestion + vbOKCancel, “Pemberitahuan”)
untuk
memunculkan pesan buat meyakinkan user ingin keluar atau tidak
Tekan F5 untuk
melihat hasilnya :
Jika user ingin membatalkan keluar dari program, maka klik “Exit” dan akan muncul pemberitahuan :
Program Biodata :
Untuk membuat
form Biodata, buatlah form dan pada Form3 kita hanya membutuhkan 5 Label, 3
TextBox dan 3 Command Button.
Untuk membuat
label gunakan icon Label pada toolbox di sebelah kiri lembar kerja. Kemudian
ada 3 textbox dengan nama atribut text1, text2, dan text3, masing-masing text
tersebut memiliki tipe data text.
Gunakan icon text box pada toolbox. Dan
kemudian untuk menghapus tulisan text1 pada text box gunakan tab properties
dari atribut text1 hapuslah tulisan text1 di sub menu Text.
Terdapat 3 tombol
dalam form yaitu tombol dengan nama atribut command1, command2, dan command3.
Perintah menambahkan command button terdapat pada toolbox.
Gunakanlah
properties untuk mengedit atribut-atribut pada form, misal pada command1 ubah
caption pada propertiesnya menjadi Proses, command2 ubah menjadi Back, dan
command3 ubah menjadi Next.
Private Sub Command1_Click()
Label5.Caption = "Nama saya adalah " + Text1.Text & vbNewLine & "NPM saya adalah " + Text2.Text & vbNewLine & "Kelas saya adalah " + Text3.Text
End Sub
Keterangan :
End Sub
Setelah itu klik 2x di tombol “Back” dan ketik codingannya :
Private Sub Command2_Click()
Private Sub Command2_Click()
Form2.Show
Form3.Hide
End Sub
Setelah itu klik 2x di tombol “Next” dan ketik codingannya :
Private Sub Command3_Click()
Private Sub Command3_Click()
Form4.Show
Form3.Hide
End Sub
Keterangan :
1. Command1_Click(
)
variable dari
Proses
2. Command2_Click()
variable dari
Back
3. Command3_Click()
variable dari
Next
4. Form2.Show
untuk
menampilkan Form2
5. Form3.Hide
untuk
menyembunyikan Form3
6. Form4.Show
untuk
menampilkan Form4
7. Label5.Caption
tempat
menampilkan hasil input
Lalu isikan
Nama, NPM, dan Kelas, setelah sudah diisi lalu klik Proses.
0 comments