> 2. apa bisa sewaktu password diketik, passwordnya gak kelihatan atau
> diganti dgn asterisk? kalo bisa, gimana caranya?
.........
Tambahkan Function dibawah sebagai pengganti readln;
Function Readast:string;
var ch:char;
begin
readast:='';
repeat
ch:=readkey;
if ch<>#13 then
Begin
readast:=readast+ch;
write('*');
End;
until ch=#13;
end;
> 3. program apa selain tb7 yg gampang dipake'?
TURBO BASIC ??
>
> SOURCE CODE:
>
> {$A-,B-,D-,E-,F-,G-,I-,L-,N-,O-,P-,Q-,R-,S-,T-,V-,X-,Y-}
> {$M 4096,0,8192}
> Uses Crt, Dos;
> Const User='Admin'; {1st user name}
> Family='Family'; {2nd user name}
> Password='1234'; {Password untuk admin}
> Myname='12345'; {Password untuk family}
......
{TEMPATKAN FUNCTION READAST DISINI }
> Procedure Name;
> Begin Clrscr;
> WriteLn(' ');
> WriteLn('Enter user name & password to log into this computer');
> End;
> Var UserInput:String;
> FamilyInput:String;
> PasswordInput:String;
> MynameInput:String;
> Const Success:Boolean=False;
> Begin Name;
> CheckBreak:=False;
> Repeat TextColor(15);
> Write(#13+#10+' User name : ');
.....
> { ReadLn(UserInput, FamilyInput); <--------GANTI DG DIBAWAH}
USERINPUT:=READAST;
> Success:=(UserInput=User) or (FamilyInput=Family);
> If Not Success Then
.......
BEGIN
<---------------Tambahkan Begin }
> TextColor(4);
> WriteLn(' ** USER NAME UNKNOWN **');
> END; { <---------------
End; }
Until Success;
> If Success Then
> Repeat TextColor(15);
> Write(#13+#10+' Password : ');
.......
> { ReadLn(PasswordInput, MynameInput); }
PASSWORDINPUT:=READAST;
> Success:=(PasswordInput=Password) or (PasswordInput=Myname);
> If Not Success Then
......
BEGIN { <----------Tambahkan Juga
Begin }
> TextColor(4);
> WriteLn(' ** ACCESS DENIED **');
> END; { <----------- End; }
Until Success
> End.
> {End of source code}
>
ps: Mudah-mudahan program diatas berhasil sebab belum saya coba :-D
Wassalam,
Mukhlis Amien
[EMAIL PROTECTED]
>
> Best regards,
>
> Bayu
>
http://www.indolinux.com - Nikmati Layanan Personal INDOLINUX ::
http://techscape.net/ - Webhosting: Dual T3 on Dual Pentium III 450Mhz
Only US$1.95/month -> CGI SSL 5MB Unlimited Traffic & Mail FP2000
-------------------------------------------------------------------
untuk berhenti kirim email ke [EMAIL PROTECTED]
untuk melihat peraturan kirim email ke [EMAIL PROTECTED]
arsip berada di http://www.mail-archive.com/[email protected]
