Membuat Form Login BerwaktuDengan VB.net
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 IntegerPada 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
Update Contact :
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email : Fajarudinsidik@gmail.com
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email: Fajarudinsidik@gmail.com
atau Kirimkan Private messanger melalui email dengan klik tombol order dibawah ini :