Bola Pantul di Dot Net

1. Pilih File - New Project - Windows Forms Application

2. Tambahkan Timer pada bagian Components (disini diberi nama Timer1) dan Button (disini diberi nama Button1) pada bagian Common Controls.

3. Klik Timer1 dan ubah atribut Enabled menjadi True pada bagian Properties.

4. Buka Form1.vb dan tambahkan kodingan berikut

Dim x, ax, ay, y As Integer

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If x <> Me.Width -Button1.Width Then
ax = -ax
End If

If y <> Me.Height - Button1.Height Then
ay = -ay
End If

x = x + ax
y = y + ay
Button1.Location = New Point(x, y)

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
x = 10
y = 10
ax = 10
ay = 10
End Sub

5. Run (tekan F5).

O ya.. Bola pantul disini menggunakan komponen Button. Bisa diganti sama komponen lain misalnya PictureBox atau Label. Semoga bermanfaat .. ^^V

Note : Tutorial menggunakan Visual Basic 2008 Express Edition

Progress Bar di Dot Net

1. Pilih File - New Project - Windows Forms Application

2. Tambahkan Timer pada bagian Components (disini diberi nama Timer1) dan ProgressBar pada bagian Common Controls.

3. Klik Timer1 dan ubah atribut Enabled menjadi True pada bagian Properties.
4. Pilih Project-Add Windows Form (disini diberi nama Form2).

5. Buka Form1.vb, tambahkan kodingan berikut :

'membuat objek dari class Form2
Dim objform As New Form2

'Deklarasi dan Inisialisasi variabel global x
Dim x As Integer = 10

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick ProgressBar1.Value = x

If x < x =" x">
Else
objform.Show()
Me.Hide()
Timer1.Enabled = False
End If

End Sub

5. Run (tekan F5).

Maximum value dari ProgressBar1 adalah 100, maka terdapat kondisi jika x < style="font-weight: bold;">x ditambah dan value ProgressBar1 diset sebanyak x. Jika x >= 100, maka objform muncul, form1 di-hide dan Timer1 tidak dapat digunakan.

Semoga tutorial ini bermanfaat ^^V..

Note : Tutorial menggunakan Visual Basic 2008 Express Edition

Simple Clock menggunakan Timer Control di Dot Net

1. Pilih File - New Project - Windows Forms Application

2. Tambahkan Label baru pada ToolBox bagian Common Controls (disini diberi nama lblTimer)

3. Tambahkan Timer bagian Components (disini diberi nama Timer1)

4. Tambahkan Button bagian Common Controls (disini diberi nama btnStart)

5. Double click btnStart, tambahkan kodingan berikut :

Private Sub btnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStart.Click
'mengatur timer dapat digunakan
Timer1.Enabled = True
End Sub

6. Double click Timer1, tambahkan kodingan berikut :

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
'mengupdate label dengan format (HH:MM:SS)
lblTimer.Text = TimeString
End Sub

7. Run (tekan F5). Simple clock akan jalan setelah kamu klik btnStart.

Tick Event (ini hampir sama dengan event Timer1_Timer di Visual Basic) terjadi ketika interval timer berlalu dan timer dapat digunakan. Interval timer dapat diatur di bagian Properties - Interval (dalam ms).

Note : Tutorial menggunakan Visual Basic 2008 Express Edition