PULAU SUMBAWA

TUTORIAL VB NET NON DATABASE

# MEMBUAT PROGRAM STOPWATCH #


OKE pertama-tama kita buat desain form seperti gambar berikut..!!!

komponen-komponennya :

1. 3 buah button
2. 1 buah label
3. 1 buah timer


nah sekarang kita mulai mengotak atik kode..!!

kalau gak mau report copas aja....

here we go

Public Class Form1
Dim mili, sec, min, hr As Integer
Dim countr As Integer

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
mili = 0
sec = 0
min = 0
hr = 0
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Enabled = True
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
If Timer1.Enabled = True Then
MsgBox("waktu masih berjalan silahkan di STOP")
End If
Dim msg As String = MsgBox("apakah anda mau mereset waktu", MsgBoxStyle.Question + MsgBoxStyle.YesNo, )
If msg = vbYes Then
mili = 0
sec = 0
min = 0
hr = 0
Label1.Text = ""
Timer1.Enabled = False
Else
End If
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Enabled = False
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim Mili2, Sec2, Min2, hr2 As String
countr = countr + 1
Mili2 = countr

If countr = 10 Then
sec = sec + 1
countr = 0
End If
If sec = 60 Then
min = min + 1
sec = 0
End If
If min = 60 Then
hr = hr + 1
min = 0
End If
Sec2 = Format(Val(sec), "00")
Min2 = Format(Val(min), "00")
hr2 = Format(Val(hr), "00")
Label1.Text = hr2 & ":" & Min2 & ":" & Sec2 & ":" & Mili2
End Sub
End Class



bagi yang mau langsung mencoba aplikasi ini monggo di sedot