Seri 3 Belajar Gambas3: Membuat Form Login Sederhana

Bismillaahirrohmaanirrohiim.

Kali ini penulis ingin memberikan tutorial membuat Form Login. Mengapa dengan Form Login??,, yah penulis memilih form login karena, sebagaimana biasanya, jika membuka suatu project atau aplikasi bahkan sebuah halaman web, tak jarang kita dapati tampilan login yang ditampilkan pada server agar user dapat mengakses lebih jauh.

Kita juga tahu di zaman sekarang, kata sosmed sangat tak asing didengar dikalangan kaum millenial, nah sebelum masuk di suatu akun, tentunya user harus menginput data berupa username dan password. Bagaimana caranya sih membuat suatu form login sederhana..?? Nah kali ini penulis memperlihatkan cara membuat form login menggunakan free software Gambas3.

Langkah-langkahnya sebagai berikut :

1. Buat sebuah proyek Gambas baru. (baca juga: Seri 1 Belajar Gambas3: Mengenal Gambas3 di GNU/Linux)
2. Buat program dengan layout sebagai berikut
   
3. Atur Properti Program
   Text1  -> Name = txtuser
   Text2  -> Name = txtpass, Password = True
   Fmain -> Name = Fmain
   Untuk properti yang lainnya Anda bisa mengatur sesuai dengan keinginan.
4. Buat form baru yang bertujuan sebagai perpindahan halaman setelah user berhasil login. (baca juga: Seri 2 Belajar Gambas3: Daftar Menu dari Gambas3)
   
5. Masukkan kode program seperti berikut :
   Public Sub btnok_Click()
        If txtuser.Text = “Nurfadillah” And txtpass.Text = “bismillah” Then
               ProgressBar1.Value = 100
               message.info(“Selamat Anda Berhasil Login”)
               form1.Show
         Else If txtuser.Text = “” And txtpass.Text = “” Then
               Message.Info(“usename dan password tidak boleh kosong”)
         Else If txtuser.Text = “” Then
               Message.Info(“Username harus di isi”)
         Else If txtpass.text = “” Then
               Message.Info(“password harus di isi”)
         Else
               Message.Warning(“Data yang Anda Masukkan Salah ,Coba lagi”, “OK”)
               txtuser.text = “”
               txtpass.text = “”
         Endif
   End
   Public Sub btnkeluar_Click()
         Select Case Message.question(“yakin ingin keluar”, “OK”, “Kembali”)
         Case 1
               Me.close
         Case 2
               Fmain.Show
         End Select
   End
   Public Sub Form_Open()
        txtuser.text = “”
        txtpass.text = “”
   End
6. Kemudian Run , akan tampil seperti gambar di bawah ini
   
7. Setelah user berhasil login maka akan tampil form selanjutnya
   
8. Untuk membuat aplikasi login, pilihlah opsi , kemudian tentukan lokasi penyimpanan aplikasi, setelah itu pilih OK.

Selamat Mencoba 🙂.