Madriva: Konversi Suhu Menggunakan Delphi

Konversi Suhu Menggunakan Delphi

Posted by : Rhyf Ahmad Friday, July 13, 2012

Terlalu lama gak update, sampe pemrogramman Delphi pun terlantar. Di edisi kali ini, saya akan mencoba membahas tentang cara konversi suhu menggunakan pemrograman Delphi. Karena banyak pertanyaan di berbagai forum yang menanyakan hal ini, jadi saya tertarik untuk membahasnya di blog kesayangan saiia..Hee..

Ya udah ah, tanpa banyak kate-kate, langsung aja kita menuju ke TeeKaaPee..

Konversi suhu kita kali ini antara dua suhu yang populer di kalangan barat, yaitu Fahrenheit dan juga Celcius. Listing kode programnya adalah sebagai berikut :

Untuk konversi dari Celsius ke Fahrenheit :

var

celsius, fahrenheit : Double;

begin

//mendefinisikan nilai celsius

celsius := 21.0;

//konversi dari celsius ke fahrenheit

fahrenheit := CelsiusToFahrenheit(celsius);

//menampilkan nilai kedua suhu

ShowMessageFmt('%f C = %f F', [celsius, fahrenheit]);

end;

Atau sobat juga bisa menuliskan kode seperti di bawah ini :

var
celsius, fahrenheit : Double;
begin
//mendefinisikan nilai celsius
celsius := StrToFloat(Text1.Text);

//konversi dari celsius ke fahrenheit
fahrenheit := CelsiusToFahrenheit(celsius);

//menampilkan nilai kedua suhu
ShowMessageFmt('%f C = %f F', [celsius, fahrenheit]);
end;

Di mana Text1.Text adalah sebuah Textbox. Hasilnya :

21.00 C = 69.89 F

Sedangkan untuk konversi suhu dari Fahrenheit ke Celsius menggunakan kode di bawah ini :

var
celsius, fahrenheit : Double;
begin
//mendefinisikan nilai fahrenheit
fahrenheit := 98.4;

//konversi dari fahrenheit ke celsius
fahrenheit := FahrenheitToCelsius(fahrenheit);

//menampilkan nilai kedua suhu
ShowMessageFmt('%f F = %f C', [fahrenheit, celsius]);
end;

Atau bisa juga kayak gini :

var
celsius, fahrenheit : Double;
begin
//mendefinisikan nilai fahrenheit
fahrenheit := StrToFloat(Text1.Text);

//konversi dari fahrenheit ke celsius
fahrenheit := FahrenheitToCelsius(fahrenheit);

//menampilkan nilai kedua suhu
ShowMessageFmt('%f F = %f C', [fahrenheit, celsius]);
end;

Hasilnya :

98.40 F = 36.89 C

OK,, udah dulu yah..

Semoga bermanfaat.. :)