test

Membuat Program Transaksi Bengkel Sederhana

Sumber : BINA SARANA INFORMATIKA



Properties
Label1 : Caption = BENGKEL OKE
Label2 : Caption = Kode Oli
Label3 : Caption = Jumlah Beli
Label4 : Caption = Pembayaran
Label5 : Caption = Potongan
Label6 : Caption = PPN
Label7 : Caption = Total Bayar
Label8 : Caption = Merk
Label9 : Caption = Harga Oli
Label10 : Caption = Uang Bayar
Label11 : Caption =Uang Kembali
Label12 : Caption = Fixed Single
Label13 : Caption = Fixed Single
ComboBox1 : Name = Combo1
Textbox1 : Name = txtjumbel
Text = Tulisan Text1 Dihapus
Textbox2 : Name = txtpembayaran
Text = Tulisan Text1 Dihapus
Textbox3 : Name = txtpot
Text = Tulisan Text1 Dihapus
Textbox4 : Name = txtppn
Text = Tulisan Text1 Dihapus
Textbox5 : Name = txttolbar
Text = Tulisan Text1 Dihapus
Textbox6 : Name = txtmerk
Text = Tulisan Text1 Dihapus
Textbox7 : Name = txtharga
Text = Tulisan Text1 Dihapus
Textbox8 : Name = txtservice
Text = Tulisan Text1 Dihapus
Textbox9 : Name = txtbayar
Text = Tulisan Text1 Dihapus
Textbox10 : Name = txtkembali
Text = Tulisan Text1 Dihapus
CommandButton1 : Name = cmdhitung
Caption = Hitung
CommandButton2 : Name = cmdclear
Caption = Clear
CommandButton3 : Name = cmdexit
Caption = Exit
Frame1 : Caption = Biaya Service
OptionButton1 : Caption = Mobil
Name = opt1
OptionButton2 : Caption = Motor
Name = opt2
Timer1 : Interval = 250

Listing Program

Private Sub cmdclear_Click()
Combo1 = ""
txtbayar = ""
txtkembali = ""
txttolbar = ""
txtservice = ""
txtjumbel = ""
txtpot = ""
txtmerk = ""
txtpembayaran = ""
txtpot = ""
txtharga = ""
txtppn = ""
End Sub

Private Sub cmdexit_Click()
Unload Me
End Sub

Private Sub CMDHITUNG_Click()
txtpembayaran = Val(txtjumbel * txtharga) + txtservice
If Val(txtpembayaran) > 50000 Then
txtpot = Val(txtpembayaran * 0.1)
End If
txtppn = Val(txtpembayaran * 0.05)
txttolbar = Val(txtpembayaran - txtpot) + Val(txtppn)
End Sub

Private Sub cmdhitung_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtbayar.SetFocus
End If
End Sub

Private Sub Combo1_Click()
If Combo1.ListIndex = 0 Then
txtmerk = "Penzoil"
txtharga = "35000"
ElseIf Combo1.ListIndex = 1 Then
txtmerk = "Agip"
txtharga = "30000"
ElseIf Combo1.ListIndex = 2 Then
txtmerk = "Top One"
txtharga = "27000"
Else
txtmerk = "Mesran"
txtharga = "20000"
End If
End Sub





Private Sub Combo1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtjumbel.SetFocus
End If
End Sub

Private Sub Form_Activate()
Combo1.AddItem "PZ"
Combo1.AddItem "AG"
Combo1.AddItem "TO"
Combo1.AddItem "MS"
txtservice.Enabled = False
txtpembayaran.Enabled = False
txtppn.Enabled = False
txtkembali.Enabled = False
txtharga.Enabled = False
txtmerk.Enabled = False
txtpot.Enabled = False
End Sub

Private Sub opt1_Click()
txtservice = "5000"
End Sub

Private Sub opt2_Click()
txtservice = "3000"
End Sub



Private Sub Timer1_Timer()
Label12.Caption = Date
Label13.Caption = Time
End Sub

