Program ini digunakan untuk memilih paket wisata liburan ke luar negeri yang ditawarkan oleh IMAMI Tour dengan tujuan memberikan akses yang mudah bagi wisatawan untuk mendapatkan jasa wisata ke luar negeri.
Berikut adalah desain aplikasi saya:
Langkah langkah pengisian :
1. Isi nama lengkap
2. Isi alamat e-mail yang aktif
3. Pilih Paket Wisata
4. Jika ingin memilih paket, klik "Pilih Paket". Bisa memilih lebih dari 1 paket wisata, dan jika sudah yakin, klik "Beli Paket" atau jika ingin membatalkan, klik "Hapus"
Berikut adalah tampilan aplikasi saat digunakan:
Berikut tampilan aplikasi jika paket sudah dibeli:
Source code:
Public Class Form1
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
Dim a As String
a = ComboBox1.Text
If a = "Milan" Then
TextBox1.Text = 150000
ElseIf a = "Paris" Then
TextBox1.Text = 750000
ElseIf a = "Amerika" Then
TextBox1.Text = 250000
ElseIf a = "Mesir" Then
TextBox1.Text = 450000
ElseIf a = "Hawaii" Then
TextBox1.Text = 300000
ElseIf a = "Kilimanjaro" Then
TextBox1.Text = 100000
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim Var4 As Object
Dim Var3 As Object
Dim Var2 As Object
Dim Var1 As Object
Dim noFile As Short
noFile = FreeFile()
FileOpen(noFile, "D:\LPB.csv", OpenMode.Append)
Var1 = Textbox2.Text
Var2 = TextBox3.Text
Var3 = ComboBox1.Text
Var4 = TextBox1.Text
ListBox1.Items.Add(Var1 & "---" & Var2 & "---" & Var3 & "--" & Var4)
WriteLine(1, Var1, Var2, Var3, Var4)
FileClose(1)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Var1 As Object
Dim Var2 As Object
Dim noFile As Short
noFile = FreeFile()
FileOpen(noFile, "D:\LPB.csv", OpenMode.Append)
Var1 = ComboBox1.Text
Var2 = TextBox1.Text
ListBox1.Items.Add(" Paket: " & Var1 & " Harga: " & Var2)
WriteLine(1, Var1, Var2)
FileClose(1)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox2.Text = ""
TextBox3.Text = ""
TextBox1.Text = ""
ComboBox1.Text = ""
ListBox1.Items.Clear()
TextBox2.Focus()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
MessageBox.Show("Terima Kasih, harap periksa e-mail untuk menyelesaikan transaksi")
End Sub
End Class
Sekian mengenai aplikasi saya,
Sekian dan terima kasih.
