Setelah agak lama berpikir karna tugas 3 ini ga di kasih soal alias harus bikin kasus sendiri, akhirnya coba-coba aja bikin kasus sederhana tentang penerbitan iklan di media cetak. Kasusnya disini dengan memilih beberapa media antara lain (Bisnis Indonesia, Kompas, Media Indonesia) disini juga menjelaskan cara pembayaran iklan tersebut, apabila bayar sebelum terbit maka akan dapat diskon 10%, apabila bayar setelah terbit ya ga dapet diskon lah. Bayar di akhir koq mau diskon hehehehe.............
Daripada banyak basa-basi ga jelas yukz kita mulai aja ngerjain kasus nya di Microsoft Visual Basic, dan inilah hasil desain pertama aku:
dan inilah listing yang saya buat:
Sub aktif()
txtno.Enabled = True
txtnama.Enabled = True
cmbjenis.Enabled = True
txtterbit.Enabled = True
opt1.Enabled = True
opt2.Enabled = True
txttotal.Enabled = True
End Sub
Sub nonaktif()
txtno.Enabled = False
txtnama.Enabled = False
cmbjenis.Enabled = False
txtharga.Enabled = False
txtterbit.Enabled = False
txtsub.Enabled = False
opt1.Enabled = False
opt2.Enabled = False
txtdiskon.Enabled = False
txttotal.Enabled = False
End Sub
Sub bersih()
txtno.Text = ""
txtnama.Text = ""
cmbjenis.Text = ""
txtharga.Text = ""
txtterbit.Text = ""
txtsub.Text = ""
opt1.Value = 0
opt2.Value = 0
txtdiskon.Text = ""
txttotal.Text = ""
End Sub
Private Sub cmbjenis_Click()
If cmbjenis.Text = "Bisnis Indonesia" Then
txtharga.Text = 4000000
ElseIf cmbjenis.Text = "Kompas" Then
txtharga.Text = 5000000
Else
txtharga.Text = 3500000
End If
End Sub
Private Sub cmdcancel_Click()
Call Form_Activate
bersih
End Sub
Private Sub cmdinput_Click()
aktif
bersih
txtno.SetFocus
cmdinput.Enabled = False
cmdcancel.Enabled = True
cmdkeluar.Enabled = True
End Sub
Private Sub cmdkeluar_Click()
Unload Me
End Sub
Private Sub Form_Activate()
nonaktif
bersih
ltgl.Caption = Format(Date, "dd-mmmm-yyyy")
cmbjenis.AddItem "Bisnis Indonesia"
cmbjenis.AddItem "Kompas"
cmbjenis.AddItem "Media Indonesia"
cmdinput.Enabled = True
cmdcancel.Enabled = False
cmdkeluar.Enabled = True
End Sub
Private Sub opt1_Click()
txtdiskon.Text = 0.1 * Val(txtharga.Text)
txttotal.Text = Val(txtsub.Text) - Val(txtdiskon.Text)
End Sub
Private Sub opt2_Click()
txtdiskon.Text = 0.05 * Val(txtharga.Text)
txttotal.Text = Val(txtsub.Text) - Val(txtdiskon.Text)
End Sub
Private Sub Timer1_Timer()
lwkt.Caption = Time
End Sub
Private Sub txtterbit_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtsub.Text = Val(txtharga.Text) * Val(txtterbit.Text)
End If
End Sub
Setelah selesai membuat listing jangan lupa di run yach, buat mencoba apa program yang kita buat udah bener atau belum. Apabila hasilnya benar maka akan muncul seperti ini:
Setelah itu coba di isi deh dan hasilnya seperti ini:
Selesai dech tugas yang aku bikin, semoga bermanfaat dan di kasih nilai gede ya bu, walaupun programnya sederhana. Maklum masih belajar hehehe...................
