04. Kalkulator Sederhana
Video tutorial dibawah ini memperlihatkan bagaimana membuat aplikasi kalkulator sederhana yang ditujukan untuk menjelaskan tentang cara menggunakan komponen Form, Button, Panel, dan EditBox.
Pada bagian ini juga akan dijelaskan syntax Delphi yaitu bagaimana menggunakan function StrToInt, IntToStr, FloatToStr, Operasi Perkalian, Pembagian, Penjumalah, dan Pengurangan, dan bagaimana Mempersingkat kode program.
Langak-langkah cara membuat aplikasi
|
No |
Action |
||
|
1 |
File -> New ->Application |
Save All -> Create new dir: kalkulator Project: kalkulator.dpr File : Unit1.pas |
|
|
2 |
Drop Component |
Properti |
|
|
Label1 |
Operand A |
||
|
Label2 |
Operand B |
||
|
Label3 |
Hasil |
||
|
Panel1 |
|||
|
Button1 |
+ |
||
|
Button2 |
X |
||
|
Button3 |
- |
||
|
Button4 |
/ |
||
|
Button5 |
Tutup |
||
|
3 |
Event Handler |
||
|
Button1 |
OnClick |
var a,b,c: longint; begin a:=strtoint(edit1.Text); b:=strtoint(edit2.Text); c:=a+b; panel1.Caption:=inttostr(c); |
|
|
Button2 |
OnClick |
Panel1.Caption:=inttostr( strtoint(edit1.Text) * strtoint(edit2.Text) ); code program dipersingkat, tanpa variabel temporary |
|
|
Button3 |
OnClick |
Panel1.Caption:=inttostr( strtoint(edit1.Text) – strtoint(edit2.Text) ); |
|
|
Button4 |
OnClick |
Panel1.Caption:=FloatToStr( strtoint(edit1.Text) / strtoint(edit2.Text) ); FloatToStr = karena hasil pembagian adalah floating point |
|
|
Button5 |
OnClick |
Close; |
|
|
4 |
Run |
F9 |
|
Penjelasan Source Code
Berikut ini penjelasan source code aplikasi tutorial tersebut diatas.
Apa yang sudah anda pelajari
- Komponen
- Form
- Button
- Panel
- EditBox
- Syntax
- StrToInt
- IntToStr
- FloatToStr
- Operasi Perkalian, Pembagian, Penjumalah, dan Pengurangan
- Mempersingkat kode program
Recent Comments