TUGAS 2

Hallo saudara - saudara....
Kali ini saya akan menganalisa program visual basic 2010 yang telah ditugaskan..
berikut penjabarannya ,,,

Latihan 1.

1. Apa yang menyebabkan error pada btalamat1_click baris program alamat = "Kuningan".
   Jawab :  Karena pada variabel alamat belum dideklarasikan perintahnya.Selain itu pada variabel alamat = "kuningan" telah dideklarasikan dengan perintah konstanta (Const) pada public class frmsatu.

Seharusnyya pada variabel tersebut terdapat syntax "Dim Alamat As String" sehingga dapat dijalankan.

Seperti tampilan syntax dibawah ini .

2 . Kenapa saat ditekan tombol nama1 dan nama2 nama yang ditampilkan pada textbox nama berbeda sedangkan saat ditekan tombol alamat1 dan alamat2 alamat yang ditampilkan pada textbox alamat yang sama.
Jawab : - Karena pada btnama1_click codingnya sudah terdeklarasi berupa Dim
Sedangkan pada btnama2_click menggunakan listing nama txtnama,selain itu variabel tersebut juga diambil dari module 1.

            -  Pada btalamat tertampil alamat yang sama karena pada btalamat frmsatu menggunakan syntax Const yang berarti global tidak dapat diubah meskipun program dijalankan .

3 . Kenapa saat ditekan tombol tambah umur 1 umur selalu keluar angka 1,sedangkan saat ditekan tombol tambah umur 2 umur selalu bertambah 1 dari umur sebelumnya
Jawab : Karena pada btumur1 memakai deklarasi "Dim" yaitu pendeklarasian dengan angka tetap sehingga tidak akan bertambah meskipun diklik terus menerus.
Sedangkan pada btumur2 memakai "Static" yaitu pendeklarasian dengan angka bertambah 1 selama program dijalankan.

4 . Analisa form 2


LATIHAN 2

 IF DAN CASE

Pada program ini menurut saya terdapat kesalahan sebagai berikut :

1. Pada program ini kelemahan pada pilihan kode barang "TAS" listing programnya belum sempurna karena belum diinputkan,sehingga saat program dijalankan hasil tidak nampak atau = 0.

Seharusnya program diinputkan perbaikan seperti berikut .

 Private Sub cmbkode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbkode.SelectedIndexChanged
        Dim kdbarang, namabarang As String
        Dim harga As Single
        kdbarang = cmbkode.Text

        Select Case kdbarang
            Case "SPT"
                namabarang = "Sepatu"
                harga = 200000
            Case "SND"
                namabarang = "Sandal"
                harga = 100000
            Case "TST"
                namabarang = "T-Shirt"
                harga = 150000
            Case "TOP"
                namabarang = "Topi"
                harga = 500000
            Case "TAS"
                namabarang = "Tas"
                harga = 325000
            Case Else
                namabarang = "-"
        End Select

  txtnama.Text = namabarang
        txtharga.Text = harga

    End Sub

 * Tampilan setelah dijalankan (Syntax yang dibenarkan).

 *Listing program cara beli tunai dan kredit yang benar adalah

2 . Kesalahan berikutnya terdapat pada program penutupan, dimana setelah user menekan tombol tutup program akan langsung tertutup tidak menggunakan syntak keluaran sesuai keinginan seperti akan melanjutkan atau tidak,maka dari itu saya menambahkan sedikit syntax pada program keluaran tutup.
* Listing program.

* Tampilan sesudah dijalankan.

Demikian hasil analisis saya 

SEKIAN TERIMAKASIH ^_^