Program Penjumlahan Cafe Sederhana Dengan VB 6.0

PAKRUSJAYA. Halo sahabat bloger yang baik hati bagi saya berbagi pengalaman atau berbagi sedikit ilmu yang saya pelajari itu sangat senang karena berbagi termasuk mendapatkan pahala. Kali ini saya akan membahas mengenai pemrograman vb (visual basic) yang masih dasar karena saya juga masih belajar persis sama seperti anda. Mungkin anda sudah ada yang pernah mempelajari pemrograman berbasis objek atau biasa di sebut visual basic. Supaya tidak panjang lebar ulasanya yuk mari belajar membuat program penjualan cafe sederhana.

Saya ambil salah satu contoh pembuatan program sederhana seperti gambar di atas :

Untuk membuat form seperti di atas anda buka program vb yang terinstall di komputer anda atau laptop anda, dan jalankan program vb.exe nya.

Langkah pertama yang harus anda lakukan adalah :

. Pada form VB buatlah 8 Label (Makanan, Minuman, Rp, Jumlah, Total, Total bayhar, Bayar, dan Kembali)

. Dan buatlah Combobox 1 yang berfungsi untuk memilih menu makanan

. Tambahkan 3 optionbutton untuk pilihan menu minuman seperti gambar di atas

. Tambahkan 10 textbox untuk mengisi label masing masing contoh seperti gambar di atas

. Tambahkan 2 Commond button yang berfungsi untuk tombol bersih dan keluar

.Tambahkan 1 Commond button yang berfungsi untuk tombol + (Tambah/penjumlahan)

. Tambahkan 1 Timer untuk menjalankan waktu dan tanggal

Setelah selasai anda membuat form seperti di atas silahkan anda copy paste source code di bawah ini :

Private Sub Command1_Click()
Text7.Text = Val(Text3.Text) + Val(Text6.Text)
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Option1 = Clear
Option2 = Clear
Option3 = Clear
Combo1 = Clear
End Sub

Private Sub Command3_Click()
Dim cancel As String
cancel = MsgBox("anda yakin ingin keluar dari aplikasi ini", vbOKCancel, "peringatan")
If cancel = vbOK Then
End If
Unload Me
End Sub

Private Sub form_activate()
Combo1.AddItem "nasi goreng"
Combo1.AddItem "mie goreng"
Combo1.AddItem "burger"

End Sub

Private Sub Combo1_click()
If Combo1 = "nasi goreng" Then
Text1.Text = "6000"
   Else
If Combo1 = "mie goreng" Then
Text1.Text = "5000"
 Else
   If Combo1 = "burger" Then
Text1.Text = "7000"

 End If
 End If
 End If

End Sub



Private Sub Option1_Click()
Text4 = "2000"
End Sub

Private Sub Option2_Click()
Text4 = "500"
End Sub
  Private Sub option3_click()
  Text4 = "7000"
 End Sub

Private Sub Text2_Change()
  Text3.Text = Val(Text1.Text) * Val(Text2.Text)
End Sub

Private Sub Text5_Change()
  Text6.Text = Val(Text4.Text) * Val(Text5.Text)
End Sub

Private Sub Text8_Change()
  Text9.Text = Val(Text7.Text) - Val(Text8.Text)
End Sub

Private Sub Timer1_Timer()
Text10.Text = Date
Text11.Text = Time
End Sub

Catatan samakan name suorce code dengan nama label, textbox, combobox, commondbutton, dan optionbutton apabila tidak sama maka program akan error. Silahkan download program dan suorce codenya Disini

Ma'f apabila dalam penulisan kurang jelas bisa anda coret-coret di komentar saya trimakasih yang sudah mau berkunjung. Semoga bermanfaat dan membantu