Delphi membuat Login Password
Program Login Password : Untuk Form 1 var Form1: TForm1; i:integer; implementation uses Unit2; {$R *.dfm} procedure TForm1.btncancelClick(Sender: TObject); begin close; end; procedure TForm1.btnloginClick(Sender: TObject); begin if edit1.Text ='ratih' then if edit2.Text ='ratih' then timer1.Enabled:=true else showmessage('password yang anda masukkan salah') else showmessage('username yang anda masukkan salah') end; procedure TForm1.Timer1Timer(Sender: TObject); begin inc(i); progressbar1.Position :=i; if progressbar1.Position =50 then begin timer1.Enabled:=false; i:=0; form2.Show; form1.Hide; end; end; end. Untuk Form 2 procedure TForm2.btnexitClick(Sender: TObject); begin application.Terminate ; // keluar dari aplikasi end; Ketika dijalankan dan ketika user tidak mengetikkan username 'ratih' dan password 'ratih' maka akan muncul peringatan. Jika benar maka timer1 menjalankan progressbar sampai posisinya bernilai 50. setelah itu muncul f...