Private Sub txtbayar_Change()
txtkembali = Val(txtbayar) - Val(txttolbar)
End Sub

Private Sub txtjumbel_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
CMDHITUNG.SetFocus
End If
End Sub


Selengkapnya...

 

Membuat Kalkulator Sederhana dengan Visual basic 6.0

Sumber: Bina Sarana Informatika



Properties

Label1 : Caption = KALKULATOR
Name = LBLKALKULATOR
Label2 : Caption = NILAI PERTAMA
Label3 : Caption = NILAI KEDUA
Label4 : Caption = HASIL
Label5 : Caption = Tanggal Sekarang
Label6 : Caption = Jam Sekarang
Textbox1 : Name = TXTPERTAMA
Text = Tulisan Text1 dihapus
Textbox2 : Name = TXTKEDUA
Text = Tulisan Text1 dihapus

Textbox3 : Name = TXTHASIL
Text = Tulisan Text1 dihapus
CommandButton1 : Name = CMDTAMBAH
Caption = +
CommandButton2 : Name = CMDKURANG
Caption = -
CommandButton3 : Name = CMDKALI
Caption =*
CommandButton4 : Name = CMDBAGI
Caption =/
CommandButton5 : Name = CMDPANGKAT
Caption = ^
CommandButton6 : Name = CMDTEBAL
Caption = &TEBAL
CommandButton7 : Name = CMDMIRING
Caption =&MIRING
CommandButton8 : Name = CMDGARISBAWAH
Caption = &GARIS BAWAH
CommandButton9 : Name = CMDBIRU
Caption = &BIRU
CommandButton10 : Name = CMDKUNING
Caption = K&UNING
CommandButton11 : Name = CMDKELUAR
Caption = &KELUAR
Timer1 : Interval=100





Listing Program

Private Sub CMDBAGI_Click()
TXTHASIL.Text = Val(TXTPERTAMA.Text) / Val(TXTKEDUA.Text)
End Sub

Private Sub CMDBIRU_Click()
LBLKALKULATOR.ForeColor = vbBlue
End Sub

Private Sub CMDGARISBAWAH_Click()
LBLKALKULATOR.FontUnderline = True
End Sub

Private Sub CMDKALI_Click()
TXTHASIL.Text = Val(TXTPERTAMA.Text) * Val(TXTKEDUA.Text)
End Sub

Private Sub CMDKELUAR_Click()
End
End Sub

Private Sub CMDKUNING_Click()
LBLKALKULATOR.ForeColor = vbYellow
End Sub

Private Sub CMDKURANG_Click()
TXTHASIL.Text = Val(TXTPERTAMA.Text) - Val(TXTKEDUA.Text)
End Sub

Private Sub CMDMIRING_Click()
LBLKALKULATOR.FontItalic = True
End Sub

Private Sub CMDNORMAL_Click()
LBLKALKULATOR.ForeColor = vbBlack
LBLKALKULATOR.FontBold = False
LBLKALKULATOR.FontItalic = False
LBLKALKULATOR.FontUnderline = False
End Sub

Private Sub CMDPANGKAT_Click()
TXTHASIL.Text = Val(TXTPERTAMA.Text) ^ Val(TXTKEDUA.Text)
End Sub

Private Sub CMDTAMBAH_Click()
TXTHASIL.Text = Val(TXTPERTAMA.Text) + Val(TXTKEDUA.Text)
End Sub

Private Sub CMDTEBAL_Click()
LBLKALKULATOR.FontBold = True
End Sub

Private Sub Timer1_Timer()
Ltanggal.Caption = Format(Now, "dd-mm-yyyy")
Ljam.Caption = Format(Now, "hh:mm:ss Am/Pm")
End Sub
Selengkapnya...

 

SMS-SMS LUCU

Teman sejati selalu berbagi, kalo saya jadi laut, kamu jadi ikan, saya jadi kumbang kamu jadi bunga, saya jadi matahari kamu jadi bumi, kalo saya jadi tarzan, kamu mau jadi monyetnya?

