TUTORIAL MEMBUAT FORM LOGIN

Asalamualaikum Wr.Wb

Menjelang idul fitri besok,,,saya pengen berbagi nih sekalian  belajar hehehe...

Buat teman-teman yang lagi asiiik membuat program khususnya yang berhubungan dengan Sistem Informasi Administrasi untuk sebuah instansi atau perusahaan dengan menggunakan soft Delphi rasanya  kurang  lengkap kalau tidak ada halaman login. (itu menurut siihmeenurut saya hehehi).

Untuk keamanan data yang kita miliki dalam sistem, halaman login ini sangat penting untuk sebuah sistem Administrasi yang  kita buat, karena SI sifatnya sangat rahasia. Halaman login yang aku buat ini berisi Nama Pemakai  dan Password.

Buat teman-teman yang lagi belajar atau lagi nyari – nyari tutorial tentang pemrograman Delphi, mungkin postingan ini bisa bermanfaat buat kalian, ya meskipun hanya program sederhana.

Langsung aja yuk temen2 kita buat programnya...

1. Bukalah aplikasi Dhelpi yang anda gunakan.(kalau saya sih pake Dhelpi XE2) kemudian buat lembar

     lembar kerja baru dengan mengklik pada menu FILE-NEW-VCL Form Application.

2. Setelah muncul lembar kerja baru,lakukan perubahan pada dua propertis yang ada pada object

     inpector sebagai berikut:

     *Propertis Caption diisi dengan Login Admin

     *Propertis Name diisi dengan FormAwal

     lalu simpan dengan memilih File-Save dan berikan nama FAwal.

3. Setelah FAwal disimpan,selanjutnya kita tinggal menambahkan beberapa komponen pada Form yaitu:

     * masukan dua buah komponen Label kedalam form baru anda.

        kemudian ubah Label tersebut sesuai dengan keinginan anda.

        untuk menggubahnya,kita ubah pada proertis caaption kemudian ubah nama Label terrsebut

        misalnya kita rubah dengan (label1: Nama Pemakai dan Label2:Password).

    * masukan dua buah komponen Edit dan letakan disamping Laabel yang kita buat tadi.

       kemudian yang harus kita atur pada propertisnya yaitu propertis name,text dan password char.

     Edit1

       Name diganti EdName

       Text dikosongkan

       Password char tetap dengan #0

    Edit2

       Name diganti dengan EdPass

       Text dikosongkan

       PasswordChar dirubah dengan *

   * kemudian tambahkan lagi satu buah button,dan letakan dibawah Form Edit.

      rubah propertis name dan captionnya.

         Name dirubah BtnLogin

         Caption dirubah dengan Login

    Berikut contoh peletakan pada Form Login


4. Setelah Form jadi,double klik pada tombol login kemudian tambahkan kode
    seperti dibawah ini:

   procedure TFormAwal.Button1click(Sender: TObject);
  begin
  if (EdNama.Text = 'Roy') and (EdPass.Text= 'senyum') then
  formAwal.ShowModal;

  application.MessageBox
  ('Maaf anda tidak bisa Login. . .! !','warning',0);

  exit;

  end;

  end.



selesai deh,,
oh iya kode diatas mengasumsikan bahwa nama pemakai adalah Roy dan password-nya adalah senyum.
jika terjadi tidak kecocokan,kotak dialog yang berisi pesan "Maaf anda tidak bisa Login" akan tampil.

sekarang tinggal di run ...good luck yah?

TUTORIAL MEMBUAT WINAMP

Asalamualaikum Wr.Wb

selamat pagi teman semua,apa kabar,,???
sehabis sahur langsung ngtik nih.Gak sabar pengen berbagi ilmu"TUTORIAL MEMBUAT WINAMP MENGGUNAKAN DELPHI"
posting ini ditunjukan untuk para calon programer yang baru belajar delphi,jika ada yang udah master jangan komplain yah,,,heheh

