Aplikasi Desktop Kalkulator Sederhana Dengan Bahasa Pemrograman PASCAL

Hallo gaes Admin_AP disini.. kali ini saya mau berbagi tutorial aplikasi Kalkulator Sederhana berbahasa pemrograman PASCAL. Tutorial kali ini saya khususkan buat PEMULA ya, kalau yang udah expert mungkin gak terlalu penting ya hehe..

Okee kita lanjuttt…

Aplikasi Kalkulator Sederhana ini dibuat menggunakan salah satu program yang berorientasi object ( OOP ) yaitu DELPHI 7. kemampuanya dapat dipakai untuk merancang program aplikasi yang berpenampilan seperti program aplikasi lainya yang berbasis Windows. untuk link download akan saya sediakan dibawah.

1. Buat Tampilan Label,Tombol/Button, Kolom isian/TEdit sesuai dengan gambar.
2. Initial Variable

Var
  angka1,angka2,hasil:double;
  operator:string;
3. Procedure FormCreate
edit1.Text:= '0';
edit2.Text:= '0';
edit3.Text:= '0';
operator := '';
4. Procedure Button “Hitung”
angka1:= strtoint(edit1.Text);
angka2:= strtoint(edit2.Text);

if operator = '' then
begin
Showmessage('operator perhitungan belum dipilih');
end
else if operator = '+' then
begin
hasil:= angka1+angka2;
end
else if operator = '-' then
begin
hasil:= angka1-angka2;
end
else if operator = 'x' then
begin
hasil:= angka1*angka2;
end
else if operator = ':' then
begin
hasil:= angka1/angka2;
end;

edit3.Text:=floattostr(hasil);
5. Procedure Button (+) (-) (x) (:)
operator:='+';
label4.Caption:= operator;
operator:='-';
label4.Caption:= operator;
operator:='*';
label4.Caption:= operator;
operator:='/';
label4.Caption:= operator;

Leave a Reply

Your email address will not be published. Required fields are marked *