LAPORAN
AKHIR
Mata Praktikum : Algoritma dan Pemrograman AP2A
Kelas : 1IA03
Praktikum ke- : 2
Tanggal : 4 APRIL 2015
Materi : Perulangan Pada Visual Basic
NPM : 58414525
Nama : Ainur Rohmah Al adawiyah
Ketua Asisten :
Nama Asisten :
Paraf Asisten :
Jumlah Lembar : 14 Lembar
LABORATURIUM
TEKNIK INFORMATIKA
UNIVERSITAS
GUNADARMA
2015
1. OUTPUT PROGRAM
·
Form satu
a.
Membuat sebuah form Pada form dengan menggunakan lima tools yaitu Label,
Textbox, OptionButton,CheckBox, dan CommandButton. Lalu menyusunnya dengan rapi
seperti pada gambar berikut.
b.
Mengganti Caption pada Properties Label,Label,
dan Label dengan NAMA, NPM, MERAH, BIRU, BOLD, ITALIC, TAMPIL, HAPUS, dan
LANJUT seperti pada gambar berikut.
 |
|||||
 |
|||||
 |
|||||
c.
Mengosongkan untuk bagian label dengan cara
menghapus Caption seperti pada gambar berikut.
d.
Untuk memasukkan program dengan cara double
klik pada Command Button.
e.
Jika teks ditulis “Ahmad Zaoharudin” dan NPM
nya 5C414707 lalu meng klik OptionButton “Biru” dan
mengklik kedua CheckBox, maka akan menampilkan Output sebagai berikut.
·
Form dua
a.
Membuat sebuah form pada form dengan menggunakan tiga tools yaitu Label,
Textbox, dan CommandButton. Lalu
menyusunnya dengan rapi seperti pada gambar berikut.
b.
Mengganti Caption pada Properties Label dan
Label dengan NAMA dan PASSWORD serta mengganti Caption pada Properties Command
dan Command dengan LOGIN dan EXIT seperti pada gambar berikut.
c.
Mengosongkan untuk bagian label dengan cara
menghapus Caption seperti pada gambar berikut.
d.
Untuk memasukkan program dengan cara double
klik pada Command Button.
e.
Jika teks pada Label Nama
ditulis “Admin” dan teks pada label Password ditulis “rahasia” maka akan memunculkan Form3 dan
menyembunyikan Form2.jika diisi selain itu maka akan memunculkan kotak pesan “Anda
Gagal” seperti pada tampilan output berikut.
·
Form tiga
a.
Membuat sebuah form pada form dengan menggunakan dua tools yaitu
Textbox dan CommandButton. Lalu
menyusunnya dengan rapi seperti pada gambar berikut.
b.
Mengganti Caption pada Properties Command dan
Command dengan GANJIL dan GENAP seperti pada gambar berikut.
 |
|||
 |
