YHNP: Coding

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.

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 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

Keterangan :
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.

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()

Dim tanya As Integer
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()

Form4.Show

Form2.Hide

End Sub

Dan klik 2x di tombol “Perulangan” dan ketik codingannya :
Private Sub Perulangan_Click()

Form5.Show

Form2.Hide

End Sub

Keterangan :
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.

Setelah itu klik 2x di tombol “Proses” dan ketik codingannya :
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

Setelah itu klik 2x di tombol “Back” dan ketik codingannya :
Private Sub Command2_Click()

Form2.Show

Form3.Hide

End Sub

Setelah itu klik 2x di tombol “Next” dan ketik codingannya :
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.

No comments

YHNP

Pages

NEW POST!!

TOEFL - Present Participle

Gunadarma University

UG Site

Translate

Follow Me

Archive

Total Pageviews

Spotify Playlist

Popular Posts

Visitors

YHNP

Pages

NEW POST!!

TOEFL - Present Participle

Gunadarma University

UG Site

Translate

Follow Me

Archive

Total Pageviews

Spotify Playlist

Popular Posts

Visitors

About me

Instagram