sekarang mimin akan memberikan script IDE Pascal tentang Login..
Script nya di bawah ini..
program login;
uses crt;
var
user,pass,u,p:string;
x,i:integer;
begin
clrscr;
user:= 'USERNAME YANG AKAN DI GUNAKAN';
pass:= 'PASSWORD YANG AKAN DI GUNAKAN';
x:=0;
for i:=1 to 3 do
begin
writeln('Masukkan ID dan Password untuk Login');
writeln('==============================');
writeln;
write('ID : ');readln(u);
write('Password : ');readln(p);
if user=u then
begin
if p=pass then
begin
x:= 1;
break;
end;
end;
clrscr;
writeln('Id atau Password anda salah, Masukkan kembali');
writeln;
end;
clrscr;
if x=0 then
writeln('Maaf anda sudah 3 kali salah memasukkan Id dan Password')
else if x=1 then
writeln('Selamat Datang Kembali, ',user,' !');
readln;
end.
*) NOTE: Teks yang berwarna merah dan di garis bawahi bisa di ganti dengan ID dan Password yang ingin digunakan untuk login.
Jangan lupa tinggalkan komentar mengenai program yang saya bagikan. Bila menemukan masalah bisa tanyakan admin di CHAT BOX atau di KOMENTAR..
Trimakasih.