Kalkulator Sederhana

Hmmm...asyik gak sich lo kita bisa buat sendiri kalkulator sederhana yang bisa kita pake untuk kebutuhan kita sendiri???

Menurutku akan lebih menyenangkan bila kita mampu membuat sesuatunya itu sendiri dengan tangan dan akal kita...

Coba-coba yuuk kita belajar buat kalkulator sederhana...kamu bisa pake Delphi ataupun Visual Basic...beda-beda tipis kok...

Nah kali ini, aku coba buat kalkulator ini dengan menggunakan Delphi...

Buka Delphi kamu dan atur user interface yang buat kamu nyaman dengan komponen berikut ini:

• 17 button
• 4 edit
• label (sesukamu untuk memperbaiki penampilan kalkulator kamu)
  

Langkah-langkah pengaturan komponen:

• susun 17 button sebagai inputan nomor dan operasi yang diinginkan
• susun pula 4 edit sebagai hasil output dari inputan button diatas (ingat, atur yang baik agar program berjalan dengan baik)
  
• untuk memberikan inisial pada ke-17 button dan 4 edit tersebut, rubah caption pada object inspector dengan inisial yang sesuai. Misal button1 dirubah dengan angka "1", begitu pula untuk edit dapat dikosongkan saja pada caption yang tersedia
• untuk mengubah warna pada form, rubahlah pengaturan "color" pada object inspector sesuai warna yang kamu inginkan. Namun, klik dulu 1 kali saja pada form utama sebelum merubah warna(klik 1 kali pada bidang yang ingin di beri pengaturan, berlaku untuk semua komponen yang ingin di beri pengaturan object inspector)
  
• bila semua telah terinisialisasi, kita mulai memberikan operasi program pada komponen tersebut

Potongan program:

• untuk semua bagian input nilai atau button.
  

Contoh:
beri double klik pada button "1", maka kamu akan masuk ke unit pemberian potongan program, dan kemudian ketikan program dibawah ini:

procedure TForm1.Button1Click(Sender: TObject);
begin
If Edit2.Text= ' ' then
Edit1.Text:=Edit1.Text + '1'
Else
Edit3.Text:=Edit3.Text + '1';
end;

bagian bercetak tebal secara otomatis keluar ketika button "1" mendapat double klik.

beri perlakuan yang sama pada semua button berinisial angka, namun rubah bagian potongan program bertanda merah sesuai angka yang ditunjuk. Lakukan juga pada inisial pemisah, yaitu pada inisial koma yang bisa kamu inisialkan "," atau ".".

• untuk button berinisial plus "+","-","/", dan "*".
  

lakukan double klik sesuai komponen dan beri potongan program
procedure TForm1.Button13Click(Sender: TObject);
begin
Edit2.Text:='+';
end;

ingat, rubah untuk komponen lain serupa hanya pada tanda merah!!

• untuk inisial "C" yang berarti clear beri potongan program

procedure TForm1.Button17Click(Sender: TObject);
begin
Edit1.Text:=' ';
Edit2.Text:=' ';
Edit3.Text:=' ';
Edit4.Text:=' ';
end;

• untuk inisial "=" diberi potongan program

procedure TForm1.Button16Click(Sender: TObject);
Var Hasil:single;
begin
If Edit2.Text='+' then
Hasil:=StrToFloat(Edit1.Text) + StrToFloat(Edit3.Text);
If Edit2.Text='-' then
Hasil:=StrToFloat(Edit1.Text) - StrToFloat(Edit3.Text);
If Edit2.Text='/' then
Hasil:=StrToFloat(Edit1.Text) / StrToFloat(Edit3.Text);
If Edit2.Text='*' then
Hasil:=StrToFloat(Edit1.Text) * StrToFloat(Edit3.Text);
Edit4.Text:=FloatToStr(Hasil);
end;

Nah, selesai dech pemberian program pada kalkulator kita ini, sekarang saatnya dicoba. Run/jalankan program tersebut. Eits, bila terdapat error...itu tugas kamu untuk mencari letak error dari program yang kamu buat. Ingat ea...pemberian program harus sesuai dengan button atau komponen yang bersangkutan, jadi jangan asal masukin program....mudah kan...met mencoba...^^,b