LISTING PROGRAM
FORM1
Private
Sub Command1_Click()
If
Text1.Text = "romizah"
And Text2.Text = "arin0102"
Then
MsgBox
"Selamat Login Anda Berahsil!", vbOKOnly, "LOGIN"
Form1.Hide
Form2.Show
Else
MsgBox
"Username atau Password Anda Salah", vbCritical, "SORRY"
End
If
End
Sub
Private
Sub Command2_Click()
End
End
Sub
Private
Sub Form_Load()
Label1.Caption
= "Username “
Label2.Caption
= "Password"
Command1.Caption
= "Login"
Command2.Caption
= "Exit"
Text1.Text
= ""
Text2.Text = ””
FORM2
Private
Sub Command1_Click()
Dim
a, x As Integer
a =
Text1.Text
For
x = 1 To a Step 2
List1.AddItem
(x)
Next
End
Sub
Private
Sub Command2_Click()
Dim
a, x As Integer
a =
Text1.Text
x =
2
Do
While x <= a
List1.AddItem
(x)
x =
x + 2
Loop
End
Sub
Private
Sub Command3_Click()
Unload
Me
End
Sub
LOGIKA PROGRAM
Pada pertemuan kali ini sya akan
membuat program unutuk menentukan deret angka ganjil dan angka genap
menggunakan Visual Basic (VB). Saya menggunakan perulangan For… Next dan Do
While … Loop. Pertama-tama buka aplikasi Visual Basic. Lalu
pilih Standart EXE dan akan muncul Form1. Pada Form1 saya akan membuat Program Login terlebih dahulu dengan cara:
Masukan 3 buah Label, 2 buah TextBox, 2 buah Command.
Maka tampilan dari Program seperti gambar dibawah ini:
Lalu
klik 2x pada Form1 satu maka akan
muncul “Project1 – Form1(Code)” yang
berfungsi sebagai tempat memasukkan kodingan pada Form1. Pada Form masukkan kodingan untuk merubah captionnya. Masukan
kodingan seperti dibawah
ini:
Private Sub Command1_Click()
If Text1.Text =
"romizah" And Text2.Text = "arin0102"
Then
MsgBox "Selamat
Login Anda Berahsil!", vbOKOnly, "LOGIN"
Form1.Hide
Form2.Show
Else
MsgBox "Username
atau Password Anda Salah", vbCritical, "SORRY"
End If
End Sub
Private Sub Command2_Click()
Unload me
End Sub
Private Sub
Form_Load()
Label1.Caption
= “Username”
Label2.Caption
= "Password"
Command1.Caption
= "Login"
Command2.Caption
= "Exit"
Text1.Text
= ""
Tezt2.Text = “”
Pada kodingan diatas untuk merubah Caption nya saya menggunakan
“.Caption” atau “.Text” fungsinya untuk merubah Caption
yang ada pada Label, Text, dan Command yang dibuat pada form1. Untuk koding program Login saya
menggunakan If fungsi nya untuk menjalakn sebuah perintah dengan dua kondisi,
jika data yang di input benar maka akan keluar pesan dan program akan dilanjutkan, tetapi jika data
yang di input salah maka akan keluar pesan "Username
atau Password Anda Salah" .
Untuk membuat tampilan lebih
menarik ubah lah tampilan char untuk password menjadi “*“ (bintang) dengan cara
Klik text2, Lalu fokus pada “Properties – Text 2” yang ada disebelah kanan program, Pada “Properties – Text 2” terdapat “PasswordChar” yang berfugsi untuk
merubah char pada Text2. Lalu ganti lah PasswordChar menjadi “*” (bintang)
Lalu klik 2x pada Command2
dan isikan kodingan seperti yang ada dibawah ini:
Private Sub Command2_Click()
Unload me
End Sub
Kodingan diatas berfungsi
untuk mengakhiri atau keluar dari Form1.
Setelah membuat koding pada form1
maka langkah selanjutnya membuat Form2 dengan cara Klik Project pada menubar lalu klik AddForm maka akan muncul Form2. Pada
Form2 akan dibuat program untuk perulangan ganjil dan genap. Langkah
pembuatannya seperti dibawah ini:
Tambahkan 1 buah TextBox, 1 buah
ListBox, dan 3
buah Command. Maka tampilannya akan menjadi seperti gambar dibawah ini:
Lalu
klik 2x pada Form2 dan akan muncul “Project1 – Form2(Code)” yang berfungsi
sebagai tempat memasukkan kodingan pada Form2.
Pada Form dimasukkan kodingan untuk merubah caption seperti kodingan dibawah
ini:
Pada
kodingan diatas setiap akhir dari kata ada “.Caption” atau “.Text”
itu berguna untuk merubah Caption yang ada pada Label, Text, dan Command yang
dibuat.
Private
Sub Form_Load()
Command1.Caption
= "Ganjil"
Command2.Caption
= "Genap"
Command3.Caption
= "Exit"
Text1.Text
= ""
End
Sub
Lalu
klik 2x pada Command1 dan isi kodingan seperti yang ada dibawah ini:
Private
Sub Command1_Click()
Dim
a, x As Integer
a =
Text1.Text
For
x = 1 To a Step 2
List1.AddItem
(x)
Next
End
Sub
“Dim a, x As Integer” kodingan ini fungsinya sama dengan Var
yang ada pada "Delphi” yaitu mendeklarasikan a dan x itu sebagai type data
Integer.
“a = Text1.Text” kodingan tersebut berfungsi
untuk menyatakan bahwa variable a adalah Text1.Text.
“For
x = 1 To a Step2” kodingan tersebut berfungsi untuk menyatakan variable x itu 1
atau angka awalnya 1 dan Step 2 memiliki fungsi seperti penjumlahan yaitu
apabila Step 2 dihilangkan maka x akan ditambah 1.
“List1.AddItem
(x)” kodingan tersebut berfungsi untuk memasukkan hasil dari x kedalam ListBox.
Lalu
klik 2x pada Command2 dan isi kodingan seperti yang ada dibawah ini:
Private
Sub Command2_Click()
Dim
a, x As Integer
a =
Text1.Text
x =
2
Do
While x <= a
List1.AddItem
(x)
x =
x + 2
Loop
End
Sub
“Dim
a, x As Integer” kodingan fungsinya sama dengan Var yang ada pada "Delphi”
yaitu mendeklarasikan a dan x itu sebagai type data Integer.
“a = Text1.Text” kodingan tersebut berfungsi
untuk menyatakan bahwa variable a adalah Text1.Text, atau bisa juga dibilang
mempersingkat kodingan.
“x
= 0” kodingan tesebut menyatakan bahwa x itu 0.
“Do
While x <= a” berfungsi sebagai perulangan yang berjalan selama kondisi
benar atau “x <= a” masih terpenuhi
dan akan berhenti saat kondisi bernilai salah.
“List1.AddItem
(x)” kodingan tersebut berfungsi untuk memasukkan hasil dari x kedalam ListBox.
Lalu
klik 2x pada Command3 dan isi kodingan seperti yang ada dibawah ini:
Private
Sub Command3_Click()
Unload me
End
Sub
Fungsi dari koding “Unload Me”
adalah sama seperti End, yaitu mengakhiri program.
#LabTI_Gunadarma
