Berikut ini tampilan nya :
Komponen
3 buah label
2 edit
1 combobox
dan button
sesuaikan dengan tampilan diatas, selanjutnya pada button silahkan ketikan source code seperti dibawah ini:
Silahkan baca artikel lain 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 :)
Komentar
Posting Komentar