21.03
Vjar_Emo
Tugas 2
Jawaban Latihan 1
no.3 :
1.
Karena terdapat 2 variabel alamat
b.
Variabel nama pada Button1 bersifat local dan
tidak dideklarasikan pada Button2. Sehingga nama pada Button2 diambil dari
pendeklarasian Modul yaitu “Nandang
Hermanto”.
Sedangkan alamat sudah dideklarasikan
yaitu berupa const sehingga pada Button1 dan Button2 akan bernilai sama, yaitu Kuningan.
c.
Karena pada Button1 umur dideklarasikan sebagai Dim, sedangkan pada Button2 umur
dideklarasikan sebagai Static.
d.
Form2 Option Explisit Off. Itu artinya bahwa variabel pada FrmDua tidak perlu kita definisikan dan
program akan langsung mengambil definisi variabel-variabel itu dari
variabel Public yang terdapat dimanapun. Pada program ini
variabel-variable tersebtu terdapat pada Module1. Sehingga pada saat
kita menekan tombol Nama atau Alamat atau Umur, nilai yang keluar adalah
nilai yang terdapat pada Module1. Yaitu seperti :
Nama : Nandang Hermanto
Alamat : Purwokerto
Umur : 17
 |
| Sebelum Di Edit |
Analisa Program :
1. - Background form bisa anda ubah warnanya jika ingin tampak lebih menarik
- Begitu juga untuk font atau Tulisannya. Anda bisa mengubah ukuran,tebal atau jenis textnya.
2.
Pada Select Case belum ada data untuk
kode “TAS” dengan nama “Tas”, maka penulis tambahkan.
3.
Ketika user mengisi Jumlah Barang, maka pada Total
Bayar akan langsung terisi nominal angka meskipun Cara Beli belum dipilih.
Ini karena ada kode program yang
berlebihan, sehingga pada modifikasi ini penulis hilangkan.
Private Sub
txtjmlbarang_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
txtjmlbarang.TextChanged
txttotharga.Text = Val(txthrgbarang.Text) *
Val(txtjmlbarang.Text)
txttotBayar.Text = Val(txttotharga.Text) * Val(txtDiskon.Text)
End Sub
4. Tambahkan
property “read only” pada text Total
Harga, Diskon, dan Total Bayar. Ini dilakukan agar
hasil tidak bisa diubah oleh user. |
| Setelah Di Edit |
Berikut Koding Program seutuhnya
:
Public Class Form1
Private Sub
cmbKode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
cmbKode.SelectedIndexChanged
Dim
kdbarang, nmbarang As String
Dim
harga As Single
kdbarang = cmbKode.Text
Select Case kdbarang
Case
"SPT"
nmbarang = "Sepatu"
harga = 100000
Case
"SND"
nmbarang = "Sandal"
harga = 150000
Case
"TST"
nmbarang = "T-Shirt'"
harga = 90000
Case
"TOP"
nmbarang = "Topi"
harga = 50000
Case
"TAS"
nmbarang = "Tas"
harga = 100000
Case Else
nmbarang = "-"
harga = 0
End Select
txtnmbarang.Text = nmbarang
txthrgbarang.Text = harga
End Sub
Private Sub
Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
MyBase.Load
cmbKode.Items.Add("SPT")
cmbKode.Items.Add("SND")
cmbKode.Items.Add("TST")
cmbKode.Items.Add("TOP")
cmbKode.Items.Add("TAS")
End Sub
Private Sub
txttotharga_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
txttotharga.TextChanged
txttotharga.Text =
Val(txthrgbarang.Text) * Val(txtjmlbarang.Text)
End Sub
Private Sub
txtjmlbarang_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
txtjmlbarang.TextChanged
txttotharga.Text =
Val(txthrgbarang.Text) * Val(txtjmlbarang.Text)
End Sub
Private Sub
optTunai_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
optTunai.CheckedChanged
txtDiskon.Text = Val(txttotharga.Text) * 10 /
100
txtTotBayar.Text =
Val(txttotharga.Text) - Val(txtDiskon.Text)
End Sub
Private Sub
optKredit_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
optKredit.CheckedChanged
txtDiskon.Text = 0
txtTotBayar.Text =
Val(txttotharga.Text)
End Sub
Private Sub
cmdClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
cmdClear.Click
txtDiskon.Clear()
txthrgbarang.Clear()
txtjmlbarang.Clear()
txtnmbarang.Clear()
txtTotBayar.Clear()
txttotharga.Clear()
optKredit.Checked = False
optTunai.Checked = False
cmbKode.Text = ""
End Sub
Private Sub cmdTutup_Click(ByVal sender As
System.Object, ByVal
e As System.EventArgs)
Handles cmdTutup.Click
Close()
End Sub
End Class
