Sabtu, 20 Oktober 2012

Tugas VB kedua

  Program 1

1. Pertanyaan yang menyebabkan program error pada saat di run di btalamat1_click  alamat=kuningan ?
Jawab
pada btalamat1 yang menggunakan variabel const alamat = “Cilacap” variabel ini adalah nilai yang tidak dapat di ganti dalam satu class, yang pastinya akan menggunakan nilai konstanta. 
saat di run maka akan muncul pesan “Constant Cannot Be The Target Of The Assignment” untuk mengatasi permasalahannya dapat menambahkan tanda (‘) petik pada variabel alamat=”Cilacap” menjadi  ‘alamat=”Cilacap” itu mengubahnya menjadi komentar.


2.Kenapa saat ditekan tombol nama1 dan nama2 yang ditampilkan pada textbox nama berbeda sedangkan saat ditekan tombol alamat1 dan alamat2 yang ditampilkan pada textbox alamat sama ?
Jawab
Nama 1 :Galih
Nama 2 : Galih Gamala G
Karena Nama1menggunakan dim yang ditempatkan di nama1 jadi hanya dikenali di variabel lokal sedang nama2 hanya memanggil nilai dari nama dan diteruskan dari module1
Alamat 1 : Cilacap
Alamat 2 :Cilacap
Karena kedua-duanya mengambil nilai yang terdekat, Jadi tidak usah ngambil nilai dari module1.

3.Kenapa saat ditekan tombol tambah umur 1 selalu keluar angka 1 sedangkan saat ditekan tombol tambah umur 2 selalu bertambah satu dari umur sebelumnya ?
Jawab
Karena tombol tambah umur1 menggunakan variabel lokal dim
Dim umur as integer
Umur+=1
Txtumur.text=umur
jadi umur dideklarasikan dengan nilai awal 1 dan ia tidak akan menambahkan dirinya 
Karna tombol tambah 2 memakai static. Yang artinya ia akan selalu menambahkan dirinya.


Analisa form2
Form 2 bisa dipanggil dengan mengklik tombol show form 2 pada form 1. Pada form dua terdapat 3 textbox nama,alamat,umur serta  4 button Nama,Alamat,Umur dan Tutup yang semua model pemanggilannya menggunakan variabel yang telah di inisialisaikan di module1.



Program 2

kelemahan program dua:
-Jika kita klik tombol clear, semua kotak tidak langsung bersih
-Kalau kita mengklik tombol tutup maka langsung program akan langsung menutup tanpa ada dialog peringatan




coding yang sudah diperbaiki
Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load cmbkode.items.Add("SPT") cmbkode.items.Add("SND") cmbkode.items.Add("TST") cmbkode.items.Add("TOP") cmbkode.items.Add("TAS") End Sub Private Sub Cbxkb_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 = 20000 Case "SND" namabarang = "SANDAL" harga = 10000 Case "TST" namabarang = "T-SHIRT" harga = 15000 Case "TOP" namabarang = "TOPI" harga = 50000 Case Else namabarang = "-" harga = 0 End Select txtnama.Text = namabarang txtharga.Text = harga End Sub Private Sub txtjumlah_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtjumlah.TextChanged txttotal.Text = Val(txtharga.Text) * Val(txtjumlah.Text) txtbayar.Text = Val(txttotal.Text) - Val(txtdiskon.Text) End Sub Private Sub Radiotunai_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Radiotunai.CheckedChanged txtdiskon.Text = Val(txttotal.Text) * 10 / 100 txtbayar.Text = Val(txttotal.Text) - Val(txtdiskon.Text) End Sub Private Sub Radiokredit_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Radiokredit.CheckedChanged txtdiskon.Text = 0 txtbayar.Text = Val(txttotal.Text) - Val(txtdiskon.Text) End Sub Private Sub Btnclear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnclear.Click txtdiskon.Text = "" txtharga.Text = "" txtjumlah.Text = "" txtnama.Text = "" txtbayar.Text = "" txttotal.Text = "" Me.Radiotunai.Checked = False Me.Radiokredit.Checked = False Cmbkode.Text = "" End Sub Private Sub btntutup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntutup.Click If MsgBox("mau keluar nih ?", vbYesNo + vbQuestion + vbDefaultButton3, "keluar aplikasi") = vbYes Then Me.Close() End Sub End Class

Tidak ada komentar:

Posting Komentar