ANALISIS PROGRAM IF DAN CASE

TUGAS 2

LATIHAN 1

                            Jawaban no 1-3 :

1.    dikarenakan pendeklarasian sebelumnya tidak menggunakan dim maka akan menimblkan makna ambigu(bermakna dua) sehingga menyebabkan program error. Dan pada btalamat1 deklarasi variabel sebelumnya sudah terdefinisi dan nilainya constata.  
2.    Pada btnama 1 deklarasi variabel diisi secara lokal,
sedangkan pada btnama 2 deklarasi vaeriabel diambil dari modul
sehingga btnama 1 dan btnama 2 diklik akan
menghasilkan nilai yang berbeda sedang pada btalamat 1 dan btalamat 2 pemesanan deklarasi variabel sama.
3.    Karena pada bttambahumur 1 tipe data integer dan mengandung nilai 1,
sedang pada bttambahumur 2 tipe data static mengandung nilai tetap
sehingga mempertahankan nilai yang ada dan oprasi logikanya bernilai 1 sehingga secara otomatis akan menjumlahkan nilai secara terus menerus ketika bttambahumur 2
di klik sebesar 1 angka.
kalaaupun akan diganti dengan angka lain hasilnya akan menyesuaikannya.
4.    Dari hasil analisa saya menilai bahwa program form1
a. Program ini masih sangat sederhana.
b. program ini sudah benar tinggal ditambahi modul saja.
c. Deklasi nilai-nilai variabel yang ada di ambil dari modul

LATIHAN 2
Definisi
Menurut saya program ini masih ada kekurangan, misalkan jika kita pilih/jalankan kode TAS ternyata pada TexBox nama barang dan harga barng masih kosong

                                                      Sebelum program belum diperbaiki

Keterangan = sebelum program dijalankan maka jumlah barang, harga barang, diskon, total bayar akan tidak memunculkan/menampilkan nilai(nol)




Inilah coding yang sudah diperbaiki

Private Sub ComboBox1_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"
                namabarang = "SEPATU"
                harga = 200000
            Case "SND"
                namabarang = "SANDAL"
                harga = 100000
            Case "TST"
                namabarang = "T-SHIRT"
                harga = 150000
            Case "TOP"
                namabarang = "TOPI"
                harga = 50000
            Case "TAS"
                namabarang = "TAS"
                harga = 1200000
            Case Else
                namabarang = "-"
                harga = 0
        End Select
        Txtnama.Text = namabarang
        Txtharga.Text = harga

        Txttotalbarang.Text = Val(Txtharga.Text) * Val(Txtjumlah.Text)
        Txttotalbayar.Text = Val(Txttotalbayar.Text) - Val(Txtdiskon.Text)

    End Sub







                                         Program yang sudah diperbaiki

Keterangan : setelah program ditambahkan koding if dan case maka akan menampilkan hasil seperti itu.
Pada percobaan program diatas sebenarnya sudah benar Cuma ada sedikit penambahan koding pada ComboBox.
Txttotalbarang.Text = Val(Txtharga.Text) * Val(Txtjumlah.Text)
        Txttotalbayar.Text = Val(Txttotalbayar.Text) - Val(Txtdiskon.Text)


Tambahkan koding if dan case pada ComboBox:

Ketika radio button tunai terseleksi maka total harga=harga barang x jumlah barang,  total harga bayar=total harga - discount, discount=total harga x 10/100 dan ketika yang terseleksi bukan radio tunai maka total harga=harga barang x jumlah barang,  total harga bayar=total harga - discount, discount=0
Ketika sudah ditambahkan koding tersebut maka secara otomatis nilai total harga, total bayar, akan berubah ketika kode barang diganti.