My Travel


Nama : Nurafifah Dwi Putri Aulia
Npm : 15116567
Kelas : 1ka03


Private Sub Command1_Click()
Form1.Show
'Menampilkan Form1 ketika Command Button diklik.
Unload Me
'Menutup Form3 ketika Form1 terbuka
End Sub

 

Private Sub Combo1_Click()
If Combo1.Text = "AR" Then
Text1.Text = "Arimbi"
Text2.Text = "Jakarta-Bandung"
'Option1.Value = True.'
ElseIf Combo1.Text = "DM" Then
Text1.Text = "Damri"
Text2.Text = "Jakarta-Lampung"
'Option2.Value = True'
End If
End Sub

Private Sub option3_click()
If Combo1.Text = "AR" Then
Text3.Text = 50000
Else
Text3.Text = 100000
End If

If Combo1.Text = "AR" Then
Picture1.Picture = LoadPicture(App.Path & "\AR2.jpg")
ElseIf Combo1.Text = "DM" Then
Picture1.Picture = LoadPicture(App.Path & "\DM2.jpg")
End If
End Sub

Private Sub Option4_Click()
If Combo1.Text = "AR" Then
Text3.Text = 25000
Else
Text3.Text = 500000
End If

If Combo1.Text = "AR" Then
Picture1.Picture = LoadPicture(App.Path & "\AR1.jpg")
ElseIf Combo1.Text = "DM" Then
Picture1.Picture = LoadPicture(App.Path & "\DM1.jpg")
End If
End Sub

Private Sub Command3_Click()
Text11.Text = (Val(Text3.Text) * Val(Text9.Text))
End Sub
Private Sub Command4_Click()
Text8.Text = (Val(Text3.Text) * Val(Text10.Text)) / 2
End Sub

Private Sub Check1_Click()
If Check1.Value = 1 And Check2.Value = 0 Then
Text4.Text = 25000
ElseIf Check1.Value = 0 And Check2.Value = 1 Then
Text4.Text = 20000
ElseIf Check1 = 0 And Check2.Value = 0 Then
Text4.Text = 0
ElseIf Check1.Value = 1 And Check2.Value = 1 Then
Text4.Text = 45000
End If
End Sub

Private Sub Check2_Click()
If Check1.Value = 1 And Check2.Value = 0 Then
Text4.Text = 25000
ElseIf Check1.Value = 0 And Check2.Value = 1 Then
Text4.Text = 20000
ElseIf Check1 = 0 And Check2.Value = 0 Then
Text4.Text = 0
ElseIf Check1.Value = 1 And Check2.Value = 1 Then
Text4.Text = 45000
End If
End Sub

Private Sub Command5_Click()
Text5.Text = Val(Text8.Text) + Val(Text11.Text) + Val(Text4.Text)
End Sub
MsgBox "Pemesanan Berhasil di Simpan !!!", vbInformation, "Pesan"




Private Sub Command2_Click()
Form2.Label10 = Combo1.Text
Form2.Label11 = Text1.Text
Form2.Label13 = Text2.Text
Form2.Label16 = Text4.Text
Form2.Label17 = Text5.Text
Form2.Show
'Menampilkan Form2 ketika Command Button diklik.
Unload Me
'Menutup Form1 ketika Form2 terbuka
End Sub
Private Sub Command1_Click()
Form1.Show
'Menampilkan Form1 ketika Command Button diklik.
Unload Me
'Menutup Form2 ketika Form1 terbuka
End Sub

Private Sub Command2_Click()
MsgBox "Apakah Anda ingin mencetak tiket? ", vbQuestion + vbOKCancel, "Peringatan"
MsgBox "Tiket Anda telah tercetak!", vbInformation, "pesan"
End Sub

Private Sub Command3_Click()
Form4.Show
'Menampilkan Form4 ketika Command Button diklik.
Unload Me
'Menutup Form2 ketika Form4 terbuka
End Sub





