Posts Subscribe comment Comments

Program Konversi Suhu


Berikut adalah design Form untuk program konversi suhu.
Aturlah properties formnya sebagai berikut :

@ Untuk command Proses, Reset, dan Selesai aturlah properties name-nya sbb:
Proses = CmdProses, Reset = CmdReset, Selesai = CmdSelesai.
@ Untuk edit paling atas, ganti name-nya menjadi = EDC, dan yg lainnya masing-masing = ED_C1, ED_C2, ED_C3, ED_R, ED_F, ED_K.
@ Untuk 3Panel, aturlah propertiesnya name-nya menjadi: Panel1 = Pnl_Input, Panel2 = Pnl_Proses, Panel3 = Pnl_Output. (Khusus untuk Pnl_Output aturlah enable menjadi false.



Kemudian setelah selesai mengatur propertiesnya, silahkan klik 2 kali di form nya dan ketik kode program berikut.

procedure TForm1.FormCreate(Sender: TObject);
begin
//Pengaturan Propertis Form
//Merubah Judul Form
Form1.Caption := 'Program Konversi Suhu';

//Pengaturan Untuk Border Form
Form1.BorderIcons := [biSystemMenu];
Form1.BorderStyle := bsSingle;

//Pengatturan Tampilan Form
Form1.Position := poScreenCenter;

//Pengaturan Warna Form
Form1.Color := clBtnShadow;
//=======================================;
//Pengaturan Propertis Untuk Command
//CmdProses
CmdProses.ShowHint := True;
CmdProses.Hint := 'Proses Data';
//CmdReset
CmdReset.ShowHint := True;
CmdReset.Hint := 'Reset Data';
//CmdSelesai
CmdSelesai.ShowHint := True;
CmdSelesai.Hint := 'Keluar Program';
//=======================================;
end;

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

Untuk mendownload, silahkan bergabung terlebih dahulu karen anda tidak akan bisa mendownload sebelum bergabung..
Klik disini utk mendownload.

0

Silahkan Tulis Komentar Anda ...

Entri Populer