Program Kantin Dengan Judul bergerak

1.Desain Form seperti dibawah ini...

Selamat Datang	Label1
Dikantin Serbah Murah	Label25
Jln Haji Ulakma Sinaga	Label26
Rambung Merah	Label27
Caption	Name
Pilih Menu	cbomenu
Pilih Paket	cbopaket
List Menu	List1
Harga	txtharga
Delivery	optdelivery
Makan ditempat	Optmakan
Harga	txthrg
Es Teh Manis	chkes
Air Mineral	chkair
Harga	txthrga
Jumlah beli	txtjumlah
Total Bayar	txttotal
Uang Bayar	txtbayar
Uang Kembali	txtkembali
Exit	Cmdcombo1

               

2.Masukkan Listing Program Dibawah ini :

Dim kalimat As String
Dim kata As String
Dim panjang As Integer
Dim jalan As Boolean
Private Sub cbopaket_Click()
If cbomenu.Text = "Sarapan Pagi" Then
Select Case (cbopaket.Text)
Case "Paket 1"
List1.Clear
List1.AddItem ("Nasi Uduk")
List1.AddItem ("Telur")
List1.AddItem ("Tempe Orek")
txtharga = 5000
Case Else
List1.Clear
List1.AddItem ("Nasi Goreng")
List1.AddItem ("Telur Mata Sapi")
List1.AddItem ("Tempe goreng")
txtharga = 7000
End Select
Else
Select Case (cbopaket.Text)
Case "Paket 1"
List1.Clear
List1.AddItem ("Nasi Putih")
List1.AddItem ("Ayam Bakar")
List1.AddItem ("Lalapan")
txtharga = 8000
Case Else
List1.Clear
List1.AddItem ("Nasi Putih")
List1.AddItem ("Rendang")
List1.AddItem ("Sayur")
List1.AddItem ("Sambal Ijo")
txtharga = 10000
End Select
End If
End Sub

Private Sub chkair_Click()
If chkes = 1 And chkair = 1 Then
txthrga = 3000
ElseIf chkes = 1 And chkair = 0 Then
txthrga = 2500
ElseIf chkes = 0 And chkair = 1 Then
txthrga = 500
Else
txthrga = 0
End If
End Sub

Private Sub chkes_Click()
If chkes = 1 And chkair = 1 Then
txthrga.Text = "3000"
ElseIf chkes = 1 And chkair = 0 Then
txthrga.Text = "2500"
ElseIf chkes = 0 And chkair = 1 Then
txthrga.Text = "500"
Else
txthrga.Text = "0"
End If
End Sub

Private Sub Command1_Click()
Pesan = MsgBox("Are you ready exit..???", vbYesNo, "Warning...!")
If Pesan = vbYes Then End
If Pesan = vbNo Then Form1.Show
End Sub


Private Sub Form_Load()
jalan = True
kalimat = "        S e l a m a t D a t a n g                               "
kata = "                 D i k a n t i n   S e r b a h M u r a h                                "
panjang = Len(kalimat)
panjang = Len(kata)
Label1 = kalimat
Label25 = kata
Label1.Refresh
Label25.Refresh
Timer1.Enabled = True


cbomenu.AddItem ("Sarapan Pagi")
cbomenu.AddItem ("Makan Siang")
cbopaket.AddItem ("Paket 1")
cbopaket.AddItem ("Paket 2")
End Sub







Private Sub Form_Unload(Cancel As Integer)
jalan = False
End Sub

Private Sub optdelivery_Click()
txthrg.Text = 5000
End Sub

Private Sub optmakan_Click()
txthrg.Text = 0
End Sub

Private Sub tctkembali_KeyPress(KeyAscii As Integer)

End Sub




Private Sub Timer1_Timer()
If jalan Then
kalimat = Right(kalimat, 1) & Left(kalimat, panjang - 1)
kata = Right(kata, 1) & Left(kata, panjang - 1)
Label1 = kalimat
Label25 = kata
Label1.Refresh
Label25.Refresh
Else
Timer1.Enabled = False
End If

End Sub

Private Sub txtkembali_KeyPress(KeyAscii As Integer)
Dim B, C, D As Integer
B = Val(txttotal.Text)
C = Val(txtbayar.Text)



If KeyAscii = 13 Then
    End If
If C < B Then
txtkembali.Text = ""
    MsgBox "Maaf..Uang anda tidak cukup untuk membayar!!!", vbInformation, "Pesan"
    MsgBox "Silakan Anda penuhin pembayaran anda!!!", vbInformation, "Pesan1"

ElseIf C > B Then
    txtkembali.Text = C - B
    MsgBox "Trimakasih atas pembayaran anda!!!", vbInformation, "Pesan2"
Else
End If


End Sub

Private Sub txttotal_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txttotal.Text = Val(txtjumlah.Text) * (Val(txtharga.Text) + Val(txthrg.Text) + Val(txthrga.Text))
txttotal.SetFocus
End If
End Sub

*Semoga sobat berhasil....Semngat...!!!!*