StausBar digunakan para programer biasanya untuk menampilkan informasi tanggal, jam, maupun text berjalan yang berisi informasi program. Tapi bagi para newbie atau temen yang baru belajar vb gak da salahnya mencoba hal yang satu ini. Oke, gak usah lama2, buat sebuah form, StatusBar, dan 2 buah Timer. Klo belum tau mendpatkan StatusBar buka aja Project->Components-> Beri tanda cek pada Microsoft Windows Command Control 6.0 (sp6).
Atur properties untuk StatusBar buatlah 7 buah panel yang masing untuk text tanggal, tanggal, text jam, jam, caps, num, dan text berjalan. sedangkan untuk timer masukan interval 1000.
Source Codenya sbb :
Dim Counter As Integer
Private Sub MDIForm_Load()
Counter = 0
Timer2.Interval = 60 '<-- Atur kecepatannya di sini
With StatusBar1
.Panels(7).Width = 8300
.Panels(7).Alignment = sbrRight
End With
End Sub
Private Sub Timer1_Timer()
StatusBar1.Panels(2).Text = Format(Date, "dd MMMM yyyy")
StatusBar1.Panels(4).Text = Format(Time, "hh:mm:ss")
End Sub
Private Sub Timer2_Timer()
Dim Kalimat As String
Dim pnlX1 As Panel
Set pnlX1 = StatusBar1.Panels(7)
Kalimat = "*** Aplikasi Penggajian Yayasan Pendidikan Kosgoro by AGUNG @ 2009***"
Counter = Counter + 1
DoEvents
pnlX1.Text = TulisJalan(Counter, Kalimat, 140)
End Sub
Public Function TulisJalan(Hitung As Integer, _
strKalimat As String, _
Panjang As Integer)
If Hitung = Len(strKalimat) + Panjang Then
Hitung = 0
ElseIf Hitung > Len(strKalimat) Then
TulisJalan = strKalimat & Space(Hitung - Len(strKalimat))
Else
TulisJalan = Mid(strKalimat, 1, Hitung)
End If
End Function
1 komentar:
Ternyata masih ada yang baik tuk berbagi, semoga makin bertambah ilmunya. Thanks gan.
Post a Comment