Search

Senin, 27 Oktober 2014

TUGAS 02 VB6.0


Form awal dengan ketentuan sebagai berikut :
1.Pada saat dijalankan seluruh objek pada Form dalam keadaan bersih dan nonaktif, jika tombol input diklik kondisi aktif dan Fungsi Tanggal dan Jam muncul otomatis.
lihat gbr 1.1
                                                                                gbr 1.1

2.Ketentuan Untuk tombol Jumlah

  • Jika tombol Jumlah 1 diklik muncul hasil akumulasi Data Barang Rp.15000,- dikali dengan jumlah beli barangnya
  • Jika tombol Jumlah 1 diklik muncul hasil akumulasi Data Barang Rp.15000,- dikali dengan jumlah beli barangnya.
lihat gbr 1.2 dan gbr 1.3               
        gbr 1.2

                                                                                gbr 1.3

3. Tombol hitung diklik muncul biaya transaksi, hasil dari jumlah 1 ditambah jumlah 2
lihat gbr 1.4
                                                                       gbr 1.4

4.Tombol Keluar digunakan untuk keluar dari program dan muncul pesan
lihat gbr 1.5
                                                                        gbr 1.5




Berikut ini kodingan dari hasil running diatas

Kodingan untuk fungsi tanggal dan jam muncul otomatis()gbr 1.1)
Private Sub Timer1_Timer()
tanggal.Text = Format(Date, "dddd,d mmmm yyyy")
jam.Text = Format(Time, "h:m:s")
End Sub

Private Sub Form_Load()
jml1.Enabled = False
jml2.Enabled = False
adm.Enabled = False
total.Enabled = False
transaksi.Enabled = False
pagi.Enabled = False
sore.Enabled = False
horn.Enabled = False
flasher.Enabled = False
speed.Enabled = False
stater.Enabled = False
malam.Enabled = False
adm.Enabled = False
total.Enabled = False
qhorn.Enabled = False
qflasher.Enabled = False
qspeed.Enabled = False
qstater.Enabled = False
Combo1.Enabled = False
chorn.Enabled = False
cflasher.Enabled = False
cspeed.Enabled = False
cstater.Enabled = False


End Sub

Private Sub input_Click()
Combo1.Enabled = True
chorn.Enabled = True
cflasher.Enabled = True
cspeed.Enabled = True
cstater.Enabled = True
jml1.Enabled = True
jml2.Enabled = True
adm.Enabled = True
total.Enabled = True
horn.Enabled = True
flasher.Enabled = True
speed.Enabled = True
stater.Enabled = True
transaksi.Enabled = True
pagi.Enabled = True
sore.Enabled = True
malam.Enabled = True
adm.Enabled = True
total.Enabled = True
qhorn.Enabled = True
qflasher.Enabled = True
qspeed.Enabled = True
qstater.Enabled = True
End Sub

Koding program untuk jumlah 1(gbr1.2)
Private Sub cmdjumlah1_Click()
jml1.Text = (Val(horn.Text) * Val(qhorn.Text)) + (Val(speed.Text) * Val(qspeed.Text))
End Sub

Koding program untuk jumlah 1(gbr1.3)
Private Sub cmdjumlah2_Click()
jml2.Text = (Val(speed.Text) * Val(qspeed.Text)) + (Val(stater.Text) * Val(qstater.Text))
End Sub

Koding program jjika tombol Hitung dikilik(gbr 1.4)
Private Sub Command3_Click()
transaksi.Text = Val(jml1.Text) + Val(jml2.Text)
End Sub

Private Sub cflasher_Click()
If cflasher = 1 Then
flasher.Text = 15000
Else
flasher.Text = 0
End If
qflasher.SetFocus
End Sub

Private Sub chorn_Click()
If chorn = 1 Then
horn.Text = 15000
Else
horn.Text = 0
End If
qhorn.SetFocus
End Sub

Private Sub cspeed_Click()
If cspeed = 1 Then
speed.Text = 25000
Else
cspeed = 0
speed.Text = 0
End If
qspeed.SetFocus
End Sub

Private Sub cstater_Click()
If cstater = 1 Then
stater.Text = 25000
Else
cstater = 0
End If
qstater.SetFocus
End Sub

Private Sub Combo1_Click()
If Combo1.Text = "AM 1213" Then
petugas.Text = "ASEP M"
ElseIf Combo1.Text = "AN 1214" Then
petugas.Text = "DEDI S"
Else
petugas.Text = "ERWIN W"
End If
End Sub

Private Sub malam_Click()
adm.Text = 5000
total.Text = Val(transaksi.Text) + Val(adm.Text)
End Sub

Private Sub pagi_Click()
adm.Text = 10000
total.Text = Val(transaksi.Text) + Val(adm.Text)
End Sub

Private Sub sore_Click()
adm.Text = 8500
total.Text = Val(transaksi.Text) + Val(adm.Text)
End Sub


Kodingan yang digunakan untuk keluar(gbr 1.5)
Private Sub keluar_Click()
b = MsgBox("Anda Yakin Keluar", vbInformation + vbOKCancel, "INFORMASI")
End Sub


Senin, 13 Oktober 2014

Pemrograman visual 01

 Pemrograman VB 6.0







Selamat Datang di Akas Midi

Private Sub cmdbeli_Click()
Combo1.Text = "Pilih Kode Barang"
txtjumbel.Text = ""
txttotal.Text = ""
txtubayar.Text = ""
txtukembali.Text = ""
txtmerk.Text = ""
txtharga.Text = ""
txtstok.Text = ""


End Sub

Private Sub cmdhitung_Click()
txttotal.Text = Val(txtjumbel.Text) * Val(txtharga.Text)

End Sub

Private Sub Combo1_Click()
If Combo1.Text = "C01" Then
txtmerk.Text = "Pepsodent"
txtharga.Text = "6000"
txtstok.Text = "100"
txtjumbel.SetFocus

ElseIf Combo1.Text = "C02" Then
txtmerk.Text = "Close Up"
txtharga.Text = "5000"
txtstok.Text = "200"
txtjumbel.SetFocus

Else
txtmerk.Text = "Enzim"
txtharga.Text = "8000"
txtstok.Text = "400"
txtjumbel.SetFocus

End If
End Sub

Private Sub Form_Load()
txtmerk.Enabled = False
txtstok.Enabled = False
txtharga.Enabled = False
txttotal.Enabled = False
txtukembali.Enabled = False

End Sub

Private Sub Timer1_Timer()
Text1 = Format(Date, "dd/mm/yyyy")
Text2 = Format(Time, "h:m:s")

End Sub

Private Sub txtjumbel_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txttotal.Text = Val(txtjumbel.Text) * Val(txtharga.Text)
txtubayar.SetFocus

End If

End Sub

Private Sub txtubayar_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtukembali.Text = Val(txtubayar.Text) - Val(txttotal.Text)

End If

End Sub