Program waktu


Program ini di buat dengan bahasa pemrograman visual basic 6.0 . Gunanya untuk menghitung lama waktu pemakaian computer. Komponen minimal yang perlu di persiapkan di VB adalah :

· Sebuah Form

· Sebuah Timer yang telah di seting intervalnya menjadi 1000(millisecond)

· 3 buah Label

CONTOH PROGRAM :

http://www.4shared.com/file/137628919/8e8da7c6/waktu_12.html

Adapun untuk mensetting interval timer adalah klik komponen timer yang sudah ada di form, dan lihat pada properties timer. Kemudian ubah intervalnya dengan mengisi angka 1000. berikut adalah listing program waktu :

‘untuk mendeklarasikan variabel

Dim menit As Integer

Dim jam As Integer

Private Sub Form_Load()

‘jika terjadi error program akan melanjutkan ke baris selanjutnya

On Error Resume Next

‘untuk mendapatkan waktu start

Label2.Caption = Format(Time, “hh:mm:ss AM/PM”)

End Sub

Private Sub Form_Unload(Cancel As Integer)

Form1.Visible = False

s = s & “Date now : ” & Label1.Caption & vbNewLine

s = s & “Start : ” & Label2.Caption & vbNewLine

s = s & “End : ” & Form1.Caption & vbNewLine

s = s & “Long Time : ” & Label3.Caption & vbNewLine

MsgBox s, vbInformation, “Thank you”

End Sub

Private Sub Timer1_Timer()

‘untuk seting waktu

On Error Resume Next

Date = Now

Time = Now

Label1.Caption = Format(Date, “dddd, dd mmm yy”)

Form1.Caption = Format(Time, “hh:mm:ss AM/PM”)

‘hitung lama waktu

If Form1.Caption = Format(Time, “hh:mm:00 AM/PM”) Then

menit = menit + 1

End If

If menit = 60 Then

menit = 0

jam = jam + 1

End If

‘untuk long time

Label3.Caption = jam & “:” & menit & “:” & Format(Time, “ss”)

End Sub

Jika sudah, buatlah file executable(*.exe) . dan saya sarankan agar program tersebut dibuat “startup” agar dia bisa jalan setiap kali anda memasuki windows. Adapun cara untuk membuat startup adalah kopi program waktu ini yang sudah berupa file *.exe ke C:\Documents and Settings\<Sesuai Nama User Anda>\Start Menu\Programs\Startup. Demikian program yang saya buat semoga bermanfaat untuk anda. : )

 

Depok, 9-8-08-sbt

noname

Advertisements

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: