PROGRAM PENGAMBILAN KARAKTER PADA DELPHI 6

Salam sobat BM, di postinga sebelumnya kita sudah membahas tentang algoritma dari pengambilan beberapa karakter untuk membuat sebuah password atau serial number. Kalau belum baca artikel tersebut silahkan klik disini

Untuk selanjutnya kita akan mencoba mengimplementasikannya ke dalam sebuah program yang akan saya terapkan pada Software Borland Delphi atau anda bisa menerapkannya di Pascal, karena listingnya hampir sama.

Pertama, yang harus anda pahami atau pelajari adalah cara menggunakan delphi-nya, bagaimana anda bisa tanpa tahu apa itu delphi, tapi pada kesempatan ini saya tidak akan membahas dan memperkenalkan apa itu Delphi 6, anda bisa mencarinya di Mbah Google sang Genius.

Saya anggap anda sudah memahami dan tahu cara menggunakan Delphi, dan tugas kita selanjutnya adalah menyiapkan Form yaitu untuk Login.

Untuk designnya bisa dilihat seperti dibawah ini :

Program ini saya buat ketika saya UTS di kampus saya, jadi masih ada embel-embel UTSnya. Dengan properties sebagai berikut :

Label1

Caption = LOGIN PROGRAM UTS BY : JEEV MC

Label2

Caption = USERNAME

Label3

Caption = PASSWORD

Label4

Caption = Program ini dibuat oleh Acep Miftahul Anwar S1 ? TI ? A

Button1

Caption = LOGIN

Button2

Caption = CANCEL

Edit1

Text = ?? / kosongkan

Edit2

Text=?? / kosongkan

Form1

Caption = LOGIN BY JEEV MC

Atau properties ini bisa anda namai sesuka hati anda.

Kemudian kita harus menyisipkan beberapa listing program pada form dan pada button.

Ketika form dijalankan atau di load atau pada saat aktif, maka keadaan edit1 dan edit2 harus bersih tanpa ada karakter.

Listing programnya adalah sebagai berikut :

procedure TForm1.FormCreate(Sender: TObject);

begin

edit1.Text:='';

edit2.Text:='';

end;

procedure TForm1.FormActivate(Sender: TObject);

begin

edit1.Text:='';

edit2.Text:='';

edit1.SetFocus;

end;

pada button1 kita harus membuat listing logika, jika passwornya benar, maka akan tampil kotak pesan bahwa anda berhasil login, dan jika sebaliknya maka akan tampil kotak pesan bahwa login anda gagal karena kesalahan dalam input password. Tetapi password dibuat secara otomatis melalui username yang diinputkan. Listing programnya sebagai berikut :

procedure TForm1.Button1Click(Sender: TObject);

  var username,passwordawal,passwordakhir,password:string;

      panjangusername:integer;

begin

username:=edit1.text;

passwordawal:=copy(username,1,3);

panjangusername:=length(username);

passwordakhir:=copy(username,(panjangusername-1),2);

password:=passwordawal+passwordakhir;

if edit2.text=Password then

   begin

   messagedlg('Selamat anda berhasil Login',mtinformation,[mbok],0);

   end

else

 begin

   messagedlg('Maaf Password Salah',mtinformation,[mbok],0);

 end

end;

{program oleh Acep Miftahul Anwar}

Dan jika kita akan keluar dari program kita akan menekan tombol button2 dengan listing sebagai berikut :

procedure TForm1.Button2Click(Sender: TObject);

begin

close;

end;

cukup mudah kan?? Jika masih bingung, silahkan tinggalkan komentar anda.