Cara Membuat Penghitung waktu (stopwatch)

Cara Membuat Penghitung waktu (stopwatch) - Berikut ini adalah kode dan cara untuk membuat penghitung waktu sederhana menggunakan Visual Basic. Mari kita mulai sobat blogger.





Buat Project baru dengan sebuah Form. Masukkan ke dalam Form tersebut 1 kontrol Label, 2 kontrol Tombol / Button (utk Start dan Reset), dan 1 buah kontrol Timer (Enabled=False; Interval=10). Kemudian atur seperti gambar diatas, dan bagian kodenya adalah :


[ VB 6.0 ]

Di bagian '(Declarations)' dari Form ketikkan :

Dim Jam As Integer, Menit As Integer, Detik As Integer, mDetik As Integer

Di bagian 'Form_Load' ketikkan :

Label1.Caption = "00 : 00 : 00,00"

Di bagian 'Command1_Click' ketikkan : (Start)

Timer1.Enabled = (Command1.Caption = "Start")

Command1.Caption = IIf(Command1.Caption = "Start", "Stop", "Start")

Di bagian 'Command2_Click' ketikkan : (Reset)

Timer1.Enabled = False

Command1.Caption = "Start"

Label1.Caption = "00 : 00 : 00,00"

Jam = 0

Menit = 0

Detik = 0

mDetik = 0

Di bagian 'Timer1_Timer' ketikkan :

mDetik = mDetik + 1

If mDetik = 100 Then

mDetik = 0

      

Detik = Detik + 1

If Detik = 60 Then

Detik = 0

          

Menit = Menit + 1

If Menit = 60 Then

Menit = 0

Jam = Jam + 1

End If

          

End If

End If

  

Label1.Caption = Format(Jam, "00") & " : " & Format(Menit, "00") & " : " & Format(Detik, "00") & "," & Format(mDetik, "00")

[ VB .NET ]

Di bagian '(Declarations)' dari Form ketikkan :

Dim Jam, Menit, Detik, mDetik As Integer

Di bagian 'Form1_Load' ketikkan :

Label1.Text = "00 : 00 : 00,00"

Di bagian 'Button1_Click' ketikkan : (Start)

Timer1.Enabled = (Button1.Text = "Start")

Button1.Text = IIf(Button1.Text = "Start", "Stop", "Start")

Di bagian 'Button2_Click' ketikkan : (Reset)

Timer1.Enabled = False

Button1.Text = "Start"

Label1.Text = "00 : 00 : 00,00"

Jam = 0

Menit = 0

Detik = 0

mDetik = 0

Di bagian 'Timer1_Tick' ketikkan :

mDetik += 1

If mDetik = 100 Then

mDetik = 0



Detik += 1

If Detik = 60 Then

Detik = 0



Menit += 1

If Menit = 60 Then

Menit = 0

Jam += 1

End If



End If

End If



Label1.Text = Format(Jam, "00") & " : " & Format(Menit, "00") & " : " & Format(Detik, "00") & "," & Format(mDetik, "00")

Cara Membuat Penghitungan Mundur Dengan VB

Bila anda ingin membuat penghitungan mundur, berikut ini cara membuatnya dan kodenya. Buat Project baru dengan sebuah Form. Masukkan ke dalam Form tersebut 1 kontrol Label, 1 kontrol Tombol / Button, dan 1 buah kontrol Timer (Enabled=False; Interval=1000), lalu ketikkan kode-kode berikut




[ VB 6.0 ]

Di bagian '(Declarations)' dari Form ketikkan :

Dim Jam As Integer, Menit As Integer, Detik As Integer

Di bagian 'Form_Load' ketikkan :

Label1.Caption = "00:00:00"

Di bagian 'Command1_Click' ketikkan :

'nilai awal (0 s/d 59)

Jam = 0

Menit = 1

Detik = 10



Label1.Caption = Format(Jam, "00") & ":" & Format(Menit, "00") & ":" & Format(Detik, "00")



Timer1.Enabled = True

Command1.Enabled = False

Di bagian 'Timer1_Timer' ketikkan :

Detik = Detik - 1

If Detik < 0 Then

Detik = 59

   

Menit = Menit - 1

If Menit < 0 Then

Menit = 59

Jam = Jam - 1

End If

End If



Label1.Caption = Format(Jam, "00") & ":" & Format(Menit, "00") & ":" & Format(Detik, "00")



If Jam = 0 And Menit = 0 And Detik = 0 Then

Timer1.Enabled = False

Command1.Enabled = True

   

MsgBox "Waktu Habis !!!"

End If

[ VB .NET ]

Di bagian '(Declarations)' dari Form ketikkan :

Dim Jam, Menit, Detik As Integer

Di bagian 'Form1_Load' ketikkan :

Label1.Text = "00:00:00"

Di bagian 'Button1_Click' ketikkan :

