Tugas VB

Membuat Form Transaksi






Untuk membuat tampilan form seperti di atas, langkah-langkahnya adalah sebagai berikut:
:z :D :p








Aturlah propertiesnya seperti pada gambar di atas :D setelah itu rancang form (Sesuai Kebutuhan). Jika propertiesnya sudah di atur, maka giliran untuk memasukan kode program seperti di bawah ini:



Private Sub CmdBaru_Click()
Tharga.Text = ""
Tjumlah.Text = ""
Ttotal.Text = ""
Tttl.Text = ""
Tdiskon.Text = ""
Thbayar.Text = ""
Tpembayaran.Text = ""
Tkembalian.Text = ""
End Sub

Private Sub CmdHitung_Click()

If Cnama.Text = "Code: 001" Then
Tharga.Text = 25000
Else
If Cnama.Text = "Code: 002" Then
Tharga.Text = 28000
Else
If Cnama.Text = "Code: 003" Then
Tharga.Text = 30000
Else
If Cnama.Text = "Code: 004" Then
Tharga.Text = 35000
End If
End If
End If
End If

Ttotal.Text = Val(Tjumlah) * Val(Tharga)
Tttl.Text = Val(Ttotal) - Val(Tttl)
If Val(Tttl) > 50000 Then
Tdiskon.Text = 0.1 * Val(Tttl)
Else
Tdiskon = 0
End If
Thbayar = Val(Tttl) - Val(Tdiskon)
Ljumlah.Caption = Thbayar.Text

End Sub

Private Sub CmdKeluar_Click()
End
End Sub


Private Sub CmdKembalian_Click()
Tkembalian = Val(Tpembayaran) - Val(Thbayar)
Ljumlah.Caption = Tkembalian
If Val(Tkembalian) < caption = "KEKURANGAN">
Else Lucapan.Caption = "TERIMA KASIH" 
End If 
End Sub 
 
Private Sub Form_Load() 
Cnama.AddItem "Code: 001" 
Cnama.AddItem "Code: 002" Cnama.AddItem "Code: 003" 
Cnama.AddItem "Code: 004" 
End Sub 
Private Sub Tkembalian_Change() 
Ljumlah.Caption = Tkembalian 
End Sub
Private Sub CmdBaru_Click() 
Tharga.Text = "" 
Tjumlah.Text = "" 
Ttotal.Text = "" 
Tttl.Text = "" 
Tdiskon.Text = "" 
Thbayar.Text = "" 
Tpembayaran.Text = "" 
Tkembalian.Text = "" 
End Sub 
Private Sub CmdHitung_Click() 
If Cnama.Text = "Code: 001" Then 
Tharga.Text = 25000 
Else 
If Cnama.Text = "Code: 002" Then 
Tharga.Text = 28000 
Else 
If Cnama.Text = "Code: 003" Then 
Tharga.Text = 30000 
Else 
If Cnama.Text = "Code: 004" Then 
Tharga.Text = 35000 
End If 
End If 
End If 
End If 
Ttotal.Text = Val(Tjumlah) * Val(Tharga) Tttl.Text = Val(Ttotal) - Val(Tttl) If Val(Tttl) > 50000 Then
Tdiskon.Text = 0.1 * Val(Tttl)
Else
Tdiskon = 0
End If
Thbayar = Val(Tttl) - Val(Tdiskon)
Ljumlah.Caption = Thbayar.Text

End Sub

Private Sub CmdKeluar_Click()
End
End Sub


Private Sub CmdKembalian_Click()
Tkembalian = Val(Tpembayaran) - Val(Thbayar)
Ljumlah.Caption = Tkembalian
If Val(Tkembalian) < caption = "KEKURANGAN" caption = "TERIMA KASIH" caption =" Tkembalian">

Setelah memasukkan kode program, kemudian di running. jika berhasil maka jalannya form akan seperti berikut:
pilih nama barang
masukkan jumlah barang 
klik hitung
jika berhasil maka form akan terisi oleh angka-angka,
setelah itu masukkan nominal uang pada kolom pembayaran
kemudian klik kembalian, maka akan muncul nominal hasil perhitungan.
Inilah hasil akhir form!!! horeeee :D :~ :~ :~ :~ :~ :~ :~ :~ :~