Membuat aplikasi Data Pribadi

Ass..... Sahabat ku mari kita belajar Delphi lagi.....

langsung saja kita ke topik masalah yang akan kita bahas kali ini, yaitu membuat program Aplikasi Data Pribadi . disi Kita membutuhkan Form tentunya dan 8 buah Tlabel ,5 buah Tedit,1 buah TdataTime ,3 buah Tbit btn ,Tlishbox dsb.....dan jangn lupa menjalan kan program Delphinya.

berikut adalah code untuk tombol proses sahabat dengan cara mendouble clik tombol agar muncul spt dibawah ini :

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

    ListBox1.Items.add('NAMA LENGKAP  : '+Edit1.Text );

    ListBox1.Items.add('TANGGAL LAHIR : '+datetostr(lahir.date));

    ListBox1.Items.add('ALAMAT        : '+Edit3.Text);

    if RadioButton1.Checked then

    ListBox1.Items.Add('JENIS KELAMIN : '+RadioButton1.Caption) ELSE

    ListBox1.Items.Add('JENIS KELAMIN : '+RadioButton2.Caption);

    ListBox1.Items.add('PENDIDIKAN    : '+Edit2.Text);

    ListBox1.Items.add('AGAMA         : '+Edit4.Text);

    ListBox1.Items.add('MOTTO HIDUP   : '+Edit5.Text);

end;

 selanjutnya untuk code tombol clear atau ulangnya sahabat jangan lupa... masukan pula spt ini.

procedure TForm1.BitBtn2Click(Sender: TObject);

begin

    Edit1.Clear;

    Edit2.Clear;

    Edit3.Clear;

    Edit4.Clear;

    Edit5.Clear;

    ListBox1.Clear;

Seperti ini lah Outputnya Sahabat......

 

Semoga bermanfaat ....dan jangn lupa komentarnya, agar dapat menjadi acuan untuk menjadi lebih baik . Haturnuhunnnnn ......hehehehe

Read More

Membuat Kalkulator sederhana

Ass.... sahabat , mari terus belajar dan berajar agar apa yang kita harapkan dan inginkan dapat tercapai dengan  mudah, karna belajar sama saja dengan sebuah pengalaman.

Langsung saja, kali ini saya mencoba belajar membuat aplikasi Kalkulator sederhana ,dimana dalam pembuatan nya membutuhkan : Form, Empat buah Label,Tiga buah Edit dan Enam buah Tombol secara garis besar....

ini dia untuk code tombol Prosesnya......  

Pertama-tama kita double clik tombol + dan masukan codenya ,spt dibawah ini. dst

procedure TForm1.Button1Click(Sender: TObject);

begin

 Edit3.Text:=inttostr(strtoint(Edit1.Text)+strtoint(Edit2.Text));  // ( code untuk tombol tambah )

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

  Edit3.Text:=inttostr(strtoint(Edit1.Text)-strtoint(Edit2.Text));  // ( code untuk tombol kurang )

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

 Edit3.Text:=inttostr(strtoint(Edit1.Text)*StrToInt(Edit2.Text)); // ( code untuk tombol kali )

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

 Edit3.Text:=FloatToStr(StrToFloat(Edit1.Text)/StrToFloat(Edit2.Text)); // ( code untuk tombol tambah )

end;

Setelah code untuk tombol proses dimasukan berikut ini code untuk tombol kembalinya...jangan lupa doble clik tombolnya agar muncul sprt dibawah ini..

procedure TForm1.Button5Click(Sender: TObject);

begin

 Edit1.Text:=' ';Edit2.Text:=' ';Edit3.Text:=' ';Edit1.SetFocus;

end;

Dan untuk tombol keluarnya codenya ( close; ) ......jangan lupa di RUN ya... sahabat, ini hasil atau output tampilannya nya. "semoga bermanfat".MAKASIHHH

 

Read More

Membuat Teks Berjalan

Bissmillah....
Sahabat Disini kita mencoba membuat program sederhana dari Delphi yaitu Membuat Teks Berjalan,
Untuk membuat objek seperti teks atau gambar, shape atau objek lainya berjalan pada delphi dapat digunakan komponen Timer, dan objek yang akan dijalankan. Buatlah form sebagai berikut :

Atur Properties Timer dengan internal sesuai dengan kecepatan yang diinginkan, semakin kecil nilai Interval kecepatan objek akan semakin cepat. Pada contoh ini diisi nilai Interval = 100 atau 0,1 detik
Buatlah kode program sebagai berikut pada saat tombol jalan diklik dan tombol berhenti diklik sbb :

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Left :=  Label1.Left – 5;
if  Label1.Left < -110 then
Label1.Left := 400;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled := true
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Timer1.Enabled := False
end;
end.

Lalu running program dan hasilnya sebagai berikut :

 

Semoga bermanfat sahabat.... Wass

Read More

Belajar Bahasa pemograman DELPHI

Bissmillah.... Marilah kita mengenal lebih dekat Bahasa Pemograman Delphi agar kita tau karakteristiknya.

" Delphi adalah suatu bahasa pemograman (development language) yang digunakan untk merancang suatu aplikasi program. Delphi termasuk dalam pemrograman bahasa tingkat tinggi (high level lenguage). Maksud dari bahasa tingkat tinggi yaitu perintah-perintah programnya menggunakan bahasa yang mudah dipahami oleh manusia. Bahasa pemrograman Delphi disebut bahasa prosedural artinya mengikuti urutan tertentu. Dalam membuat aplikasi perintah-perintah, Delphi menggunakan lingkungan pemrograman visual.
Delphi merupakan generasi penerus dari Turbo Pascal. Pemrograman Delphi dirancang untuk beroperasi dibawah sistem operasi Windows. Program ini mempunyai beberapa keunggulan, yaitu produktivitas, kualitas, pengembangan perangkat lunak, kecepatan kompiler, pola desain yang menarik serta diperkuat dengan  bahasa perograman yang terstruktur dalam struktur bahasa perograman Object Pascal.
Sebagaian besar pengembang Delphi menuliskan dan mengkompilasi kode program di dalam lingkungan pengembang aplikasi atau Integrated Development Environment (IDE). Lingkungan kerja IDE ini menyediakan sarana yang diperlukan untuk merancang, membangun, mencoba, mencari atau melacak
kesalahan, serta mendistribusikan aplikasi. Sarana-sarana inilah yang memungkinkan pembuatan prototipe aplikasi menjadi lebih mudah dan waktu yang diperlukan untuk mengembangkan aplikasi menjadi lebih singkat".

jbptunikompp-gdl-iipirmansy-26712-5-unikom_i-i.pdf

Semoga bermanfaat dan menjadi Pedoman buat kita semua.

Read More