Program Konversi Suhu V.2

Berikut ini adalah program konversi suhu yang menggunakan toolbox 3 buah memo, 3 command, dan edit box. Adapun maksud dari program ini tidak jauh berbeda dengan program koonversi suhu yang sebelumnya, hany program ini lebih menawarkan suatu hasil yang lebih berurutan dari suhu awal yang diinput dan suhu akhir. Sehingga hasil outputnya akan menunjukkan hasil dari masing-masing suhu yang tidak terinput.
Berikut design formnya.
Setelah anda mendesign bentuk form nya sedemikian rupa, silahkan anda masuk ke source code nya untuk mengetik kode berikut ini.
Lalu jalankan dan bandingkan hasilnya dengan konversi suhu versi terdahulu.


procedure TForm1.CmdProsesClick(Sender: TObject);
Var Awal : Integer;
Akhir : Integer;
I : Integer;
C, F, R, K : Real;
begin
//Input
//Convert dari Nilai input String ke Integer
Awal := StrToInt(ED_Awal.Text);
Akhir := StrToInt(ED_Akhir.Text);
M_C.Text := '';
M_R.Text := '';
M_F.Text := '';
M_K.Text := '';

For I := Awal to Akhir Do
Begin
C := I;
F := 9/5 * C + 32;
R := 4 * C/5;
K := C + 273;

M_C.Lines.Add(FormatFloat('###,###', C));
M_R.Lines.Add(FormatFloat('###,###.00', R));
M_F.Lines.Add(FormatFloat('###,###.00', f));
M_K.Lines.Add(FormatFloat('###,###.00', k));
End;

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Close;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
ED_Awal.Text := '0';
ED_Akhir. Text := '0';

M_C.Text := '';
M_R.Text := '';
M_F.Text := '';
M_K.Text := '';
end;

end.
Selamat mencoba, untuk mendownload file ini secara lengkap, silahkan bergabung terlebih dahulu menjadi follower karena download anda tidak akan berhasil jika anda tidak bergabung. Setelah berhasil silahkan Anda klik disini.
David Jovi Management