Ever hear the saying "time is money", yup must have heard all of it, while time itself could be years, months, days to hours. Well here we will create a simple application that makes hours (hehehe ... very simple really right). In this application, we will make 2 hours, where the first one will be active in form while the second is that we place at the title bar (besides the title).
First of all, it takes the first fruit label and a timer (hagh.. Cook only 2 pieces of the component that's it?? Yup emang bener cuman 2 components
First of all, it takes the first fruit label and a timer (hagh.. Cook only 2 pieces of the component that's it?? Yup emang bener cuman 2 components
Open your Microsoft Visual Basic 6.0 and select Standard EXE
Select Timer 1 Label 1 seed and seeds and set as follows:
Select Timer 1 Label 1 seed and seeds and set as follows:
Change the following properties:
Form | |
Name | frmJam |
Caption | empty |
| |
Label1 | |
Name | lblJam |
AutoSize | True |
Caption | empty |
Font | it's up to |
ForeColor | Red Color |
| |
Timer1 | |
Name | tmrJam |
Interval | 1000 |
Been changed propertiesnya ^ ^, then click 2x timer component which is in the form designer and then we fill in the following source code:
Private Sub tmrJam_Timer()
lblJam.Caption = Format(Date, "Short Date") & " " & Time
frmJam.Caption = "Membuat Jam " & Format(Date, "Short Date") & " " & Time
End Sub
lblJam.Caption = Format(Date, "Short Date") & " " & Time
frmJam.Caption = "Membuat Jam " & Format(Date, "Short Date") & " " & Time
End Sub
-Run the program by pressing the F5 key on the keyboard
|
theiyoe
- |
|
0 komentar:
Posting Komentar