03. Konversi Suhu
Demo aplikasi
Aplikasi selanjutnya yang akan dibuat adalah konverter suhu C, F, Kelvin dimana user dapat memasukkan nilai-nilai masing-masing dan menekan sebuah tombol konversi.
Langsung saja kita coba bikin aplikasi sederhana pada Delphi. Buka Program Delphi jika belum. Lalu klik menu File->New->Application, dan perhatikan apa yang muncul setelah itu.
- Pada window Code Editor akan terlihat beberapa baris sintaks pemrograman dalam bahasa Object Pascal, akan kita bahas selanjutnya
- arahkan mouse pada Project Manager, atau gunakan menu View -> Project Manager. Disini akan terlihat Project1.exe pada tree-view dimana kita bisa expand entry tersebut untuk mendapatkan informasi Unit1, yang dapat diexpand untuk melihat Unit1.pas dan Form1. Di sini Delphi telah membuatkan untuk kita beberapa file, yaitu Unit1.pas yang beisi deklarasi perintah program seperti terlihat pada Code Editor, Unit1.dfm yang berisi informasi visual form, dan Project1.dpr yang merupakan file project aplikasi itu sendiri
- perhatikan pada bagian belakang window code editor, terdapat sebuat window yang adalah window Form1, tempat kita meletakkan komponen-komponen yang digunakan oleh aplikasi yang akan kita buat selanjutnya. Window ini adalah form Designer dan dapat diakses dengan tombol F12.
Selanjutnya letakkan beberapa komponen pada window Form Designer sebagai berikut.
- komponen Label
- komponen Edit
- komponen Button
Caranya adalah men-click pada Component Pallete kompnen yang akan digunakan, kemudian klik pada Form Designer, sehingga terlihat seperti berikut
Selanjutnya kita akan men-set property masing-masing komponen yang baru saja kita letakkan tadi. Klik pada komponen tersebut, dimulai dari Label1, lalu tekan tombol keyboard F11 untuk memunculkan Object Inspector untuk object Label1.
Pada Property Name ketikkan Celcius. Untuk Label2 dan Label3, ketikkan masing-masing Fahrenheit dan Kelvin.
Untuk object Button1, pada Property Caption, ketikkan Konversikan.
Double-click pada object tombol Button1, sehingga terlihat window Code Editor yang otomatis mengarah ke function event handler dengan nama Button1Click. Disini kita akan mengisikan logika program yang kita kehendaki pada saat tombol ditekan, yaitu mengkonversikan nilai yang diketikkan pada kolom Celcius, dan menampilkannya masing-masing pada kolom Fahrenheit dan Kelvin.
Sekarang Jalankan program anda dengan menekan tombol keyboard F9. Anda telah berhasil membuat aplikasi Window.
Resume Langkah-langkah Pembuatan Aplikasi
|
No |
Action |
||
|
1 |
File -> New ->Application |
Save All Create new dir: konverter Project: konverter.dpr File : Unit1.pas |
|
|
2 |
Drop Component |
Properti |
|
|
Label1 |
Celcius |
||
|
Label2 |
Fahrenheit |
||
|
Button1 |
C ke F |
||
|
3 |
Event Handler |
||
|
Form |
OnCreate agar pada saat pertama dijalankan nilainnya 0 |
celcius.Text:=’0′; fahrenheit.Text:=’0′; |
|
|
Button1 |
OnClick |
procedure TForm1.Button1Click(Sender: TObject); var f: real; begin f := 32 + StrToInt(celcius.text) * 9 / 5; fahrenheit.Text := FloatToStr(f); end; |
|
|
4 |
Run |
F9 |
Penjelasan Program
Berikut ini penjelasan aplikasi tersebut di atas:
Apa yang sudah dipelajari
- Menggunakan komponen button, menghandle event yang terjadi pada form dan component button
- Merubah dan menggunakan properti setiap komponen
- Komponen:
- Label
- EditBox
- Button
- Syntax Delphi
- menggunakan variabel
- menggunakan operasi matematika sederhana
- function konversi FloatToStr() dan StrToInt()




Recent Comments