Ass.... sahabat , mari terus belajar dan berajar agar apa yang kita harapkan dan inginkan dapat tercapai dengan mudah, karna belajar sama saja dengan sebuah pengalaman.
Langsung saja, kali ini saya mencoba belajar membuat aplikasi Kalkulator sederhana ,dimana dalam pembuatan nya membutuhkan : Form, Empat buah Label,Tiga buah Edit dan Enam buah Tombol secara garis besar....
ini dia untuk code tombol Prosesnya......
Pertama-tama kita double clik tombol + dan masukan codenya ,spt dibawah ini. dst
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit3.Text:=inttostr(strtoint(Edit1.Text)+strtoint(Edit2.Text)); // ( code untuk tombol tambah )
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Edit3.Text:=inttostr(strtoint(Edit1.Text)-strtoint(Edit2.Text)); // ( code untuk tombol kurang )
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
Edit3.Text:=inttostr(strtoint(Edit1.Text)*StrToInt(Edit2.Text)); // ( code untuk tombol kali )
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
Edit3.Text:=FloatToStr(StrToFloat(Edit1.Text)/StrToFloat(Edit2.Text)); // ( code untuk tombol tambah )
end;
Setelah code untuk tombol proses dimasukan berikut ini code untuk tombol kembalinya...jangan lupa doble clik tombolnya agar muncul sprt dibawah ini..
procedure TForm1.Button5Click(Sender: TObject);
begin
Edit1.Text:=' ';Edit2.Text:=' ';Edit3.Text:=' ';Edit1.SetFocus;
end;
Dan untuk tombol keluarnya codenya ( close; ) ......jangan lupa di RUN ya... sahabat, ini hasil atau output tampilannya nya. "semoga bermanfat".MAKASIHHH
0 komentar:
Posting Komentar