LAPORAN TUGAS 2 PROGRAM RESUME

MATA KULIAH PEMROGRAMAN KOMPUTER

“PEMROGRAMAN MENGGUNAKAN VISUAL BASIC”

DISUSUN OLEH:

Ahmad Shahrul Muharrom (21110121130059)

DOSEN PENGAMPU:
Abdi Sukmono S.T., M.T.

DEPARTEMEN TEKNIK GEODESI

FAKULTAS TEKNIK UNIVERSITAS DIPONEGORO
Jl. Prof. Sudarto SH, Tembalang Semarang Telp. (024) 76480785, 76480788
e-mail: Geodesi@[Link]
2022
A. Penjelasan Desain Program
Berikut merupakan tampilan program pembayaran yang telah saya buat :

Terkait dengan Desain Program di atas, beberapa langkah yang saya kerjakan :
1) Frame
Frame digunakan sebagai background dari program yang akan dibuat.

2
2) Label
Digunakan untuk pembuatan judul, sub judul, tanda-tanda penunjang, dan
penjelasan lainnya. Caption Label direname sesuai kebutuhan keteranganPada
program kali ini membutuhkan Label sebanyak 8.

3 2
7

6
9

3) TextBox
TextBox digunakan untuk keterangan-keterangan yang ada pada program yaitu
Harga (Rp), Jumlah Barang, Total Harga, Diskon, dan Harga Akhir. Pada
TextBox ini Caption dikosongi dan (Name) disesuaikan misalkan pada ‘Harga
(Rp)’ direname ‘harga’, ‘Jumlah Barang’ direname ‘jumlah’, dsb. Pada program
ini membutuhkan TextBox sebanyak 5 TextBox.

3
5

3
4) ComboBox
ComboBox digunakan untuk memilih jenis barang yang akan dipilih. Pada
program ini ada sebanyak 1 ComboBox.

5) ListBox
ListBox digunakan untuk menghimpun data-data yang telah disimpan. Misalnya
pada barang pertama sebanyak n barang lalu kita klik hitung dan simpan, maka
data pembelian akan muncul dalam kolom ListBox. Pada program ini terdapat
satu (1) ListBox

4
 6) CommandButton
Digunakan untuk membuat perintah yang terdiri dari “Hitung” untuk menghitung
Total Harga, “Simpan” untuk menyimpan data pembelian sebelumnya agar
muncul di dalam ListBox, “Jumlah Bayar” untuk menghitung harga keseluruhan
hingga ke diskon yang didapat, “Reset” untuk me-reset program ke awal, dan
“Exit” untuk keluar dari program. Pada program ini terdapat sebanyak 5
CommandButton.

3
1 2

4 5

B. Penjelasan Coding Program

Sebelum beralih ke coding berikut merupakan (Name) dari TextBox yang saya
buat:
Harga (Rp) : harga
Jumlah Barang : jumlahbarang
Total Harga : total
Diskon : diskon
Harga Akhir : TotalAkhir
Berikut merupakan copy-an coding program perhitungan pembelian barang di took
“Marvel Computer” yang saya buat:
1) Mendefinisikan array data penjualan dengan n=100
Dim Subharga(100) As Single
Dim n As Integer

5
2) Memasukkan jenis barang dan menampilkan saat data dipanggil
Private Sub Combo1_Load()
'Memasukkan Jenis Barang dan menampilkan saat dipanggil'
[Link] "Mouse"
[Link] "Pointer"
[Link] "Charger Laptop"
[Link] "HDMI"
[Link] "VGA"
[Link] "Flashdisk"
[Link] "Keyboard"
[Link] "Card Reader"
[Link] "Screen Protector"
[Link] "Headset"
End Sub
3) Input harga tiap barang saat nama barang dalam ComboBox di klik
Private Sub Combo1_Click()
'Menentukan Harga Tiap Barang'
Select Case [Link]
Case "Mouse"
harga = 110000
Case "Pointer"
harga = 140000
Case "Charger Laptop"
harga = 250000
Case "HDMI"
harga = 25000
Case "VGA"
harga = 1500000
Case "Flashdisk"
harga = 80000
Case "Keyboard"
harga = 180000

6
 Case "Card Reader"
harga = 60000
Case "Screen Protector"
harga = 40000
Case "Headset"
harga = 350000
End Select
End Sub
4) CommandButton “HITUNG”
Private Sub Com1_Click()
'Menghitung Harga Total Barang'
total = jumlah * harga
End Sub
5) CommandButton “SIMPAN”
Private Sub Com2_Click()
'Menyimpan Total Harga ke Dalam ListBox'
n=n+1
Subharga(n) = Val(total)
[Link] Subharga(n)
[Link] = "Pilih Barang"
[Link]
harga = ""
[Link] = ""
total = ""
End Sub
6) CommandButton “JUMLAH BAYAR”
Private Sub Com3_Click()
JumlahBayar = 0
'Menghitung Total Harga Keseluruhan'
For i = 1 To n
JumlahBayar = JumlahBayar + Subharga(i)
Next i

7
 [Link] ""
[Link] "Total Harga Keseluruhan = Rp" & JumlahBayar
'Program Total Akhir'
TotalAkhir = JumlahBayar
If JumlahBayar > 1500000 Then
TotalAkhir = (JumlahBayar) - (30 / 100) * (JumlahBayar)
ElseIf JumlahBayar >= 800000 Then TotalAkhir = (JumlahBayar) - (25 / 100) *
(JumlahBayar)
ElseIf JumlahBayar >= 300000 Then TotalAkhir = (JumlahBayar) - (20 / 100) *
(JumlahBayar)
Else
TotalAkhir = JumlahBayar
End If
'Menghitung Perolehan Diskon'
If JumlahBayar > 1500000 Then
diskon = "Selamat Anda Mendapatkan Diskon 30%"
ElseIf JumlahBayar >= 800000 Then diskon = "Selamat Anda Mendapatkan
Diskon 25%"
ElseIf JumlahBayar >= 300000 Then diskon = "Selamat Anda Mendapatkan
Diskon 20%"
Else
diskon = "-"
End If
End Sub
7) CommandButton “RESET”
Private Sub Com4_Click()
Combo1 = "Pilih Barang"
harga = ""
jumlah = ""
total = ""
diskon = ""
TotalAkhir = ""

8
 n=0
[Link]
For i = 1 To n
[Link] Subharga(i)
Next i
End Sub
8) CommandButton “EXIT”
Private Sub Com5_Click()
If MsgBox("Anda yakin ingin keluar?", vbQuestion + vbYesNo, "Konfirmasi")
= vbYes Then
End
End If
End Sub

C. Hasil Running
1) Tampilan Awal

2) Tampilan CommandButton “HITUNG”

9
3) Tampilan CommandButton “SIMPAN”

4) Tampilan CommandButton “JUMLAH BAYAR”

a) Saat Diskon 0%

b) Saat Diskon 20%

10
 c) Saat Diskon 25%

d) Saat Diskon 30%

5) Tampilan CommandButton “RESET”

11
6) Tampilan CommandButton “EXIT”

12