Form Pemesanan Sepatu
OnlineShoes
1. Tampilan
Login OnlineShoes
Code Program :
Private Sub Command1_Click()
If Text1.Text <> "" And
Text2.Text <> "" Then
Form1.Show
Unload Me
Else
Pesan = MsgBox("Username atau
Password Anda Tidak Boleh Kosong", vbInformation)
End If
End Sub
2. Tampilan
Form Pemesanan Sepatu OnlineShoes
Code Program :
Private Sub
Combo1_Click()
If Combo1.Text =
"Sneaker" Then
Image2.Picture =
LoadPicture("C:\Users\Novia A\Pictures\sepatu pria\sneaker.jpg")
ElseIf Combo1.Text = "Boots"
Then
Image2.Picture =
LoadPicture("C:\Users\Novia A\Pictures\sepatu pria\boots.jpg")
ElseIf Combo1.Text = "Slip On"
Then
Image2.Picture =
LoadPicture("C:\Users\Novia A\Pictures\sepatu pria\slip on.jpg")
ElseIf Combo1.Text = "Loafers"
Then
Image2.Picture =
LoadPicture("C:\Users\Novia A\Pictures\sepatu pria\loafers.jpg")
ElseIf Combo1.Text = "Sandal"
Then
Image2.Picture =
LoadPicture("C:\Users\Novia A\Pictures\sepatu pria\sandal.jpg")
ElseIf Combo1.Text =
"Pantofel" Then
Image2.Picture = LoadPicture("C:\Users\Novia
A\Pictures\sepatu pria\pantofel.jpg")
End If
If Combo1.Text = "Sneaker"
Then
Text1.Text = 300000
ElseIf Combo1.Text = "Boots"
Then
Text1.Text = 350000
ElseIf Combo1.Text = "Slip On"
Then
Text1.Text = 150000
ElseIf Combo1.Text = "Loafers"
Then
Text1.Text = 200000
ElseIf Combo1.Text = "Sandal"
Then
Text1.Text = 150000
ElseIf Combo1.Text =
"Pantofel" Then
Text1.Text = 350000
End If
End Sub
------------------------------------------------------------------------------------------------------------------------------------------------------
Private
Sub Combo5_Click()
If
Combo5.Text = "Sneaker" Then
Image2.Picture
= LoadPicture("C:\Users\Novia A\Pictures\sepatu anak
perempuan\sneaker.jpg")
ElseIf
Combo5.Text = "Flat Shoes" Then
Image2.Picture
= LoadPicture("C:\Users\Novia A\Pictures\sepatu anak
perempuan\flat.jpg")
ElseIf
Combo5.Text = "Sandal" Then
Image2.Picture
= LoadPicture("C:\Users\Novia A\Pictures\sepatu anak
perempuan\sandal.jpg")
ElseIf
Combo5.Text = "Boots" Then
Image2.Picture
= LoadPicture("C:\Users\Novia A\Pictures\sepatu anak
perempuan\boots.jpg")
End
If
If
Combo5.Text = "Sneaker" Then
Text2.Text
= 120000
ElseIf
Combo5.Text = "Flat Shoes" Then
Text2.Text
= 80000
ElseIf
Combo5.Text = "Sandal" Then
Text2.Text
= 85000
ElseIf
Combo5.Text = "Boots" Then
Text2.Text
= 150000
End
If
End
Sub
------------------------------------------------------------------------------------------------------------------------------------------------------
Private Sub Combo6_Click()
If Combo6.Text = "Sandal" Then
Image2.Picture = LoadPicture("C:\Users\Novia
A\Pictures\sepatu anak laki-laki\sepatu sandal.jpg")
ElseIf Combo6.Text = "Boots"
Then
Image2.Picture =
LoadPicture("C:\Users\Novia A\Pictures\sepatu anak
laki-laki\boots.jpg")
ElseIf Combo6.Text = "Sneaker"
Then
Image2.Picture = LoadPicture("C:\Users\Novia
A\Pictures\sepatu anak laki-laki\sneaker.jpg")
ElseIf Combo6.Text = "Slip On"
Then
Image2.Picture =
LoadPicture("C:\Users\Novia A\Pictures\sepatu anak laki-laki\slip
on.jpg")
End If
If Combo6.Text = "Sandal" Then
Text3.Text = 85000
ElseIf Combo6.Text = "Boots"
Then
Text3.Text = 150000
ElseIf Combo6.Text = "Sneaker"
Then
Text3.Text = 120000
ElseIf Combo6.Text = "Slip On"
Then
Text3.Text = 90000
End If
End Sub
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Private Sub
Command1_Click()
MsgBox (ltanggal +
vbCrLf + ljam + vbCrLf + vbCrLf + "Jenis Sepatu Wanita : " +
Combo3.Text + vbCrLf + "Jenis Sepatu Pria : " + Combo1.Text + vbCrLf
+ "Jenis Sepatu Anak (Perempuan) : " + Combo5.Text + vbCrLf +
"Jenis Sepatu Anak (Laki-Laki) : " + Combo6.Text + vbCrLf +
"Ukuran & Warna : " + Combo4.Text + "-" + Combo2.Text +
vbCrLf + "Harga Sepatu Wanita : " + Text4 + vbCrLf + "Harga
Sepatu Pria : " + Text9 + vbCrLf + "Harga Sepatu Anak (Perempuan) :
" + Text10 + vbCrLf + "Harga Sepatu Anak (Laki-Laki) : " +
Text11 + vbCrLf + "Biaya Pengiriman : " + Text8 + vbCrLf +
"Total Bayar : " + Text7 + vbCrLf)
End Sub
------------------------------------------------------------------------------------------------------------------------------------------------------
Private
Sub Combo3_Click()
If Combo3.Text = "Flat Shoes"
Then
Image2.Picture =
LoadPicture("C:\Users\Novia A\Pictures\sepatu\flatshoes.jpg")
ElseIf Combo3.Text = "Wedges"
Then
Image2.Picture = LoadPicture("C:\Users\Novia
A\Pictures\sepatu\wedges.jpg")
ElseIf Combo3.Text = "Heels"
Then
Image2.Picture =
LoadPicture("C:\Users\Novia A\Pictures\sepatu\heels.jpg")
ElseIf Combo3.Text =
"Sneakers" Then
Image2.Picture =
LoadPicture("C:\Users\Novia A\Pictures\sepatu\sneakers.jpg")
ElseIf Combo3.Text = "Slip On"
Then
Image2.Picture =
LoadPicture("C:\Users\Novia A\Pictures\sepatu\slip on.jpg")
ElseIf Combo3.Text = "Boots"
Then
Image2.Picture =
LoadPicture("C:\Users\Novia A\Pictures\sepatu\boots.jpg")
ElseIf Combo3.Text = "Sandals"
Then
Image2.Picture =
LoadPicture("C:\Users\Novia A\Pictures\sepatu\sandals.jpg")
ElseIf Combo3.Text = "Ankle
Boots" Then
Image2.Picture =
LoadPicture("C:\Users\Novia A\Pictures\sepatu\ankle boots.jpg")
End If
If Combo3.Text = "Flat Shoes"
Then
Text5.Text = 95000
ElseIf Combo3.Text = "Wedges"
Then
Text5.Text = 120000
ElseIf Combo3.Text = "Heels"
Then
Text5.Text = 200000
ElseIf Combo3.Text =
"Sneakers" Then
Text5.Text = 130000
ElseIf Combo3.Text = "Slip On"
Then
Text5.Text = 70000
ElseIf Combo3.Text = "Boots"
Then
Text5.Text = 250000
ElseIf Combo3.Text = "Sandals"
Then
Text5.Text = 70000
ElseIf Combo3.Text = "Ankle
Boots" Then
Text5.Text = 300000
End If
End Sub
------------------------------------------------------------------------------------------------------------------------------------------------------
Private
Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text9.Text = ""
Text10.Text = ""
Text11.Text = ""
Combo1.Text = ""
Combo2.Text = ""
Combo3.Text = ""
Combo4.Text = ""
Combo5.Text = ""
Combo6.Text = ""
Option1.Value = False
Option2.Value = False
Option3.Value = False
Option4.Value = False
Option5.Value = False
Option6.Value = False
End Sub
------------------------------------------------------------------------------------------------------------------------------------------------------
Private Sub Command3_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text9.Text = ""
Text10.Text = ""
Text11.Text = ""
Combo1.Text = ""
Combo2.Text = ""
Combo3.Text = ""
Combo4.Text = ""
Combo5.Text = ""
Combo6.Text = ""
Option1.Value = False
Option2.Value = False
Option3.Value = False
Option4.Value = False
Option5.Value = False
Option6.Value = False
End Sub
------------------------------------------------------------------------------------------------------------------------------------------------------
Private
Sub Command4_Click()
Pesan = MsgBox("Tutup Form
Pemesanan?", vbQuestion + vbYesNo, "Question")
If Pesan = vbYes Then
End
Else
Form1.SetFocus
End If
End Sub
------------------------------------------------------------------------------------------------------------------------------------------------------
Private
Sub Command5_Click()
Pesan = MsgBox("Selamat Pemesanan
Anda Berhasil" + vbCrLf + vbCrLf + "Tunggu Konfirmasi
Selanjutnya", vbInformation + vbYesNo, "OnlineShoes")
If Pesan = vbYes Then
End
Else
Form1.SetFocus
End If
End Sub
------------------------------------------------------------------------------------------------------------------------------------------------------
Private Sub DataGrid1_Click()
If Option4.Value = True Then
DataGrid.Open
ElseIf Option6.Value = False Then
Option4.Value = True
ElseIf Option7.Value = False Then
Option4.Value = True
End If
End Sub
------------------------------------------------------------------------------------------------------------------------------------------------------
Private Sub Option1_Click()
If Option1.Value = True Then
Text8.Text = 9000
End If
End Sub
------------------------------------------------------------------------------------------------------------------------------------------------------
Private Sub Option2_Click()
If Option2.Value = True Then
Text8.Text = 10000
End If
End Sub
------------------------------------------------------------------------------------------------------------------------------------------------------
Private Sub Option3_Click()
If Option3.Value = True Then
Text8.Text = 8000
End If
End Sub
------------------------------------------------------------------------------------------------------------------------------------------------------
Private Sub Option4_Click()
If Option4.Value = True Then
Option5.Value = False
ElseIf Option6.Value = False Then
Option4.Value = True
ElseIf Option7.Value = False Then
Option4.Value = True
End If
End Sub
------------------------------------------------------------------------------------------------------------------------------------------------------
Private Sub Tex10_KeyPress(KeyAscii As
Integer)
If KeyAscii = 13 Then
Text10.Text = (Val(Text2.Text) *
Val(Text6.Text)) + Val(Text8.Text)
End If
End Sub
------------------------------------------------------------------------------------------------------------------------------------------------------
Private
Sub Text10_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text10.Text = (Val(Text2.Text) *
Val(Text6.Text)) + Val(Text8.Text)
End If
End Sub
------------------------------------------------------------------------------------------------------------------------------------------------------
Private Sub Text11_KeyPress(KeyAscii As
Integer)
If KeyAscii = 13 Then
Text11.Text = (Val(Text3.Text) *
Val(Text6.Text)) + Val(Text8.Text)
End If
End Sub
------------------------------------------------------------------------------------------------------------------------------------------------------
Private Sub Text4_KeyPress(KeyAscii As
Integer)
If KeyAscii = 13 Then
Text4.Text = (Val(Text5.Text) *
Val(Text6.Text))
End If
End Sub
------------------------------------------------------------------------------------------------------------------------------------------------------
Private Sub Text7_KeyPress(KeyAscii As
Integer)
If KeyAscii = 13 Then
Text7.Text = (Val(Text4.Text) +
Val(Text9.Text) + Val(Text10.Text) + Val(Text11.Text)) + Val(Text8.Text)
End If
End Sub
------------------------------------------------------------------------------------------------------------------------------------------------------
Private Sub Text9_KeyPress(KeyAscii As
Integer)
If KeyAscii = 13 Then
Text9.Text = (Val(Text1.Text) *
Val(Text6.Text)) + Val(Text8.Text)
End If
End Sub
------------------------------------------------------------------------------------------------------------------------------------------------------
Private Sub Timer1_Timer()
ljam.Caption = Time
ltanggal.Caption = Format(Date,
"dddd,d mmmm,yyyy")
End Sub
------------------------------------------------------------------------------------------------------------------------------------------------------
Private Sub Timer2_Timer()
Timer2.Enabled = True
If (Label13.Left + Label13.Width) <=
0 Then
Label13.Left = Me.Width
End If
Label13.Left = Label13.Left - 100
End Sub
Meski masih banyak kekurangan dalam program ini, semoga program ini dapat bermanfaat :)
Komentar
Posting Komentar