Program Konversi Suhu Menggunakan C++ Builder

Sampai saat ini dikenal tiga jenis ukuran suhu: Celcius, Fahrenheit, dan Kelvin. Suhu-suhu tersebut mempunyai ekuivalen satu sama lain. Program kecil berikut digunakan untuk mengetahui masing-masing nilai konversi suhu.

Program akan bekerja dengan cara konversi seperti dibawah ini:

Celcius ke Fahrenheit:
 F = (C x  9/5) + 32

Celcius ke Kelvin:
 K = C + 273,15

Farenheit ke Celcius:
 C = (F - 32) x 5/9

Farenheit ke Kelvin:
K = (F + 459,67) x 5/9

Kelvin ke Celcius:
C = K - 273,15

Kelvin ke Fahrenheit:
 F = (K - 273,15) * 9/5


Buatlah form dengan tampilan seperti ini:

Form diatas terdiri dari satu TEdit,  2 TComboBox, satu TStaticText, dan satu TButton.


Cara Kerja:

Program akan melakukan inisialisasi terlebih. Pertama-tama akan mengisi TComboBox dengan pilihan-pilihan suhu yang diingikan.

void __fastcall TForm1::FormCreate(TObject *Sender)
{
   EdtSuhuAsal->Text = "0";
   cbSuhuAsal->Clear();
   cbSuhuAsal->Items->Add("CELCIUS");
   cbSuhuAsal->Items->Add("KELVIN");
   cbSuhuAsal->Items->Add("FAHRENHEIT");

   StSuhuHasil->Caption = "0";
   cbSuhuHasil->Clear();
   cbSuhuHasil->Items->Add("CELCIUS");
   cbSuhuHasil->Items->Add("KELVIN");
   cbSuhuHasil->Items->Add("FAHRENHEIT");
}

Ketik bagian berikut di Event OnClick milik tombol proses sebagai berikut:

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  double Hasil, Asal;
  Asal = StrToFloat(EdtSuhuAsal->Text);

  if (cbSuhuAsal->Text == "CELCIUS")
  {
      if (cbSuhuHasil->Text == "FAHRENHEIT")
      {
        Hasil = (Asal * 9/5) + 32;
      } else
      if (cbSuhuHasil->Text == "KELVIN")
      {
        Hasil = Asal + 273.5;
      } else
      {
        Hasil = Asal;
      }
  } else
  if (cbSuhuAsal->Text == "FAHRENHEIT")
  {
     if (cbSuhuHasil->Text == "CELCIUS")
     {
       Hasil = (Asal - 32) * 5/9;
     } else
     if (cbSuhuHasil->Text == "KELVIN")
     {
       Hasil = (Asal + 459.67) *  5/9;
     } else
     {
       Hasil = Asal;
     }
  } else
  {
    if (cbSuhuAsal->Text == "CELCIUS") {
      Hasil = Asal - 273.5;

    } else
    if (cbSuhuAsal->Text == "FAHRENHEIT") {
       Hasil = (Asal - 273.15) * 9/5;
    }
  }
  StSuhuHasil->Caption = FormatFloat("#,##0.00;;0",Hasil);
}

Program Selengkapnya:

//--------------------------------------------------------------------------- #include <vcl.h> #pragma hdrstop #include "UnitHitungSuhu.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TForm1::FormCreate(TObject *Sender) { EdtSuhuAsal->Text = "0"; cbSuhuAsal->Clear(); cbSuhuAsal->Items->Add("CELCIUS"); cbSuhuAsal->Items->Add("KELVIN"); cbSuhuAsal->Items->Add("FAHRENHEIT"); StSuhuHasil->Caption = "0"; cbSuhuHasil->Clear(); cbSuhuHasil->Items->Add("CELCIUS"); cbSuhuHasil->Items->Add("KELVIN"); cbSuhuHasil->Items->Add("FAHRENHEIT"); } //--------------------------------------------------------------------------- void __fastcall TForm1::Button1Click(TObject *Sender) { double Hasil, Asal; Asal = StrToFloat(EdtSuhuAsal->Text); if (cbSuhuAsal->Text == "CELCIUS") { if (cbSuhuHasil->Text == "FAHRENHEIT") { Hasil = (Asal * 9/5) + 32; } else if (cbSuhuHasil->Text == "KELVIN") { Hasil = Asal + 273.5; } else { Hasil = Asal; } } else if (cbSuhuAsal->Text == "FAHRENHEIT") { if (cbSuhuHasil->Text == "CELCIUS") { Hasil = (Asal - 32) * 5/9; } else if (cbSuhuHasil->Text == "KELVIN") { Hasil = (Asal + 459.67) * 5/9; } else { Hasil = Asal; } } else { if (cbSuhuAsal->Text == "CELCIUS") { Hasil = Asal - 273.5; } else if (cbSuhuAsal->Text == "FAHRENHEIT") { Hasil = (Asal - 273.15) * 9/5; } } StSuhuHasil->Caption = FormatFloat("#,##0.00;;0",Hasil); } //---------------------------------------------------------------------------

Program Konversi Suhu Menggunakan C++ Builder 2015-08-11T01:53:00-07:00 Rating: 4.5 Diposkan Oleh: Good Dreamer