Simple coding delphi - Daily News Cryptocurrency

Cara Membuat Kalkulator Sederhana Dari Delphi7

disini saya akan menjelaskan cara membuat kalkulator dari delphi7

1. Yang pertama anda harus menginstal terlebih dahulu delphi7.(Jika belum mempunyai setup.exe tenang aja download aja di blog saya)
2. Setelah di instal langsung jalankan program delphi 7 tersebut.
3. Setelah dijalankan tambahkan :-Label 3 buah,edit 3 buah,button 8 buah dan 1 btnbutton untuk refresh.

Edit1.name=nilai1
Edit2.name=nilai2
Edit3.name=hasil

Kurang lebih seperti ini

4.setelah itu tambahkan kode

Coding untuk Button 1(tambah)

procedure Tkalkulator.tambahClick(Sender: TObject);
var
a,b,c:real;
begin
a:=StrToFloat(nilai1.Text);
b:=StrToFloat(nilai2.Text);
c:=a+b;
hasil.Text:=FloatToStr(c);
end;

Coding untuk Button 2(Kurang)

procedure Tkalkulator.KurangClick(Sender: TObject);
var
a,b,c:real;
begin
a:=StrToFloat(nilai1.Text);
b:=StrToFloat(nilai2.Text);
c:=a-b;
hasil.Text:=FloatToStr(c);
end;

Coding untuk button 3(kali)

procedure Tkalkulator.KaliClick(Sender: TObject);
var
a,b,c:real;
begin
a:=StrToFloat(nilai1.Text);
b:=StrToFloat(nilai2.Text);
c:=a*b;
hasil.Text:=FloatToStr(c);
end;

Coding untuk button 4(bagi)

procedure Tkalkulator.BagiClick(Sender: TObject);
var
a,b,c:real;
begin
a:=StrToFloat(nilai1.Text);
b:=StrToFloat(nilai2.Text);
c:=a/b;
hasil.Text:=FloatToStr(c);
end;

Coding untuk button 5(sin)

procedure Tkalkulator.SinClick(Sender: TObject);
var
a,b:real;
begin
a:=strtofloat(nilai1.Text);
b:=sin(a*3.14/180);
hasil.Text:=floattostr(b);
end;

Coding untuk button 6(mod)

procedure Tkalkulator.ModClick(Sender: TObject);
var
a,b,c:integer;
begin
a:=strtoint(nilai1.Text);
b:=strtoint(nilai2.Text);
c:=a Mod b;
hasil.Text:=inttostr(c);
end;

Coding untuk button7(div)

procedure Tkalkulator.DivClick(Sender: TObject);
var
a,b,c:integer;
begin
a:=strtoint(nilai1.Text);
b:=strtoint(nilai2.Text);
c:=a Div b;
hasil.Text:=inttostr(c);
end;

Coding untuk button8(cos)

procedure Tkalkulator.CosClick(Sender: TObject);
var
a,b:real;
begin
a:=strtofloat(nilai1.Text);
b:=cos(a*3.14/180);
hasil.Text:=floattostr(b);
end;

Coding untuk button refresh

procedure Tkalkulator.RefreshClick(Sender: TObject);
begin
nilai1.Clear;
nilai2.Clear;
hasil.Clear;
end;

Ket:

• Tipe data real adalah Tipe dari suatu tanda pengenal selain mengenal bilangan bulat utuh tipe data ini juga mengenal nilai angka yang mengenal pecahan.
• Tipe data integer adalah tipe data bilangan bulat yang hanya mengenal decimal dan tidak dapat mengenal bilangan pecahan.
• Tipe data string merupakan tipe data yang isinya berupa anumerik yang tidak dapat diberikan operator perhitungan karena bukan bersifat numerik value.
• Strtofloat : untuk merubah tipe data string ke tipe data Real.
• Strtoint : untuk merubah tipe data string ke tipe data integer.
• Floattostr : untuk merubah tipe data real ke tipe data string.
• Inttostr : untuk merubah tipe data integer ke tipe data string.

Good Luck!!!