Mungkin problem ini sudah terjawab oleh teman2, tapi tidak apalah aku membagi
informasi yang ada padaku.
Kode dengan menggunakan Timer.
Dim awal As Date
Dim Gerak As Boolean
Dim Aksi As Boolean, Angka As Integer
--------------------------------------------------------------------------------------
Private Sub MDIForm_Load()
HrfJalan = "Huruf Jalan"
StatusBar1.Panels(4).Text = Time
Timer2.Enabled = True
iJam = Format(StatusBar1.Panels(4).Text, "hh:mm:ss")
ShowWinnerMessage
Gerak = False
Aksi = False
Timer3.Interval = 500
Timer3.Enabled = True
awal = Time
End Sub
Private Sub ShowWinnerMessage()
LblJalan.Visible = True
Timer1.Enabled = True
Timer4.Enabled = True
End Sub
--------------------------------------------------
Menampilkan huruf berjalan dari kiri ke kanan
-------------------------------------------------
Private Sub Timer1_Timer()
LblJalan = HrfJalan
LblJalan.Left = LblJalan.Left + 2
'Jika huruf jalan lebih besar dari scala picture 2 maka labejln.left akan
meset
ke 0
If LblJalan.Left > Picture2.ScaleWidth Then LblJalan.Left = 0
End Sub
-------------------------------------------------
Menampilkan jam dengan detik berjalan di status bar panel 4
-------------------------------------------------
Private Sub Timer2_Timer()
With StatusBar1
.Panels(4).Text = Time
End With
End Sub
------------------------------------------------
Penhitung waktu, Jika dalam program tidak
terjadi aksi apapun maka program otomatis
akan keluar dengan waktu interval tertentu
-----------------------------------------------
Private Sub Timer3_Timer()
Dim durasi As Date
Aksi = False
'Periksa...
If Aksi = False Then
Gerak = False
Timer3.Enabled = True
Else 'Jika ada perubahan di Mouse_Move
Gerak = True
Timer3.Enabled = False
End If
'Text1.Text = awal
'Text2.Text = Time
'Jika tidak ada pergerakan, aktifkan perhitungan durasi
If Gerak = False Then
durasi = Time - awal
'Dalam contoh ini, jika 5 detik aplikasi tidak
'mengalami kegiatan, maka langsung keluar...
If Format(durasi, "hh:mm:ss") = "00:01:05" Then
'Sebelum keluar, bebaskan semua variabel di form ini
FormSplash.Show
Set fMainForm = Nothing
Unload Me
End If
End If
End Sub
--------------------------------------------------------------
Menampilkan text berjalan pada status bar panel 1
--------------------------------------------------------------
Private Sub Timer4_Timer()
Dim Tulis As String
Dim pnlX1 As Panel
Set pnlX1 = StatusBar1.Panels(1)
Tulis = "User : " + Operator
Angka = Angka + 1
pnlX1.Text = TulisJalan(Angka, Tulis, 100)
End Sub
----------------------------------------------------
Fungsi penghitung kalimat untuk teks berjalan dari kanan
---------------------------------------------------
Function TulisJalan(ByRef Hitung As Integer, kalimat As String, panjang As
Integer)
If Hitung = Len(kalimat) + panjang Then
Hitung = 0
ElseIf Hitung > Len(kalimat) Then
TulisJalan = kalimat & Space(Hitung - Len(kalimat))
Else
TulisJalan = Mid(kalimat, 1, Hitung)
End If
End Function
Fungsi timer yang ada diatas akan berjalan terus walaupun form yang lain dibuka
(MidiChild)
Frangky
________________________________
From: Yopie Sofianto <[email protected]>
To: [email protected]
Sent: Thu, June 17, 2010 1:01:49 AM
Subject: Re: [programmer-vb] Timer Problem
Salam VB,
Jika terpaksa bisa juga Anda gunakan SetTimer dan KillTimer sebagai pengganti
timer standard VB6
Semoga membantu...
________________________________
GENERASI COMPUTER
Berbagi Ilmu Visual Basic Bagi Pemula
http://www.generasi computer. com
Hp. 08126514562
________________________________
________________________________
From: Muhammad Athallah Ramadhan <athallah_ramadhan@ yahoo.com>
To: programmer-vb@ yahoogroups. com
Sent: Thu, June 17, 2010 12:43:10 AM
Subject: Re: [programmer- vb] Timer Problem
Timer1 iya mas utk scrolling text
Timer2 utk mengecek entry data baru, juga mengecek data yg diubah (monitoring
record database)
Thx
________________________________
From: Ida Bagus Putu Marwana <bimp.marwana@ gmail.com>
To: programmer-vb@ yahoogroups. com
Sent: Thu, June 17, 2010 12:28:52 AM
Subject: Re: [programmer- vb] Timer Problem
itu kan timernya buat scrolling text ya?
kalo mau textnya tetep scrolling walau kita ngaktifin form pakai mode
dialog, scrollingtextnya dijadiin control tersendiri aja (dijadiin ocx)...
Sent from Mozilla Thunderbird 3
Regards,
Bimp
On 6/17/10 3:14 PM, Muhammad Athallah Ramadhan wrote:
>O gitu ya mas ? sbenarnya sih sy pake mode dialog supaya hanya
>bs buka 1 form aktif saja, jd form tdk menumpuk/bertimpa.
>OK mas makasih ya, sy coba dl...
>
>
>
>
________________________________
From: Ida Bagus Putu Marwana <bimp.marwana@ gmail.com>
>To: programmer-vb@ yahoogroups. com
>Sent: Thu, June 17, 2010 12:01:38 AM
>Subject: Re: [programmer- vb] Timer Problem
>
>
>membuka form dalam mode dialog memang menghentikan
>timer...
>coba jangan pakai dialogmode
>
>
>Sent from my Mozilla Thunderbird 3
>Regards,
>
>
>
>Bimp
>On 6/17/10 2:26 PM, Muhammad Athallah Ramadhan wrote:
>
>>di MDI Form utk membuka form sy selalu
>>menggunakan
>>perintah namaform.show 1
>>
>>Private Sub Timer1_Timer( ) 'Timer1
>> 'Animasi text berjalan pada caption MDI Form
>>End Sub
>>
>>Private Sub Timer2_Timer( ) 'Timer2
>> Timer2.Interval = 0
>> cari_DataBaru
>> cari_DataKoreksi
>> Timer2.Interval = 5000
>>End Sub
>>
>>Terima kasih
>>
>>
>>
________________________________
From: "f...@u2!" <ali.fa...@gmail. com>
>>To: programmer-vb@ yahoogroups. com
>>Sent: Wed, June 16, 2010 7:49:28 PM
>>Subject: Re: [programmer- vb] Timer Problem
>>
>>
>>Bisa lebih spesifik? penggunaan timer ini
>>dimaksudkan untuk apa? Permasalahan yang
>>muncul akibat berhentinya timer ini apa?
>>Akan
>>lebih baik jika disertakan contoh codingnya
>>
>>supaya bisa dibantu memecahkan
>>permasalahannya.
>>
>>
>>
>>
>>On 6/16/10, athallah_ramadhan
>><athallah_ramadhan@ yahoo.com> wrote:
>>
>>
>>>Saya memasang 2 bh timer di
>>>MDI
>>>form, namun muncul masalah
>>>saat
>>>membuka salah 1 form dibuka
>>>sering
>>>kali timer berhenti dgn
>>>
>>>sendirinya dan jika form tsb
>>>ditutup timer berjalan sperti
>>>semula.
>>>
>>>
>>>Mungkin teman2 ada yg pernah
>>>mengalami hal sperti ini ?
>>>Ato mungkin ada komponen
>>>selain
>>>timer standard VB yg lbh
>>>realtime
>>>?
>>>
>>>Terima kasih atas bantuannya..
.
>>>
>>>
>>
>>
>>--
>>Regards,
>> ~fzi~
>>
>
