Senin, 22 Oktober 2012

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 .  

  


Tidak ada komentar:

Posting Komentar