Delphi 7 Membuat Program kalkulator Sederhana ~ AmiTutor97

Tutorial Membuat Program Kalkulator Sederhana Menggunakan Bahasa Pemograman Delphi 7

Script Untuk Button Kali

procedure TForm1.Button1Click(Sender: TObject);
begin
IF (Edit2.Text='') or (Edit3.Text='')
Then
Begin
  ShowMessage('Silahkan Masukkan Angka Yang Ingin Di Hitung');
  End
  Else
  Edit1.Text:=FloatToStr(StrToFloat(Edit2.Text) * StrToFloat(Edit3.Text));
end;

Script Untuk Button Bagi

IF (Edit2.Text='') or (Edit3.Text='')
Then
Begin
  ShowMessage('Silahkan Masukkan Angka Yang Ingin Di Hitung');
  End
  Else
  Edit1.Text:=FloatToStr(StrToFloat(Edit2.Text) / StrToFloat(edit3.Text));
end;

Script Untuk Button Tambah

IF (Edit2.Text='') or (Edit3.Text='')
Then
Begin
  ShowMessage('Silahkan Masukkan Angka Yang Ingin Di Hitung');
  End
  Else
  Edit1.Text:=FloatToStr(StrToFloat(Edit2.Text) + StrToFloat(edit3.Text));
end;

Script Untuk Button Kurang

IF (Edit2.Text='') or (Edit3.Text='')
Then
Begin
  ShowMessage('Silahkan Masukkan Angka Yang Ingin Di Hitung');
  End
  Else
  Edit1.Text:=FloatToStr(StrToFloat(Edit2.Text) - StrToFloat(edit3.Text));
end;

Script Untuk Button Batal

Edit1.Text:='0';
Edit2.Text:='0';
Edit3.Text:='0';

Script Untuk FormCreate

procedure TForm1.FormCreate(Sender: TObject);
begin
Edit1.Text:='0';
Edit2.Clear;
Edit3.Clear;
end;

Tutorialnya bisa dilihat dibawah ini

Pesan AmiTutor97

Terimakasih sudah berkunjung ke situs blog saya, pergunakanlah ilmu yang anda dapatkan di blog saya sebaik mungkin.

10 komentar

Click here for komentar

Alex Sudrajat

admin

July 11, 2017 at 7:13 PM ×

Rinci sekali penulisannya, algoritmanya mantap sekali dan rapi susunannya. Mudah dipahami dan sangat membantu saya yang sedang belajar programming.

Surya Dua Enam

August 3, 2017 at 1:53 PM ×

dari dulu pengen belajar delphi, tapi sayang..pasionnya IT, tapi kuliah nya malah di Ekonomi..hahaha

JealousBird32

August 3, 2017 at 2:55 PM ×

Oke gan berhasil work, jadi makin seneng nih ane sama program delphi

Rahmat Fadhli

August 5, 2017 at 8:52 AM ×

keliahatannya gampang dan mudah. pemula seperti saya cocoknya belajar gini dulu kali ya? yang kalkulator

AmiTutor97

August 5, 2017 at 9:07 AM ×

ini cocok untuk pemula.

Unknown

August 5, 2017 at 11:35 AM ×

Mantap gan, saya bookmark dulu siapa saya mengalami kesulitan untuk membuat....
Thanks gan untuk sharingnya...

August 17, 2017 at 6:14 AM ×

sngat lengkap dan mudah dio pahami gan

August 18, 2017 at 11:05 AM ×

dulu pernah belajar tentang ini nih, nice

Admin - Charten

August 18, 2017 at 7:53 PM ×

Pengen belajar :D

kilometerindonesia.blogspot.com

August 19, 2017 at 2:06 PM ×

Ane coba gann.... Thx ya