Selasa, 23 Oktober 2012

Tugas kedua Pemograman visual

TUGAS KEDUA PEMOGRAMAN VISUAL

1.Latihan 1 Variabel Constanta type data

a.Yang menyebabkan error pada btalama1_Click baris program alamat = "Kuningan" adalah karena varabel nama belum di deklarasikan pada method di dalam class tersebut, di btalamat1_Click hanya tertulis :
alamat = "Kuningan"
 Txtalamat.Text = alamat
 seharusnya adalah :

 Dim alamat As String
 alamat = "Kuningan"
 Txtalamat.Text = alamat



b.Yang menyebabkan munculnya nama yang berbeda pada textbox saat tombol nama1 dan nama2 ditekan adalah karena variabel nama pada Btnama2_Click tidak di definisikan pada class tersebut sehingga secara otomatis variabel nama diambil dari Public Const nama yang didefiniskan pada Module1.
 Sedangkan yang menebabkan munculnya Yang 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 hilangkan maka tombol alamat2 akan memunculkan hasil "Purwokerto" karena diambil dari "Public Const alamat" pada Module1.

c.Yang menyebabkan saat tombol "tambah umur 1" ditekan selalu mengeluarkan angka satu adalah karena tombol tersebut menggunakan variabel Dim, dimana kita tahu bahwa Dim adalah kependekan dari Dinamis, variabel jenis ini akan selalu berubah nilainya saat kita mengeksekusinya dalam sebuat operasi bilangan. Sehingga pada saat tombol "tambah umur 1" kita tekan, nilai yang keluar adalah 1, dan saat kita tekan lagi nilainya pun akan selalu satu, karena nilai dari variabel "umur" akan selalu "umur += 1".
 Berbeda dengan varabel umur pada Bttambahumur2_Click yang menggunakan tipe Static, nilainya tidak akan berubah sehingga akan selalu bertambah sesuai dengan nilai pada tekanan tombol sebelumnya ditambah dengan 1 "umur +=1".

d.Analisa saya untuk Form Dua, saat kita melihat coding pada FrmDua kita melihat ada baris perintah :
Option Explicit Off
 Itu artinya bahwa variabel pada FrmDua tidak perlu kita definisikan dan program akan langsung mengambil definisi variabel-variabel itu dari variabel Public yang terdapat dimanapun. Pada program ini variabel-variable tersebtu terdapat pada Module1. Sehingga pada saat kita menekan tombol Nama atau Alamat atau Umur, nilai yang keluar adalah nilai yang terdapat pada Module1.

2.Latihan 2 IF and Case

Analisa untuk program kedua saya menambahkan kode program pada Cmbkode_SelectedIndexChanged agar pada saat kita mengganti pilihan barang maka hasil dari jumlah barang, total harga, cara beli, diskon dan total bayar hilang/ terhapus. Tambahan kode programnya sebagai berikut:

Public Class Form1


Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Cbokode.Items.Add("SPT")
Cbokode.Items.Add("SND")
Cbokode.Items.Add("TST")
Cbokode.Items.Add("TAS")
Cbokode.Items.Add("TOP")
End Sub

Private Sub Cbokode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cbokode.SelectedIndexChanged
Dim kdbarang, namabarang As String
Dim harga As Single
kdbarang = Cbokode.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 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)
End Sub

Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
Txtdiskon.Text = Val(Txttotal.Text) * 10 / 100
Txtbayar.Text = Val(Txttotal.Text) - Val(Txtdiskon.Text)
End Sub

Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
Txtdiskon.Text = 0
Txtbayar.Text = Val(Txttotal.Text) - Val(Txtdiskon.Text)
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
RadioButton1.Checked = False
RadioButton2.Checked = False
Txtdiskon.Clear()
Txtharga.Clear()
Txtjumlah.Clear()
Txtnama.Clear()
Txttotal.Clear()
Txtbayar.Clear()
Cbokode.Focus()
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
End
End Sub
End Class


Tampilan seharusnya,


Demikian tugas kedua semoga lebih baik dari yang pertama.Amin


Tidak ada komentar:

Posting Komentar