MEMBUAT STOPWATCH (VISUAL BASIC 2010)



Kali ini saya akan memberitahukan kalian bagaimana membuat stopwatch.... stopwatch yang akan kita buat yaitu stopwatch yang ditekan, menitnya akan langsung berjalan..

inilah yang akan kita buat :




Properties : 

Form
Text : Stopwatct

button start
Name : btnstart
Text : Start

button stop
Name : btnstop
Text : Stop

Grupbox
Name : gpbtimer

Textbox
Name : txthasil
Text : 0.0

Setelah anda menyesuaikan property yang saya buat, maka saya akan memberikan code untuk kalian:
----------------------------------------------------------------------------------------------

Public Class tugas3

    Dim second As Integer = 0
    Dim second2 As Integer = 0

    Private Sub tugas3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Me.MdiParent = menuutama
        btnstop.Enabled = False
        txthasil.Text = "0.0"

    End Sub

    Private Sub btnstart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnstart.Click

        txthasil.Text = "0.0"
        second = 0
        second2 = 0
        btnstop.Enabled = True
        btnstart.Enabled = False
        Timer1.Start()

    End Sub

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

        second += 1
        If second = 10 Then
            second2 += 1
            second = 0
        End If
        txthasil.Text = Format(second2, "0") & "." & Format(second, "0")

    End Sub

    Private Sub btnstop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnstop.Click

        btnstart.Enabled = True
        btnstop.Enabled = False
        Timer1.Stop()

    End Sub


End Class

--------------------------------------------------------------------------------------

inilah hasilnya :


Terima kasih atas perhatiannya... apabila anda ada pertanyaan, silahkan berikan komentar anda....

Chang Min Web Developer

Semoga apa yang Saya postingkan dapat bermanfaat bagi yang sedang membaca, kritik, saran atau komentar dapat disampaikan pada komen dibawah ini, Terimas kasih banyak

8 comments:

  1. Follow blog ane juga om...
    :D

    http://satu-satu-delapan.blogspot.com/

    ReplyDelete
  2. wah keren sob,izin save ya kebetulan lg belajar visual basic ni :)

    ReplyDelete
  3. hahaha.. oke okee.. :D
    makasih blogny yg udh bntu sya buat menu :D

    ReplyDelete
  4. Terima kasih atas tipsnya,

    bung gimana kalau mau tambahkan Sound ketika di tekan Stop.?

    ReplyDelete
    Replies
    1. tinggal sisipkan
      My.Computer.Audio.Play("lokasi file audio kamu")
      format soundnya *.wav
      jd kamu sisipkan di :

      Private Sub btnstop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnstop.Click

      btnstart.Enabled = True
      btnstop.Enabled = False
      My.Computer.Audio.Play("lokasi file audio kamu")
      Timer1.Stop()
      End Sub

      jika kamu tidak ada sound, kamu bisa pakai perintah Beep(). Beep itu adalah suara yang sudah disediakan oleh visual studio.

      Delete