Cara membuat Aplikasi Stopwatch Di Visual Basic 0.6

Cara Membuat Aplikasi Stowatch Sederhana di Visual Basic 0.6

Di sini saya akan menjelaskan bagai mana cara membuat aplikasi stopwatch sederhana yang pernah saya buat sendiri..

Pertama, tama sobata sekalian buat sebuah form seperti , terserah sobat mau gimana tampilannya.. di bawah ini hanya sekedar usul saja..

 

ToollBox yang diperlukan adalah :

1 label = untuk menampilkan angka stopwatch

3 Frame = untuk mengelompokan objek yang sama

4 OptionButton = untuk pilihan berjalannya angka

4 CommandButton = untuk proses

1 ListBox = untuk menampilkan data

dan yang harus ada adalah Timernya....hehe ! ka

Sebelumnya ganti nama-nama objek di bawah ini..

pada Frame "Perubahan Angka"

Namanya samakan...

Option1 = arah(0)

Option2 = arah(1) => Dalam kurung menandakan indexnya kita menggunakan fungsi array...

pada Frame "Perubahan Kecepatan"

Namanya samakan...

Option1 = cpt(0)

Option2 = cpt(1)
Option3 = cpt(2)

pada frame "Proses yang dilakukan"
Namanya samakan juga...
Command1 = prs(0)
Command2 = prs(1)
Command3 = prs(2)
Pada Command4 jangan disamakan.. Namanya akan otomatis menjadi Command1
      Setelah diganti namanya, Lanjutkan proses selanjutnya !

di  jendela kode ketikan Syntax di bawah ini :

Dim n As Single
Dim a As String
Dim c As String

Private Sub arah_Click(Index As Integer)
If Index = 0 Then
   a = "T"
   Else
   a = "K"
   End If
 End Sub

Private Sub Command1_Click()
List1.AddItem Label1.Caption
End Sub

Private Sub cpt_Click(Index As Integer)
Select Case Index
Case 0
c = "L"
Case 1
c = "S"
Case 2
c = "C"
End Select
End Sub

Private Sub Form_Load()
arah(0).Value = True
cpt(0).Value = True
n = 0
a = "T"
c = "L"


End Sub

Private Sub prs_Click(Index As Integer)
Select Case Index
Case 0
       Timer1.Enabled = True
       prs(0).Enabled = False
       prs(1).Enabled = True
Case 1
       Timer1.Enabled = False
       prs(0).Enabled = True
       prs(1).Enabled = False
Case 2
     End
End Select     
End Sub

Private Sub Timer1_Timer()
 If a = "T" Then
  n = n + 1
  Else
  n = n - 1
  End If
  Label1.Caption = n
  Select Case c
  Case "L"
  Timer1.Interval = 1000
  Case "S"
  Timer1.Interval = 500
  Case "C"
  Timer1.Interval = 1
  End Select 
End Sub

Jalankan Program.. 

Bila terjadi kesalhan atau kurang jelas silahkan komentar di bawah ini...

Terimakasih sudah mengunjungi Blog saya...... Smoga bermanfaat..