Salam
Jagocopyer pada kesempatan ini saya akan membahas sedikit materi Visual Basic –
VB.net yang judulnya Membuat Form Login Berwaktu, maksudnya adalah saat User/
Pengguna mau login pada form login diberi waktu 2 menit, 10 detik untuk login, apabila
sudah sampai 2 menit, 10 detik form login itu otomatis exit / close pada saat mau exit
kita beri MsgBox / pesan yang berisi “Maaf
kesempatan anda untuk login suda habis…..!”
Form
Login Berwaktu ini awalnya tugas saya dikampus dari mata Kuliah VB.Net awalnya
sihh saya bingun 7 keliling, karna sudah dua hari Tanya sama Mbah Google.com ,
malah gak ada jawaban yang memuaskan
dari si Mbah…. Akhirnya saya mikir sendiri dan dapatlah sebuah inisiatif untuk
memasukkan koding Hitungan mundul didalam taq Form Login itu dan hasil wowwww…
Inilah koding
dari sebuah Form berwaktu, ingat sobat waktunya suda saya setting 2 menit, 10 detik ya!,
langsung ke TKP :
Pada bagian '(Declarations)' dari Form Login ketikkan :
Dim Jam, Menit, Detik As Integer
Pada
bagian 'Form_login_Load' ketikkan :
Label1.Text
= "00:00:00"
Jam = 0
Menit =2
Detik = 10
Label1.Text = Format(Jam, "00") & ":" & Format(Menit, "00") & ":" & Format(Detik, "00")
Timer1.Enabled = True
Menit =2
Detik = 10
Label1.Text = Format(Jam, "00") & ":" & Format(Menit, "00") & ":" & Format(Detik, "00")
Timer1.Enabled = True
Pada
bagian 'Timer1_Tick' ketikkan :
Detik -= 1
If Detik < 0
Then
Detik = 59
Menit -= 1
Detik = 59
Menit -= 1
If Menit < 0 Then
Menit = 59
Jam -= 1
End If
End If
Label1.Text = Format(Jam, "00") & ":" & Format(Menit, "00") & ":" & Format(Detik, "00")
If Jam = 0 And Menit = 0 And Detik = 0 Then
Timer1.Enabled = False
Button1.Enabled = True
MsgBox("Maaf Kesempatan Anda Untuk Login Suda Habis !!!",MsgBoxStyle.okonline, "Waktu Habis")
Me.Close()
End If
End If
Hasilnya, apabila kesempatan si user/ pengguna suda habis maka akan tampak Form Sbb..
Semoga Bermafaat, dan apabila masih banyak kesalahan atau penambahan tolong beri tanggapan sobat di komentar dibawa ini..! TErima kasih
MB:
Sebenarnya koding adalah koding untuk hitungan mundur, tapi saya gunakan fasilitas koding ini untuk membuat form exit otomatis setelah waktu yang telah kita tentukan mundung sampai 00.00.00 logikanya apabila label6 menjadi 00.00.00 maka form_login me.close / exit
Sebenarnya koding adalah koding untuk hitungan mundur, tapi saya gunakan fasilitas koding ini untuk membuat form exit otomatis setelah waktu yang telah kita tentukan mundung sampai 00.00.00 logikanya apabila label6 menjadi 00.00.00 maka form_login me.close / exit
Jago Copy Blogspot
waktunya gak berjalan
BalasHapuslogin sudah masuk ke form menu utama, agar waktu tidak berjalan lagi setelah kita sudah masuk ke form menu utama bagaimana?
BalasHapus