Class TJalankanDlg (unit Jalan) |
Inherits from
TForm
@1996 by Muhammad Lulud K.
procedure BitBtn1Click(Sender: TObject);
procedure btnExitClick(Sender: TObject);
procedure btnHelpClick(Sender: TObject);
procedure btnRunClick(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Edit1Change(Sender: TObject);
if ((A<1.
procedure FormActivate(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure GrafikPaint(Sender: TObject);
procedure GridDrawCell(Sender: TObject; Col, Row: Longint; Rect: TRect;
State: TGridDrawState);
procedure SpinButton1DownClick(Sender: TObject);
procedure SpinButton1UpClick(Sender: TObject);
procedure SpinButton2DownClick(Sender: TObject);
procedure SpinButton2UpClick(Sender: TObject);
procedure SpinButton3DownClick(Sender: TObject);
deltaT := StrToFloat(Edit1.
procedure SpinButton3UpClick(Sender: TObject);
deltaT := deltaT-0.
procedure SpinEdit1Change(Sender: TObject);
luas} {$R *.
procedure SpinEdit2Change(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure Defuzzifikasi(var U: real);
Grid.
procedure HitungPeriode(Po, P :real;Per : real);
procedure Kendali(x,y: real; var u: real);
function Log(a:real) :real;
deltaT := deltaT+0.
procedure Membership1(x : real);
procedure Membership2(x : real);
procedure Penyimpulan;
procedure SistemBerjalan;
procedure Trip;
btnExit : TBitBtn;
btnHelp : TBitBtn;
btnReset : TBitBtn;
btnRun : TBitBtn;
Grafik : TPaintBox;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Label6 : TLabel;
Panel1 : TPanel;
PrintDialog1 : TPrintDialog;
PrinterSetupDialog1 : TPrinterSetupDialog;
SaveDialog1 : TSaveDialog;
SpinButton1 : TSpinButton;
SpinButton2 : TSpinButton;
SpinEdit1 : TSpinEdit;
SpinEdit2 : TSpinEdit;
Timer1 : TTimer;
procedure BitBtn1Click(Sender: TObject);
procedure btnExitClick(Sender: TObject);
procedure btnHelpClick(Sender: TObject);
procedure btnRunClick(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Edit1Change(Sender: TObject);
if ((A<1.0000001) and (A>0.0000009)) or ((A>1e+20) and (A<1e-20)) or (A<=0)
then exit;
procedure FormActivate(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure GrafikPaint(Sender: TObject);
procedure GridDrawCell(Sender: TObject; Col, Row: Longint; Rect: TRect;
State: TGridDrawState);
procedure SpinButton1DownClick(Sender: TObject);
procedure SpinButton1UpClick(Sender: TObject);
procedure SpinButton2DownClick(Sender: TObject);
procedure SpinButton2UpClick(Sender: TObject);
procedure SpinButton3DownClick(Sender: TObject);
deltaT := StrToFloat(Edit1.Text);
procedure SpinButton3UpClick(Sender: TObject);
deltaT := deltaT-0.1;
if deltaT < 0 then deltaT := 0;
Edit1.Text := FloatToStr(deltaT);
procedure SpinEdit1Change(Sender: TObject);
luas} {$R *.DFM
procedure SpinEdit2Change(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure Defuzzifikasi(var U: real);
Grid.Cells[i,j] := s;
procedure HitungPeriode(Po, P :real;Per : real);
procedure Kendali(x,y: real; var u: real);
function Log(a:real) :real;
deltaT := deltaT+0.1;
if deltaT > 1 then deltaT := 1;
Edit1.Text := FloatToStr(deltaT);
procedure Membership1(x : real);
procedure Membership2(x : real);
procedure Penyimpulan;
procedure SistemBerjalan;
procedure Trip;
btnExit : TBitBtn;
btnHelp : TBitBtn;
btnReset : TBitBtn;
btnRun : TBitBtn;
Grafik : TPaintBox;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Label6 : TLabel;
Panel1 : TPanel;
PrintDialog1 : TPrintDialog;
PrinterSetupDialog1 : TPrinterSetupDialog;
SaveDialog1 : TSaveDialog;
SpinButton1 : TSpinButton;
SpinButton2 : TSpinButton;
SpinEdit1 : TSpinEdit;
SpinEdit2 : TSpinEdit;
Timer1 : TTimer;