CuriousZone dot|INFO

NB: Foto-foto dokumentasinya nanti disertakan

<code>

unit Unit2;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, Menus, DBCtrls, XPMan, DB, ADODB;

type
TForm1 = class(TForm)
Timer1: TTimer;
thefactors: TGroupBox;
AddModes: TGroupBox;
cbxstm: TCheckBox;
CBSnd: TCheckBox;
cbxclumode: TCheckBox;
cbxfurmode: TCheckBox;
cbxufm: TCheckBox;
chkret: TCheckBox;
RoomFactor: TLabel;
RelFactor: TLabel;
cmbRoomFactor: TComboBox;
cmbRelFac: TComboBox;
GBTimer: TGroupBox;
LDetik: TLabel;
timer: TLabel;
XPManifest1: TXPManifest;
GBPenalti: TGroupBox;
Label3: TLabel;
edtSliding: TEdit;
Button2: TButton;
edtSlidingdetik: TEdit;
penalti3: TCheckBox;
tpenalti: TButton;
edtTotalPenalti: TEdit;
Label4: TLabel;
Label1: TLabel;
Label14: TLabel;
Button3: TButton;
Button4: TButton;
Button5: TButton;
GBTrial: TGroupBox;
Trials: TRadioGroup;
rbtr2: TRadioButton;
rbtr3: TRadioButton;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
edtTr3: TEdit;
edtTr2: TEdit;
edtTr1: TEdit;
Label16: TLabel;
Button6: TButton;
edtsb2t: TEdit;
POpsScore: TPanel;
Label7: TLabel;
Edit6: TEdit;
Label15: TLabel;
HtgOS: TButton;
edtOs: TEdit;
PFsc: TPanel;
fsc: TLabel;
Label17: TLabel;
edtNama: TEdit;
Label2: TLabel;
BtnRecord: TButton;
CBExting: TCheckBox;
ADOConnection1: TADOConnection;
rbtr1: TRadioButton;
Label5: TLabel;
Label6: TLabel;
Label8: TLabel;
Label9: TLabel;
procedure BtnRecordClick(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure tpenaltiClick(Sender: TObject);
procedure HtgOSClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure edtSlidingChange(Sender: TObject);
procedure Edit1Change(Sender: TObject);
procedure rbtr1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure rbtr2MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure rbtr3MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Button6Click(Sender: TObject);
procedure AddModesClick(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
om,rf,ref: single;
z: integer;
implementation

uses ConvUtils;

{$R *.dfm}

procedure TForm1.BtnRecordClick(Sender: TObject);
var addQuery : TADOQuery;
var addConn : TADOConnection;
var trial : Integer;
begin
{z:=0;
inc(z);}
if(rbtr1.Checked=true) then
trial := 1
else if(rbtr2.Checked=true) then
trial := 2
else if(rbtr3.Checked=true) then
trial := 3;

addConn := TADOConnection.Create(self);
addConn.ConnectionString := ‘Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Oscar Kurniawan\My Documents\simulator.mdb;Persist Security Info=False’;
addConn.LoginPrompt := False;
addConn.Open();
addQuery := TADOQuery.Create(self);
addQuery.Connection := addConn;
addQuery.SQL.Add(’insert into strategi’ +
‘(NamaTimKRCI, Trial, SoundActivation, ReturnTrip’ +
‘, ExtinguisherMode, StairsMode, FurnitureMode’ +
‘, UnevenFloorMode, ClutterMode, RoomFactor, ReliabilityFactor, PanjangSlidingDinding’ +
‘, MenyentuhLilin, OperatingTime, TotalPenalti, OperatingScore, FinalScore)’ +
‘values ‘+
‘(”’ + self.edtNama.Text + ”’, ‘ + IntToStr(trial) +’, ‘ + BoolToStr(self.CBSnd.Checked) +
‘, ‘ + BoolToStr(self.chkret.Checked) + ‘, ‘ + BoolToStr(self.CBExting.Checked) + ‘, ‘ + BoolToStr(self.cbxstm.Checked) +
‘, ‘ + BoolToStr(self.cbxfurmode.Checked) + ‘, ‘ + BoolToStr(self.cbxufm.Checked) + ‘, ‘ + BoolToStr(self.cbxclumode.Checked) +
‘, ”’ + self.cmbRoomFactor.Text+ ”’,”’ +self.cmbRelFac.Text + ”’, ‘ + self.edtSliding.Text + ‘, ‘ + BoolToStr(self.penalti3.Checked) + ‘, ‘ + self.timer.caption + ‘, ‘ +self.edtTotalPenalti.Text +
‘, ”’ + self.edtOs.Text + ”’, ”’ + self.fsc.Caption + ”’)');
addQuery.ExecSQL();
end;

procedure TForm1.Button2Click(Sender: TObject);
var lslide,npenalty: integer;
begin
if(Trim(EdtSliding.Text) = ”)
then
ShowMessage(’Isi dulu penalti dengan suatu bilangan bulat’)
else
begin
lslide:= StrToInt(edtSliding.Text);
npenalty:= lslide div 2;
edtSlidingdetik.Text:= IntToStr (npenalty)
end;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Timer1.Enabled:= true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var b, ts: integer;
begin
b:=StrToInt(timer.Caption);
inc(b);
ts:= b+ StrToInt(’0′ + edtTotalPenalti.Text);
timer.Caption:= IntToStr(b);
edit6.Text:= IntToStr(ts);
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
Timer1.Enabled :=false;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
timer.Caption :=’0′;
Edit6.Text := EdtTotalPenalti.Text;
Edtos.Text :=’0′;
end;

procedure TForm1.tpenaltiClick(Sender: TObject);
var penalti12,hold: integer;
{var i := integer;}
begin
if(Trim(EdtSlidingdetik.Text) = ”)
then
ShowMessage(’Isi dulu penalti dengan suatu bilangan bulat’)
else
begin
penalti12:= StrToInt(EdtSlidingDetik.Text);
if (penalti3.Checked = true)
then
penalti12:=penalti12+50;
edtTotalPenalti.Text:= IntToStr(penalti12);
end;
if timer1.Enabled = false
then
begin
hold:=StrToInt(’0′+edtTotalPenalti.Text)+StrToInt(timer.Caption);
edit6.Text:=IntToStr(hold);
end;
end;

procedure TForm1.HtgOSClick(Sender: TObject);
var rof,tsc,mof,opme,ret,osc,sm,fm,ufm,cm,stair,clut,fur,unvfl,exting : real;
begin
if (trim(edit6.Text)=”) then
ShowMessage(’Isi dahulu data-data yang dibutuhkan’)
else begin
If CBSnd.Checked = true
then opme:=0.95
else opme:=1.0;
//if cmbOperatinModels.Text=’Tethered’
//then
//opme:=1.2;
//if cmbOperatinModels.Text=’Sound’
//then
//opme:=0.95;
if chkret.Checked= True
then ret:=0.8
else ret:=1.0;
if cbxstm.Checked= True
then stair:=0.9
else stair:=1.0;
if cbxclumode.Checked= True
then clut:=0.8
else clut:=1.0;
if cbxfurmode.Checked= True
then fur:=0.75
else fur:=1.0;
if cbxufm.Checked= True
then unvfl:=0.8
else unvfl:=1.0;
if CBExting.Checked= True
then exting:=0.85
else exting:=1.0;
If cmbRoomFactor.Text=’1stRoom’
then rof:=1.0
else
If cmbRoomFactor.Text=’2ndRoom’
then rof:=0.85
else
If cmbRoomFactor.Text=’3rdRoom’
then rof:=0.5
else if cmbRoomFactor.Text=’4thRoom’ then rof:=0.35
else rof:=1.0;
mof:=ret*opme*stair*clut*fur*unvfl*exting;
tsc:=StrToFloat(edit6.Text);
osc:=tsc*mof*rof;
edtos.Text:=FloatToStr(osc);
if rbtr1.Checked = True
then edttr1.Text:=edtos.Text;
if rbtr2.Checked = True
then edttr2.Text:=edtos.Text;
if rbtr3.Checked = True
then edttr3.Text:=edtos.Text;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var i : Integer;
var objCasting : TObject;
begin
cmbRoomFactor.Items.Add(’1stRoom’);
cmbRoomFactor.Items.Add(’2ndRoom’);
cmbRoomFactor.Items.Add(’3rdRoom’);
cmbRoomFactor.Items.Add(’4thRoom’);
Self.Color := clNavy;
Form1.Caption:=’Simulator Nilai KRCI 2007′;
{for i := 0 to self.ControlCount - 1 do
begin
objCasting := Form1.Controls[i;
if (objCasting is TLabel) then
(objCasting as TLabel).Font.Color := clWhite
else if (objCasting is TButton) then
(objCasting as TButton).Font.Color := clWhite
else if (objCasting is TRadioButton) then
(objCasting as TRadioButton).Font.Color := clWhite
else if (objCasting is TGroupBox) then
(objCasting as TGroupBox).Font.Color := clWhite
else if (objCasting is TPanel) then
(objCasting as TPanel).Font.Color := clWhite;
end;}

cmbRelFac.Items.Add(’2 Succesful Trials’);
cmbRelFac.Items.Add(’3 Succesful Trials’);
end;

procedure TForm1.edtSlidingChange(Sender: TObject);
begin
edtSliding.ShowHint:=True;
Hint:=(’Masukkan bilangan bulat !’);
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
//Edit1.ShowHint:=True;
Hint:=(’Masukkan bilangan bulat !’);
end;

procedure TForm1.rbtr1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
rbtr1.ShowHint:=True;
rbtr1.Hint:=’Hanya untuk Trial yang berhasil. Jika hanya dua Trial yang berhasil, Trial 3 tidak perlu dimasukkan nilainya.’
end;

procedure TForm1.rbtr2MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
rbtr2.ShowHint:=True;
rbtr2.Hint:=’Hanya untuk Trial yang berhasil. Jika hanya dua Trial yang berhasil, Trial 3 tidak perlu dimasukkan nilainya.’
end;

procedure TForm1.rbtr3MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
rbtr3.ShowHint:=True;
rbtr3.Hint:=’Jika hanya dua Trial yang berhasil, Trial 3 tidak perlu dimasukkan nilainya.’
end;

procedure TForm1.Button6Click(Sender: TObject);

var sb2t,tri1,tri2,tri3,rf,fs:real;
begin
If (((Trim(edttr1.Text) =”) and (Trim(edttr2.Text) =”)) or (Trim(edttr3.text)=”))
then ShowMessage(’Lengkapi dulu data-data yang dibutuhkan’)
else begin
tri1:= StrToFloat(edttr1.Text);
tri2:= StrToFloat(edttr2.Text);
if (edttr3.Text=”)
then
begin
tri3:=StrToFloat(’0′+edttr3.Text);
sb2t:=tri1+tri2;
end
else
begin
tri3:=StrToFloat(edttr3.Text);
if (((tri1+tri2)>(tri1+tri3)) and ((tri1+tri3)<(tri2+tri3))) then
sb2t:=tri1+tri3 else
if (((tri1+tri2)<(tri1+tri3)) and ((tri1+tri2)<(tri2+tri3))) then
sb2t:=tri1+tri2 else
if (((tri1+tri2)>(tri2+tri3)) and ((tri1+tri3)>(tri2+tri3))) then
sb2t:=tri2+tri3 else
sb2t:=tri1+tri2;
end;
edtsb2t.Text:= FloatToStr(sb2t);
if cmbRelFac.Text=’2 Succesful Trials’ then rf:=1.0
else rf:=0.9;
fs:=sb2t*rf;
fsc.Caption:=FloatToStr(fs);
end;
end;