Class TFSamarDlg (unit F_samar) |
Inherits from
TForm
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;
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;
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;
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;