TUGAS 3 PRA UTS (VB)

Tugas 1 dan tugas 2 udah selesai di kerjain, masih ada tugas 3 pra uts..........(ga kurang banyak bu dosen? :D) hehehee.....
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...................