MENDESAIN FORM
Untuk membuat
program menghitung Angka
ini, kita membutuhkan
sebuah form. Namun
anda juga bias membuatnya bersama proyek yang baru.
Kemudian anda masukan beberapa komponen diantaranya Label sebanyak satu buah,
Edit sebanyak satu buah,groupbox satu buah, chexbox Sembilan buah dan Button
sebanyak dua buah. Anda atur posisinya sehingga terlihat seperti pada Gambar
Jika sudah selesai seharusnya tampilan form anda akan terlihat seperti gambar dibawah ini :
C. MEMASUKAN KODE
Agar desain program yang telah kita buat
bisa berfungsi sebagaimana mestinya, tentunya kita harus memasukkan kode kedalam
objek tersebut. Anda cukup memasukan kode untuk Button1 dan Button2 saja. Berikut
ini kode sumbernya:
object
Form1: TForm1
Left = 229
Top = 125
Width = 566
Height = 480
Caption = 'Form1'
Color = clMedGray
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 232
Top = 64
Width = 37
Height = 16
Caption = 'Hasil'
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object GroupBox1: TGroupBox
Left = 64
Top = 48
Width = 153
Height = 193
Caption = 'Angka'
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
object CheckBox1: TCheckBox
Left = 48
Top = 48
Width = 97
Height = 17
Caption = '50'
TabOrder = 0
end
object CheckBox2: TCheckBox
Left = 48
Top = 80
Width = 97
Height = 17
Caption = '20'
TabOrder = 1
end
object CheckBox3: TCheckBox
Left = 48
Top = 112
Width = 97
Height = 17
Caption = '60'
TabOrder = 2
end
object CheckBox4: TCheckBox
Left = 48
Top = 144
Width = 97
Height = 17
Caption = '10'
TabOrder = 3
end
end
object Edit1: TEdit
Left = 288
Top = 64
Width = 121
Height = 24
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
OnChange = Edit1Change
end
object Button1: TButton
Left = 248
Top = 136
Width = 75
Height = 25
Caption = 'Hitung'
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 2
OnClick = Button1Click
end
object Button2: TButton
Left = 248
Top = 192
Width = 75
Height = 25
Caption = 'Keluar'
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 3
OnClick = Button2Click
end
end
B. MENGUBAH PROPERTI
Dengan menggunakan Object Inspector,
ubahlah properti dari komponen yang ada dengan ketentuan sebagai berikut :
Nama Objek
|
Properti Yang Diubah
|
Nilai
|
Form1 : TForm1
Label1 : TLabel1
Edit1 : TEdit1
Chexbox1 : Tchexbox1 Chexbox1 : Tchexbox1
Chexbox1 : Tchexbox1
Chexbox1 : Tchexbox1
Button1 : TButton1
Button2 : Tbutton2
Panel1 : TPanel1
|
Caption
Caption
Font
: Size
Caption
Caption
caption
caption
caption
Text
Text
Text
|
Form 1
Menghitung angka:
8
Kosong:
50:
20:
60:
10:
edit1
edit2
kosong
|
procedure TForm1.Button1Click(Sender: TObject);
begin unit Unit1;
unit
Unit1;
interface
uses
Windows, Messages, SysUtils, Variants,
Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
GroupBox1: TGroupBox;
CheckBox1: TCheckBox;
CheckBox2: TCheckBox;
CheckBox3: TCheckBox;
CheckBox4: TCheckBox;
Label1: TLabel;
Edit1: TEdit;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Edit1Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R
*.dfm}
procedure
TForm1.Button1Click(Sender: TObject);
Var
A1, A2, A3, A4, AB:integer;
begin
if
checkbox1.checked = true then
A1
:= 50 else A1:=0;
if
checkbox2.checked = true then
A2
:= 20 else A2:=0;
if
checkbox3.checked = true then
A3
:= 60 else A3:=0;
if
checkbox4.Checked=true then
A4
:=10 else A4:=0;
ab
:=A1+A2+A3+A4;
edit1.Text:=inttostr
(AB) ;
end;
procedure
TForm1.Button2Click(Sender: TObject);
begin
close;
end;
procedure
TForm1.Edit1Change(Sender: TObject);
begin
//edit1.Clear;
end;
EmoticonEmoticon