Analisa Program

baiklah pada artikel kali ini saya akan menganalisa program...(hehehehe kaya udah master aja menganalisa program)

1. kenapa saat ditekan tombol tambah umur 1 selalu keluar angka 1 sedangka saat ditekan tombol tambah umur2 maka selalu bertambah 1 dari umur sebelumnya....?

j awab : karena pada tombol tambah umur1 variable itu bersifat tetap sehingga hasil yang dikeluarkan akan tetap angka 1 itu walaupun rumus yang digunakan sudah benar sedangkan pada tombol tambah umur 2 variable yang digunakan bersifat statis / berubah ubah..sehingga ketika kita menekan tombol tambah umur2 output yang dihasilkan akan bertambah 1 dari umur sebelumnya / sesuai dengan rumus yang digunakan.

Latihan 2 if dan case

kelemahan program :

1. pada baris case untuk kode barang tas...nama barangnya belum diisi serta harga masih diisi 0 sehingga saat kita memilih kode barang tas maka nama barang dan harga tidak muncul.

2. pada saat kita memasukan angka pada textbook jumlah barang secara otomatis total bayar akan menampilkan harga sebelum kita memilih pembayran yang digunakan seperti tunai dan kredit.

3. pada saat kita memilih kode barang, inputan pada jumlah barang, total harga, diskon, dan total bayar masih menampilkan kode barang yang dipilih sebelumnya.

cara perbaikan :

1. pada sub cmbkode >>> case else nama barang diisi dengan tas dan harga barang diisi 150000, sehingga ketika kita memilih kode barang tas maka secara otomatis nama barang dan harga akan di tampilkan.

listing code :

case else 

nama barang = "TAS"

harga = 150000

  

2. pada sub txtjumlahbarang_Textchanged ( )

nonaktifkan 'txttotalbayar.Text = Val(txttotalharga.Text) - Val(txtdiskon.Text)   

maka pada saat di run secara otomatis total bayar tidak muncul sebelum kita memilih cara pembayaran baik tunai maupun kredit.

3. pada sub ComboBox1_SelectedIndexChanged ( )

kita tambahkan perintah :

 txtnamabarang.Text = nmabrg
        txthargabarang.Text = harga
        txttotalharga.Text = ""
        txtdiskon.Text = ""
        txttotalbayar.Text = ""
        txtjumlahbarang.Text = ""
        Me.RadioButton1.Checked = False
        Me.RadioButton2.Checked = False

 output dari program di atas. :

semoga analisa program kali ini dapat bermanfaat bagi teman - teman................