Feb 182010
Berikut ini adalah sebuah kalkulator sederhana yang di buat menggunakan delphi 7. Disertakan juga source code nya. tidak ada error. Hanya saja kalkulator ini hanya mendukung penjumlahan, pengurangan, pembagian, perkalian, serta sqrt (pangkat 2). Inti dari kalkulator ini adalah pada file infix. untuk file infix, jujur saja, bukan saya yang membuatnya 🙂 ahh.. monggo, silakan, download saja, kemudian pelajari sendiri algoritmanya…
9 Responses to “Kalkulator delphi sederhana”
Sorry, the comment form is closed at this time.
mas fungsi procedure EvaluateExp(const MyExpr:String); untuk apa dan bagaimana memasukan fungsi tersebut mohon di perjelas. thanks
secara sederhana,prosedur evaluateexp di panggil oleh button10 onclick. dan prosedur evaluateexp sendiri memanggil fungsi2 yang ada pada infix terutama InFix.RawCalculate(MyExpr, MyResult, MyErr);. fungsi/guna dari prosedur evaluateExp untuk menghitung operasi yang tertulis pada edit1.
sulit juga untuk dijelaskan, karena saya sendiri juga menganggap bagian ini cukup rumit. hehe 🙂 maf.
thanks neh. . .
mf sebelumnya mau tanya program calculaton yg prosesnya di satu Pushbutton saja yaitu contohnya samadengan saja .makasih tas bantuannya kirim ke email sy aja suma8526@yahoo.com
Saya jawab di sini juga..
baiklah, untuk button 10 atau tombol (=), cara kerjanya,
ketika di tekan tombol =, maka akan dijalankan procedure
procedure TForm1.Button10Click(Sender: TObject);
begin
EvaluateExp(edit1.text); {memanggil prosedur EvaluateExp ketika tombol 10 (=) di klik}
end;
diatas nampak button = hanya memanggil procedure evaluateExp.sedangkan procedure tersebut adalah :
procedure EvaluateExp(Const MyExpr : string); {mendefinisikan procedure EvaluateExp
var untuk melakukan penghitungan}
MyErr : Byte;
MyResult : Real;
begin
MyErr := 0;
MyResult := 0.0;
InFix.RawCalculate(MyExpr, MyResult, MyErr);
form1.Edit1.Clear;
form1.Edit1.Text := floattostr(myresult);
end;
dalam procedure ini, di panggil fungsi rawcalculate yang ada di file infix. yang nantinya function inipun juga memanggil procedure atau function lainya…
demikian, terima kasih atas respon anda. semoga bermanfaat. salam, admin.
kenapa untuk hasil atau = , tidak ditekan / push dari keyboard saja. Terimakasih…
y ga kenapa-kenapa.. bisa juga sebenarnya.. dipasang pada event on keyprees.. mungkin itu bisa anda tambahkan sendiri. terima kasih.
kalau pkai edit, trus editnya cuma satu gimana yyya???
lhah? emang kalkulator ini g pake 1 edit y? seinget q pake 1 edit text kok… mksdny gmn ni?