aku udah coba ubah sourcenya, tetep gak bisa pake function readast
apa saya yg salah ya? (habis gak bakat jadi programmer) :'-(
kalo pake function readast, user name-nya jadi blank & gak bisa tekan
tombol apa-apa... tapi kalo di-enter, muncul asterisk...
ini source code yg udah diubah (tapi gak pake fucntion readast)
{SOURCE CODE START FROM HERE}
{$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 Usera='Admin';
Userb='Family';
Passa='1234';
Passb='4321';
Procedure Name;
Begin Clrscr;
TextColor(15);
WriteLn(' ');
WriteLn('Enter user name & password to login');
End;
Var UseraInput:String;
UserbInput:String;
PassaInput:String;
PassbInput:String;
Const Success:Boolean=False;
Begin Name;
CheckBreak:=False;
Repeat
TextColor(15);
Write(#13+#10+' User name : ');
...............................
!!! { ReadLn(UseraInput)(UserbInput); } !!!
!!! { Success:=(UseraInput=Usera) or (UserbInput=Userb); } !!!
............................... {STILL CONFUSED WITH THIS PART}
If Not Success Then
Begin TextColor(4);
WriteLn(' ** User name unknown **');
End;
Until Success;
If Success Then
Repeat TextColor(15);
Write(#13+#10+' Password : ');
....................................
!!! { ReadLn(PassaInput, PassbInput); } !!!
!!! { Success:=(PassaInput=Passa) or (PassbInput=Passb); } !!!
................................... {THIS PART TOO!!!}
If Not Success Then
Begin TextColor(4);
WriteLn(' ** Access Denied **');
End;
Until Success
End.
{END OF SOURCE CODE}
jadi : gimana caranya readln & const success bisa mbaca input dari Usera
dan Userb tanpa function readast? (soalnya yg diatas itu ngawur) :P
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]
