Form Menu Utama L1-1. Private Sub Command1_Click() biodata.show. End Sub. Private Sub Command3_Click() frmcombopulau.show. 'Unload Me

Form Menu Utama Private Sub Command1_Click() biodata.Show End Sub

Private Sub Command3_Click() frmcombopulau.Show 'Unload Me End Sub

Private Sub mnauthor_Click() Form1.Show Unload Me End Sub

Private Sub Command4_Click() panorama.Show panorama.Option6.SetFocus End Sub

Private Sub Command5_Click() peta.Show End Sub

Private Sub Command6_Click()

L1-1

sejarah.Show sejarah.Command2.SetFocus Unload Me End Sub

Private Sub Command8_Click() a = MsgBox("Anda ingin keluar…?", vbYesNo + vbCritical, "Pesan Keluar") If a = vbYes Then End End If End Sub

Private Sub mnkeluar_Click() a = MsgBox("Anda ingin keluar…?", vbYesNo + vbCritical, "Pesan Keluar") If a = vbYes Then End End If End Sub

Private Sub Timer1_Timer() Label1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) End Sub

Private Sub Timer2_Timer()

L1-2

Static i As Byte i = i + 1 If i = 1 Then Label1.Caption = "K " ElseIf i = 2 Then Label1.Caption = "K E " ElseIf i = 3 Then Label1.Caption = "K E P " ElseIf i = 4 Then Label1.Caption = "K E P U " ElseIf i = 5 Then Label1.Caption = "K E P U L " ElseIf i = 6 Then Label1.Caption = "K E P U L A " ElseIf i = 7 Then Label1.Caption = "K E P U L A U " ElseIf i = 8 Then Label1.Caption = "K E P U L A U A U " ElseIf i = 9 Then Label1.Caption = "K E P U L A U A N

S "

ElseIf i = 10 Then Label1.Caption = "K E P U L A U A N

S E "

ElseIf i = 11 Then Label1.Caption = "K E P U L A U A N

S E R "

ElseIf i = 12 Then Label1.Caption = "K E P U L A U A N

L1-3

S E R I "

ElseIf i = 13 Then Label1.Caption = "K E P U L A U A N

S E R I B "

ElseIf i = 14 Then Label1.Caption = "K E P U L A U A N

S E R I B U"

ElseIf i = 15 Then i = 0 End If End Sub

Form Pilihan Nama Pulau

Private Sub Combo1_Click() If Combo1.Text = "Pulau Bidadari" Then pantai.Show pantai.Command1.SetFocus End If If Combo1.Text = "Pulau Bira Besar" Then pulaubirabesar.Show pulaubirabesar.Command1.SetFocus End If If Combo1.Text = "Pulau Hantu Barat (Antuk Barat)" Then pulauhantubarat.Show pulauhantubarat.Command1.SetFocus End If If Combo1.Text = "Pulau Hantu Timur (Antuk Timur)" Then pulauhantutimur.Show pulauhantutimur.Command1.SetFocus End If If Combo1.Text = "Pulau Kotok Besar" Then

L1-4

pulaukotokbesar.Show pulaukotokbesar.Command1.SetFocus End If If Combo1.Text = "Pulau Laki" Then pulaulaki.Show pulaulaki.Command1.SetFocus End If If Combo1.Text = "Pulau Macan Besar" Then pulaumacanbesar.Show pulaumacanbesar.Command1.SetFocus End If If Combo1.Text = "Pulau Putri Besar" Then pulauputribesar.Show pulauputribesar.Command1.SetFocus End If If Combo1.Text = "Pulau Sepa Bagian Barat" Then pulausepa.Show pulausepa.Command1.SetFocus End If If Combo1.Text = "Pulau (Pe) Tondan Barat (Pelangi)" Then pulautondan.Show pulautondan.Command1.SetFocus End If End Sub Private Sub Command1_Click() menu2.Show Unload Me End Sub Private Sub Form_Load() Combo1.AddItem "Pulau Bidadari" Combo1.AddItem "Pulau Bira Besar"

L1-5

Combo1.AddItem "Pulau Hantu Barat (Antuk Barat)" Combo1.AddItem "Pulau Hantu Timur (Antuk Timur)" Combo1.AddItem "Pulau Kotok Besar" Combo1.AddItem "Pulau Laki" Combo1.AddItem "Pulau Macan Besar" Combo1.AddItem "Pulau Putri Besar" Combo1.AddItem "Pulau Sepa Bagian Barat" Combo1.AddItem "Pulau (Pe) Tondan Barat (Pelangi)" End Sub

Form Pulau Bidadari

Private Sub Command1_Click() frmcombopulau.Show Unload Me End Sub

Private Sub Timer1_Timer() If Label2.Top = -3220 Then Label2.Top = 5882 Else Label2.Top = Label2.Top - 40 End If End Sub

Form Pulau Bira Besar

Private Sub Command1_Click() frmcombopulau.Show Unload Me End Sub

L1-6

Private Sub Timer1_Timer() If Label2.Top = -3220 Then Label2.Top = 5882 Else Label2.Top = Label2.Top - 40 End If End Sub

Form Pulau Hantu Barat

Private Sub Command1_Click() frmcombopulau.Show Unload Me End Sub Private Sub Timer1_Timer() If Label2.Top = -3220 Then Label2.Top = 5882 Else Label2.Top = Label2.Top - 40 End If End Sub

Form Hantu Timur

Private Sub Command1_Click() frmcombopulau.Show Unload Me End Sub Private Sub Timer1_Timer() If Label2.Top = -3220 Then

L1-7

Label2.Top = 5882 Else Label2.Top = Label2.Top - 40 End If End Sub

Form Pulau Kotok Besar

Private Sub Command1_Click() frmcombopulau.Show Unload Me End Sub Private Sub Timer1_Timer() If Label2.Top = -3220 Then Label2.Top = 5882 Else Label2.Top = Label2.Top - 40 End If End Sub

Form Pulau Bidadari Form Pulau Bidadari Form Pulau Bidadari

L1-8