Membuat program pembelian dengan VB 6

disini kita akan membuat contoh program pembelian toko yang simple.ini hanya contoh saja ,karena kita belajar dari sesuatu hal yang terkecil.. hehe

pertama-tama buka microsoft visual studio 6 -> pilih standard AXE di new project .
buat label sebanyak 14,textbox sebsanyak 10,combobox sebanyak 3,1 frame , 1 optionbutton dan copy menjadi 3 optionbutton

jika sudah sesuai kan object di form sesuai gambar 1

gambar 1

ganti propeties nya :




setelah sudah silah kan double klik di command1,dan ketik kodenya :

Private Sub Command1_Click()

Text6.Text = Val(Text3.Text) * Val(Text5.Text)

If Text5.Text >= 5 Then

Text7.Text = Val(Text6.Text) * 0.1

Else

End If

Text8.Text = Val((Text6.Text) + Val(Text4.Text)) - Val(Text7.Text)

Text9.SetFocus

If Text9.SelStart Then

Text10.Text = Val(Text9.Text) - Val(Text8.Text)

Else

End If

End Sub

kemudian double klik command2,dan ketik kodenya :

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Text10.Text = ""
Combo1.Text = ""
Combo2.Text = ""
Combo3.Text = ""
If Option1(0) Then
    Option1(0).Value = False
ElseIf Option1(1) Then
    Option1(1).Value = False
ElseIf Option1(2) Then
    Option1(2).Value = False
Else
End If
Text1.SetFocus
End Sub


double klik command3 :

Private Sub Command3_Click()

pesan = MsgBox("Anda Ingin Keluar ? ", vbYesNo + vbQuestion, "Keluar")
If pesan = vbYes Then
End
Else
End If

End Sub

double klik command4 :

Private Sub Command4_Click()
Dim data As String
Dim a As Integer
'www.alimahmud23.co.cc
data = data & "Nama Pembeli    = " & Text1.Text & Chr(13)
data = data & "Kode                     = " & Combo1.Text & Chr(13)
data = data & "Merk Barang        = " & Text2.Text & Chr(13)
data = data & "Jenis Barang         = " & Combo2.Text & Chr(13)
data = data & "Size                        = " & Combo3.Text + " " + Label6.Caption & Chr(13)
data = data & "Harga Barang      = " & Text3.Text & Chr(13)
For a = 0 To 2
    If Option1(a).Value = True Then
data = data & "Jenis Order           = " & Option1(a).Caption & Chr(13)
    Else
    End If
    Next
data = data & "Biaya Pesan          = " & Text4.Text & Chr(13)
data = data & "Jumlah Beli          = " & Text5.Text & Chr(13)
data = data & "Jumlah Bayar       = " & Text6.Text & Chr(13)
data = data & "Diskon                   = " & Text7.Text & Chr(13)
data = data & "=======================================" & Chr(13)
data = data & "Total Bayar           = " & Text8.Text & Chr(13)
data = data & "=======================================" & Chr(13)
data = data & "Uang Bayar           = " & Text9.Text & Chr(13)
data = data & "=======================================" & Chr(13)
data = data & "Uang Kembali      = " & Text10.Text & Chr(13) & Chr(13) & Chr(13)


data = data & "                           Terimakasi Telah Berbelanja di Toko Kami," & Chr(13)
data = data & "Barang yang sudah dibeli tidak bisa dikembalikan dengan alasan apapun !!"


MsgBox data, , "CETAK"
End Sub


Private Sub Form_Load()
Combo1.AddItem "K01"
Combo1.AddItem "S01"
Combo1.AddItem "V01"


Combo2.AddItem "Flash Disk"
Combo2.AddItem "MP3"
Combo2.AddItem "IPOD"


Combo3.AddItem "02"
Combo3.AddItem "04"
Combo3.AddItem "08"
End Sub

double klik  di option1 :



Private Sub Option1_Click(Index As Integer)
If Option1(0) Then
    Text4.Text = 5000
ElseIf Option1(1) Then
    Text4.Text = 2500
ElseIf Option1(2) Then
    Text4.Text = 0
End If
Text5.SetFocus
End Sub


setelah sudah semua sekarang kalian run:
dan ini output nya: