"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