Kalkulator Otomatis

Oke gan lngsung ke pokoknya aja hehe,dari berbagai kunjungan saya di blog lain banyak yang mencari tutor membuat kalkulator dengan delphi dan ada pula yang menginginkan penjumlahan secara otomatis nha dipostinga kali ini saya akan membari penerangan dan sedikit ilmu tentang membuat penjumlahan,pembagian,pengurangan,dan perkalian otomatis dengan delphi7 monggo pelajari ya bagi yang butuh hehe...... langkahnya antara lain sbb
siapkan 6 komponen edit(dipallet standard) dan desain seperti gambar di bawah

masukkan rumus pada edit1(double klik edit1 dan kasih rumus yang saya beri latar biru) 



procedure TForm1.Edit1Change(Sender: TObject);
begin
Edit3.text:=inttostr(strtoint(Edit1.Text) + strtoint(Edit2.Text));
Edit4.text:=inttostr(strtoint(Edit1.Text) - strtoint(Edit2.Text));
Edit5.text:=inttostr(strtoint(Edit1.Text) * strtoint(Edit2.Text));
end;


dan masukkan rumus di edit2 (double klik pada edit2) rumus yang saya beri latar merah


procedure TForm1.Edit2Change(Sender: TObject);
begin
Edit3.text:=inttostr(strtoint(Edit1.Text) + strtoint(Edit2.Text));
Edit4.text:=inttostr(strtoint(Edit1.Text) - strtoint(Edit2.Text));
Edit5.text:=inttostr(strtoint(Edit1.Text) * strtoint(Edit2.Text));
Edit6.text:=floattostr(strtofloat(Edit1.Text) / strtofloat(Edit2.Text));
end;


oke gan sudah di coba hehe hasilnya pasti memuaskan hehe jangan lupa komen ya hehe