Pengenalan VB

berikut ada form untuk aplikasi login.

·         Buat kotak login, username, dan password dengan Label dan ubah captionnya menjadi masing masing yang diperintahkan.

·         Kemudian buat disamping username dan password dengan textbox, kosongkan pada properties form1 “text”

·         Setelah itu buat kotak Login dan Reset dengan menggunakan CommandButton.

Untuk dapat mengakses login maka harus dibuat sebuah code(codingan)nya terlebih dahulu. Dengan cara:

·         Double clik pada login atau dapat dengan klik kanan kemudian view code

·         Setelah itu ketikan

If Text1.Text = "admin" And Text2.Text = "admin" Then

MsgBox "Login Berhasil", 0, "Succes"

Else

MsgBox "Username atau Password salah", 0, "Error"

End If

·         Dan di run(F5)

Maka hasilnya akan seperti berikut :

Jika memasukkan username benar dan password salah

If Text1.Text = "admin" And Text2.Text = "farel" Then

MsgBox "Login Berhasil", 0, "Succes"

Else

MsgBox "Username atau Password salah", 0, "Error"

End If

·         Di run(F5)

Maka hasilnya:

Kemudian membuat perintah untuk me-Reset

·         Double click atau klik kanan pada Reset kemudian pilih view code

·         Kemudian ketikkan

Text1.Text=””

Text2.Text=””

Atau bisa juga

Text1.Text=cut

Text2.Text=cut

Atau

Text1.Text=delete

Text2.Text=delete

·         Di run(F5)

Maka hasilnya seperti pada gambar pertama

Kemudian membuat fungsi perulangan pada Visual Basic

·         Buat Perulangan, awal, akhir dengan menggunakan Label dengan mengubah pada caption menjadi nama yang diperintahkan

·         Buat kotak disamping awal dan akhir menggunakan textbox, dan buat sebuah kotak yang agak besar di sampingnya dengan menggunakan Listbox

·         Buat Input dan Reset dengan CommandButton

Membuat angka perulangan:

·         Double klik pada proses atau klik kanan pilih view code

·         Kemudian ketikkan:

List1.Clear

a = Val (Text1.Text)

b = Val (Text2.Text)

For i = a To b

List1.AddItem i

Next i

End Sub

Maka akan mucncul output :

setelah itu membuat bilangan genap

·         Double klik pada proses atau klik kanan pilih view code

·         Kemudian ketikkan:

List1.Clear

a = Val (Text1.Text)

b = Val (Text2.Text)

For i = a To b

If i Mod 2 = 0 Then

List1.AddItem i

End If

Next i

End Sub

Maka akan muncul output :

Membuat output bilangan ganjil

·         Double klik pada proses atau klik kanan pilih view code

·         Kemudian ketikkan:

List1.Clear

a = Val (Text1.Text)

b = Val (Text2.Text)

For i = a To b

If i Mod 2 = 1 Then

List1.AddItem i

End If

Next i

End Sub

Maka akan muncul output :