Tugas Pemrograman Visual yang ke 2

Latihan 1

1.  Yang menyebabkan error pada Btalamat1_Click pada baris alamat = “Kuningan” 

    karena dari koding program di atas terlihat bahwa nama variable alamat sudah dideklarasikan dengan const yang nilainya tetap yaitu “kuningan”.  Pada subprogram  btalamat1 nama variable alamat di panggil namun diberi nilai lagi yaitu “kuningan”,  meskipun pemberian nilai atau isinya sama karena sebelumnya alamat sudah dideklarasikan menggunakan const jadi tidak dibolehkan karena pembentukan variable dari const nilainya tetap. Agar program dapat di run variable alamat yang ada di sub btalamat1 harus dideklarasikan lagi misalnya dengan menggunakan dim ->  Dim alamat = “Kuningan”

2.  Kenapa ketika program dijalankan, saat menekan tombol Nama 1 dan Nama 2 hasil yang ditunjukkan di textbox nama berbeda hasilnya? Sedangkan pada tombol Alamat 1 dan Alamat 2 hasilnya sama

    karena program yang dipakai pada Btnama1_Click adalah Dim nama As String ; nama = “Nandang” dan target yang dipakai pada Btnama2_Click adalah Public Const nama As String = “Nandang Hermanto” yang tertera pada module form sehingga membuat suatu konstanta pada form. Lalu kenapa hasil Alamat 1 dan Alamat 2 sama? Ini terjadi karena pendeklarasian konstanta (Const alamat = “Kuningan”) pada form satu sehingga berlaku hanya di form satu saja.

3.  Kenapa saat ditekan tombol Tambah Umur 1 hasil yang keluar menunjukkan angka satu dan tombol Tambah Umur 2 menunjukkan nilai yang bertambah tiap kali ditekan? 

    Perbedaan ini terletak pada variabel yaitu Dim pada Bttambahumur1_Click dan Static pada Bttambahumur2_Click. Dim hanya akan di eksekusi satu kali sehingga jika ditekan sebanyak apapun akan tetap sama sedangkan dengan Static yang tidak akan hilang jika ditekan berkali-kali. Hal ini diperjelas dengan umur += 1 (increasing operation) yang selalu bertambah 1 jika Tambah Umur 2 ditekan berkali-kali dan bertambah .

4.  Berikan analisa anda untuk form dua

    Pada form dua semua berjalan sesuai dengan value yang diterima oleh masing-masing variabel Karena pada form dua terdapat Option Explicit Off yang menunjukkan bahwa variabel itu tidak mengharusakn untuk dipesan .

Latihan 2
Hasil Analisa IF dan Case

    *  Terjadi kesalahan koding pada "TAS" yang tadinya namabarang = "-" , harga = 0 itu dikarenakan kode barang tas tidak dideklarasikan .Oleh karena itu 

   jika diperbaiki pada namabarang = "-" , harga = 0 di isi nominalnya maka hasilnya akan keluar dan program akan jadi .

    

   seperti perbaikan dari  Program if Case .

         

   Saat kita memilih tas tidak keluar harga, karena dalam form1 belum di tambah keterangan mengenai harga Tas tersebut.

   Kita tambahkan perintah dibawah ini : 

             case "TAS"

             nama barang = "TAS"

             harga =20000

   tambahkan juga perintah ini di bawah perintah : 

             case "TOP"

             namabarang = "Topi"

             harga = 25000

*  Pada saat program dijalankan dan setelah jumlah barang kita isi semuanya , Pembenahan pada coding          jumlah . 

   

   Yang tadinya diText Box jumlah terdapat perhitungan bayar maka dipisah tersendiri, agar saat data dimasukkan sebelum mengklik tombol tunai atau kredit total dari bayar belum keluar nominalnya.

   Cara diperbaiki dengan menonaktifkan txttotbayar.Text = Val(txttotharga.Text) - Val(txtdiskon.Text) pada txtjmlbrg

   

*  Perubahan pada coding tombol clear

   

   Pada tombol clear yang pertama kali coding dibuat ketika kita mengklik tombol clear tidak akan bersih masih tersisa angka 0 pada diskon dan total bayar .kita harus mengklik dua kali biar semua bisa terhapus. 

   

   Cara membenarkanya  dengan menambahkan  txtdiskon.Clear() dan txttotbayar.Clear() paling bawah.

seperti analisa dari program IF and Case