Fungsi Inttostr, strtoint, if- then dan if then else

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 komponen-komponen yang ada dalm form Frame digunakan untuk menampung komponen-komponen, frame dapat di tempatkan dalam form atau di dalam frame-frame 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 komponen-komponen 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 adalahakarimajiner

Fungsi Inttostr, strtoint, if- then dan if then else