Langsung ke konten utama

Program Visual Basic 6.0 >> Project 1



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

Postingan populer dari blog ini

Penerapan Grafik Komputer dan Pengolahan Citra

Penerapan Grafik Komputer dan Pengolahan Citra Grafika Komputer Grafika Komputer adalah teknik-teknik dalam ilmu komputer dan matematika untuk merepresentasikan dan memanipulasi data gambar menggunakan komputer. Dengan bahasa lain, istilah grafika komputer juga dapat diartikan segala sesuatu selain teks atau suara. Dalam perkembangannya gambar-gambar yang  dihasilkan oleh grafika komputer ini dapat ditemui dalam kehidupan sehari-hari seperti pada televisi, koran dan majalah yang fungsinya untuk menampilkan hasil yang lebih komunikatif dan realistis. Selain itu grafika komputer juga ditemukan pada beberapa bidang lainnya seperti kedokteran, hiburan, geologi, pedidikan, bidang antarmuka grafis, dan lain sebagainya. Penerapan Grafika Komputer pada Graphical User Interface (GUI)              Graphical User Interface (GUI) adalah antarmuka pada sistem operasi atau komputer yang menggunakan menu grafis agar mempermudah para penggunanya ...
Posting Komentar
Baca selengkapnya

Sejarah Perkembangan Sistem dan Teknologi Informasi, Perkembangan Hardware dan Software

Sejarah Perkembangan Sistem dan Teknologi Informasi,  Perkembangan Hardware dan Software   Pendahuluan Latar Belakang Pada awalnya manusia bertukar informasi melalui Bahasa. Bahasa memungkinkan seseorang memahami informasi yang disampaikan. Tapi informasi ini tidak akan bertahan lama, karena informasi yang diterima tidak dapat disimpan bahkan cenderung dilupakan. Setelah itu teknologi penyampaian informasi berkembang melalui gambar, dengan jangkauan informasi yang lebih jauh dan bertahan lebih lama sehingga manusia dapat (mencoba) memahami informasi yang disampaikan pembuatnya. Ditemukannya alfabet dan angka arabik memudahkan cara penyampaian informasi yang lebih efisien dari cara sebelumnya. Karena kebutuhan manusia yang terus meningkat dalam berbagai bidanglah yang mendorong teknologi terus berkembang di kehidupan manusia. Perkembangan teknologi sangat dibutuhkan bagi manusia untuk menunjang kebutuhan dan kemudahan dalam melakukan aktivitas sehari-hari....
Posting Komentar
Baca selengkapnya

CRITICAL REPORT

CRITICAL REPORT Esti Rahmawati dan Hari Wibawanto, “Sistem Pakar Diagnosis Penyakit Paru-Paru Menggunakan Metode Forward Chaining ”, Jurnal Teknik Elektro, Vol. 8 No. 2 / Desember 2016, Universitas Negeri Semarang, ISSN : 1411 – 0059. 1.  Field Establishment  Kesehatan merupakan hal terpenting bagi manusia, seseorang yang menderita suatu penyakit dengan gejala batuk perlu berkonsultasi dengan dokter agar dapat mengetahui penyakit yang dideritanya. Beberapa kondisi batuk merupakan gejala dari penyakit paru-paru yang perlu mendapatkan penanganan dari dokter.  2.  Masalah Sebagian besar masyarakat seringkali menyepelekan penyakit batuk yang dapat menjadi suatu gejala dari penyakit paru-paru. Penyebaran dokter spesialis penyakit paru-paru tidak merata, sebagian besar hanya terdapat di kota-kota besar dan masih ada beberapa wilayah kabupaten yang tidak memiliki dokter spesialis paru-paru. 3.  Solusi Membuat sistem pakar yang dapa...
Posting Komentar
Baca selengkapnya