Membuat contoh aplikasi nota jual dengan Visual Basic 6.0

Sekedar berbagi....
Terkadang kita menyepelekan hal yang termudah sehingga kita mudah sekali lengah dan terjatuh hanya karena masalah kecil.
So, ini adalah pengalaman pribadi beberapa waktu lalu saat kuliah.
Beberapa teman terlalu menyepelekan materi hingga saat mendapatkan tugas mereka kelabakan,,,
Bertanya apa itu if? apa itu while? apa itu do? dll.
ternyata masalah seringan itu saja kita bisa kelabakan ya...
back to topic...

kali ini saya akan membahas mengenai aplikasi nota jual tanpa database menggunakan sistem sederhana yaitu if dan else.
pertama buatlah project
dengan form seperti dibawah

lalu pastekan script berikut

Private Sub Command1_Click()

banyak = Val(Text5.Text)

harga = Val(Text6.Text)

jumlah = banyak * harga

disc = jumlah / 10

totaldisc = jumlah - disc

Text7.Text = Format(jumlah)

If Text7.Text >= 1000000 Then

Text8.Text = Format(disc)

Text9.Text = Format(totaldisc)

Else

Text8.Text = "0"

Text9.Text = Format(jumlah)

End If

End Sub

Private Sub Form_Load()

End Sub

Private Sub Text2_Change()

isian = Text2.Text

    If isian = "1" Then

        Label4.Caption = "Teknik Elektro"

    ElseIf isian = "2" Then

        Label4.Caption = "Teknik Pertambangan"

    ElseIf isian = "3" Then

        Label4.Caption = "Teknik Mesin"

    ElseIf isian = "4" Then

        Label4.Caption = "Teknik Komputer"

    Else

        Label4.Caption = "Maaf tidak ada jurusan"

    End If

End Sub

keterangan:

teks berwarna biru untuk rumus

teks berwarna merah untuk pernyataan if

dalam hal ini

If Text7.Text >= 1000000 Then

berarti bila jumlah harga senilai 1000000 maka akan di eksekusi

disc dan totaldisc

dan jika salah maka aplikasi hanya mengeksekusi jumlah

Selamat mencoba

DOWNLOAD SOURCE