Latihan 3:
Ubah tampilan program menjadi sbb:
Buat kode program pada tombol Proses yang jika diklik
akan menampilkan Nilai Total Harga dengan menginput Jumlah terlebih dahulu.
Alur Program
- Pilih (klik) salah satu Kode Barang pada
objek ComboBox, maka akan tampil Nama Barang dan Harga Barang.
Tabel Pengujiannya sebagai berikut:
Kode Barang
|
Nama Barang
|
Harga Barang
|
PL01
|
Pulpen Pilot
|
1200
|
PL02
|
Pulpen Standar
|
1000
|
BK01
|
Buku AA 60 Lbr
|
3800
|
BK02
|
Buku Sinar Dunia 50 Lbr
|
3000
|
1. Buka Microsoft Visual Basic 2008, dan buat disain form sebagai berikut :
2. ubah disain form pada pengaturan properties, sebagai berikut :
NO
|
OBJEK
|
PROPERTIES
|
PENGATURAN
|
1
|
Label1
|
Text
|
Kode Barang :
|
2
|
Label2
|
Twxt
|
Nama Barang :
|
3
|
Labael3
|
Text
|
Harga Barang :
|
4
|
Label4
|
Text
|
Jumlah :
|
5
|
Laebel5
|
Text
|
Total Harga :
|
6
|
Button1
|
Text
|
Proses
|
Name
|
Btnproses
|
||
7
|
Button2
|
Text
|
Bersih
|
Name
|
btnbersih
|
||
8
|
Button3
|
Text
|
Tutup
|
Name
|
Btntutup
|
||
9
|
ComboBox
|
Name
|
Cbokb
|
items
|
PL01
PL01
BK01
BK01
|
||
10
|
Textbox1
|
Name
|
Txtnb
|
11
|
Textbox2
|
Name
|
Txthb
|
12
|
Textbox3
|
Name
|
Txtjlh
|
13
|
Textbox4
|
Name
|
Txth
|
3. Jika sudah selesai mendisain form nya, lalu masuk ke pengaturan program (kode), double klik pada ComboBox,
Pengaturan Program sebagai Berikut,
Public Class Form1
Private Sub cbokb_SelectedIndexChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
cbokb.SelectedIndexChanged
If
cbokb.Text = "PL01" Then
txtnb.Text = "PULPEN PILOT"
txthb.Text = 1200
ElseIf
cbokb.Text = "PL02" Then
txtnb.Text = "PULPEN STANDAR"
txthb.Text = 1000
ElseIf
cbokb.Text = "BK01" Then
txtnb.Text = "BUKU AA 60 LBR"
txthb.Text = 3000
Else
txtnb.Text = "BUKU SINAR DUNIA 50 LBR"
txthb.Text = 3000
End If
End Sub
Private Sub btnproses_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btnproses.Click
txth.Text = Val(txtjlh.Text) *
Val(txthb.Text)
End Sub
Private Sub btnbersih_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btnbersih.Click
txth.Text = ""
txthb.Text = ""
txtjlh.Text = ""
txtnb.Text = ""
End Sub
Private Sub btntutup_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btntutup.Click
End
End Sub
End Class
4. jika suda ter'Input seluruh Programnya, maka klik PLAY pada menubar dan jalankan
5. Lalu klik arah panah kebawah pada ComboBox dan pilih salah satu Barang yang akan di Proses,
setelah itu, input berapapun nilai pada Jumlah dan klik Proses, maka Total Harga akan Muncul,
Klik Bersih, maka seluruh data akan terhapus, dan klik Tutup maka program akan tertutup.
Selesai...
Tidak ada komentar:
Posting Komentar