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 🙂.

Artikel Terkait

Tinggalkan Balasan

Alamat email Anda tidak akan dipublikasikan. Ruas yang wajib ditandai *