Jauh JG

Aplikasi Kalkulator Sederhana dengan Delphi 7 - Pada postingan kali ini, saya akan membagikan contoh program aplikasi menggunakan bahasa pemrograman delphi 7. Ini saya posting khusus untuk mahasiswa BSI Purwokerto yang sedang belajar bahasa pemrograman terbaik menurut saya setelah visual basic. Dan postingan ini juga request dari teman yang ingin dibuatkan program kalkulator sederhana lewat delphi 7. Tapi sebelumnya mampir dulu deh ke artikel yang berjudul Belanja Produk Gaya Hidup Kontemporer Dari Desainer Berbakat Dengan Harga Terjangkau!. Kali aja kalian tersentuh hatinya untuk shopping disana. heehe. Oke cuss lanjutt!!

procedure Tform1.bersih;

begin

edit1.text:=;

edit2.text:=;

edit3.text:=;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

bersih;

end;

procedure TForm1.Button1Click(Sender: TObject);

var tambah : real;

begin

tambah:=StrToFloat(edit1.Text)+StrToFloat(edit2.Text);

Edit3.Text:=FloatToStr(tambah);

end;

procedure TForm1.Button2Click(Sender: TObject);

var kurang:real;

begin

kurang:=StrToFloat(edit1.Text)-StrToFloat(edit2.Text);

Edit3.Text:=FloatToStr(kurang);

end;

procedure TForm1.Button4Click(Sender: TObject);

var bagi : real; 

begin 

bagi:=StrToFloat(edit1.Text) / StrToFloat(edit2.Text);

Edit3.Text:=FloatToStr(bagi);

end;

procedure TForm1.Button3Click(Sender: TObject);

var kali : real;

begin 

kali:=StrToFloat(edit1.Text) * StrToFloat(edit2.Text);

Edit3.Text:=FloatToStr(kali); 

end;

procedure TForm1.Button5Click(Sender: TObject);

var devided:integer; 

begin 

devided:=StrToInt(edit1.Text) div StrToInt(edit2.Text);

Edit3.Text:=IntToStr(devided);

end;

procedure TForm1.Button6Click(Sender: TObject);

var modify:integer;

begin

modify:=StrToInt(edit1.Text) mod StrToInt(edit2.Text);

Edit3.Text:=IntToStr(modify);

end;

procedure TForm1.Button7Click(Sender: TObject);

begin

bersih;

edit1.SetFocus;

end;

_______,  ___  _______ 2010
Hal : Lamaran pekerjaan

Kepada,
Yth. _____________
PT _______________
Jln. ______________

Dengan hormat,

    Saya bernama lengkap ................ Kini, saya berusia ........ tahun. Saya adalah sarjana lulusan Universitas ................, tepatnya dari Jurusan ............ Dengan ini, saya bermaksud mengajukan permohonan untuk menjadi karyawan di PT ................., khususnya sebagai .......................

    Saya memiliki kondisi kesehatan yang sangat baik. Saya menguasai bahasa Inggris, baik secara lisan maupun tulisan. Saya telah terbiasa bekerja menggunakan komputer, terutama mengoperasikan aplikasi paket MS Office, seperti Excel, Word, Acces, PowerPoint, OutLook, juga internet. Sebagai bahan pertimbangan lainnya, bersama surat ini saya lampirkan data diri saya sebagai berikut.
1.    Daftar riwayat hidup
2.    Fotokopi ijazah terakhir
3.    Fotokopi transkrip nilai
4.    Fotokopi KTP
5.    dan lain-lain

    Saya berharap Bapak/Ibu bersedia meluangkan waktu untuk memberikan kesempatan wawancara, sehingga saya dapat menjelaskan lebih rinci tentang potensi diri saya. Demikian surat lamaran ini. Terima kasih atas perhatian Bapak/Ibu.
                                    
 Hormat saya,

……………………….