Mở Visual Basic 6 ra, chọn
Standard EXE.
I. Thiết kế giao diện- Bạn thiết kế giao diện chương trình gồm 3 nhãn chữ, 3 nút lệnh, 1 đồng hồ:
- Giờ bạn đặt thuộc tính cho các control như sau:
Form1:Name: FrmMain
BorderStyle: 1 – Fixed Single
Caption: Timer
MniButton: True
Label1:
Name: LabMinutes
Caption: [bỏ trống]
Font: Times New Roman, 48
Label2:Name: LabSeconds
Caption: [bỏ trống]
Font: Times New Roman, 48
Label3:Name: LabMilliseconds
Caption: [bỏ trống]
Font: Times New Roman, 36
Command1:
Name: CmdStart
Caption: Start
Command2:
Name: CmdStop
Caption: Stop
Command3:Name: CmdPause
Caption: pause
Timer1:Name: Timer
Enabled: False
Interval: 10
- Sau khi thiết lập và sắp xếp vị trí xong, bạn được như sau:
II. Viết code- Vào
View >
Code, dán đoạn code này vào:
- Code:
-
Dim GetValue As Boolean
Private Sub CmdPause_Click()
If CmdPause.Caption = "Pause" Then
CmdPause.Caption = "Continue"
GetValue = False
Else
CmdPause.Caption = "Pause"
GetValue = True
End If
End Sub
Private Sub CmdStart_Click()
LabMinutes.Tag = "0"
LabSeconds.Tag = "0"
LabMilliseconds.Tag = "0"
GetValue = True
Timer.Enabled = True
End Sub
Private Sub CmdStop_Click()
Timer.Enabled = False
GetValue = True
End Sub
Private Sub Timer_Timer()
If LabMilliseconds.Tag = "99" Then
If LabSeconds.Tag = "59" Then
If LabMinutes.Tag = "59" Then
LabMilliseconds.Tag = "0"
LabSeconds.Tag = "0"
LabMinutes.Tag = "0"
Else
LabMilliseconds.Tag = "0"
LabSeconds.Tag = "0"
LabMinutes.Tag = CByte(LabMinutes.Tag) + 1
End If
Else
LabMilliseconds.Tag = "0"
LabSeconds.Tag = CByte(LabSeconds.Tag) + 1
End If
Else
LabMilliseconds.Tag = CByte(LabMilliseconds.Tag) + 1
End If
If GetValue = True Then
LabMilliseconds.Caption = LabMilliseconds.Tag
LabSeconds.Caption = LabSeconds.Tag
LabMinutes.Caption = LabMinutes.Tag
End If
End Sub
Giờ thì vào dịch chương trình: vào
File >
Make Project1.exe, chọn nơi chứa, nhấn OK
5/2/2008, 10:34 am
