Sabtu, 13 Juni 2015

Cara Membuat Calculator dengan Delphi7

Lagi belajar membuat calculator pake delphi7, catat dlu siapa tau berguna :(

dilengkap dengan validasi, kalo angka pertama kosong keluar pesan messagebox, dan seterus nya

procedure TForm2.btntambahClick(Sender: TObject);
var angka1,angka2,hasil:Single;
begin
  if edtpertama.Text='' then begin
    ShowMessage('angka pertama kosong');
    edtpertama.SetFocus;
  end else if edtkedua.Text='' then begin
    ShowMessage('angka kedua kosong');
    edtkedua.SetFocus;
  end else
  begin
    angka1:=StrToFloat(edtpertama.Text);
    angka2:=StrToFloat(edtkedua.Text);
    hasil:=angka1+angka2;
    edthasil.Text:=FloatToStr(hasil);
  end;
end;

procedure TForm2.btnkurangClick(Sender: TObject);
var angka1,angka2,hasil:Single;
begin
  if edtpertama.Text='' then begin
    ShowMessage('angka pertama kosong');
    edtpertama.SetFocus;
  end else if edtkedua.Text='' then begin
    ShowMessage('angka kedua kosong');
    edtkedua.SetFocus;
  end else
  begin
    angka1:=StrToFloat(edtpertama.Text);
    angka2:=StrToFloat(edtkedua.Text);
    hasil:=angka1-angka2;
    edthasil.Text:=FloatToStr(hasil);
  end;
end;

procedure TForm2.btnkaliClick(Sender: TObject);
var angka1,angka2,hasil:Single;
begin
  if edtpertama.Text='' then begin
    ShowMessage('angka pertama kosong');
    edtpertama.SetFocus;
  end else if edtkedua.Text='' then begin
    ShowMessage('angka kedua kosong');
    edtkedua.SetFocus;
  end else
  begin
    angka1:=StrToFloat(edtpertama.Text);
    angka2:=StrToFloat(edtkedua.Text);
    hasil:=angka1*angka2;
    edthasil.Text:=FloatToStr(hasil);
  end;
end;

procedure TForm2.btnbagiClick(Sender: TObject);
var angka1,angka2,hasil:Single;
begin
  if edtpertama.Text='' then begin
    ShowMessage('angka pertama kosong');
    edtpertama.SetFocus;
  end else if edtkedua.Text='' then begin
    ShowMessage('angka kedua kosong');
    edtkedua.SetFocus;
  end else
  begin
    angka1:=StrToFloat(edtpertama.Text);
    angka2:=StrToFloat(edtkedua.Text);
    hasil:=angka1/angka2;
    edthasil.Text:=FloatToStr(hasil);
  end;
end;
end.

0 comments:

Posting Komentar

Bank Saya

Pembayaran melalui Bank berikut :

Norek : 013 1 001384 5
An. Een Pahlefi

Norek BRI Rencana : 0623 01 000074-55-6
An. Een Pahlefi

Norek : 0623 01 015938 50 9
An. Een Pahlefi

Norek : 0623 01 015938 50 9
An. Een Pahlefi

Norek : 0623 01 015938 50 9
An. Een Pahlefi

Norek : 0623 01 015938 50 9
An. Een Pahlefi

Google+ Followers

Monitoring

Status Panel Admin
Jam Sekarang
Tanggal
Salam Sapa :
Status Admin :
User : User Online

Popular Posts