Langsung ke konten utama

"Program Login" Menggunakan Pascal

Setelah lama ga ketemu Pascal. Penulis iseng-iseng nyobain untuk ngoprek-ngoprek lagi program Pascal. Dan sesuai dugaan, banyak materi dan kode-kode yang penulis udah lupa dari pascal :p
Kali ini penulis nyoba bikin program (tepatnya sebagian kecil program :p) untuk sistem login. Ya, cuma program iseng-iseng aja sih, ga memiliki nilai guna pada dasarnya, tapi lumayan buat yang masih baru-baru mau mencoba pemrograman Pascal :)

Prinsip kerja program ini simple (seperti sistem login pada umumnya, namun dengan keamanan yang sangat rendah, maklum amatir ^^v). Pertama, pengguna menginputkan data username dan passwordnya, lalu program akan memverifikasikannya, jika benar maka pengguna akan dibawa ke layar berikutnya.
Namun jika salah, maka pengguna memiliki kesempatan 2 kali untuk mengulang menginputkan datanya.


Untuk memberikan kesempatan bagi pengguna untuk menginputkan data hanya 3 kali saja maka kita akan menggunakan loop for-to-do
     for i:=1 to 3 do
     begin
       Your code here
     end;

Pertama penulis menginisialisasi 2 variabel untuk username dan password
user:= 'gentra';
pass:= 'code';

Kedua variabel tersebut dimisalkan sebagai database username dan passwordnya. Setelah itu program akan meminta pengguna untuk menginputkan data username dan passwordnya
          writeln('Please login with your account');
          writeln('==============================');
          writeln;
          write('Username : ');readln(u);
          write('Password : ');readln(p);

Kemudian program akan memverifikasinya pada kode berikut
          if user=u then
          begin
               if p=pass then
               begin
                    x:= 1;
                    break;
               end;
          end;

Jika username ataupun password yang diinputkan salah, maka program akan menjalankan kode berikut yang memberitahukan bahwa inputannya salah
          clrscr;
          writeln('Username or password didnt match');
          writeln;

Namun, jika inputan data benar, maka program akan meloncat keluar dari loop for-to-do tersebut, dan mengeksekusi kode berikut
        writeln('Welcome back, ',user,'!');

Untuk source lengkap dari program dapat di-download disini
http://www.mediafire.com/?88aa8kx6wobgwe2

Berikut Kode Lengkap dari Program

program login;
uses crt;

var
   user,pass,u,p:string;
   x,i:integer;

begin
     clrscr;
     user:= 'gentra';
     pass:= 'code';
     x:=0;
     for i:=1 to 3 do
     begin
          writeln('Please login with your account');
          writeln('==============================');
          writeln;
          write('Username : ');readln(u);
          write('Password : ');readln(p);
          if user=u then
          begin
               if p=pass then
               begin
                    x:= 1;
                    break;
               end;
          end;
          clrscr;
          writeln('Username or password didnt match');
          writeln;
     end;
     clrscr;
     if x=0 then
        writeln('Sorry, your account has been blocked now')
     else if x=1 then
        writeln('Welcome back, ',user,'!');
     readln;
end.

Postingan populer dari blog ini

Kumpulan Script Pascal

Pada kesempatan ini penulis ingin menuliskan beberapa script Pascal yang penulis buat sendiri. Namun penulis mohon maaf bila terdapat kekurangan pada script-script dibawah ini mengingat penulis sendiri masih belajar dalam pemrograman Pascal. Script-script dibawah ini ditujukan untuk compiler Turbo Pascal For Windows 1.5 dan telah penulis coba sendiri keberhasilannya. Namun bila anda memiliki saran untuk penulisan script-script dibawah ini atau memiliki kritik terhadap script-script ini, anda dapat mengirimkan penulis e-mail, maupun comment terhadap posting ini. Bagi anda yang belum memiliki compiler Turbo Pascal For Windows 1.5, anda dapat mendownloadnya di http://community.borland.com/article/0,1410,20803,00.html . Baiklah, selamat mencoba.
(Seluruh script yang terdapat pada artikel ini bebas untuk digunakan, disalin, dimodifikasi, maupun disebarluaskan selama tidak disalahgunakan untuk kejahatan.)
Program DiskriminanPersamaanKuadrat
Masih ingatkah anda terhadap pelajaran Diskriminan Pe…

My Third Java Program: "Program Menghitung IP Mahasiswa"

Masih berkutat di dunia Java. Kali ini penulis mencoba bereksperimen dengan JTable. Setelah 2-3 hari pusing ngutak-atik JTable (maklum masih newbie ^_^), nyari-nyari cara buat meng-inputkan data ke dalam tabel itu, akhirnya dapet juga petuah dari orang yang udah mahir Java di forum DIC (dreamincode.net).
Here's a sneak peek at the program :)