| Class TFSamarDlg (unit F_samar) |
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);
procedure btnOpenClick(Sender: TObject);
procedure btnSaveClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
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);
procedure Min1Change(Sender: TObject);
procedure Min2Change(Sender: TObject);
procedure Min3Change(Sender: TObject);
procedure GridKeFungsiSamar;
procedure GridKeGambar;
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;