Form1
Private
Sub exit_Click()
End
End
Sub
Private
Sub form_2_Click()
Form1.Hide
form2.Show
End
Sub
Private
Sub Form_Load()
Me.Width
= 10
End
Sub
Private
Sub form2_Click()
Form1
End
Sub
Private
Sub Timer1_Timer()
Me.Width
= Me.Width + 100
tengah
If
Me.Width > 6200 Then
Timer1.Enabled
= False
tengah
End
If
End
Sub
Public
Sub tengah()
Me.Left
= (Screen.Width - Me.Width) / 2
Me.Top
= (Screen.Height - Me.Width) / 2
End
Sub
Membuat Menu Editor
Pada Caption diisikan dengan File
kemudian pada Name diisikan dengan file lalu tekan enter. Kemudian tekan arah
panah kanan untuk membuat sub menu File lalu lakukan langkah sebelumnya dengan
mengisikan Open pada Caption dan open pada Name lalu tekan enter. Kemudian
lakukan langkah sebelumnya dengan membuat sub menu dari Open dan kemudian mengisikan
Form2 pada Caption dan form_2 pada Name lalu tekan enter. Kemudian tekan arah
panah kiri untuk kembali membuat sub menu File dan lakukan langkah sebelumya
dengan mengisikan Exit pada Caption dan exit pada Name.
![](file:///C:/DOCUME~1/Sumadi/LOCALS~1/Temp/msohtml1/01/clip_image006.jpg)
Masukkan listing dibawah ini pada menu
Exit
Private
Sub exit_Click()
End
End
Sub
Fungsi listing diatas adalah untuk
menutup semua form yang sedang berjalan.
Masukkan listing dibawah ini pada menu
Form2
Private
Sub form_2_Click()
Form1.Hide
form2.Show
End
Sub
Fungsi listing diatas adalah untuk
menampilkan form2 dan menyembunyikan form1.
Masukkan listing dibawah ini pada timer
1
Private
Sub Timer1_Timer()
Me.Width
= Me.Width + 100
tengah
If
Me.Width > 6200 Then
Timer1.Enabled
= False
tengah
End
If
End
Sub
Public
Sub tengah()
Me.Left
= (Screen.Width - Me.Width) / 2
Me.Top
= (Screen.Height - Me.Width) / 2
End Sub
Fungsi listing diatas adalah untuk
menampilkan form1 yang awalnya pada posisi kanan bawah dan perlahan bergerak ke
posisi tengah (center) dan kemudian diikuti dengan melebarnya form secara
perlahan sampai akhirnya mencapai batas nya dan kemudian berhenti. Kita dapat
menyesuaikan pergerakan form dengan mengubah interval pada timer properties.
![](file:///C:/DOCUME~1/Sumadi/LOCALS~1/Temp/msohtml1/01/clip_image008.jpg)
Form2
Private
Sub Command1_Click()
List1.Clear
i
= 0
For
i = 1 To 100
List1.AddItem
i
Next
End
Sub
Private
Sub Command2_Click()
List1.Clear
i
= 0
For
i = 100 To 1 Step -1
List1.AddItem
i
Next
End
Sub
Private
Sub Command3_Click()
List1.Clear
i
= Asc("A")
Do
Until i > Asc("Z")
List1.AddItem
Chr(i)
i
= i + 1
End
Sub
Private
Sub Command4_Click()
List1.Clear
i
= Asc("Z")
Do
While i >= Asc("A")
List1.AddItem
Chr(i)
i
= i - 1
End
Sub
Masukkan listing dibawah ini pada
button1(For Next)
Private
Sub Command1_Click()
List1.Clear
i
= 0
For
i = 1 To 100
List1.AddItem
i
Next
End
Sub
![](file:///C:/DOCUME~1/Sumadi/LOCALS~1/Temp/msohtml1/01/clip_image010.jpg)
Fungsi listing diatas adalah untuk melakukan
proses perulangan yang terus bertambah dari 1 sampai 100 dan menampilkannya
pada list1
Masukkan listing dibawah ini pada
button2(For Next)
Private Sub Command2_Click()
List1.Clear
i = 0
For i = 100 To 1 Step -1
List1.AddItem i
Next
End Sub
![](file:///C:/DOCUME~1/Sumadi/LOCALS~1/Temp/msohtml1/01/clip_image012.jpg)
Fungsi listing diatas adalah untuk
melakukan proses perulangan yang terus berkurang dari 100 sampai 1 dan
menampilkannya pada list1.
Masukkan listing dibawah ini pada
button3(Do Until)
Private Sub Command3_Click()
List1.Clear
i = Asc("A")
Do Until i > Asc("Z")
List1.AddItem Chr(i)
i = i + 1
End Sub
![](file:///C:/DOCUME~1/Sumadi/LOCALS~1/Temp/msohtml1/01/clip_image014.jpg)
Fungsi listing diatas adalah untuk
melakukan proses perulangan yang terus bertambah secara terurut dari A sampai Z
dan menampilkannya pada list1.
Masukkan listing dibawah ini pada
button4(Do While)
Private
Sub Command4_Click()
List1.Clear
i
= Asc("Z")
Do
While i >= Asc("A")
List1.AddItem
Chr(i)
i
= i - 1
End Sub
![](file:///C:/DOCUME~1/Sumadi/LOCALS~1/Temp/msohtml1/01/clip_image016.jpg)
Fungsi listing diatas adalah untuk
melakukan proses perulangan yang terus berkurang secara terurut dari Z sampai A
dan menampilkannya pada list1.
![](file:///C:/DOCUME~1/Sumadi/LOCALS~1/Temp/msohtml1/01/clip_image018.jpg)
0 komentar:
Posting Komentar