Form Animasi Bola Sederhana VB.Net

VB.Net

Pada form ini saya mencoba membuat bola seolah terlihat bergerak, polanya sangat sederhana, yaitu bergerak dari kiri menuju kanan. Syntax nya hanya mengatur tampilan bola agar bergerak satu persatu mengikuti pola nya sehingga terlihat seolah bergerak.

Berikut gambar pada saat form dijalankan :

Berikut adalah source codenya :

Public Class AnBol
Dim jalan As Boolean = False
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnStart.Click
Timer1.Enabled = True
jalan = Not jalan
Timer1.Enabled = jalan
If Timer1.Enabled = True Then
BtnStart.Text = "STOP"
Else
BtnStart.Text = "Start"
End If
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Close()
FormMenu.Show()

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If PB1.Visible = True Then
PB1.Visible = False
PB2.Visible = True
PB3.Visible = False
PB4.Visible = False
PB5.Visible = False
ElseIf PB2.Visible = True Then
PB1.Visible = False
PB2.Visible = False
PB3.Visible = True
PB4.Visible = False
PB5.Visible = False
ElseIf PB3.Visible = True Then
PB1.Visible = False
PB2.Visible = False
PB3.Visible = False
PB4.Visible = True
PB5.Visible = False
ElseIf PB4.Visible = True Then
PB1.Visible = False
PB2.Visible = False
PB3.Visible = False
PB4.Visible = False
PB5.Visible = True
ElseIf PB5.Visible = True Then
PB1.Visible = True
PB2.Visible = False
PB3.Visible = False
PB4.Visible = False
PB5.Visible = False
End If
End Sub

Private Sub AnBol_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Interval = 500
Timer1.Enabled = False
Me.BackColor = Color.White
BtnStart.Text = "Start"

PB1.Visible = True
PB2.Visible = False
PB3.Visible = False
PB4.Visible = False
PB5.Visible = False
End Sub
End Class

Bagikan

Jangan lewatkan

Form Animasi Bola Sederhana VB.Net

4/ 5

Oleh Hery Prasetyo

Hery Prasetyo April 02, 2018 Komentar