silakan download disini untuk melihat programnya :)
https://drive.google.com/file/d/0B6FZgg04j3JUSlEyalUzaWU1QjA/view?usp=sharing

Dapat dijalankan dengan memilih:
1. MyTravel_Nurafifah_Dwi_Putri_Aulia.exe atau,
2. Dengan membuka Project2.vbp

Terima Kasih Bu Ito

Komentar

Posting Komentar

Postingan populer dari blog ini

Nama : Nurafifah Dwi Putri Aulia NPM : 15116567 kelas : 1ka03   kaitan sistem informasi dan ilmu sosial dasar Di zaman sekarang ini tentu semua orang sudah mengenal internet. Internet merupakan salah satu contoh perkembangan teknologi. Banyak manfaat yang dapat diambil dari internet, misalnya memudahkan pengaksesan informasi, mencari tugas sekolah, dan masih banyak lagi. Tapi bukan berarti internet tidak memiliki sisi negatif. Banyak contoh yang dapat diambil dari penyalahgunaan internet, misalnya pengaksesan secara bebas pornografi, penculikan yang berawal dari medsos, dan lain-lain. Apa kaitannya kita belajar ilmu sosial dasar dalam sistem informasi? Sebagai seseorang yang belajar di bidang sistem informasi tentu kita harus belajar ilmu sosial dasar karena di sistem informasi kita bukan hanya berhadapan dengan komputer tetapi kita juga akan berhadapan dengan manusia. Apabila kita telah menciptakan suatu aplikasi yang berguna bagi banyak orang tentu kita akan mengomunikasikan ha...
Baca selengkapnya

Sistem Pakar Mendiagnosa Penyakit Kolesterol Pada Remaja Dengan Metode Certainty Factor (CF) Berbasis Web

Gambar
     1.       Bidang yang dikembangkan ·          Saat ini komputer telah banyak digunakan dalam dunia medis untuk membantu diagnosis suatu penyakit. Penyakit yang paling penting dan sering ditemukan adalah kolestrol. Pencegahan penyakit lebih baik dari pada pengobatannya. Oleh karena itu, pencegahan penyakit kolestrol ini diawali dengan pendiagnosaan dini. Salah satu teknik dalam mendiagnosis penyakit kolestrol ini adalah sistem pakar. Maka dari itu penelitian ini bertujuan menyusun sebuah sistem pakar yang digunakan untuk diagnosa awal penyakit kolestrol berdasarkan gejala yang dirasakan. Sistem akan menampilkan Besarnya kepercayaan gejala tersebut terhadap kemungkinan penyakit yang diderita pengguna. Besarnya nilai kepercayaan tersebut merupakan hasil perhitungan dengan menggunakan metode Certainty Factor(CF). Representasi pengetahuan yang digunakan pada penelitian ini adalah production rule. Metode i...
Baca selengkapnya

Membuat Animasi Menggunakan Aplikasi Pivot

Gambar
Membuat Animasi Menggunakan Pivot Animator Berikut ini adalah beberapa langkah atau cara membuat animasi menggunakan aplikasi Pivot Animator.Semoga informasi ini bermanfaat dan bisa di implementasikan kedepannya.     1.       Buka aplikasi pivotnya dan akan muncul seperti gambar dibawah ini. Untuk mengatur lebar atau tidaknya layar bisa klik edit -> options, lalu atur width dan height sesuai yang kita mau. 2.       Jika sudah membuka aplikasi animasi tersebut,kalian bisa langsung membuat animasi nya dengan cara frame by frame.Untuk menambahkan Frame kalian bisa langsung klik Add frame. 3.       Jika ingin menambahkan stick figure atau beberapa karakter animasi,kalian bisa langsung klik File -> Load Figure Type -> Pilih karakter atau figure yang anda inginkan. Atau bisa langsung juga dengan menekan CTRL + F. Atau bisa juga klik gambar pencil lalu pilih file -...
Baca selengkapnya