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 >> >> >> > > > > ------------ --------- --------- ------ > > Wahana Programmer Groups Links > > > > > > -- ************ ********* **** I Nyoman Gunartha IT Support Sta. Denpasar Phone : 0361 8527105 ************ ********* **** Coba Yahoo! Messenger 9.0 baru. Akhirnya datang juga! http://id.messenger.yahoo.com
