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.. :)

{ 1 comments... read them below or add one }

  1. makasih infonya gan, bermanfaat buat pelajaran fisika saya :)

    ReplyDelete

You can leave a comment to request any article(s), software(s), ebook(s) or report the dead link.
Then I will reply as soon as I can :)

Welcome to My Blog

- Copyright © Madriva -Robotic Notes- Powered by Blogger - Designed by Johanes Djogan -

/* script Youtube Responsive */