1. PROGRAM LATIHAN KE 1
1. harusnya mengunakan variable (Dim alamat =”kuningan”)
2.karena button “nama1” mengunakan
Dim ,sehingga program menjalankan nilai atau isi dari variabel nama hanya pada
button tersebut, sementara pada button “nama2” tidak di tentukan variabel dan
nilai ny dalam tombol tersebut , dan di lain sisi pada module variabel nama nya “Public Const
nama As String = "Nandang Hermanto" maka dari itu tombol nama2
mengambil nilai secara global karena variabel ny public”.
pada button “alamat 1” dan button
“alamat2” sama karena variable dan nilai nya tidak di tentukan pada tombol
masing-masing maka dari itu program menjalankan perintah yg ada dalam module
yaitu “ Public Const alamat As String =
"kuningan" di ambil secara global atau luar karena menggunakan public
3. karena button “ tambah umur 1”
menggunakan Dim yang sudah dikenal di tempat variabel itu dipesan,dan nilai
variabel nya sendiri telah di tentukan = 1.
Sedangkan button “tambah umur2”
mengunakan static yang nilai itu tidak akan hilang saat program berjalan.dan
nilai itu +1.maka setiap kali menekan button “tambah umur 2” nilai nya akan bertambah
1
4. menurut saya pada Form “formdua” itu
mengunakan tiga button yang masing-masing button tidak di isi variabel dan
nilai nya. maka nilai pada button di “formdua”
mengambil nilai variabel dari module. karena pada module mengunakan public
(dikenal disetiap From program).
berikut tampilan program Form satu dan Form dua :
2. LATIHAN PROGRAM KE2 DAN
PENJELASANYA(IF ,CASE)
a.)Menurut saya ada yang kurang pada
program if dan case tersebut, pada saat
kita sudah memilih barang dan mengisi semua textbox kemudian ingin mengganti
barang tanpa menekan button “Clear” , perhitungan sebelumnya tidak otomatis
terhapus dan masih tetap ada..
Maka dari itu saya menambahkan kode program supaya perhitungan
sebelumnya otomatis bisa terhapus jika mengganti barang tanpa harus menekan
button “Clear”
txtnama.Text = namabarang
txtharga.Text = harga
txtjumlah.Text = ""
txttotal.Text = ""
txtdiskon.Text = ""
txttotalbayar.Text =
""
Me.Radiotunai.Checked = False
Me.Radiokredit.Checked = False
b.)Pada “cmbkode” nama barang “TAS” belum di tentukan harga pada tas tersebut maka
saya memperbaiki dengan menambahkan
Case
"TAS"
namabarang = "tas"
harga = 700000
berikut tampilan sebelum diperbaiki :
dan berikut tampilan setelah diperbaiki :
Penjelasan program ,
penghitungan “total bayar” di dapat
dari “harga barang”(yang telah di tetapkan) kemudian dikalikan “jumlah barang”.
Dan
“total bayar” di hitung dari “total harga” dikurangi diskon . Jika memilih “Radiotunai” berarti kita
mendapatkan diskon 10% (Rumus “diskon” berasal dari “totalharga” dikalikan
10/100.), jika memilih “Radiokredit” kita tidak mendapatkan diskon.
Rumus / kode perhitungan yang terdapat program tersebut adalah:
Private Sub txtjumlah_TextChanged(ByVal
sender As System.Object, ByVal e As System.EventArgs) Handles
txtjumlah.TextChanged
txttotal.Text = Val(txtharga.Text) * Val(txtjumlah.Text)
txtbayar.Text = Val(txttotal.Text) - Val(txtdiskon.Text)
End Sub
Dan,
Private Sub Radiotunai_CheckedChanged(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles Radiotunai.CheckedChanged
txtdiskon.Text = Val(txttotal.Text) * 10 / 100
txtbayar.Text = Val(txttotal.Text) - Val(txtdiskon.Text)
End Sub
