Program Lanjutan Visual Basic 2

Untuk Menampilakan DBGrid : Klik Kanan Pada Toolbox Kemudian Pilih Components Kemudian Pilih Microsoft Data Bound Grid Contorl 5.0(SP3)

Untuk Menampilkan DBCombo : Klik Kanan Pada Toolbox Kemudian Pilih Components Kemudian Pilih Microsoft Data Bound List Controls 6.0(OLEDB)

Untuk Listing Bisa Download Disini, Semoga Bermanfaat Bagi Semua...!! :D

Read More

Program Lanjutan Visual Basic

Untuk Menambahkan Objek DBGrid : Klik Kanan Pada Toolbox kemudian pilih Components kemudian pilih Microsoft Data Bound Grid Control 5.0(SP3)

Untung Listingnya bisa Download Disini, Selamat Mencoba...!! :D

Read More

Program Visual Basic Restoran

Sintaknya :

Sub nonaktif()
Option1.Enabled = False
Option2.Enabled = False
Option3.Enabled = False
Option4.Enabled = False
Option5.Enabled = False
Option6.Enabled = False
txtmakan1.Enabled = False
txtmakan2.Enabled = False
txtminum.Enabled = False
txtharga.Enabled = False
txtjumbel.Enabled = False
txttotal.Enabled = False
txtdiskon.Enabled = False
txttobay.Enabled = False
txtbayar.Enabled = False
txtkembali.Enabled = False
txtditempat.Enabled = False
txtdelivery.Enabled = False
End Sub

Sub aktif()
Option1.Enabled = True
Option2.Enabled = True
Option3.Enabled = True
Option4.Enabled = True
Option5.Enabled = True
Option6.Enabled = True
txtmakan1.Enabled = True
txtmakan2.Enabled = True
txtminum.Enabled = True
txtharga.Enabled = True
txtjumbel.Enabled = True
txttotal.Enabled = True
txtdiskon.Enabled = True
txttobay.Enabled = True
txtbayar.Enabled = True
txtkembali.Enabled = True
txtditempat.Enabled = True
txtdelivery.Enabled = True
End Sub

Private Sub exit_Click()
x = MsgBox("Are Your Sure To Exit?", vbQuestion + vbYesNoCancel, "Confrimasi")
If x = vbYes Then
End
End If
End Sub

Private Sub new_Click()
nonaktif
Option1.Value = False
Option2.Value = False
Option3.Value = False
Option4.Value = False
Option5.Value = False
Option6.Value = False
txtmakan1.Text = " "
txtmakan2.Text = " "
txtminum.Text = " "
txtharga.Text = " "
txtditempat.Text = " "
txtdelivery.Text = " "
txtjumbel.Text = " "
txttotal.Text = " "
txtdiskon.Text = " "
txttobay.Text = " "
txtbayar.Text = " "
txtkembali.Text = " "
End Sub

Private Sub start_Click()
aktif
End Sub

Private Sub Timer1_Timer()
tanggal.Caption = Format(date, "dddd, d mmmm yyyy")
waktu.Caption = Format(time, "hh:mm:ss")
End Sub

Private Sub Form_Activate()
nonaktif
Option1.Value = False
Option2.Value = False
Option3.Value = False
Option4.Value = False
End Sub

Private Sub Option1_Click()
Option2.Value = False
Option3.Value = False
Option4.Value = False
txtmakan1.Text = "Kentang Goreng"
txtmakan2.Text = "Nasi + Ayam Goreng"
txtminum.Text = "Pepsi Cola"
txtharga.Text = 20000
txtmakan1.Enabled = False
txtmakan2.Enabled = False
txtminum.Enabled = False
txtharga.Enabled = False
End Sub

Private Sub Option2_Click()
Option1.Value = False
Option3.Value = False
Option4.Value = False
txtmakan1.Text = "Burger Beaf"
txtmakan2.Text = "Nasi + Sup"
txtminum.Text = "Coca Cola"
txtharga.Text = 25000
txtmakan1.Enabled = False
txtmakan2.Enabled = False
txtminum.Enabled = False
txtharga.Enabled = False
End Sub

Private Sub Option3_Click()
Option1.Value = False
Option2.Value = False
Option4.Value = False
txtmakan1.Text = "Rollade Daging"
txtmakan2.Text = "Nasi + Sup + Ayam Goreng"
txtminum.Text = "Coke Float"
txtharga.Text = 30000
txtmakan1.Enabled = False
txtmakan2.Enabled = False
txtminum.Enabled = False
txtharga.Enabled = False
End Sub

Private Sub Option4_Click()
Option1.Value = False
Option2.Value = False
Option3.Value = False
txtmakan1.Text = "Kebab Chiken"
txtmakan2.Text = "Nasi + Sup + 2 Ayam Goreng"
txtminum.Text = "Bubble Float"
txtharga.Text = 45000
txtmakan1.Enabled = False
txtmakan2.Enabled = False
txtminum.Enabled = False
txtharga.Enabled = False
End Sub

Private Sub Option5_Click()
Option6.Value = False
txtdelivery.Text = 10000
txtjumbel.SetFocus
txtdelivery.Enabled = False
End Sub

Private Sub Option6_Click()
Option5.Value = False
txtditempat.Text = 0
txtjumbel.SetFocus
txtditempat.Enabled = False
End Sub

Private Sub txtjumbel_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txttotal.Text = Val(txtharga.Text) * Val(txtjumbel.Text)
If txtjumbel >= 10 Then
txtdiskon.Text = 10 / 100 * Val(txttotal.Text)
Else
txtdiskon.Text = 5 / 100 * Val(txttotal.Text)
txttobay.Text = Val(txttotal.Text) - Val(txtdiskon.Text)
End If
End If
txttotal.Enabled = False
txtdiskon.Enabled = False
txttobay.Enabled = False
txtbayar.Enabled = True
End Sub

Private Sub txtbayar_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtkembali = Val(txtbayar.Text) - Val(txttobay.Text)
End If
End Sub

Read More