Membuat Form Majalah di Visual Basic 6.0

Bagaimana sich, caranya membuat form agen majalah di Visual Basic 6.0

Berikut ini adalah form agen yang akan kita buat, seperti pada gambar berikut.

 

 

Ketentuan Soal :

• Input Nama, Alamat & Telp Pelanggan.
  
• Untuk Pilihan Hari : Senin, Selasa & Rabu
  
  • Jika Senin, Majalah Bunda & Komputer
    
  • Jika Selasa, Majalah Rumah & Otomotif
    
  • Jika Rabu, Majalah Bola & Gadis
    
• Untuk Harga Berlangganan Majalah
  
  • Bunda : Rp. 95.000
    
  • Komputer : Rp. 100.000
    
  • Rumah : Rp. 105.000
    
  • Otomotif : Rp. 95.000
    
  • Bola : Rp. 85.000
    
  • Gadis : Rp. 120.000
    

  
   

  
   

• Input Jumlah Per Bulan
  
• Klik Hitung, Tampil Total, Diskon, Pajak & Total Bayar
  
  • Total : Harga x Jumlah
    
  • Diskon : - Jika Jumlah >= 12, Diskon 15 % dari Total
    
    • Jika Jumlah >= 6, Diskon 5 % dari Total
      
    • Selain itu tidak dapat diskon
      
  • Pajak : 10 % dari Total
    
  • Total Bayar : (Total – Diskon) + Pajak
    

• Klik Bersih, Tampilan dalam keadaan bersih (kosong)
  
  • Klik Keluar, keluar dari program & tampil pesan
    
  • Simpan dengan nama FRMAGEN
    

 

Pertama-tama, buka dulu aplikasi microsoft studio visual basic 6.0, and then buat fom baru

dan kemudian buat tampilan seperti gambar di atas, trus seting sebagai berikut.

 

 

Form / Contorl	Properties	Setting
form1	Name Caption	Form1 .:Form Pembayaran:.
Label1   Label2	Name Caption Name Caption	Lbl_agn AGEN MAJALAH "MAJU" Lbl_jln Isi sendiri
Frame1   Label3   Label4   Label5   Textbox1   Textbox2   Textbox3	Name Caption Name Caption Name Caption Name Caption Name Text Name Text Name Text	Frm_dp .:Data Pelanggan:. Lbl_nm Nama Lbl_al Alamat Lbl_telp Telepon Txt_nm Kosongkan Txt_al Kosongkan Txt_telp kosongkan
Textbox4   Textbox5   Timer1	Name Text Name Text Name interval	Txt_tgl Tanggal Txt_jam Jam Timer1 100
Label6   combobox   Label7   listbox   Label8   Textbox8   Label9   Textbox9   Label10   Textbox10   Label11   Textbox11   Label12   Textbox12   Label13   Textbox13	Name Caption Name Text Name Caption Name Text Name Caption Name Text Name Caption Name Text Name Caption Name Text Name Caption Name Text Name Caption Name Text Name Caption Name Text	Lbl_pil Pilihan Hari cmb_pil kosongkan lbl_mj Majalah List1   Lbl_hrg Harga Txt_hrg Kosongkan Lbl_jml Jumlah Txt_jml Kosongkan Lbl_tot Total Txt_tot Kosongkan Lbl_dis Diskon Txt_dis Kosongkan Lbl_pjk Pajak Txt_pjk Kosongkan Lbl_tby Total Bayar Txt_tby kosongkan
Command1   Command2   Command3	Name Caption Name Caption Name Caption	Cmd_htg HITUNG Cmd_cl CLEAR Cmd_ex EXIT

 

Oh ya, untuk ukuran font, warna dll setting sendiri yaw. Ok selanjutnya kita ke Listing Program na.

Listing Program

Private Sub cmb_pil_Click()

List1.Clear

If cmb_pil.ListIndex = 0 Then

List1.AddItem "Bunda"

List1.AddItem "Komputer"

ElseIf cmb_pil.ListIndex = 1 Then

List1.AddItem "Rumah"

List1.AddItem "Otomotif"

Else

List1.AddItem "Bola"

List1.AddItem "Gadis"

End If

End Sub

 

Private Sub cmd_cl_Click()

r = MsgBox("Ente Mau Hapus Semua..? Silakan..", vbYesNo + vbInformation, " Pesan")

If r = vbYes Then

txt_nm = ""

txt_al = ""

txt_telp = ""

cmb_pil = ""

List1.Clear

txt_hrg = ""

txt_jml = ""

txt_tot = ""

txt_dis = ""

txt_pj = ""

txt_tby = ""

txt_nm.SetFocus

Else

Load Me

cmd_ex.SetFocus

End If

End Sub

 

Private Sub cmd_ex_Click()

r = MsgBox("You Wanna Exit from this form..?", vbYesNo + vbInformation, " Pesan")

If r = vbYes Then

Unload Me

End If

End Sub

 

Private Sub cmd_htg_Click()

txt_tot = txt_hrg * txt_jml

If txt_jml >= 12 Then

txt_dis = 0.5 * txt_tot

ElseIf txt_jml >= 6 Then

txt_dis = 0.05 * txt_tot

Else

txt_dis = 0

End If

txt_pj = 0.1 * txt_tot

txt_tby = (txt_tot - txt_dis) + txt_pj

cmd_cl.SetFocus

End Sub

 

Private Sub Form_Load()

With cmb_pil

.AddItem "Senin"

.AddItem "Selasa"

.AddItem "Rabu"

End With

End Sub

 

Private Sub List1_Click()

If List1 = "Bunda" Then

txt_hrg = 950000

ElseIf List1 = "Komputer" Then

txt_hrg = 100000

ElseIf List1 = "Rumah" Then

txt_hrg = 105000

ElseIf List1 = "Otomotif" Then

txt_hrg = 950000

ElseIf List1 = "Bola" Then

txt_hrg = 850000

Else

txt_hrg = 120000

End If

End Sub

 

Private Sub Timer1_Timer()

txt_tgl = Date

txt_jm = Time

End Sub

 

Private Sub txt_al_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txt_telp.SetFocus

End If

End Sub

Private Sub txt_hrg_change()

txt_jml.SetFocus

End Sub

 

Private Sub txt_jml_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

cmd_htg.SetFocus

End If

End Sub

 

Sub txt_nm_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txt_al.SetFocus

End If

End Sub

 

Private Sub txt_telp_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

cmb_pil.SetFocus

End If

End Sub

 

Setelah listing programna dibuat, maka tampilannya seperti gambar yang di atas, kemudian isikan data pelangganna, seperti gambar berikut

 

 

~ SEMOGA BERMANFAAT ~