TUGAS VISUAL 2

TUGAS PEMROGRAMAN 2

Program di bawah ini apabila di jalankan akan ada kesalahan pada btalamat1_Click baris program alamat="Kuningan " karena sudah terdapat konstanta yang terletak di Public Class frmsatu yaitu Const alamat="Kuningan", kemudian tidak dideklarasikan variabel Dim di dalam btalamat1_Click. Sehingga pada saat di panggil tidak akan muncul

Dim alamat As String

alamat = "kuningan"

txtalamat.Text = alamat

Kemudian, jika Tombol Nama1 dan Nama2 jika ditekan hasilnya berbeda saat ditampilkan pada textbox nama karena pada btnama1_Click telah digunakan variabel Dim yang hanya dapat dikenal ditempat variabel tersebut dipesan. Sedangkan pada btnama2_Click hanya mencantumkan baris program txtnama.Text=nama karena variabel nilainya diambil dari Module1 yaitu Public Const nama As String = "Nandang Hermanto". Kemudian saat menekan tombol Alamat1 dan Alamat2 alamat yang ditampilkan alamatnya sama, disebabkan karena di Public Class frmsatu terdapat Const alamat="Kuningan". Dan apabila konstanta dihilangkan dan pada btalamat1_Click diberi variabel Dim. Jika programnya dijalankan, textbox alamat akan menampilkan hasil yang berbeda apabila menekan tombol Alamat1 dan Alamat2.  

Saat tombol Tambah umur 1 ditekan angka yang selalu keluar adalah satu karena tombol tersebut menggunakan variabel Dim, Sehingga pada saat tombol "tambah umur 1" kita tekan, nilai yang keluar adalah 1, dan saat kita tekan lagi nilainya pun akan selalu satu.
Berbeda dengan varabel umur pada tombol Tambah umur 2 yang menggunakan tipe Static, nilainya tidak akan berubah sehingga akan selalu bertambah sesuai dengan nilai pada tekanan tombol sebelumnya.

Pada form2  Option Explicit Off  sehingga harus  mendeklarasikan variable terlebih dahulu. Kemudian pada button Nama, Alamat dan umur mempunyai variable yang di deklarasikan pada Module1. Sehingga apabila di panggil ketiga Button tersebut akan menampilkan  sesuai dengan Module1.

-----> Lanjut kelatihan 2 IF and case

Pada Program If & Case selain memiliki kegagalan karena terdapat fungsi yang tak berjalan, juga memiliki tampilan yang kurang menarik, untuk itu saya disini berusaha menjelaskan kekurangan-kekurangan yang terdapat pada program ini.

1. Ketika kita memilih kode "TAS" pada ComboBox kode barang, hasil yang keluar adalah 0 bisa juga diartikan fungsi tidak berjalan. hal ini di karenakan listing program masih kurang untuk kode "TAS".

Berikut program perbaikannya :

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 = 1500000

            Case "TOP"

                namabarang = "Topi"

                harga = 500000

            Case "TAS"

                namabarang = "Tas"

                harga = 130000

            Case Else

                namabarang = "-"

                harga = 0

        End Select

        txtnama.Text = namabarang

        txtharga.Text = harga

    End Sub

 

 Jadi tampilan yang benar harusnya seperti ini :

 

 

 

Sekian penyelesaian dan pembenaran dari program yang saya analisa lagi . Semoga bermanfaat bagi kalian semua .