MEMBUAT KALKULATOR SEDERHANA

MEMBUAT KALKULATOR SEDERHANA Aplikasi Delphi 7.0 dapat digunakan untuk membuat kalkulator sederhana dengan menggunakan bahasa pemrograman PASCAL. Langkah-langkahnya:  Double klik pada icon Delphi 7.0  Setelah muncul jendela projectnya, lalu buatlah programnya dengan menggunakan command pallete. Maka hasilnya akan seperti ini:

 Double click pada button “Hitung”, kemudian masukkan codingnya seperti ini: procedure TForm1.Button1Click(Sender: TObject); var a,b,c : integer; d,e,f : real; begin if RadioButton1.Checked =true then begin a:= strtoint(edit1.Text); b:= strtoint(edit2.Text); c := a + b ; edit3.Text := inttostr(c); end else if RadioButton2.Checked =true then begin a:= strtoint(edit1.Text); b:= strtoint(edit2.Text); c := a - b; edit3.Text := inttostr(c); end else if RadioButton3.Checked = true then begin a:= strtoint(edit1.Text); b:= strtoint(edit2.Text); c := a * b; edit3.Text := inttostr(c); end else if RadioButton4.Checked = true then begin a:= strtoint(edit1.Text); b:= strtoint(edit2.Text); c := a div b ; edit3.Text := inttostr(c); end else if RadioButton5.Checked = true then begin d:= strtofloat(edit1.Text); e:= strtofloat(edit2.Text); f := d / e; edit3.Text := floattostr(f); end else if RadioButton7.Checked = true then begin a:= strtoint(edit1.Text); b:= strtoint(edit2.Text); c := a Mod b ; edit3.text := inttostr(c) end end;  Maka jalankan program dari coding yang telah dimasukkan pada button “Hitung” dengan cara tekan f9 atau play. 1. Maka akan seperti ini bila kita klik button Penjumlahan :

2. Maka akan seperti ini bila kita klik button Pengurangan:

3. Maka akan seperti ini bila kita klik button Perkalian :

4. Maka akan seperti ini bila kita klik button Pembagian:

5. Maka akan seperti ini bila kita klik button Pembagian Real:

6. Maka akan seperti ini bila kita k;ik button Sisa Bagi:

 Double click pada button “Hapus”, kemudian masukkan codingnya seperti ini: procedure TForm1.Button2Click(Sender: TObject); begin edit1.Text := ''; edit2.Text := ''; edit3.Text := ''; edit1.setfocus; radiobutton1.checked := false; radiobutton2.Checked := false; radiobutton3.Checked := false; radiobutton4.Checked := false; radiobutton7.Checked := false; radiobutton5.Checked := false; end; procedure TForm1.Button3Click(Sender: TObject); begin close end; end.  Maka jalankan program dari coding yang telah dimasukkan pada button “Hapus” dengan cara tekan f9 atau play. Maka akan menjadi seperti ini:

 Double click pada button “Keluar”, kemudian masukkan codingnya seperti ini: procedure TForm1.Button3Click(Sender: TObject); begin close end; end.