Latihan Menganalisis Program

##Analisa program error pada modul praktikum visual basic2 latihan 1 nomor 3.

1. Yang menyebabkan error pada btalamat1_Click adalah pd cod diatas alamat = "Kuningan" harus di tambah dgn Dim alamat As String.

Sebelum ditambahkan gmb.1

Sesudah ditambahkan gmb.2

2. Yang menyebabkan munculnya nama yang berbeda pada saat textbox tombol nama1 dan nama2 ditekan adalah karena variabel nama pada Btnama2_Click tidak di definisikan pada class tsb, sehingga secara otomatis variabel nama diambil dari Public Const nama yang didefiniskan pada Module1.

  Sedangkan yang menyebabkan munculnya alamat yang sama pada textbox saat tombol alamat1 dan alamat2 ditekan adalah karena terdapat Const alamat = "Kuningan" pada Public Class FrmSatu, ketika Const alamat = "Kuningan" pada Public Class FrmSatu kita hapus maka tombol alamat2 akan memunculkan hasil "Purwokerto" karena diambil dari "Public Const alamat" pada Module1.seperti gmb di bawah,

 

Sebelum dihapus gmb.3

Sesudah dihapus gmb.4

3. Yang menyebabkan saat tombol "tambah umur 1" ditekan selalu mengeluarkan angka satu adalah karena tombol pertama tersebut menggunakan variabel Dim(selalu tetap) dan tombol yang ke dua menggunakan variable static(selalu berubah), saat kita mengeksekusinya dalam sebuat operasi bilangan.seperti gmb.5

gmb.5

4.  Analisa saya pada form 2 yaitu kita hilangkan perintah Option Explicit Off agar program dpt dijalankan.

gmb.6

Itu artinya bahwa variabel pada FrmDua  akan langsung mengambil definisi variabel-variabel itu dari variabel Public yang terdapat dimanapun. Pada program ini variabel-variable tersebut terdapat pada Module1. 

Sehingga pada saat kita menekan tombol Nama atau Alamat atau Umur, nilai yang keluar adalah nilai yang terdapat pada Module1.

gmb.7

##Analisis Program Latihan if dan case

Setelah saya analisis dan jalankan program tsb terdapat kekurangan jika kita memilih kode TAS pada Combobox ternyata pada TextBox nama barang dan harga barang masih kosong seperti gambar di bawah.

Dibawah ini coding yang sudah di benarkan atau di sempurnakan,

Privat Sub Cmdkodbar_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cmdkodbar_SelectedIndexChanged

          Dim Kodebarang, Namabarang As String

          Dim Harga As Single

          Kodebarang = Cmdkodbar.text

          Select Case Kodebarang

                Cast "SPT"

                Namabarang = "Sepatu"

                Harga = "100000"

                Cast "SND"

                Namabarang = "Sandal"

                Harga = "150000"

                Cast "TST"

                Namabarang = "T-Shirt"

                Harga = "90000"

                Cast "TAS"

                Namabarang = "TAS"

                Harga = "100000"

                Cast "TOP"

                Namabarang = "TOPI"

                Harga = "50000"

                Cast Else

                Namabarang = "-"

                Harga = 0

          End Select

          TxtNambar.Text = Namabarang

          TxtHabar.Text = Hargabarang

End Sub

Berikut hasil gmb dengan coding tsb di atas,

Sekian analisis dari saya dan Terimakasih.....
Mohon maaf jika ada kesalahan atau kekurangan dari analisis saya karena saya juga masih dalam tahap belajar.

^_^