Blog untuk berbagi ilmu komputer

Thursday, May 22, 2014

Modul Praktikum 4



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

Ketikkan kode program ini pada bagian General


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

Share:

0 comments:

Post a Comment

Blogger templates