Transcript delphi2

Fungsi Inttostr, strtoint,
if- then dan if then else
PERTEMUAN II
MENANGANI KOMPONEN
DALAM FORM
Pointer adalah komponen khusus dan terdapat pada setiap
tab dalam componen palette. Komponen pointer adalah
komponen select yang digunakan untuk memilih komponenkomponen yang ada dalm form
Frame digunakan untuk menampung komponen-komponen,
frame dapat di tempatkan dalam form atau di dalam frameframe yang lain
Komponen yang digunakan untuk membuat menu bar dan
drop menu drop down, komponen ini bersifat invisible
Komponen yang digunakan untuk membuat menu pop up,
dan akan muncul ketika penekanan tombol kanan, komponen
ini bersifat invisible
Komponen ini digunakan untuk menambahkan teks di dalam
form
Komponen ini digunakan untuk menerima satu baris input
teks dari pemakai, dan juga dapat digunakan untuk
menampilkan teks
MEMO, Komponen ini digunakan untuk memasukkan atau
menampilkan beberapa baris teks di dalam form
Button, digunakan untuk membuat pilihan,
Check box,Digunakan untuk memilih atau membatalkan
pilihan
Radio button, digunakan untuk membuat kelompok pilihan,
dimana hanya boleh memilih satu
List Box, digunakan untuk membuat daftar pilihan, dan hanya
ada satu pilihan
Combo box,Fungsinya sama dengan list Box
Scrool bar, fungsinya untuk membuat penggulung dalam form
Group Box, digunakan untuk mengelompokkan komponenkomponen dalam form, misalnya radio button, check box dll
RadioGroup, digunakan untuk mengelompokkan radio button
Panel, digunakan untuk membuat status bar, toolbar dan tool
palette
Action List, komponen yang berisi daftar action yang
digunakan bersama-sama dengan komponen dan kontrol
seperti item menu dan button
Radio Button
• Radio button digunakan untuk
membuat pilihan.
• Pilihan yang diperbolehkan hanya
satu
• Jika membuat beberapa pilihan,
harus dikelompokkan dengan group
box
Latihan 1
Perhatian
• Radio button1,2 ,
3 dan 4 adalah
bagian dari group
box1
atur property sehingga sbb
Tuliskan code berikut
•Double clik pada radiobutton1
procedure TForm1.RadioButton1Click(Sender: TObject);
begin
EDIT1.Text:=LABEL1.Caption;
EDIT1.Font.Color:=CLRED;
end;
Double clik pada radiobutton2
procedure TForm1.RadioButton2Click(Sender: TObject);
begin
EDIT1.Text:=LABEL1.Caption;
EDIT1.Font.Color:=CLYELLOW;
end;
procedure TForm1.RadioButton3Click(Sender: TObject);
begin
EDIT1.Text:=LABEL1.Caption;
EDIT1.Font.Color:=CLBLUE;
end;
procedure TForm1.RadioButton4Click(Sender: TObject);
begin
EDIT1.Text:=LABEL1.Caption;
EDIT1.Font.Color:=CLBLACK;
end;
procedure TForm1.RadioButton5Click(Sender: TObject);
begin
edit1.Font.Size:=10;
end;
procedure TForm1.GroupBox2Click(Sender: TObject);
begin
edit1.Font.Size:=12;
end;
procedure TForm1.RadioButton7Click(Sender: TObject);
begin
edit1.Font.Size:=16;
end;
procedure TForm1.RadioButton8Click(Sender: TObject);
begin
edit1.Font.Size:=20;
end;
Latihan 2
PANEL
KOMPONEN
•
•
•
•
•
•
•
Komponen yang ada dalam form adalah
Groupbox
Radiobutton
Label
Edit
Panel
Button
Kemudian atur propertinya sehingga
menghasilkan form sebagai berikut
• Informasi di panel akan ditampilkan ketika
tombol ok di klic
• Nilai yang ada pada panel diambil dari
input data, misalnya nama yang ada pada
panel didapat dari input nama (cth.
Edit4.text := edit1.text;) dll
• Jenis kelamin didapat dengan pengecekan
pada radiobutton
if radiobutton1.Checked = true then
edit7.Text:='Laki-laki'
else
edit7.Text:= 'Perempuan';
Lakukan hal yang sama untuk agama dan
jurusan.
uang pendaftaran, uang kuliah dan uang
kemahasiswaan ditentukan berdasarkan
jurusan yaitu
Jur TI-D3 : UP = 100.000
UK = 2.000.000
UKM= 150.000
untuk Jurusan MI-D3 dan MI-D1 buat
sendir
Total = UP+UK+UKM
Selamat mencoba
Latihan 3
• Persamaan kuadrat
Hitunglah nilai x1 dan x2 dengan ketentuan
a. Hitung nilai
Jika D > 0 maka
• Jika D= 0, maka
• X2=x1
• Jika D< 0, maka
• X1 dan x2 adalah akar imajiner