At 05:39 PM 1/22/00 +0700, you wrote:
>Hi semua, mau tanya nih :
>1. aku kan coba mbuat program untuk login pake turbo pascal 7 for DOS
> (sourcenya ada dibawah)... jadi kalo login ke komputer harus ngetik
> user name & password... tapi ternyata programnya gagal (apa salah
> total ya sourcenya???)
> waktu aku ngetik user name, meskipun udah betul, muncul tulisan :
> user unknown... kaya' gini nih hasilnya :
> User name : admin
> *** User name unknown ***
> Password : 1234
> ada yang bisa bantu betulin nggak? atau kalo bisa mbuatin program
> baru (pake' program lain gak pa-pa kok)? he... he... he... :) ->
males yee...
saran saya ubah var const success menjadi variabel biasa.
trus kalau mengetes... readln-nya cukup menerima 1 inputan ...
readln(userInput) ->biar sampean nggak binggung.
karena anda pake constanta string jadi nginput user name harus persis
seperti variable constanta-nya, case sensitive!!!!
2. apa bisa sewaktu password diketik, passwordnya gak kelihatan atau
> diganti dgn asterisk? kalo bisa, gimana caranya?
pake if keypress .....dst, udah lupa...
>3. program apa selain tb7 yg gampang dipake'?
DELPHI !!!!....
>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}
>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);
> Success:=(UserInput=User) or (FamilyInput=Family);
> If Not Success Then
> TextColor(4);
> WriteLn(' ** USER NAME UNKNOWN **');
> Until Success;
> If Success Then
> Repeat TextColor(15);
> Write(#13+#10+' Password : ');
> ReadLn(PasswordInput, MynameInput);
> Success:=(PasswordInput=Password) or (PasswordInput=Myname);
> If Not Success Then
> TextColor(4);
> WriteLn(' ** ACCESS DENIED **');
> Until Success
>End.
>{End of source code}
>
Everything about Delphi.
Join Our Milis.. mailto:[EMAIL PROTECTED]
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]
