Membuat Kalkultor dengan delphi

langsung aje....yang pada mau download script kalkultor disini .

penjelasan :
procedure TForm1.AssignAngka(Ank:string);
begin
{Angka}
if(Reset = true) then
begin
IndexAngka := 2;
memo1.Lines.Text := ank;
Angka[IndexAngka] := strtoint(ank);
Reset := false;
end
else
begin
memo1.Lines.Text := memo1.Lines.Text + ank;
Angka[IndexAngka] := strtoint(memo1.Lines.Text);
end;
end;

ini adalah bagian script yang berfungsi untuk menyimpan dan menghapus entri yang kita buat.ketika data yang kita masukan valid maka akan disimpan sementara di memory kita.dan kemudian diupload dan diambil data yang sebelumnya.
sehingga pada saat kita menekan tombol 1 sebanyak 2 kali maka hasilnya akan menjadi 11.

procedure TForm1.AssignOperator(Op:string);
begin
{Operator}
if(Angka[2] <> 0) then
btnHitungClick(nil);
Operator := Op;
reset:= true;
end;

ini adalah bagian script operator yang bertugas menjalankan perintah yang sudah dideskripsikan oleh program.
saat kita ingin menjumlahkan 5 + 4 maka secara otomatis script diatas menjalankan tugasnya. yaitu dengan mengambil angka 5 yang sudah disimpan di memory angka dan menjumlahkan dengan angka berikutnya yaitu 4 . dan hasilnya akan kelihatan pada saat kita menekan tombol "=" atau menekan tombol opertor lainnya
procedure TForm1.Button1Click(Sender: TObject);
begin
MessageDlg('kalkultor ini dibuat oleh Dedy Irvandy' + #13#10+
'didedikasikan untuk teman-teman ane'

,mtInformation,mbOKCancel,0)
end;

end.

script diatas adalah untuk button "pembuat"
silahkan edit dan masukan biodata kalian pada bagian ini :
'kalkultor ini dibuat oleh Dedy Irvandy' + #13#10+
'didedikasikan untuk teman-teman ane'

untuk menambah enter pada kolom informasi di delphi gunakan script + #13#10+


selanjutnya ente kembangin sendiri mau ditambahin cos ,sin, akar,pangkat dan laen-laen terserah ente..

Password : http://dedy-irvandy.blogspot.com