LAPORAN AKHIR
Mata
Praktikum : ALGORITMA &
PEMROGRAMAN 2A
Kelas : 1IA11
Praktikum
ke- : 5
Tanggal : 11 April 2016
Materi : Percabangan dan
Perulangan Visual Basic 6.0
NPM : 55415187
Nama : NUR IRFAN EKA
FADHILAH
Ketua
Asisten : BUDHI UTAMA
Nama Asisten :
Paraf
Asisten :
Jumlah
Lembar : 25 Lembar
LABORATORIUM TEKNIK
INFORMATIKA
UNIVERSITAS GUNADARMA
2016
LISTING PROGRAM
|
|
|
LOGIKA PROGRAM
Pada pertemuan kali ini kita membuat
program pada Visual Basic dengan perulangan dan percabangan. Pertama kita
terlebih dahulu menyusun komponen-komponen yang dibutuh kan dalam pembuatan
program kali ini yaitu:
Ø 5 Buah Form
Ø 6 Label
Ø 7 Text Box
Ø 12 Command Button
Ø 2 List Box
Pertama kita susun Form1 yaitu kita
taruh dahulu komponen Label1 yaitu dengan cara klik kiri label pada toolbox
lalu kita taruh komponen label1 ke dalam Form1 setelah itu kita ke properties
lalu kita ganti isi dari caption komponen Label1 menjadi username, lalu kita
taruh komponen Label2 yaitu dengan cara klik kiri label pada toolbox lalu kita
taruh komponen Label2 ke dalam Form1 setelah itu kita ke properties lalu kita
ganti isi dari caption komponen Label2 menjadi password, lalu kita taruh
komponen TextBox1 yaitu dengan cara klik kiri TextBox pada toolbox lalu kita
taruh komponen TextBox1 ke dalam Form1 setelah itu kita ke properties lalu kita
kosongkan caption dari komponen TextBox1, lalu kita taruh komponen TextBox2
yaitu dengan cara klik kiri TextBox pada toolbox lalu kita taruh komponen
TextBox2 ke dalam Form1 setelah itu kita ke properties lalu kita kosongkan
caption dari komponen TextBox2, lalu kita taruh komponen CommandButton1 yaitu
dengan cara klik kiri CommanButton pada toolbox lalu kita taruh komponen
CommandButton1 ke dalam Form1 setelah itu kita ke properties lalu kita ganti
isi dari caption CommandButton1 menjadi Login setelah itu kita susun
komponen-komponen yang terdapat Form1 seperti gambar di bawah ini:
Seteelah selesai menyusun Form1 lalu
kita tambahkan Form2 yaitu dengan cara:
-
klik
menu project
-
lalu
klik add Form
-
setelah
itu klik Form
-
lalu
kita klik open
Maka akan keluar Form2 setelah itu
kita masukkan komponen-komponen nya:
- - 4
CommandButton
Lalu kita masukkan komponen-komponen
tersebut ke dalam Form2 pertama kita masukkan CommandButton1 yaitu dengan cara
klik CommandButton yang terdapat pada toolbox lalu kita taruh ke dalam Form2
setelah itu kita ke properties lalu kita ganti isi dari caption CommandButton1
menjadi Loop Until, lalu kita masukkan CommandButton2 yaitu dengan cara klik
CommandButton yang terdapat pada toolbox lalu kita taruh ke dalam Form2 setelah
itu kita ke properties lalu kita ganti isi dari caption CommandButton2 menjadi
Prima, lalu kita masukkan CommandButton3 yaitu dengan cara klik CommandButton
yang terdapat pada toolbox lalu kita taruh ke dalam Form2 setelah itu kita ke
properties lalu kita ganti isi dari caption CommandButton3 menjadi Case, lalu
kita masukkan CommandButton4 yaitu dengan cara klik CommandButton yang terdapat
pada toolbox lalu kita taruh ke dalam Form2 setelah itu kita ke properties lalu
kita ganti isi dari caption CommandButton4 menjadi Exit, lalu setelah itu kita
susun komponen-komponen yang terdapat pada Form2 seperti gambar di bawah ini:
Setelah kita selesai menyusun Form2
maka kita akan membuat Form3, yaitu dengan cara:
-
klik
menu project
-
lalu
klik add Form
-
setelah
itu klik Form
-
lalu
kita klik open
Setelah keluar Form3 maka kita
masukkan komponen-komponen yang
dibutuhkan dalam Form3 komponen nya adalah sebagai berikut:
-
1
Label
-
1
TextBox
-
1
ListBox
-
2
CommandButton
Pertama kita masukkan terlebih
dahulu komponen Label1 yaitu dengan cara klik kiri komponen Label yang terdapat
dalam toolbox lalu kita masukkan ke dalam Form3 setelah itu ke properties lalu
kita ganti isi dari caption Label1 tersebut menjadi angka, lalu kita masukkan komponen
TextBox yaitu dengan cara klik kiri komponen TextBox yang terdapat dalam
toolbox lalu kita masukkan ke dalam Form3 setelah itu ke properties lalu kita
kosongkan isi dari caption TextBox1, lalu kita masukkan komponen ListBox1 yaitu
dengan cara klik kiri komponen ListBox yang terdapat dalam toolbox lalu kita
masukkan ke dalam Form3, lalu kita masukkan komponen CommandButton1 yaitu
dengan cara klik kiri komponen CommandButton yang terdapat dalam toolbox lalu
kita masukkan ke dalam Form3 setelah itu ke properties lalu kita ganti isi dari
caption CommandButton1 tersebut menjadi HASIL, lalu kita masukkan komponen
CommandButton2 yaitu dengan cara klik kiri komponen CommandButton yang terdapat
dalam toolbox lalu kita masukkan ke dalam Form3 setelah itu ke properties lalu
kita ganti isi dari caption CommandButton2 tersebut menjadi Back, lalu setelah
itu kita susun komponen-komponen tersebut yang terdapat dalam Form3 menjadi
gambar seperti di bawah ini:
Setelah kita selesai menyusun Form3,
maka kita akan membuat Form4 yaitu dengan cara sebagai berikut:
klik menu project
- lalu klik add Form
- setelah itu klik Form
- lalu kita klik open
Setelah keluar Form4 maka kita
masukkan komponen-komponen yang dibutuhkan dalam Form4. Komponen nya adalah
sebagai berikut:
-
2
Label
-
3
TextBox
-
3
CommandButton
Pertama kita masukkan terlebih
dahulu komponen Label1 ke dalam Form4 cara nya adalah dengan klik kiri Label
yang terdapat dalam toolbox lalu kita taruh Label1 ke dalam Form4 setelah itu
kita ke properties lalu kita ganti isi dari caption Label1 menjadi Nama Barang,
lalu kita masukkan komponen Label2 ke dalam Form4 cara nya adalah dengan klik
kiri Label yang terdapat dalam toolbox lalu kita taruh Label2 ke dalam Form4
setelah itu kita ke properties lalu kita ganti isi dari caption Label2 menjadi
Harga, lalu kita masukkan komponen TextBox1 ke dalam Form4 cara nya adalah
dengan klik kiri TextBox yang terdapat dalam toolbox lalu kita taruh TextBox1
ke dalam Form4 setelah itu kita ke properties lalu kita kosongkan isi dari
caption TextBox1, lalu kita masukkan komponen TextBox2 ke dalam Form4 cara nya
adalah dengan klik kiri TextBox yang terdapat dalam toolbox lalu kita taruh
TextBox2 ke dalam Form4 setelah itu kita ke properties lalu kita kosongkan isi
dari caption TextBox2, lalu kita masukkan komponen TextBox3 ke dalam Form4 cara
nya adalah dengan klik kiri TextBox yang terdapat dalam toolbox lalu kita taruh
TextBox3 ke dalam Form4 setelah itu kita ke properties lalu kita kosongkan isi
dari caption TextBox3, lalu kita masukkan komponen CommandButton1 ke dalam
Form4 cara nya adalah dengan klik kiri CommandButton yang terdapat dalam
toolbox lalu kita taruh CommandButton1 ke dalam Form4 setelah itu kita ke
properties lalu kita ganti isi dari caption CommandButton1 menjadi Case, lalu
kita masukkan komponen CommandButton2 ke dalam Form4 cara nya adalah dengan
klik kiri CommandButton yang terdapat dalam toolbox lalu kita taruh
CommandButton2 ke dalam Form4 setelah itu kita ke properties lalu kita ganti
isi dari caption CommandButton2 menjadi Cancel, lalu kita masukkan komponen
CommandButton3 ke dalam Form4 cara nya adalah dengan klik kiri CommandButton
yang terdapat dalam toolbox lalu kita taruh CommandButton3 ke dalam Form4
setelah itu kita ke properties lalu kita ganti isi dari caption CommandButton3
menjadi Back, lalu kita susun komponen-komponen yang terdapat dalam Form4
seperti gambar dibawah ini:
Setelah kita selesai menyusun Form4,
maka kita akan membuat Form5 yaitu dengan cara sebagai berikut:
klik menu project
- lalu klik add Form
- setelah itu klik Form
- lalu kita klik open
Setelah keluar Form5 maka kita masukkan
komponen-komponen yang dibutuhkan dalam Form5. Komponen nya adalah sebagai
berikut:
-
1
Label
-
1
TextBox
-
1
ListBox
-
2
CommandButton
Pertama kita masukkan terlebih
dahulu komponen Label1 yaitu dengan cara klik kiri komponen Label yang terdapat
dalam toolbox lalu kita masukkan ke dalam Form5 setelah itu ke properties lalu
kita ganti isi dari caption Label1 tersebut menjadi angka, lalu kita masukkan
komponen TextBox1 yaitu dengan cara klik kiri komponen TextBox yang terdapat
dalam toolbox lalu kita masukkan ke dalam Form5 setelah itu ke properties lalu
kita kosongkan isi dari caption TextBox1, lalu kita masukkan komponen ListBox1
yaitu dengan cara klik kiri komponen ListBox yang terdapat dalam toolbox lalu
kita masukkan ke dalam Form5, lalu kita masukkan komponen CommandButton1 yaitu
dengan cara klik kiri komponen CommandButton yang terdapat dalam toolbox lalu
kita masukkan ke dalam Form5 setelah itu ke properties lalu kita ganti isi dari
caption CommandButton1 tersebut menjadi HASIL, lalu kita masukkan komponen
CommandButton2 yaitu dengan cara klik kiri komponen CommandButton yang terdapat
dalam toolbox lalu kita masukkan ke dalam Form5 setelah itu ke properties lalu
kita ganti isi dari caption CommandButton2 tersebut menjadi Back, lalu setelah
itu kita susun komponen-komponen tersebut yang terdapat dalam Form3 menjadi
gambar seperti di bawah ini:
Setelah kita telah menyiapkan dari
Form1 sampai Form5 maka kita masukkan sintaks ke dalam masing-masing Form.
Pertama kita akan memasukkan sintaks ke Form1 yaitu dengan cara klik 2 kali
CommandButton1 lalu kita masukkan sintaks:
Private Sub Command1_Click()
If Text1.Text = ("Irfan")
And Text2.Text = ("1234") Then
MsgBox "Login Sukses",
vbOKOnly, "Login"
Else
MsgBox "Salah Username dan
Password", vbCritica, "Fail"
End If
Unload Me
Form2.Show
End Sub
Fungsi dari sintaks If Text1.Text =
("Irfan") And Text2.Text = ("1234") Then adalah untuk
sebuah kondisi dimana kondisi pada kali ini adalah jika Text1 di isi dengan
Irfan dan Text2 di isi dengan 1234, lalu kita tuliskan sintaks MsgBox "Login
Sukses", vbOKOnly, "Login" fungsi dari sintaks ini adalah
digunakan untuk menampilkan sebuah message box dimana isi dari message box
tersebut Login Sukses sedangkan vbOKOnly digunakan vbInformation adalah
digunakan untuk memunculkan gambar/icon yang terdapat di dalam message box
sedangkan “Login” adalah digunakan sebagai title dari message box tersebut,
lalu kita tuliskan sintaks else digunakan untuk masuk ke kondisi yang lain,
lalu kita tuliskan sintaks MsgBox "Salah Username dan Password",
vbCritica, "Login" adalah digunakan untuk menampilkan sebuah message
box dimana isi dari message box tersebut Salah Username dan Password sedangkan
vbCritica adalah digunakan untuk memunculkan gambar/icon yang terdapat di dalam
message box sedangkan “Login” adalah digunakan sebagai title dari message box
tersebut, lalu kita tuliskan sintaks Unload Me adalah digunakan untuk keluar
dari Form tersebut, lalu kita tuliskan Form2.Show digunakan untuk masuk ke
dalam Form2.
Setelah kita selesai memasukkan
sintaks ke dalam Form1 maka selanjutnya kita masukkan sintaks Form2, pertama
kita klik kiri 2 kali CommandButton1 lalu kita tuliskan sintaks:
Private Sub Command1_Click()
Unload Me
Form5.Show
End Sub
Fungsi dari sintaks Unload Me adalah
digunakan untuk keluar dari Form tersebut, lalu fungsi dari sintaks Form5.Show
adalah digunakan untuk untuk masuk ke dalam Form5.
Lalu kita klik kiri 2 kali
CommandButton2 yang terdapat pada Form2 lalu kita tuliskan sintaks:
Private Sub Command2_Click()
Unload Me
Form3.Show
End Sub
Fungsi dari sintaks Unload Me adalah
digunakan untuk keluar dari Form tersebut, lalu fungsi dari sintaks Form3.Show
adalah digunakan untuk untuk masuk ke dalam Form3.
Lalu kita klik kiri 2 kali
CommandButton3 yang terdapat pada Form2 lalu kita tuliskan sintaks:
Private Sub Command3_Click()
Unload Me
Form4.Show
End Sub
Fungsi dari sintaks Unload Me adalah
digunakan untuk keluar dari Form tersebut, lalu fungsi dari sintaks Form4.Show
adalah digunakan untuk untuk masuk ke dalam Form4.
Lalu kita klik kiri 2 kali
CommandButton4 yang terdapat pada Form2 lalu kita tuliskan sintaks:
Private Sub Command4_Click()
Unload Me
End Sub
Fungsi dari sintaks Unload Me adalah
digunakan untuk keluar dari Form tersebut.
Setelah kita selesai memasukkan sintaks
ke dalam Form2 maka selanjutnya kita masukkan sintaks Form3, pertama kita klik
kiri 2 kali CommandButton1 lalu kita tuliskan sintaks:
Private Sub Command1_Click()
n = Val(Text1)
List1.Clear
k = 0
bil = 2
While k < n
prima = True
For pembagi = 2 To bil - 1
If bil Mod pembagi = 0 Then prima =
False
Next pembagi
If prima Then
List1.AddItem bil
k = k + 1
End If
bil = bil + 1
Wend
End Sub
Fungsi
dari sintaks n = Val(Text1) adalah digunakan untuk memberikan tipe data nilai
ke dalam text1, lalu kita tuliskan sintaks List1.Clear digunakan untuk
menghapus List1 ketika ingin mencoba kembali memasukkan bilangan prima, lalu
kita tuliskan sintaks k = 0
Digunakan
untuk memberikan nilai dari variabel k adalah 0, lalu kita tuliskan sintaks bil
= 2 digunakan untuk memberikan variabel bil adalah 2, lalu kita tuliskan
sintaks While k < n digunakan untuk kondisi perulangan While jika variabel k
kurang dari n, lalu kita tuliskan prima = True adalah digunakan untuk
memberikan nilai menjadi true, lalu kita tuliskan sintaks For pembagi = 2 To
bil – 1 fungsi dari sintaks ini digunakan untuk perulangan for variabel pembagi = 2 sampai dengan isi dari
variabel bil -1, lalu kita tuliskan sintaks If bil Mod pembagi = 0 Then prima =
False digunakan untuk jika variabel bil sisa pembagi dari variabel pembagi = 0
maka nilai dari prima dinonaktifkan, lalu kita tuliskan sintaks Next pembagi
digunakan untuk melajutkan data dari variabel pembagi, lalu kita tuliskan If
prima Then digunakan untuk pengkondisian variabel prima, lalu kita tuliskan
sintaks List1.AddItem bil digunakan menambahkan item ke dalam list1 yang
dimasukkan variabel bil, lalu kita tuliskan sintaks k = k+1 digunakan menambah
nilai dari variabel k lalu ditambah 1, lalu kita masukkan sintaks End If
digunakan utntuk mengakhiri percabangan If, lalu kita tuliskan sintaks
bil=bil+1 digunakan untuk menambah nilai dari variabel bil lalu ditamabah 1,
lalu kita tuliskan sintaks Wen digunakan untuk mengakhiri perulangan dari
While, lalu kita tuliskan sintaks End Sub digunakan untuk menutup blok program.
Setelah itu kita klik 2 kali
CommandButton2 yang terdapat pada Form3 lalu kita tuliskan sintaks:
Private Sub Command2_Click()
Unload Me
Form2.Show
End Sub
Fungsi dari sintaks Unload Me
digunakan untuk Keluar dari Form, lalu fungsi dari sintaks Form2.Show adalah
memunculkan Form2, lalu fungsi dari sintaks End Sub adalah untuk menutup sebuah
blok program.
Setelah kita selesai memasukkan
sintaks ke dalam Form3 maka selanjutnya kita masukkan sintaks Form4, pertama
kita klik kiri 2 kali CommandButton1 lalu kita tuliskan sintaks:
Private Sub Command1_Click()
Kode = Val(Text1)
Select Case Kode
Case 12345
Text2.Text = "Gyga byte Mother
Board"
Text3.Text = "Rp800.000"
Case 123456
Text2.Text = "RAM V-Gen 8GB
DDR5L"
Text3.Text = "Rp2.000.000"
Case 1234567
Text2.Text = "VGA NVidia
GTX670"
Text3.Text = "Rp2.000.000"
Case 12345678
Text2.Text = "Intel Core i7-5230
3.5GHz"
Text3.Text = "Rp2.500.000"
Case Else
MsgBox "Maaf kode yang anda
masukkan salah", vbCritical, "Salah"
End Select
End Sub
Fungsi dari sintaks Kode =
Val(Text1) adalah memberikan nilai ke dalam Text1, lalu fungsi dari sintaks
Select Case Kode adalah digunakan untuk memulai percabangan dari kode, lalu
fungsi dari sintaks Case 12345 adalah memberikan perulangan case dengan
menamakan case 1 menjadi 12345, fungsi dari sintaks Text2.Text = "Gyga
byte Mother Board" adalah digunakan mengisi Text2 dengan huruf "Gyga
byte Mother Board", lalu fungsi dari sintaks Text3.Text =
"Rp800.000" adalah digunakan untuk mengisi Text3 dengan “Rp800.000”,
lalu fungsi dari sintaks Case 123456 adalah memberikan perulangan case dengan
menamakan case 1 menjadi 123456, fungsi dari sintaks Text2.Text = "RAM
V-Gen 8GB DDR5L" adalah digunakan mengisi Text2 dengan huruf " RAM
V-Gen 8GB DDR5L", lalu fungsi dari sintaks
Text2.Text = " VGA NVidia GTX670" adalah digunakan mengisi
Text2 dengan huruf " VGA NVidia GTX670", lalu fungsi dari sintaks
Text3.Text = "Rp2000000" adalah digunakan untuk mengisi Text3 dengan
“Rp2000000”, lalu fungsi dari sintaks Text2.Text
= " Intel Core i7-5230 3.5GHz " adalah digunakan mengisi Text2 dengan
huruf " Intel Core i7-5230 3.5GHz ", lalu fungsi dari sintaks
Text3.Text = "Rp2500000" adalah digunakan untuk mengisi Text3 dengan
“Rp2500000”, lalu fungsi dari sintaks else case adala digunakan untuk memasuk
percabangan case terakhir, lalu fungsi dari sintaks MsgBox "Maaf kode yang
anda masukkan salah", vbCritical, "Salah" adalah digunakan
menampilkan message box dengan isi dari message box “Maaf kode yang anda
masukkan salah”, vbCritical adalah digunakan memunculkan gambar/icon dalam
message box, lalu fungsi dari “Salah” adalah digunakan untuk mengganti nama
title dari message box.
Setelah itu kita klik 2 kali
CommandButton2 yang terdapat pada Form4 lalu kita tuliskan sintaks:
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub
Fungsi dari sintaks Text1.Text =
"" adalah digunakan untuk mengosong kan huruf-huruf yang berada
didalam Text1, lalu Fungsi dari sintaks Text2.Text = "" adalah
digunakan untuk mengosong kan huruf-huruf yang berada didalam Text2, lalu
Fungsi dari sintaks Text3.Text = "" adalah digunakan untuk mengosong
kan huruf-huruf yang berada didalam Text3.
Setelah itu kita klik 2 kali
CommandButton3 yang terdapat pada Form4 lalu kita tuliskan sintaks:
Private Sub Command3_Click()
Unload Me
Form2.Show
End Sub
Fungsi dari sintaks Unload Me
digunakan untuk Keluar dari Form, lalu fungsi dari sintaks Form2.Show adalah
memunculkan Form2, lalu fungsi dari sintaks End Sub adalah untuk menutup sebuah
blok program.
Setelah kita selesai memasukkan
sintaks ke dalam Form4 maka selanjutnya kita masukkan sintaks Form5, pertama
kita klik kiri 2 kali CommandButton1 lalu kita tuliskan sintaks:
Private Sub Command1_Click()
x = Val(Text1)
y = 1
Do
List1.AddItem y
y = y + 1
Loop Until y > x
End Sub
Lalu
fungsi dari sintaks x = Val(Text1) adalah digunakan untuk variabel x adalah
sebuah nilai yang dimasukkan ke dalam Text1, lalu fungsi dari sintaks y=1 adalah digunakan untuk variabel y dengan nilai 1, lalu fungsi dari sintaks Do
adalah digunakan untuk perulangan While, lalu fungsi dari sintaks List1.AddItem
y adalah digunakan untuk menambah item dari variabel y ke dalam ListBox1, lalu
fungsi dari sintaks y = y + 1 adalah digunakan untuk menambahkan nilai dari
variabel y ditambah dengan nilai 1, lalu fungsi dari sintaks Loop Until y >
x digunakan untuk membatasi perulangan Do Loop Until sampai kondisi perulangan
y lebih dari x.
Lalu kita klik kiri CommandButton2 yang
terdapat pada Form5 lalu kita tuliskan sintaks:
Private Sub Command2_Click()
Unload Me
Form2.Show
End Sub
Fungsi dari sintaks Unload Me
digunakan untuk Keluar dari Form, lalu fungsi dari sintaks Form2.Show adalah
memunculkan Form2, lalu fungsi dari sintaks End Sub adalah untuk menutup sebuah
blok program.
Tidak ada komentar:
Posting Komentar