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:
0 comments:
Posting Komentar