Membuat Kalkulator pada Delphi #2

at Rabu, Agustus 26, 2015

Pembuatan kalkulator Delphi yang ke dua ini kita menambahkan perkalian, pembagian, pangkat, akar dan kuadrat. Tutorial ini melanjutkan Pembuatan kalkulator pertama yang hanya menggunakan penjumlahan dan pengurangan. Tapi saya sarankan anda membaca tutorial pada artikel yang pertama terlebih dahulu agar mengerti dasar pembuatannya.

Video Membuat Kalkulator pada Delphi #2 ini tentunya menjelaskan kepada kita cara membuat kalkulator dengan lebih banyak perhitungan dari sebelumnya. Karena kita menambahkan perkalian, pembagian, akar, kuadrat dan pangkat. Berikut ini beberapa script yang digunakan pada button :
Ini merupakan script pada button Perkalian

var a,b,c:real;
begin
a := StrToFloat(edit1.text);
b := StrToFloat(edit2.text);
c:=a*b ;
edit3.text := FloatToStr(c);
end;

Ini merupakan script pada button Pembagian

var a,b,c:real;
begin
a := StrToFloat(edit1.text);
b := StrToFloat(edit2.text);
c:=a/b;
edit3.text := FloatToStr(c);
end;

Ini merupakan script pada button Kuadrat

var a,b:real;
begin
a := StrToFloat(edit1.text);
b := sqr (a);
edit3.text := FloatToStr(b);
end;

Ini merupakan script pada button Akar

var a,b:real;
begin
a := StrToFloat(edit1.text);
b := sqrt (a);
edit3.text := FloatToStr(b);
end;

Ini merupakan script pada button Pangkat

var
a,b,c,d,i:integer;
begin
a := StrToInt (Edit1.Text);
b := StrToInt (Edit2.Text);
c := a;
d:=1;
for i := 1 to b do
d:=d*c;
Edit3.text := IntToStr (d);
end;

Logika programnya sederhana, seperti yang sudah dijelaskan dalam video tutorial. Sekian artikel dan video mengenai Membuat Kalkulator pada Delphi yang kedua. Selamat mencoba dan langsung mempraktikannya. Semoga tutorial ini dapat bermanfaat bagi anda.

Jangan lupa juga bagikan artikel ini kepada teman anda di social media dengan klik tombol share on di bawah dan jangan lupa berikan komentar anda :)