VB Kupu-kupu Terbang

Dalam pembuat kupu-kupu terbang ini kita bisa memanfaatkan fungsi timer dalam Visual basic. Untuk lebih jelasnya amati gambar berikut :




















Masukkan kode pemrograman berikut ;
Private Sub Timer1_Timer()
If Image1.Visible = True Then
Image1.Visible = False
Image2.Visible = True
ElseIf Image2.Visible = True Then
Image2.Visible = False
Image3.Visible = True
ElseIf Image3.Visible = True Then
Image3.Visible = False
Image4.Visible = True
ElseIf Image4.Visible = True Then
Image4.Visible = False
Image5.Visible = True
ElseIf Image5.Visible = True Then
Image5.Visible = False
Image6.Visible = True
ElseIf Image6.Visible = True Then
Image6.Visible = False
Image7.Visible = True
ElseIf Image7.Visible = True Then
Image7.Visible = False
Image8.Visible = True
ElseIf Image8.Visible = True Then
Image8.Visible = False
Image1.Visible = True
End If

End Sub

VB Menggeser Gambar

Tampilan Gambar

Object | Property | Nilai |

Command 1 | caption | Move Down |

Command2 | caption |Move right |

Command3 | caption | Move Up |

Command4 | caption |Move left |

Image1 | Picture |(Your Picture) |

Masukkan kode berikut :

‘menggerakkan gambar ke bawah

Private Sub Command1_Click()

Image1.Top = Image1.Top + 100

End Sub

‘menggerakkan gambar ke kanan

Private Sub Command2_Click()

Image1.Left = Image1.Left + 100

End Sub

‘menggerakkan gambar ke Atas

Private Sub Command3_Click()

Image1.Top = Image1.Top - 100

End Sub

‘menggerakkan gambar ke kiri

Private Sub Command4_Click()

Image1.Left = Image1.Left - 100

End Sub

Semoga bermanfaat......

VB Tulisan Kelap Kelip

Amati gambar berikut

Masukkan kode berikut :

Private Sub Timer1_Timer()

If Label1.Visible = True Then

Label1.Visible = False

Label2.Visible = True

Label3.Visible = False

ElseIf Label2.Visible = True Then

Label2.Visible = False

Label3.Visible = True

Label1.Visible = False

ElseIf Label3.Visible = True Then

Label3.Visible = False

Label1.Visible = True

Label2.Visible = False

End If

End Sub