Langkah Kerja
- Click Start > Program > Microsoft Visual Studio > Microsoft Visual Basic 6.0
- Click Standard Exe dan click Open
- Simpan latihan ini dengan nama
o
Form : Frm_latihan4.Frm
o
Project : P_Latihan4.VBP
- Desain Form Seperti tampilan ini
Atur properties-nya seperti tabel berikut :
Komponen
|
Properties
|
Value
|
Form1
|
Caption
|
Form Pembayaran rekening listrik
|
Label1
|
Caption
|
Kode Pelanggan
|
Label2
|
Caption
|
Nama Pelanggan
|
Label3
|
Caption
|
Kode Layanan
|
Label4
|
Caption
|
Pemakaian Bulan Lalu
|
Label5
|
Caption
|
Pemakaian Bulan Sekarang
|
Label6
|
Caption
Text
|
Denda
0
|
Label7
|
Caption
|
Daya terpakai
|
Label8
|
Caption
|
Biaya per KWH
|
Label9
|
Caption
|
Total
|
Lable10
|
Name
Caption
Border Style
Appearance
Back Color
|
Lbl_Daya
“kosong”
1 – Fixed Single
0 – Flat
System <Button Face>
|
Label11
|
Name
Caption
Border Style
Appearance
Back Color
|
Lbl_kwh
“kosong”
1 – Fixed Single
0 – Flat
System <Button Face>
|
Label12
|
Name
Caption
Border Style
Appearance
Back Color
|
Lbl_total
“kosong”
1 – Fixed Single
0 – Flat
System <Button Face>
|
Text1
|
Name
Text
|
Txt_kode
“Kosong”
|
Text2
|
Name
Text
|
Txt_nama
“Kosong”
|
Text3
|
Name
Text
|
Txt_lalu
“Kosong”
|
Text4
|
Name
Text
|
Txt_sekarang
“Kosong”
|
Text5
|
Name
Text
Alignment
|
Txt_denda
0
1 – Right Justify
|
Option1
|
Caption
Value
|
RT1
True
|
Option2
|
Caption
|
RT2
|
Option3
|
Caption
|
Industri
|
Frame1
|
Caption
|
<< Input >>
|
Frame2
|
Caption
|
Dikosongkan
|
Frame3
|
Caption
|
<< Output >>
|
Command1
|
Name
Caption
|
Cmd_Ok
Ok
|
Command1
|
Name
Caption
|
Cmd_Batal
Batal
|
Command1
|
Name
Caption
|
Cmd_Keluar
Keluar
|
Dim kwh As Currency
Private Sub Kode()
If Option1.Value = True
Then
kwh = 1200
ElseIf Option2.Value = True Then
kwh = 250
ElseIf Option3.Value = True Then
kwh = 2800
End If
End Sub
Doubleclick pada cmd_keluar dan ketikkan kode program
Private Sub
cmd_keluar_Click()
End
End Sub
Doubleclick pada cmd_ok dan ketikkan kode program
Private Sub
Cmd_ok_Click()
Kode
lbl_daya.Caption =
Val(Txt_sekarang) - Val(Txt_lalu)
total =
(Val(lbl_daya.Caption) * kwh) + Val(Txt_denda.Text)
lbl_kwh.Caption =
Format(kwh, "###,###.#0")
lbl_total.Caption = Format(total,
"###,###.#0")
End Sub
Doubleclick pada cmd_batal dan ketikkan kode program
Private Sub
Cm_batal_Click()
Txt_kode.SetFocus
Txt_kode.Text
= ""
Txt_nama.Text
= ""
Txt_lalu.Text
= ""
Txt_sekarang.Text
= ""
Txt_denda.Text
= 0
lbl_daya.Caption
= ""
lbl_kwh.Caption
= ""
lbl_total.Caption
= ""
Option1.Value
= True
End Sub
0 comments:
Post a Comment