Assalamu'alaikum
Program penjualan sederhana menggunakan VB ini masih memakai tools yang sederhana
Ini bisa dipelajari bagi pemula
:D
Private Sub Command1_Click()
If List2.Text = "Buku Gambar" Then
Text2.Text = Val(Text1.Text) * 3000
ElseIf List2.Text = "Buku Tulis tipis" Then
Text2.Text = Val(Text1.Text) * 1000
ElseIf List2.Text = "Buku Tulis tebal" Then
Text2.Text = Val(Text1.Text) * 7000
ElseIf List2.Text = "Buku Petak" Then
Text2.Text = Val(Text1.Text) * 2000
ElseIf List2.Text = "Balpoint" Then
Text2.Text = Val(Text1.Text) * 1000
ElseIf List2.Text = "Pena multiwarna" Then
Text2.Text = Val(Text1.Text) * 7000
ElseIf List2.Text = "Buku warna" Then
Text2.Text = Val(Text1.Text) * 2000
ElseIf List2.Text = "Pensil Biasa" Then
Text2.Text = Val(Text1.Text) * 500
ElseIf List2.Text = "Pensil 2B" Then
Text2.Text = Val(Text1.Text) * 1000
End If
Text4.Text = Val(Text2.Text) -
Val(Text3.Text)
Text5.Text = Val(Text3.Text) - Val(Text2.Text)
Label6.Caption = "Nama Barang" & List2.Text
If Option3.Value = True Then
Label7.Caption = "Jenis Pembayaran " & Option3.Caption
Label8.Caption = "Jumlah yang harus dibayar " & Val(Text2.Text) + (10 / 100 * Val(Text2.Text))
ElseIf Option3.Value = False Then
Label7.Caption = "Jenis Pembayaran " & Option4.Caption
Label8.Caption = "Jumlah yang harus dibayar " & Val(Text2.Text)
End If
End Sub
Private Sub Form_Load()
List1.AddItem "Buku Tulis"
List1.AddItem "Pena"
List1.AddItem "Pensil"
Text2.Enabled = False
Text4.Enabled = False
Text5.Enabled = False
Option3.Enabled = False
Option4.Enabled = False
End Sub
Private Sub Frame4_Click()
If Frame4.Caption = "Pesan" Then
MsgBox "Simpan"
List2.Clear
Text2.Enabled = False
Text4.Enabled = False
Text5.Enabled = False
Option3.Enabled = False
Option4.Enabled = False
Option1.Value = False
Option2.Value = False
Option3.Value = False
Option4.Value = False
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
End If
End Sub
Private Sub List1_Click()
If List1.Text = "Buku Tulis" Then
List2.Clear
List2.AddItem "Buku Gambar"
List2.AddItem "Buku Tulis tipis"
List2.AddItem "Buku Tulis tebal"
List2.AddItem "Buku Petak"
ElseIf List1.Text = "Pena" Then
List2.Clear
List2.AddItem "Balpoint"
List2.AddItem "Pena multiwarna"
List2.AddItem "Pena warna"
ElseIf List1.Text = "Pensil" Then
List2.Clear
List2.AddItem "Pensil Biasa"
List2.AddItem "Pensil 2B"
End If
End Sub
Private Sub Option1_Click()
If Option1.Value = True Then
Option3.Enabled = True
Option4.Enabled = True
End If
End Sub
Private Sub Option2_Click()
If Option2.Value = True Then
Option3.Enabled = False
Option4.Enabled = True
End If
End Sub
Keterangan
Text1=txtjumlahbarang
Command1=cmdbayar
Text2=txtjumlahbayar
Text3=txtjumlah uang
Text4=Sisa
Text5=Kembalian
option1=langganan
option2=bukan langganan
option3=kredit
option4=tunai
Program penjualan sederhana menggunakan VB ini masih memakai tools yang sederhana
Ini bisa dipelajari bagi pemula
:D
Private Sub Command1_Click()
If List2.Text = "Buku Gambar" Then
Text2.Text = Val(Text1.Text) * 3000
ElseIf List2.Text = "Buku Tulis tipis" Then
Text2.Text = Val(Text1.Text) * 1000
ElseIf List2.Text = "Buku Tulis tebal" Then
Text2.Text = Val(Text1.Text) * 7000
ElseIf List2.Text = "Buku Petak" Then
Text2.Text = Val(Text1.Text) * 2000
ElseIf List2.Text = "Balpoint" Then
Text2.Text = Val(Text1.Text) * 1000
ElseIf List2.Text = "Pena multiwarna" Then
Text2.Text = Val(Text1.Text) * 7000
ElseIf List2.Text = "Buku warna" Then
Text2.Text = Val(Text1.Text) * 2000
ElseIf List2.Text = "Pensil Biasa" Then
Text2.Text = Val(Text1.Text) * 500
ElseIf List2.Text = "Pensil 2B" Then
Text2.Text = Val(Text1.Text) * 1000
End If
Text4.Text = Val(Text2.Text) -
Val(Text3.Text)
Text5.Text = Val(Text3.Text) - Val(Text2.Text)
Label6.Caption = "Nama Barang" & List2.Text
If Option3.Value = True Then
Label7.Caption = "Jenis Pembayaran " & Option3.Caption
Label8.Caption = "Jumlah yang harus dibayar " & Val(Text2.Text) + (10 / 100 * Val(Text2.Text))
ElseIf Option3.Value = False Then
Label7.Caption = "Jenis Pembayaran " & Option4.Caption
Label8.Caption = "Jumlah yang harus dibayar " & Val(Text2.Text)
End If
End Sub
Private Sub Form_Load()
List1.AddItem "Buku Tulis"
List1.AddItem "Pena"
List1.AddItem "Pensil"
Text2.Enabled = False
Text4.Enabled = False
Text5.Enabled = False
Option3.Enabled = False
Option4.Enabled = False
End Sub
Private Sub Frame4_Click()
If Frame4.Caption = "Pesan" Then
MsgBox "Simpan"
List2.Clear
Text2.Enabled = False
Text4.Enabled = False
Text5.Enabled = False
Option3.Enabled = False
Option4.Enabled = False
Option1.Value = False
Option2.Value = False
Option3.Value = False
Option4.Value = False
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
End If
End Sub
Private Sub List1_Click()
If List1.Text = "Buku Tulis" Then
List2.Clear
List2.AddItem "Buku Gambar"
List2.AddItem "Buku Tulis tipis"
List2.AddItem "Buku Tulis tebal"
List2.AddItem "Buku Petak"
ElseIf List1.Text = "Pena" Then
List2.Clear
List2.AddItem "Balpoint"
List2.AddItem "Pena multiwarna"
List2.AddItem "Pena warna"
ElseIf List1.Text = "Pensil" Then
List2.Clear
List2.AddItem "Pensil Biasa"
List2.AddItem "Pensil 2B"
End If
End Sub
Private Sub Option1_Click()
If Option1.Value = True Then
Option3.Enabled = True
Option4.Enabled = True
End If
End Sub
Private Sub Option2_Click()
If Option2.Value = True Then
Option3.Enabled = False
Option4.Enabled = True
End If
End Sub
Keterangan
Text1=txtjumlahbarang
Command1=cmdbayar
Text2=txtjumlahbayar
Text3=txtjumlah uang
Text4=Sisa
Text5=Kembalian
option1=langganan
option2=bukan langganan
option3=kredit
option4=tunai
di tunggu program yang lain.. :)
ReplyDeletehehee
ReplyDeleteiya wanda
InsyaAllah ya...
ehmmm
doain aja mi bisa
Mantap..langsung ke TKP..
ReplyDelete^_^
Deletetafadhol richy...
hehe....
insyaAllah run....