Class TJalankanDlg (unit Jalan)

Inherits from

TForm

@1996 by Muhammad Lulud K.

Constructors



Functions

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;


Properties

Events

Variables

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;



Constructors


Functions


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;


Properties


Events


Variables


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;