kalkulator dephi

coding plus

Ehasil .Text :=IntToStr(StrToInt(Esatu .Text )+StrToInt (Edua .Text ) );

kurang

Ehasil .Text :=IntToStr(StrToInt(Esatu .Text )-StrToInt (Edua .Text ) );

kali

Ehasil .Text :=IntToStr(StrToInt(Esatu .Text )*StrToInt (Edua .Text ) );

bagi

Ehasil .Text :=FloatToStr (StrToInt(Esatu .Text )/StrToInt (Edua .Text ) );

div

Ehasil .Text :=IntToStr(StrToInt(Esatu .Text )div StrToInt (Edua .Text ) );

mod

Ehasil .Text :=IntToStr(StrToInt(Esatu .Text )mod StrToInt (Edua .Text ) );

clear

Esatu.Text:='';

Edua .Text :='';

Ehasil .Text :='';

close

Form1 .Close ;

lumayan buat latihan pertama!!!