Percabangan Case OF Delphi 7 Aplikasi Menghitung Suhu

Berikut ini tampilan nya :

Komponen
3 buah label
2 edit
1 combobox

Masukan pada Items Reamur, Fahrenheit dan Kelvin           

dan button
sesuaikan dengan tampilan diatas, selanjutnya pada button silahkan ketikan source code seperti dibawah ini:

procedure TForm2.Button1Click(Sender: TObject); var c : integer; hsl :real; begin c:=StrToInt(Edit1.Text); case ComboBox1.ItemIndex of 0: begin hsl:=4/5 * c; end; 1: begin hsl:=9/5 * c + 32; end; 2: begin hsl:= 273 + c end; else begin ShowMessage('Pilih Dulu Jenis Konversi'); hsl:=0; ComboBox1.SetFocus; end; end; Edit2.Text:=FloatToStr(hsl); end;

Silahkan baca artikel lain nya :)