'nilai awal (0 s/d 59)

Jam = 0

Menit =1

Detik = 10



Label1.Text = Format(Jam, "00") & ":" & Format(Menit, "00") & ":" & Format(Detik, "00")



Timer1.Enabled = True

Button1.Enabled = False

Di bagian 'Timer1_Tick' ketikkan :

Detik -= 1

If Detik < 0 Then

Detik = 59



Menit -= 1

If Menit < 0 Then

Menit = 59

Jam -= 1

End If

End If



Label1.Text = Format(Jam, "00") & ":" & Format(Menit, "00") & ":" & Format(Detik, "00")



If Jam = 0 And Menit = 0 And Detik = 0 Then

Timer1.Enabled = False

Button1.Enabled = True



MsgBox("Waktu Habis !!!")

End If

CATATAN : Kode diatas mencakup Jam, Menit, dan Detik. Namun bila Anda menginginkan hanya Menit dan Detik saja, tinggal menghapus kode-kode yang berwarna merah.

Cara Mengetahui Versi Windows yang di pakai

Berikut adalah kode sederhana VB.Net dan VB 6.0 untuk mengetahui versi windows yang sobat gunakan.

Buat Project baru dengan sebuah Form didalamnya, kemudian tambahkan kontrol Label (untuk menampung hasilnya) ke dalam Form tersebut. Lalu ketikkan kode berikut di bagian 'Form_Load' :



[ VB 6.0 ]

Dim Win As Object

For Each Win In GetObject("winmgmts:").InstancesOf("Win32_OperatingSystem")

Label1.Caption = Win.Caption & vbCrLf & Win.CSDVersion & vbCrLf & "Version : " & Win.Version & vbCrLf & "Build : " & Win.BuildNumber

Next

[ VB .NET ]

For Each Win As Object In GetObject("winmgmts:").InstancesOf("Win32_OperatingSystem")

Label1.Text = Win.Caption & vbCrLf & Win.CSDVersion & vbCrLf & "Version : " & Win.Version & vbCrLf & "Build : " & Win.BuildNumber

Next

Mendeteksi Versi MS Office

Cara termudah untuk mendeteksi versi MS Office yang ter-install di komputer, yaitu dengan cara membaca nilai registry. Berikut kodenya :



Tulis kode function ini di Module baru :

Function VersiOffice(ByVal Aplikasi As String) As String

    On Error GoTo Ero

    Dim Reg As Object

    Dim s As String

      

    Set Reg = CreateObject("Wscript.Shell")

    s = Reg.RegRead("HKCR\" & Aplikasi & ".Application\CurVer\")

    VersiOffice = Replace(s, Aplikasi & ".Application.", "", , , 1)

  

Ero:

End Function

Kode penggunaannya seperti ini :

Dim v As String

v = VersiOffice("Word")

If v <> "" Then

    MsgBox ("Microsoft Word versi " & v)

Else

    MsgBox ("Microsoft Word tidak ter-install")

End If

Dapat dilihat contoh diatas digunakan untuk mendeteksi Word, maka juga bisa digunakan untuk Excel, PowerPoint, Access, dll

Cara Membuat ListBox yang bisa di Edit

Cara Membuat ListBox yang bisa di Edit - Agar item yang terdapat di ListBox bisa di edit, maka diperlukan cara khusus dengan mengkombinasikannya dengan TextBox. Berikut caranya :

1. Tambahkan 1 ListBox, kemudian 1 TextBox (properti Visible=False) ke dalam Form.




2. Ketikkan kode ini di event ListBox1_MouseDoubleClick :
   
   
   Dim i As Integer = ListBox1.SelectedIndex
   
   If i < 0 Then Exit Sub
   
   
   
   With TextBox1
   
     .Top = ListBox1.GetItemRectangle(i).Top + ListBox1.Top
   
     .Left = ListBox1.GetItemRectangle(i).Left + ListBox1.Left
   
   
   
     .Text = ListBox1.Items(i)
   
     .Visible = True
   
     .Focus()
   
   End With




3. Ketikkan kode ini di event TextBox1_KeyPress :
   
   
   If e.KeyChar = Chr(Keys.Enter) Then
   
     ListBox1.Items(ListBox1.SelectedIndex) = TextBox1.Text
   
     TextBox1.Visible = False
   
   ElseIf e.KeyChar = Chr(Keys.Escape) Then
   
     TextBox1.Visible = False
   
   End If




4. Ketikkan kode ini di event TextBox1_LostFocus :
   
   
   TextBox1.Visible = False




5. Untuk percobaan, Anda bisa mengisi item dengan cara mengetikkan kode ini di event Form1_Load :
   
   
   Dim i As Integer
   
   For i = 1 To 100
   
     ListBox1.Items.Add("Item ke " & i)
   
   Next

 Jalankan aplikasi, lalu dobel klik item yang akan di edit.