Tugas 2

       LATIHAN 1 

       Yang menyebabkan error pada btalamat1_Click pada baris alamat = “Jatisawit"

       Karena menggunakan Variable Const,  Sedangkan Const itu sendiri Adalah pengenal yang digunakan untuk  menyimpan data dan nilainya tidak dapat berubah ubah pada saat program dijalankan. Pada btalamat1 variabel alamat belum dideklarasikan sehingga terjadi kesalahan, supaya tidak terjadi kesalahan pada Const alamat = “Jatisawit” diganti dengan Public alamat = “Jatisawit".

a   Mengapa 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 pendeklarasian yang dipakai pada btnama1  adalah Dim nama As String nama = “Avin” dan pendeklarasian  yang dipakai pada btnama2  adalah Public Const nama As String = “Avin Rizqie” yang ada pada module form sehingga membuat suatu konstanta pada form. Dan mengapa hasil Alamat 1 dan Alamat 2 sama? Ini terjadi karena pendeklarasian konstanta  menggunakan Const alamat = “Jatisawit“ yang ada pada form satu, sehingga yang digunakan yang ada pada Form satu.

j

     Mengapa saat ditekan tombol Tambah Umur 1 hasil yang keluar menunjukkan angka  1 dan tombol Tambah Umur 2 , umur selalu bertambah 1 dari umur sebelumnya?

    Perbedaan ini terletak pada Variabel yang digunakan pada bttambahumur1 menggunakan Variabel Dim sedangkan pada bttambahumur2 menggunakan Variabel Static.  Dim hanya akan menjalankan program  satu kali  atau selalu diulang sedangkan Static  tidak akan hilang tetapi akan terus bertambah satu, karena menggunakan operasi  umur += 1

      

      Analisa untuk Form dua

dengan menggunakan Option Explicit Off maka bisa memesan variabel dengan cara mengisi nilai tanpa menyebutkan tipe datanya dan akan secara otomatis string. Hasil yang keluar di Form dua diambil dari Modul yang telah dibuat.

Latihan 2

1. Terjadi kesalahan pada pendeklarasian akhir, seharusnya untuk nama barang = Tas dan harga belum dideklarasikan sehingga saat kita memilih TAS harga tidak keluar, seharusnya diganti dengan

 case "TAS"

 namabarang = "TAS"

 harga =300000

agar saat diipilih TAS akan muncul harga 

 

2.  Penempatan txtbayar.Clear () dan txtdiskon.Clear () diletakan dibawah Me.radiokredit.Checked = False

Agar saat ditekan Clear tampilan kosong.

demikian yang bisa saya sampaikan dan terima kasih.