kalkulator-mod-zps.png

Assalamualaikum sobatku semua....

Kali ini admin mau berbagi ilmu cara membuat progam kalkulator sederhana menggunakan delphi 7 nih,,,

Sebenernya sih ini tugas kuliah admin juga dari pak A*L*M hehe J, tapi admin share juga di blog ini kali aja bermanfaat wat temen2...

Padahal sebenernya tugas ini mau admin kerjakan bareng temen2 admin (mugo handiko, bangun prasojo, pipit wijayanto, sama hamdan romadhoni) kemaren, tapi berhubung kemaren ada kendala dalam penginstalan aplikasi delphi 7nya dan ada juga temen yg waktunya dah mepet mau berangkat kerja sip siang di apotek, terpaksa deh admin ngerjain tugas ini sendirian, tapi sebenernya sih gak sendirian, kan admin di temenin ama mbah GOOGLE,hahaha 

Ya udah langsung aja dah pada topik pembahasan, coz admin takut ntar temen2 pada kabur lagi dengerin curhatan admin yg panjang dan lebar...hehehe

Berikut langkah2 membuat progam kalkulator sederhana menggunakan delphi 7 :

1.      >> Buatlah tiga label, tiga text edit, dan enam tombol button

2.     >>  Edit nama caption label, text edit, dan tombol button sesuai dengan gambar postingan blog paling atas pada object inspector di samping kiri form

3.       >> Kalau sobat2 udah mengedit dan dah sesuai dg gambar, langsung deh sobat2 copy paste dan masukan coding2nya sesuai dg object dengan cara mengklik dua kali object yg ingin sobat coding,,

Berikut codingnya :

-CODING UNTUK FORM

procedure TForm1.FormCreate(Sender: TObject);

begin

 Button1.Caption:='+';

 Button2.Caption:='-';

 Button3.Caption:='x';

 Button4.Caption:='/';

 Button5.Caption:='Exit';

Button6.Caption:='HAPUS';

 Label1.Caption:='Data 1';

 Label2.Caption:='Data 2';

 Label3.Caption:='Hasil';

 Edit1.Text:='';

 Edit2.Text:='';

 Edit3.Text:='';

 Form1.Color:=clSilver;

end;

-CODING UNTUK TOMBOL BUTTON (+)

procedure TForm1.Button1Click(Sender: TObject);

begin

Edit3.Text:=floattostr(strtofloat(edit1.Text)+strtofloat(edit2.Text));

end;

-CODING UNTUK TOMBOL BUTTON (-)

procedure TForm1.Button2Click(Sender: TObject);

begin

Edit3.Text:=floattostr(strtofloat(edit1.Text)-strtofloat(edit2.Text));

end;

-CODING UNTUK TOMBOL BUTTON (*)

procedure TForm1.Button3Click(Sender: TObject);

begin

Edit3.Text:=floattostr(strtofloat(edit1.Text)*strtofloat(edit2.Text));

end;

-CODING UNTUK TOMBOL BUTTON (/)

procedure TForm1.Button4Click(Sender: TObject);

begin

Edit3.Text:=floattostr(strtofloat(edit1.Text)/strtofloat(edit2.Text));

end;

-CODING UNTUK TOMBOL BUTTON EXIT

procedure TForm1.Button5Click(Sender: TObject);

begin

close;

end;

-CODING UNTUK TOMBOL BUTTON HAPUS

procedure TForm1.Button6Click(Sender: TObject);

begin

Edit1.Text:='';

 Edit2.Text:='';

 Edit3.Text:='';

end;

kalau codingnya udah sobat masukan semua sesuai dg objectnya, langsung dah sobat jalankan dengan mengklik tombol RUN di atas form,,
oh iya sob,, kalau sobat sudah masukan coding2 di atas dengan sesuai dan benar tapi masih “ERROR” ketika sobat menjalankannya, coba sobat ganti semua tanda kutip atas (‘) pada coding dengan tanda kutip asli ketikan dari keyboard sobat,,,

selamat mencoba dan semoga berhasil..

wassalamualaikum....

sumber coding : http://sinausateruse.wordpress.com