SEMUA TIARAP! INI ADALAH PERAMPOKAN! yg laki2 sebelah kanan, yg cewek sebelah kiri & yang banci tengah! Hei kamu!Ya kamu! ga usah pura2 baca sms terus!kumpul tengah!

ALIONG masih meniduri istrinya yang hamil 9 bln, ISTRI: mau bikin apalagi?badan, kepala, kaki sdh lengkp semua. ALIONG: owe cuma mau kasih minyak lambut.

Lapar ya? Udah makan belum? kalo belum gw kasih kwaci deh... kwacian deh lu...

Cintailah sesamamu seperti kamu mencintai dirimu sendiri, tapi jangan mencintai pacar sesamamu seperti kamu mencintai pacar kamu sendiri.

Senyum pada ortu tanda sayang, Senyum pada anak2 tanda kasih, senyum pada kekasih tanda cinta, senyum pada HP tanda sakit jiwa, udah tau, masih senyum lagi, emang sakit!

Tolong bantu doa ya, kata dokter aku ada kelainan darah, sudah dicek ditiga lab. hasilnya positif... sedih ternyata aku berdarah ningrat.

Wajar aja kalau kaum hawa lebih cerewet dibanding dengan kaum adam, karena punya mulut dua.

Liat sekelilingmu itulah anugrah Tuhan, lihat keluargamu itulah karunia Tuhan, lihat di cermit itulah laknat Tuhan.

Wanita sering tidak konsisten. Sering demo, teriak2 Anti Kekerasan. Pas ada maunya malah minta yang KERAS!

Keanehan wanita. Di tusuk tapi tidak mati, berdarah tapi tak luka, merintih tapi tak sakit, bolong tapi tidak bocor, dirudal malah segar bugar.

Saat aku sedih kau disampingku, saat aku marah kau ada di dekatku. Saat aku menangis kau disisiku, Sekarang aku sadar, kau adalah pembawa sial untukku.

Monyet mengintip pria mandi & berkomentar kepada temannya "Manusia itu lucu yah?" Katanya. "Kenapa?" Tanya monyet kedua. "Dah buntutnya di depan, pendek lagi..."

Waktu aku kecil aku mengalami PELECEHAN, aku ditelanjangi seorang pria, aku diBIUS, ANUku dipegang2, sampai BERDARAH. Tetapi ketika aku sadar TERNYATA AKU LAGI DISUNAT.

Ukuran payudara wanita dapat diketahui dari jenis HPnya, NOKIA: Nongol ketat indah dan asli. SIEMENS: Simple menjurus sensualitas. ERICSON: Enak diraba isinya cuma silicon.

Prajurit Amerika yang sedang bertugas di Irak stres. Ia mengirim surat dan granat pada istrinya. Isi surat:kalau kau ledakkan granat ini aku diberi libur 3 hari.

Gejala2 terinfeksi flu burung:
1. Burung tegang2
2. Burung bergetar
3. Burung mulai pilek & muntah2
4. Burung loyo.

Harga lima bahan pokok: harga pisang turun naik, harga telur masih dibawah pisang, harga susu masih kembang kempis, sementara harga kacang masih terjepit di tengah2 daging, dan harga daging mendekati harga pisang...

Lin, kau selalu menjadi teman dalam hidupku. Malam itu kupeluk tubuhmu, kuremas-remas. Tapi kau membisu dan pasrah. Kau hanya bisa merasakan hangatnya pelukanku. Oh... gulingku. Aku sayang padamu.

Disebuah hutan diadakan rapat dipimpin oleh si raja hutan. Semua anggota hutan sudah berkumpul, tapi raja hutan sebel banget ama si monyet. Dicarinya monyet itu ke mana2 tapi ga' taunya si monyet lagi sibuk baca sms ini...


Selengkapnya...

 

posted by dHozOu on 09.49 under

Be the first to comment!

About Me

Foto Saya
dHozOu
Apa Adanya...
Lihat profil lengkapku

dHozOu

Link