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.