TUGAS 02 VB6.0

noreply@blogger.com (Anonymous) — Mon, 27 Oct 2014 18:24:00 +0000

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

Pemrograman visual 01

noreply@blogger.com (Anonymous) — Mon, 13 Oct 2014 13:52:00 +0000

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

Bibit Prianto

TUGAS 02 VB6.0

Pemrograman visual 01