langsung saja tidak panjang lebar kita buat aplikasinya:
buka aplikasi delphi (kalau saya pake delphi XE2),kemudian klik file,new,vcl forms aplicatiopns

CARA MEMBUAT WINAMP MENGGUNAKAN Delphi

Gambar 1

1.     Tambahkan 2 komponen panel (Panel1, Panel2) dari Tab Standart kedalam form.

2.     Komponen label (Label1, Label2) dari Tab Standart diletakkan diatas panel2.

3.     Komponen speedbutton (speedbutton1) dari Tab Additional diletakkan diatas Panel1. Desain dapat anda sesuaikan dengan gambar1 tersebut.

Gambar 2

Ubahlah property komponen masing-masing komponen tersebut seperti berikut ini :

KOMPONEN	PROPERTY
Panel 1	Align = Altop Caption = kosong
Panel 2	Align = Altop Caption = kosong Name = Paudio
Label1	Caption = Audio Players
Label2	Caption = kosong
Form1	Caption = Winamp Roy Surya Santika Autosize = True
Speedbutton1	Caption = Audio Players Groupindex = 1 Down = True AllowAllUp = True

   4.      Double klik komponen Speedbutton1, Kemudian ketikkan Prosedurnya seperti dibawah ini:

procedure TForm1.SpeedButton1Click(Sender: TObject);

begin

Paudio.Visible:=SpeedButton1.Down;

end;

   5.     Dari aplikasi sebelumnya, tambahkan komponen MediaPlayers1 dari Tab Sistem.

   6.     Komponen Progressbar1 dari Tab Additional kedalam Panel2.

   7.     Dan kompnen Timer1 dari Tab System kedalam Panel2.

Ubahlah property komponen masing-masing komponen tersebut seperti berikut ini :

KOMPONEN	PROPERTY
MediaPlayers1	Name = AudioPlayer
Progressbar1	Name = Audiobar
Timer1	Interval = 10

  8.     Tambahkan komponen Drivecombobox, Directorylistbox, filelesbox dan filtercombobok dari Tab Win 3.1.

Ubahlah property komponen masing-masing komponen tersebut seperti berikut ini :

KOMPONEN	PROPERTY
Drivecombobox	Dirrlis = Directorylistbox1
Directorylistbox	Filelist = Filelisbox1
filtercombobox	Filelisbox1

  9.     Aktifkan komponen filtercombobok dan Klik tanda (…) disebelah kanan kolom Filte pada Tab Property, sehingga muncul Editor file editor seperti gambar berikut.

Gambar 3

  10.   Double klik pada komponen Timer1, kemudian ubah prosedurnnya seperti berikut:

Procedure TForm1.Timer1Timer(Sender: TObject);

begin

if Label1.Left<-label2 .width="" font="" then="">

Label2.Left:=label2.Width

Else

Label2.Left:=Label1.Left - 1;

AudioBar.Position:=AudioPlayer.Position;

end;

  11.   Klik komponen filelesbox1, kemudian klik Tab Even pada Objek Inspektor. Double klikpada kolomOnKlik, kemudian lengkapi Prosedurnya seperti berikut:

Procedure TForm1.FileListBox1Click(Sender: TObject);

Begin

AudioPlayer.FileName:=FileListBox1.FileName;

AudioPlayer.Open;

Label2.Caption:=FileListBox1.FileName;

AudioBar.Max:=AudioPlayer.Length;

end;

  12.    Masih dengan kompoen FileListBox1, pada Tab Even double klik pada pada kolom OnDblClick, kemudian lengkapi Prosedurnya seperti berikut:

Procedure TForm1.FileListBox1DblClick(Sender: TObject);

Begin

AudioPlayer.FileName:=FileListBox1.FileName;

AudioPlayer.Open;

Label2.Caption:=FileListBox1.FileName;

AudioBar.Max:=AudioPlayer.Length;

AudioPlayer.Play;

end;

  13.   Masukkan Prosedure dibawah ini:

Procedure TForm1.BitBtn1Click(Sender: TObject);

begin

close;

end;

end.