Berikut contoh Perulangan While Do dan Repeat Until :
A. Contoh design form.
B. Komponen yang dibutuhkan.
1. 3(tiga) komponen label (ada di tab standard component pallete).
2. 3(tiga) komponen edit (ada di tab standard component pallete).
3. 1(satu) komponen memo (ada di tab standard component pallete).
4. 2(dua) komponen Radiobutton (ada di tab standard component pallete)
C. Kode Program
1. Program While Do
Double Klik Radiobutton1 atau pilih events onclick pada Objects Inspector,
Tuliskan Kode Program Sebagai berikut :
var
angka_awal,angka_akhir:integer;
begin
memo1.clear;
angka_awal:=strtoint(edit1.Text);
angka_akhir:=strtoint(edit2.Text);
while angka_awal<=angka_akhir do
begin
memo1.Lines.Add(inttostr(angka_awal));
inc(angka_awal);
end;
end;
2. Program For Downto Do
Double Klik Radiobutton2 atau pilih events onclick pada Objects Inspector,
Tuliskan Kode Program Sebagai berikut :
var
angka_awal,angka_akhir:integer;
begin
memo1.clear;
angka_awal:=strtoint(edit1.Text);
angka_akhir:=strtoint(edit2.Text);
repeat
memo1.Lines.Add(inttostr(angka_awal));
inc(angka_awal)
until
angka_awal>angka_akhir;
end;
D. Penjelasan Singkat Program
Memo1.clear digunakan untuk menghapus isi memo1
Inc kependekan dari increment, inc(angka_awal) digunakan untuk menambah
angka_awal dengan angka 1 (satu).
Perulangan While Do, Repeat Until, For To Do dan For DownTo Do akan
menghasilkan nilai yang sama.
Download contoh program
Selengkapnya...
Kamis, 08 Januari 2009
Perulangan While Do dan Repeat Until
Function (Fungsi)
Function Mirip dengan Procedure bedanya Function mengembalikan suatu nilai sedangkan procedure tidak, berikut contoh penggunaan Function :
A. Contoh Design Form
B. Penggalan Koding Program
function luas(alas,tinggi:real):real;
begin
result:=1/2*alas*tinggi;
end;
procedure TForm1.Button1Click(Sender: TObject);
var alas,tinggi:double;
begin
alas:=strtofloat(edit1.Text);
tinggi:=strtofloat(edit2.Text);
edit3.Text:=floattostr(luas(alas,tinggi));
end;
Download contoh program
Selengkapnya...
Minggu, 04 Januari 2009
Procedure (Prosedur)
Procedure digunakan untuk koding program yang digunakan berulang-ulang, pendeklarasian procedure dituliskan setelah kata Public, berikut contoh penggunaan procedure :
A. Contoh Design Form
B. Penggalan Koding Program
Double klik button1 atau pilih events onclik pada pada objects inspector, berikut potongan programnya :
...
public
{ Public declarations }
procedure kosong_data;
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure tform1.kosong_data;
begin
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
kosong_data;
end;
end.
Download contoh program
Selengkapnya...
Array (Konversi Hexa ke Biner)
Array dapat digunakan untuk mengkonversi bilangan hexadesimal menjadi bilangan biner, berikut contoh penggunaanya :
procedure TForm1.Button1Click(Sender: TObject);
const
nilai: array [0..15] of string =
('0000', '0001', '0010', '0011', '0100', '0101', '0110', '0111',
'1000', '1001', '1010', '1011', '1100', '1101', '1110', '1111');
var
i: integer;
hasil_biner:string;
begin
for i := Length(edit1.Text) downto 1 do
begin
hasil_biner := nilai[StrToInt('$'+edit1.Text[i])]+hasil_biner;
end;
edit2.Text:=hasil_biner;
end;
penjelasan singkat program :
const
nilai: array [0..15] of string =
('0000', '0001', '0010', '0011', '0100', '0101', '0110', '0111',
'1000', '1001', '1010', '1011', '1100', '1101', '1110', '1111');
{ digunakan untuk mendeklarisikan sebuah array, dalam program ini array yang dipakai mempunyai nama nilai }
array[0..15] of string
{ merupakan index dari array nilai yang bertipe string, karena bilangan hexa mempunyai basis 16 (0 s/d 15) maka index array yang dideklarasikan menjadi [0..15] }.
('0000', '0001', '0010', '0011', '0100', '0101', '0110', '0111',
'1000', '1001', '1010', '1011', '1100', '1101', '1110', '1111');
{ merupakan hasil/isi dari index array[0..15] }.
Length(edit1.Text)
{digunakan untuk mengetahui panjang suatu data string / banyaknya karakter dalam suatu string), dalam program ini length yang dicari adalah data yang ditampung /dinput pada komponen edit1.}
hasil_biner := nilai[StrToInt('$'+edit1.Text[i])]+hasil_biner;
{ hasil_biner, digunakan untuk menampung data dari hasil proses konversi }.
{ edit1.Text[i], digunakan untuk mengambil tiap karakter data yang ada pada komponen edit1 }.
{ StrToInt('$'+edit1.Text[i]) , digunakan untuk mengonversi bil. hexa menjadi bil. desimal }.
{ nilai[StrToInt('$'+edit1.Text[i])], digunakan untuk mencari hasil dari nilai index array }.
Download contoh program
Selengkapnya...
Percabangan IF dan Case Of
Contoh percabangan IF dan Case of :
A. Contoh design form.
A. Komponen yang dibutuhkan.
1. 1(satu) komponen label (ada di tab standard component pallete).
2. 1(satu) komponen edit (ada di tab standard component pallete).
3. 3(tiga) komponen button (ada di tab standard component pallete).
B. Kode Program
1. Program IF Then
Double Klik button1 atau pilih events onclick pada Objects Inspector, Tuliskan Kode Program Sebagai berikut :
procedure TForm1.Button1Click(Sender: TObject);
begin
if strtoint(edit1.Text)>80 then
showmessage('Lulus');
end;
2. Program IF Then Else
Double Klik button2 atau pilih events onclick pada Objects Inspector, Tuliskan Kode Program Sebagai berikut :
procedure TForm1.Button2Click(Sender: TObject);
begin
if strtoint(edit1.Text)>90 then
showmessage('Nilai A')
else
if strtoint(edit1.Text)>70 then
showmessage('Nilai B')
else
if strtoint(edit1.Text)>50 then
showmessage('Nilai C')
else
if strtoint(edit1.Text)>30 then
showmessage('Nilai D')
else
showmessage('Nilai E')
end;
3. Program Case Of
Double Klik button3 atau pilih events onclick pada Objects Inspector, Tuliskan Kode Program Sebagai berikut :
procedure TForm1.Button3Click(Sender: TObject);
var
hasil:integer;
begin
hasil:=strtoint(edit1.Text);
case hasil of
0..30:showmessage('Nilai E');
31..50:showmessage('Nilai D');
51..70:showmessage('Nilai C');
71..90:showmessage('Nilai B');
91..100:showmessage('Nilai A');
end;
end;
Download contoh program
Selengkapnya...
Perulangan (ForToDo dan ForDownTo)
berikut contoh perulangan ForToDo dan Perulangan ForDownTo :
C. Design Properties (ada di jendela object inspector)
Object / Komponen | Name | Caption / Text |
Label1 Label2 Label3 Edit1 Edit2 Memo1 Radiobutton1 Radiobutton2 | Label1 Label2 Label3 Edit1 Edit2 Memo1 Radiobutton1 Radiobutton2 | Angka Pertama Angka Dua Hasil Perulangan (dikosongkan) (dikosongkan) - For To Do For Downto Do |
D. Kode Program
1. Program For To Do
Double Klik Radiobutton1 atau pilih events onclick pada Objects Inspector, Tuliskan Kode Program Sebagai berikut :
procedure TForm1.RadioButton1Click(Sender: TObject);
var
angka_awal,angka_akhir,hasil_perulangan:integer;
begin
angka_awal:=strtoint(edit1.Text);
angka_akhir:=strtoint(edit2.Text);
for hasil_perulangan:= angka_awal to angka_akhir do
begin
memo1.Lines.Add(inttostr(hasil_perulangan));
end;
end;
2. Program For Downto Do
Double Klik Radiobutton2 atau pilih events onclick pada Objects Inspector, Tuliskan Kode Program Sebagai berikut :
procedure TForm1.RadioButton2Click(Sender: TObject);
var
angka_awal,angka_akhir,hasil_perulangan:integer;
begin
angka_awal:=strtoint(edit1.Text);
angka_akhir:=strtoint(edit2.Text);
for hasil_perulangan:= angka_awal downto angka_akhir do
begin
memo1.Lines.Add(inttostr(hasil_perulangan));
end;
end;
E. Penjelasan Singkat Program
For To Do digunakan untuk melakukan perulangan dari angka kecil ke angka besar.
For DownTo Do digunakan untuk melakukan perulangan dari angka besar ke angka kecil.
Operator Aritmetika Dasar
Operasi Aritmetika Dasar meliputi : penjumlahan, pengurangan, perkalian dan pembagian, Div (hasil pembagian dengan pembulatan kebawah), mod (sisa hasil pembagian dengan pembulatan keatas).
A. Contoh design form.
B. Komponen yang dibutuhkan.
1. 3(tiga) komponen label (ada di tab standar).
2. 2(dua) komponen groupbox (ada di tab standar).
3. 8(delapan) komponen edit (ada di tab standar).
4. 6(enam) komponen button (ada di tab standar).
C. Design Properties (ada di jendela object inspector)
| Object / Komponen | Name | Caption / Text |
| Label1 Label2 Label3 Groupbox1 Groupbox2 Edit1 Edit2 Edit3 Edit4 Edit5 Edit6 Edit7 Edit8 Button1 Button2 Button3 Button4 Button5 Button6 | Label1 Label2 Label3 Groupbox1 Groupbox2 Edit1 Edit2 Edit3 Edit4 Edit5 Edit6 Edit7 Edit8 Button1 Button2 Button3 Button4 Button5 Button6 | Operasi Aritmetika Dasar Angka Pertama Angka Kedua Angka yang akan diproses Hasil Proses (dikosongkan) (dikosongkan) (dikosongkan) (dikosongkan) (dikosongkan) (dikosongkan) (dikosongkan) (dikosongkan) Tambah Kurang Kali Bagi Div Mod |
D. Kode Program
1. Program Tambah
Double Klik Button1/ Button Tambah, Tuliskan Kode Program Sebagai berikut :
procedure TForm1.Button1Click(Sender: TObject);
var
angka1,angka2,hasil:double;
begin
angka1:=strtofloat(edit1.Text);
angka2:=strtofloat(edit2.Text);
hasil:=angka1+angka2;
edit3.Text:=floattostr(hasil);
end;
2. Program Kurang
Double Klik Button2/ Button Kurang, Tuliskan Kode Program Sebagai berikut :
procedure TForm1.Button2Click(Sender: TObject);
var
angka1,angka2,hasil:double;
begin
angka1:=strtofloat(edit1.Text);
angka2:=strtofloat(edit2.Text);
hasil:=angka1-angka2;
edit4.Text:=floattostr(hasil);
end;
3. Program Kali
Double Klik Button3/ Button Kali, Tuliskan Kode Program Sebagai berikut :
procedure TForm1.Button3Click(Sender: TObject);
var
angka1,angka2,hasil:double;
begin
angka1:=strtofloat(edit1.Text);
angka2:=strtofloat(edit2.Text);
hasil:=angka1*angka2;
edit5.Text:=floattostr(hasil);
end;
4. Program Bagi
Double Klik Button4/ Button Bagi, Tuliskan Kode Program Sebagai berikut :
procedure TForm1.Button4Click(Sender: TObject);
var
angka1,angka2,hasil:double;
begin
angka1:=strtofloat(edit1.Text);
angka2:=strtofloat(edit2.Text);
hasil:=angka1/angka2;
edit6.Text:=floattostr(hasil);
end;
5. Program Div
Double Klik Button5/ Button Div, Tuliskan Kode Program Sebagai berikut :
procedure TForm1.Button5Click(Sender: TObject);
var
angka1,angka2,hasil:integer;
begin
angka1:=strtoint(edit1.Text);
angka2:=strtoint(edit2.Text);
hasil:=angka1 div angka2;
edit7.Text:=floattostr(hasil);
end;
6. Program Mod
Double Klik Button6/ Button Mod, Tuliskan Kode Program Sebagai berikut :
procedure TForm1.Button6Click(Sender: TObject);
var
angka1,angka2,hasil:integer;
begin
angka1:=strtoint(edit1.Text);
angka2:=strtoint(edit2.Text);
hasil:=angka1 mod angka2;
edit8.Text:=inttostr(hasil);
end;
E. Penjelasan Singkat Program
Var digunakan untuk mendeklarasikan suatu variable, yang berguna untuk menampung suatu nilai atau data.
Double merupakan salah satu tipe data yang ada di
Integer merupakan salah satu tipe data yang ada di
StrToInt digunakan untuk mengubah tipe data String menjadi Integer.
IntToStr digunakan untuk mengubah tipe data Integer menjadi String.
FloatToStr digunakan untuk mengubah tipe data Double menjadi String.
Download contoh program
Selengkapnya...
Mengenal Singkat Delphi
A. IDE (Integrated Development Environment)
IDE secara lugas dapat kita artikan sebagai lingkungan kerja dimana program dibuat,
Berikut screenshot IDE Delphi :
Dari gambar diatas, setidaknya dapat dibagi menjadi 4 hal, yaitu :
- Menu Utama
Menu utama mempunyai fungsi dasar sama seperti pada menu utama software yang pernah kita pakai (Cuma beda isi saja).
- Component Pallete
Component Pallete berisi object-object /komponen yang dapat kita gunakan untuk membuat program, seperti object edit, button, radiobutton dan lain-lain.
- Object Tree View
Object Tree View berisi tentang daftar komponen yang sedang kita pakai dalam pembuatan program.
- Object Inpector
|
Gambar A |
Gambar B |
Object Inspector digunakan untuk mengatur properties komponen (Gambar A) seperti nama komponen, caption komponen, warna komponen dan lain-lainnya. Selain itu object inspector digunakan untuk mengatur events komponen (Gambar B) seperti onclick, onkeypress dan lain-lain (events secara lugas dapat diartikan sebagai tempat dimana kita menuliskan koding program pada suatu komponen),
Gambar C (Tempat koding program ditulis)
Gambar C merupakan tempat untuk menuliskan koding program pada events onclik button. Gambar A, B dan C diatas merupakan object inspector properties dan events untuk komponen button.
- Form Designer
Form designer digunakan untuk meletakan komponen-komponen yang ada pada component pallete, pada form designer diatas, terdapat 3 (tiga) komponen yaitu : komponen label, komponen edit dan komponen button. Ketiga komponen diatas dapat diambil melalui tab standard komponen pallete.
A. Cara menyimpan dan menjalankan program
Ada 2 (dua) type/ektensi file yang harus kita simpan pada saat kita membuat program, yaitu :
1. File dengan ekstensi .dpr
File ini digunakan untuk menyimpan project program yang kita buat.
- File dengan ekstensi .pas
File ini digunakan untuk menyimpan koding program yang dituliskan oleh kita maupun Sistem.
File yang disimpan tidak hanya file diatas, masih ada beberapa type/ekstensi file yang perlu disimpan seperti file dengan ekstensi .dcu, .dfm dan lain-lain, namun file-file tersebut secara otomatis disimpan oleh delphi saat kita menyimpan file dengan ekstensi .dpr dan .pas.
untuk menjalankan/mengcompile program yang kita buat, dapat dilakukan dengan 2 (dua) cara, yaitu pada menu utama pilih run atau dengan cara menekan tombol F9 pada keyboard.
Selengkapnya...