Class TFSamarDlg (unit F_samar)

Inherits from

TForm

Constructors



Functions

procedure abcd1SetEditText(Sender: TObject; ACol, ARow: Longint; const Value: String);


procedure abcd2SetEditText(Sender: TObject; ACol, ARow: Longint; const Value: String);


procedure abcd3SetEditText(Sender: TObject; ACol, ARow: Longint; const Value: String);


procedure btnHelpClick(Sender: TObject);


procedure btnOKClick(Sender: TObject);

inisialisasi untuk menghindari pembagian nol

procedure btnOpenClick(Sender: TObject);


procedure btnSaveClick(Sender: TObject);


procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure TFSamarDlg.

procedure FormCreate(Sender: TObject);


procedure Gambar1Paint(Sender: TObject);


procedure Gambar2Paint(Sender: TObject);


procedure Gambar3Paint(Sender: TObject);


procedure Max1Change(Sender: TObject);


procedure Max2Change(Sender: TObject);


procedure Max3Change(Sender: TObject);

SemestaBaru3 := Maksimum3-Minimum3; Skala3 := SemestaBaru3/SemestaLama3; SemestaLama3 := SemestaBaru3; PerbaruiGrid(abcd3,Skala3,abcd3);

procedure Min1Change(Sender: TObject);


procedure Min2Change(Sender: TObject);


procedure Min3Change(Sender: TObject);


procedure GridKeFungsiSamar;


procedure GridKeGambar;

procedure abcd3GetEditText(Sender: TObject; ACol, ARow: Longint; var Value: OpenString);

procedure PerbaruiGrid(GridLama: TStringGrid ; Skala : real; var GridBaru: TStringGrid);


procedure Peringatan1;


procedure Peringatan2;


Properties

Events

Variables

abcd1 : TStringGrid;


abcd2 : TStringGrid;


abcd3 : TStringGrid;


BitBtn1 : TBitBtn;


btnHelp : TBitBtn;


btnOK : TBitBtn;


btnOpen : TBitBtn;


btnSave : TBitBtn;


BukaFile : TOpenDialog;


Contoh1 : TImage;


Contoh2 : TImage;


Contoh3 : TImage;


FungsiSamar : TTabbedNotebook;


Gambar1 : TPaintBox;


Gambar2 : TPaintBox;


Gambar3 : TPaintBox;


Label1 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


Label6 : TLabel;


Label7 : TLabel;


Max1 : TEdit;


Max2 : TEdit;


Max3 : TEdit;


Min1 : TEdit;


Min2 : TEdit;


Min3 : TEdit;


NamaFile1 : TLabel;


NamaFile2 : TLabel;


NamaFile3 : TLabel;


SimpanFile : TSaveDialog;


Skala : TCheckBox;



Constructors


Functions


procedure abcd1SetEditText(Sender: TObject; ACol, ARow: Longint; const Value: String);


procedure abcd2SetEditText(Sender: TObject; ACol, ARow: Longint; const Value: String);


procedure abcd3SetEditText(Sender: TObject; ACol, ARow: Longint; const Value: String);


procedure btnHelpClick(Sender: TObject);


procedure btnOKClick(Sender: TObject);

inisialisasi untuk menghindari pembagian nol


procedure btnOpenClick(Sender: TObject);


procedure btnSaveClick(Sender: TObject);


procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure TFSamarDlg.abcd3GetEditText(Sender: TObject; ACol, ARow: Longint; var Value: OpenString); begin m3[ACol,ARow] := StrToFloat(Value); GridKeGambar; Gambar3.Refresh; end;


procedure FormCreate(Sender: TObject);


procedure Gambar1Paint(Sender: TObject);


procedure Gambar2Paint(Sender: TObject);


procedure Gambar3Paint(Sender: TObject);


procedure Max1Change(Sender: TObject);


procedure Max2Change(Sender: TObject);


procedure Max3Change(Sender: TObject);

SemestaBaru3 := Maksimum3-Minimum3; Skala3 := SemestaBaru3/SemestaLama3; SemestaLama3 := SemestaBaru3; PerbaruiGrid(abcd3,Skala3,abcd3);


procedure Min1Change(Sender: TObject);


procedure Min2Change(Sender: TObject);


procedure Min3Change(Sender: TObject);


procedure GridKeFungsiSamar;


procedure GridKeGambar;

procedure abcd3GetEditText(Sender: TObject; ACol, ARow: Longint; var Value: OpenString);


procedure PerbaruiGrid(GridLama: TStringGrid ; Skala : real; var GridBaru: TStringGrid);


procedure Peringatan1;


procedure Peringatan2;


Properties


Events


Variables


abcd1 : TStringGrid;


abcd2 : TStringGrid;


abcd3 : TStringGrid;


BitBtn1 : TBitBtn;


btnHelp : TBitBtn;


btnOK : TBitBtn;


btnOpen : TBitBtn;


btnSave : TBitBtn;


BukaFile : TOpenDialog;


Contoh1 : TImage;


Contoh2 : TImage;


Contoh3 : TImage;


FungsiSamar : TTabbedNotebook;


Gambar1 : TPaintBox;


Gambar2 : TPaintBox;


Gambar3 : TPaintBox;


Label1 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


Label6 : TLabel;


Label7 : TLabel;


Max1 : TEdit;


Max2 : TEdit;


Max3 : TEdit;


Min1 : TEdit;


Min2 : TEdit;


Min3 : TEdit;


NamaFile1 : TLabel;


NamaFile2 : TLabel;


NamaFile3 : TLabel;


SimpanFile : TSaveDialog;


Skala : TCheckBox;