Tugas Pemrograman Visual

Berikut ini adalah jawaban saya atas pertanyaan-pertanyaan tugas praktikum 2 mata kuliah Pemrograman Visual :
1. Yang menyebabkan program eror pada alamat1_click baris program alamat = "kuningan". Karena variabel alamat belum dideklarasikan.                

     alamat = "Kuningan"

Txtalamat.Text = alamat

seharusnya variabel alamat dideklarasikan menggunakan deklarasi variabel yang lokal (Dim).

Dim alamat As String

       alamat = "Kuningan"

       Txtalamat.Text = alamat

2. Saat ditekan tombol nama 1 dan nama 2 nama yang muncul pada texbox berbeda. Karena pada tombol nama 1 codingnya sudah ada pendeklarasian variabel yaitu menggunakan "Dim". Sedangkan pada tombol nama 2 tidak ada pendeklarasian variabel. Sehingga nama diambil dari module.
Saat ditekan tombol alamat 1 dan alamat 2, alamat yang ditampilkan pada texbox adalah sama. Karena variabel alamat mengambil dari pendeklarasian yang paling dekat yaitu pada form satu.
         Const alamat = “Kuningan”

3. Saat ditekan tombol tambah umur 1 selalu keluar angka 1 atau tetap. Sedangkan saat ditekan tombol tambah 2 umur bertambah satu dari umur sebelumnya. Hal ini karena pada tombol tambah umur 1 pendeklarasiannya menggunakan "Dim", yang berarti angka tetap atau tidak akan bertambah. Sedangkan pada tombol tambah umur 2 pendeklarasiannya berupa static, sehingga angka bertambah satu.

Analisa Form Dua
--> Pada form dua muncul

Option Explicit Off

Hal tersebut berarti bahwa variabel pada form dua tidak perlu didefinisikan karena program akan mengambil definisi variabel dari public pada form stu ataupun di module 1.

LATIHAN IF DAN CASE

Hasil running program

Analisa saya pada program tersebut di atas.
Pada coding belum dicantumkan untuk "TAS". Harusnya dicantumkan

            Case "TAS"

                namabarang = "Tas"

                harga = 300000

Kemudian pada saat kita tekan tekan button "clear", kursor belum terfokus. sebaiknya kursor terfokus pada texbox jumlah barang. Maka pada coding perlu kita tambahkan

          txtjumlah.Focus()

 Maka hasil runningnya seperti di bawah ini

Saat kita tekan button "tutup", hasil running langsung menghilang. Alangkah baiknya bila ditekan button tutup, muncul konfirmasi yakin bahwa akan keluar dari program tersebut. yaitu Yes or No.

Private Sub bttutup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttutup.Click

        If MsgBox("Are you sure want to quit", vbYesNo + vbQuestion + vbDefaultButton2, "QUIT") = vbYes Then

            Me.Close()

        End If

    End Sub

End Class