Tugas 2

      LATIHAN 1

• Yang menyebabkan error pada Btalamat1_Click pada baris alamat = “Purbalingga"

     Karena Varibel yang digunakan 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 belum dideklarasikan sehingga terjadi kesalahan agar tidak terjadi kesalahan pada Const alamat = “Purbalingga” diganti dengan Public alamat = “Purbalingga Seperti gambar dibawah ini

• 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

      Jawab :

Karena pendeklarasian yang dipakai pada Btnama1  adalah Dim nama As String nama = “Erni” dan pendeklarasian  yang dipakai pada Btnama2  adalah Public Const nama As String = “Erni Solijah” 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 = “Purbalingga “ yang ada pada form satu, sehingga yang digunakan yang ada pada Form satu.

• 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 increasing Operation  umur += 1

• Analisa Untuk Form Dua

Menggunakan Option Explicit Off Bisa memesan variabel dengan cara mengisi nilai tanpa menyebutkan tipe datanya. Maka tipenya akan secara otomatis string. Hasil yang keluar di Form dua diambil dari Modul yang telah dibuat.

LATIHAN 2

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

 case "TAS"

 namabarang = "TAS"

 harga = 40000

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.