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

TASK 5: ADVERB CLAUSES

1.        ___________ they are tropical birds, parrots can live in temperate or even cold climates. A. Despite B. Even though C. Nevertheless D. But 2.       Natural silk is still highly prized _______ similar artificial fabrics. A. although is available B. despite there are available C. in spite of the availability of D. even though an availability of 3.       The president of the United States appoints the cabinet members, ______ appointments are subject to Senate approval. A. their B. with their C. because their D. but their 4.       The prisoners were prevented from speaking to reporters because ______. A. not wanting the story in the papers B. the story in the papers the superintenden t did not want C. the public to hear the story D. the superintendent did not want the story in the papers 5.       _...
Baca selengkapnya

TASK 2: INCOMPLETE INDEPENDENT CLAUSES PART 2

1.     ________ by cosmic rays. (A)    The earth is constantly bombarded (B)    Bombarded constantly, the earth (C)    Bombarding the earth constantly (D)    The earth's constant bombardment Answer: (A) The earth is constantly bombarded 2.     ________ primary colors are red, blue, and yellow. (A) There are three (B) The three (C) Three of them (D) That the three Answer: (B) The three 3.     ______who was elected the first woman mayor of Chicago in 1979. (A) It was Jane Byrne (B) Jane Byrne (C) That Jane Byrne (D) When Jane Byrne Answer: (A) It was Jane Byrne 4.     Every computer consists of a number of systems ______ together. (A) by working (B) work (C) they work (D) that work Answer: (D) that work 5.     On the Moon, ______ air because the Moon's gravitational field is too weak to retain an atmosphere. (A) th...
Baca selengkapnya

TASK 1: INCOMPLETE INDEPENDENT CLAUSES PART I

1.     In the United States, _________ is generally the responsibility of municipal governments.           (A) for water treatment           (B) water treatment           (C) where water treatment           (D) in which water treatment answer : (B) Water treatment 2.     Crop rotation _________ of preserving soil fertility. (A) it is one method (B) one method (C) a method is one (D) is one method answer: (D) is one method 3.     ___________ the dollar as its monetary unit in 1878. (A) Canada adopted (B) Adopted by Canada, (C) It was adopted by Canada (D) The Canadian adoption of answer: (A) Canada adopted 4 .     __________ almost impossible to capture the beauty of the aurora borealis in     photographs. (A) Being (B) His (C) There is (D) Is answer: (C) Ther...
Baca selengkapnya