Membuat kalkulator sederhana menggunakan Dhelpi 7

 

                      Assalamualaikum wr.wb Sobat shada semua kali ini saya akan kasih tau cara buat kalkulator sederhana menggunakan dhelpi okke pertama-tama kita lakukan adalah membuat rangkaian seperti disamping ini terdiri atas 3 text books dan 5 button

cara membuatnya :

okke pertama-tama yang kita lakukan adalah mendeklarasikan variabel yang ada didalam edit 1 dan edit 2 ya kita masukan saja untuk bil1 dan bil2 didalam variabelnya

 

 

contoh :

var
Form1: TForm1;
bil1,bil2 : integer;
nah setelah itu kita integrasikan didalam edit1 dan edit2nya

procedure TForm1.edt1Change(Sender: TObject);
begin
bil1 := StrToInt(edt1.Text);
end;

procedure TForm1.edt2Change(Sender: TObject);
begin
bil2 := StrToInt(edt2.Text);
end;

kenapa menggunakan strtoint karena masukan yang kita inputan itu adalah karakter string yang bagaimana kita ubah ke bentuk integer agar bisa di ubah nah setelah itu langkah berikutnya adalah memasukan didalam setiap rumusnya seperti dibawah ini
procedure TForm1.btn1Click(Sender: TObject);// untuk tombol penambahan
begin
edt3.Text := floattostr(bil1+bil2);
end;

procedure TForm1.btn2Click(Sender: TObject);// untuk tombol pengurangan
begin
edt3.Text := FloatToStr(bil1-bil2);
end;

procedure TForm1.btn3Click(Sender: TObject);// untuk tombol perkalian
begin
edt3.Text := FloatToStr(bil1*bil2);
end;

procedure TForm1.btn4Click(Sender: TObject);//untuk tombol pembagian
begin
edt3.Text := FloatToStr(bil1/bil2);
end;

procedure TForm1.btn5Click(Sender: TObject);// untuk tombol hasil bagi
begin
edt3.Text := FloatToStr(bil1 mod bil2);
end;

end.

setelah sourch code diatas dimasukan jalankan dan akan menghasilkan hasil dibawah ini

Sekian sedikit ilmu dari saya semoga bermanfaat dan terimakasih atas kunjungannya😀 Wasalamualaikum wr.wb

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s