|||
c.
Mengosongkan untuk bagian label dengan cara
menghapus Caption seperti pada gambar berikut.
d.
Untuk memasukkan program dengan cara double
klik pada Command Button.
e.
Jika pada teks ditulis angka sembarang dan
mengklik CommandButton ganjil maka pada list akan mengeluarkan angka ganjil sampai
dengan batas maksimal angka yang dituliskan seperti pada tampilan output
berikut.
f.
Jika pada teks ditulis angka sembarang dan mengklik
CommandButton genap maka pada list akan mengeluarkan angka genap sampai dengan
batas maksimal angka yang dituliskan seperti pada tampilan output berikut.
2. LIST PROGRAM
·
Form 1
a. Mengubah font Label menjadi
cetak tebal (Bold)
Private Sub Check1_Click()
Label3.FontBold = Check1
End
Sub
b. Mengubah font Label menjadi cetak
miring (Italic).
Private Sub Check2_Click()
Label3.FontItalic = Check2
End Sub
c. Memindahkan Text1 dan Text2
kedalam Label3.
Private Sub Command1_Click()
Label3.Caption = Text1.Text + Chr (13) +
Text2.Text
End Sub
d. Menghapus Text1 dan Text2 pada
Label3 ketika mengklik CommandButton.
Private Sub Command2_Click()
Text1.Text = Clear
Text2.Text = Clear
Label3.Caption = Clear
End Sub
e. Menampilkan Form2 yang sudahdiisidengan
program dan menyembunyikan Form1.
Private Sub Command3 _Click()
Form1.Hide
Form2.Show
End Sub
f.
Memberikanwarnamerahpadatulisan
yang adapada Label3.
Private Sub Option1_Click()
Label3_Forecolor = vbRed
End Sub
g.
Memberikanwarna
biru padatulisan yang adapada Label3.
Private Sub Option2_Click()
Label3.ForeColor = vbBlue
End Sub
·
Form 2
a.
Memunculkan
Form3 dan menyembunyikan Form2jika TextBox 1 diisi “admin”
danTextBox 2 diisi “rahasia”. Jika yang diisi adalah selain itu maka akan
memunculkan kotak pesan “Anda Gagal”.
Private Sub Command1_Click()
If Text1.Text = “Admin” And Text2.Text =
“Rahasia” Then
Form3.Show
Form2.Hide
Else
MsgBox (“Anda gagal”)
End If
End Sub
b.
Menghilangkan
Form2 yang digunakanuntukkeluardari program pada Form2.
Kemudian Add Form kembaliuntukmemunculkan Form3.
Private Sub Command2_Click()
Form2.Hide
Form1.Show
End Sub
·
Form3
a.
Jika pada teks ditulis angka sembarang dan
mengklik CommandButton ganjil maka pada list akan mengeluarkan angka ganjil sampai
dengan batas maksimal angka yang dituliskan.
Private Sub Command1_Click()
Dim x, a As Integer
a = Text1.Text
For x =
1 To a
If x Mod 2 =
1 Then
List1.AddItem [x]
End If
Next
End Sub
b.
Jika pada teks ditulis angka sembarang dan
mengklik CommandButton genap maka pada list akan mengeluarkan angka genap sampai
dengan batas maksimal angka yang dituliskan.
Private Sub Command2_Click()
Dim x, a As Integer
a = Text1.Text
For x =
1 To a
If x Mod 2 =
0 Then
List1.AddItem [x]
End If
Next
End Sub
3. LOGIKA PROGRAM
·
Form 1
Private Sub Check1_Click()
Label3.FontBold = Check1
End
Sub
Padakodingan
di atasberfungsiuntuk mengubah
font Label menjadi cetak tebal (Bold)
Private Sub Check2_Click()
Label3.FontItalic = Check2
End Sub
Padakodingan di
atasberfungsiuntukmengubah
font Label menjadi cetak miring (Italic).
Private Sub Command1_Click()
Label3.Caption = Text1.Text + Chr (13) +
Text2.Text
End Sub
Padakodingan di
atasberfungsiuntukmemindahkan
Text1 dan Text2 kedalam Label3.
Private Sub Command2_Click()
Text1.Text = Clear
Text2.Text = Clear
Label3.Caption = Clear
End Sub
Padakodingan di
atasberfungsiuntukMenghapus
Text1 dan Text2 pada Label3 ketika mengklik CommandButton.
Private
Sub Command3 _Click()
Form1.Hide
Form2.Show
End Sub
Padakodingan di atasberfungsiuntukmenampilkan Form2 yang
sudahdiisidengan program dan menyembunyikan Form1.
Private Sub Option1_Click()
Label3_Forecolor = vbRed
End Sub
Padakodingan di atasberfungsiuntukmemberikanwarnamerahpadatulisan yang
adapada Label3.
Private Sub Option2_Click()
Label3.ForeColor = vbBlue
End Sub
Padakodingan di atasberfungsiuntukmemberikanwarna biru padatulisan yang
adapada Label3.
·
Form 2
Private Sub Command1_Click()
If Text1.Text = “Admin” And Text2.Text =
“Rahasia” Then
Form3.Show
Form2.Hide
Else
MsgBox (“Anda gagal”)
End If
End Sub
Padakodingan
di atasberfungsiuntukMemunculkan
Form3 dan menyembunyikan Form2jika TextBox 1 diisi “admin”
danTextBox 2 diisi “rahasia”. Jika yang diisi adalah selain itu maka akan
memunculkan kotak pesan “Anda Gagal”.
Private Sub Command2_Click()
Form2.Hide
Form1.Show
End Sub
Padakodingan
di atasberfungsiuntukMenghilangkan
Form2 yang digunakanuntukkeluardari program pada Form2.
Kemudian Add Form kembaliuntukmemunculkan Form3.
·
Form3
Private Sub Command1_Click()
Dim x, a As Integer
a = Text1.Text
For x =
1 To a
If x Mod 2 =
1 Then
List1.AddItem [x]
End If
Next
End Sub
Padakodingan di atasberfungsiuntukJika pada
teks ditulis angka sembarang dan mengklik CommandButton ganjil maka pada list
akan mengeluarkan angka ganjil sampai dengan batas maksimal angka yang
dituliskan.
Pada Command1 Dim x, a As Integer
memilikiarti a didefinisikansebagai variable bertipe integer dan x merupakan
variant.
a = Text1.Text
memilikiartimemasukkan variable a kedalamTextBox
For x = 1 to a
memilikiartiuntukperulangan x dari 1 menuju a yang merupakan variable bertipe
integer.
If x Mod 2 = 1 Then
List1.Addterm (x) memilikiartijika x dibagi 2 bersisa 1
makaakanmunculsebanyakangkaganjil yang dibatasipada variable a.
End If memilikiartimengakhiri
proses syarat If.
Private Sub Command2_Click()
Dim x, a As Integer
a = Text1.Text
For x =
1 To a
If x Mod 2 =
0 Then
List1.AddItem [x]
End If
Next
End Sub
Padakodingan di atasberfungsiuntukJika pada
teks ditulis angka sembarang dan mengklik CommandButton genap maka pada list
akan mengeluarkan angka genap sampai dengan batas maksimal angka yang
dituliskan.
Pada
Command1 Dim x, a As Integer memilikiarti a didefinisikansebagai variable
bertipe integer dan x merupakan variant.
a
= Text1.Text memilikiartimemasukkan variable a kedalamTextBox
For
x = 1 to a memilikiartiuntukperulangan x dari 1 menuju a yang merupakan
variable bertipe integer.
If
x Mod 2 = 0 Then List1.Addterm (x) memilikiartijika x dibagi 2 bersisa 0
makaakanmunculsebanyakangkagenap yang dibatasipada variable a.
End
If memilikiartimengakhiri proses syarat If.
Postingan
0 komentar:
Posting Komentar