Membuat Form Close Otomatis Ketika Tidak Ada Gerakan Mouse Dalam Waktu yang di Tentukan

Membuat Form Close Otomatis Ketika Tidak Ada Gerakan Mouse Dalam Waktu yang di Tentukan

TUESDAY, 26 APRIL 2019

di 11:57:00 

Cara Membuat Form Close Otomatis Ketika Tidak Ada Gerakan Mouse - Pernahkan Anda menseting Screenserver pada komputer Anda dengan screenserver otomatis dengan waktu tertentu? ,dimana pada saat Anda sedang menggunakan program kemudian Anda meningalkan program yang Anda sedang gunakan, maka dalam waktu beberapa menit secara otomatis akan muncul screenserver yang Anda sudah seting itu.Hal ini terjadi karena dalam kurun waktu beberapa menit semenjak Anda tinggalkan, komputer Anda tidak ada terjadinya gerakan mouse sehingga muncul Screenserver. Agar kita dapat mengerjakannya kembali maka kita harus menyentuh atau menggerakan mouse sehingga Screenserver hilang.

Pada pertemuan kali ini saya ingin membagikan trik bagaimana membuat program seperti yang Saya ceritakan diatas dengan menggunakan visuak basic 6.0, bedanya pada form Visual Basic ini ketika tidak ada gerakan mouse Form akan menutup otomatis (Auto Close). Program seperti ini Anda bisa terapkan untuk membuat screen server pada progaram aplikasi yang Anda buat.

Bagi Anda yang penasaran bagaimana membuatnya berikut adalah langkah-lamgkahnya dalam pembuatannya :

Membuat Form Close Otomatis ketika Tadak ada gerakan Mouse :

1. Buka Form VB6 Anda

2. Tambahkan 1 Timer  dan 3 Label

3. Label1 dan Label2 biarkan apa adanya dan di set Visible=False

4. Label3 ketik Captionnya" Form ini akan Close dengan Sendirinya bila tidakada gerakan               mouse selama 5 detik"

5. Timer1 Interval =500  

Desainlah form seperti gambar dibawah ini:

Form Desain

6. Setelah selesai mendesain Form, kemudian buka jendela kode dengan F7 dan ketik kode dibawah       ini:

Dim awal As Date

Dim Gerak As Boolean

Dim Aksi As Boolean

Private Sub Form_Load()

            'Inisialisasi semua variabel dan Timer

Gerak = False

Aksi = False

Timer1.Interval = 500

Timer1.Enabled = True

awal = Time

End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

             'Jika ada pergerakan mouse di form, set waktu mulai

             'utk perhitungan durasi dengan waktu saat itu

awal = Time

             'Update status...

Aksi = True

End Sub

Private Sub Timer1_Timer()

Dim durasi As Date

Aksi = False

            'Periksa...

If Aksi = False Then

Gerak = False

Timer1.Enabled = True

Else

'Jika ada perubahan di Mouse_Move

Gerak = True

Timer1.Enabled = False

End If

Label1.Caption = awal

Label2.Caption = 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:00:05" Then

                 'Sebelum keluar, bebaskan semua variabel di form ini

Set Form1 = Nothing

Unload Me

End If

End If

End Sub

7. Simpan kode Anda  dan jalankan program

8. Setelah program Anda jalan coba gerakin Mouse Anda kemudian biarkan dan diamkan Mouse 

    Anda, apa yang terjadi?

Catatan :

• Label1 dan Label2 berfungsi menampung Timer (waktu)
• Form akan Close sendiri bila tidak ada gerakan mouse selama 5 detik (tergantung setingan)
• Kode ="00:00:05"  diatas bisa diubah sesuai keinginan, di sini di set 5 detik 

Demikian tip cara Membuat Form Close Otomatis Ketika Tidak Ada Gerakan Mouse. Selamat mencoba semoga berhasil.