Program VB Tentang Penjualan

---

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) -