Terima mas ali, seperti nya dapat dipakai dan sudah saya coba. masuk akal juga
sekali lagi terima kasih ali suparman wrote: > > > Coba ini mas, > properties form :KeyPreview dijadikan TRUE > > '------------------------------------------------------------------------ > Dim tm As Long > > Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) > tm = 0 > End Sub > > Private Sub Form_Load() > tm = 0 > End Sub > > Private Sub Timer1_Timer() > tm = tm + 1 > Text1.Text = tm > If tm = 10 Then > Timer1.Enabled = False > Unload Me > End If > End Sub > '------------------------------------------------------------------------ > > > --- Pada *Rab, 29/4/09, gunartha.nyoman > /<[email protected]>/* menulis: > > > Dari: gunartha.nyoman <[email protected]> > Topik: Re: [Programmer-VB] program idle > Kepada: [email protected] > Tanggal: Rabu, 29 April, 2009, 5:04 AM > > Mas. > > kalau pakai event keyboard gimana caranya kira2 ? > soalnya prgram yg saya bikin tidak menggunakan mouse sama sekali. > Jadi kalau keyboard nya gak kepencet aelama 15 menit maka program > tutup > (end) > Gimana kira2 syntak nya > > terima kasih > Regards > Nyoman > > Wandi wrote: > > pake timer aja Bozz, > > pake aja event mouse move, ketika mouse move maka waktu kembali > ke angka > > 00:00:00 > > jadi jika sama sekali mouse ga bergerak kan waktunya akan jalan. > > misal di set 15menit > > maka jika waktu = 00:15:00 then > > UnloadAllForm > > end > > > > bisa tutup program, bisa juga matiin PC nya sekalian > > > > semoga membantu > > > > gunartha.nyoman wrote: > > > >> Haloo semua... > >> > >> Ada yg bisa bantu agak ya.. > >> saya mo tanya kira-kira gimana caranya mendeteksi kalau > komputer atau > >> program yg dibuat dari VB itu idle. > >> dan ketika idle sekitar 15 menit maka program exe nya akan > otomatis tutup. > >> > >> Terima kasih sebelumnya > >> > >> salam dari, > >> Gunartha > >> > >> > >> > > > > > > > > > > > ------------------------------------------------------------------------ > <http://sg.rd.yahoo.com/id/messenger/pingbox/mailtagline/*http://id.messenger.yahoo.com/pingbox/>
