PROGRAM KONVERSI SUHU CELCIUS

Program ini bertugas untuk mengkoversikan satuan derajat celcius ke tiga (3) dejarat suhu lainnya yaitu Fahrenhait, Reamur, dan Kelvin. Dalam pengkonversian tersebut digunakan suatu rumus yaitu :

1. Konversi dari Celcius ke Fahrenhait
    --> F = 9/5 X Celcius + 32
2. Konversi dari Celcius ke Reamur
    --> R = 4/5 X Celcius
3. Konversi dari Celcius ke Kelvin
    --> K = 273 + Celcius

Dari rumus konversi suhu diatas, dimasukkan dalam suatu algoritma pemograman sehingga didapatkan suatu nilai pengkonversian derajat celcius. Program ini biasanya digunakan pada latihan dasar pemograman. Dalam source code yang saya pakai pada program ini menggunakan pengkondisian if. Pemilihan konversi derajat suhu menggunakan radio Button. Terdapat 2 edit.text, Edit 1 digunakan untuk masukan atau inputan nilai derajat celcius dan Edit 2 digunakan untuk keluaran hasil konversi dejarat celcius. Terdapat juga 2 push button yang berfungsi sebagai mengeksekusi program (KONVERSI) dan mengembalikan pada kondisi semula atau menggahapus semua nilai yang telah dimasukkan (Clear). Penjelasan source code sebagai berikut ;

1. Variabel dan tipe Variabel yang digunakan

        var
       Form1: TForm1;
       celcius:Integer;
       a:real; 

2. Source code input

    celcius:=StrToInt(Edit1.Text); --> StrToInt adalah merubah tipe variabel dari string ke integer

3. Algoritma konversi derajat Celcius 

if RadioButton1.Checked=True then
begin
a:=9/5*celcius+32;
Label4.Caption:='F';
end
else if RadioButton2.Checked=True then
begin
a:=4/5*celcius;
Label4.Caption:='R';
end
else if RadioButton3.Checked=True then
begin
a:=273+celcius;
Label4.Caption:='K';
end;

4. Source code Output

 Edit2.Text:= FloatToStr(a); -->  FloatToStr adalah merubah tipe variable dari float/real ke string

5. Souce code Clear

Edit1.Text:='';
Edit2.Text:='';
Label4.Caption:='';
RadioButton1.SetFocus; --> menjadikan RadioButton1 enable dan lainnya visible
Edit1.SetFocus; --> kursor secara default berada pada Edit1

Untuk programnya silahkan dwonload di http://www.ziddu.com/download/18586017/KONVERSI_SUHU.rar.html