Belajar Program Komputer

WAJAH TIMBUL DARI TEMBOK

2007-06-30T01:26:00.000-07:00

WAJAH TIMBUL DARI TEMBOK

Buka file Pemandangan.Jpg dan Wanita-5-ext.psd Bab 4
Pindahkan file Pemandangan kedalam file baru.Ukuran 600 X 400
Masukkan file Wanita,kecilkan agar sesuai dengan foto Pemandangan,EditTransformScale
Gabungkan layer wanita & pemandangan,diPalette layer pilih layer wanita lalu tekan
Ctrl + E
Lalu buat dupilkat layer,LayerDuplicate Layer,Ok
Lalu klik menu FilterTextureTexturizer,Atur Nilai Texture=Brick Scaling115% Relief 7
Light Direction=Bottom Left Cek kotak Invert Klik Ok
Lalu di Palette Layer,Klik Add Layer Mask
Klik Brush Tool Atur Ukuran Brush20 ModeNormal Opacity100% Flow100%
Kuaslah Bagian wajah wanita
Hasil seperti dibawah ini

Pantulan Foto pada Bmw

2007-06-30T01:18:00.000-07:00

Buka File Bmw.psd dan bangunan klasik.jpg dari bab2
Pindahkan gambar BMW ke file baru,lalu Masukkan gambar foto bangunan kegambar tsb,Sesuaikan gambar foto dibelakang sekeliling Bmw (tidak penuh) ( gambar 1 )

Klik Erase Tool,Ubah Brush 45 ModeBrush Opacity100%,Hapus Bagian pinggir bangunan yang ada didepan Bmw seperti ( gambar 2 )
Klik menu Edit  Transform  Perspective Buatlah gambar bangunan menjadi condong seperti trapesium dengan menarik titik kanan atas/kirinya sedikit ketengah, ( gambar 3 )
Kecilkan & tengahkan gambar tsb masuk kedalam Kap Bmw,Melalui Edit Transform Perspective/skalasesuaikan dgn ( gambar 4 ),hapus pinggiran gambar yang tidak sesuai/kebesaran dgn Kap Bmw dgn Erase( gambar 4 )
Pada Palette Layer ubah nilai Opacity20%, Klik Add Layer Mask
Klik Brush tool Ubah Brush  10 madeNormal Opacity40% flow60%
Ubah warna Tool Box menjadi Abu Abu,Kuaslah bagian lekukan pada kap mobil dan Logo Bmw,lalu Ubah Opacity pd Palette Layer55%

( gambar 5 )

Contoh Form PHP_Self

2007-04-21T04:53:00.000-07:00

Mencoba Php_Self

<!doctype html public "-//W3C//DTD HTML 4.0 //EN">

<html>

<head>

<title>Buku Tamu Siswa</title>

</head>

<body>

<form method=POST action=<?php_self?>>

<table border=2 width=70% bgcolor=#00FFFF cellspacing=2 align=center>

<tr><td colspan=3 align=center> DATA Siswa BSI WMS </td></tr>

<tr><td>NIM</td><td>:</td><td><input type="text" name=NIM></td></tr>

<tr><td>NAMA</td><td>:</td><td><input type="text" name=NAMA></td></tr>

<tr><td>Jurusan</td><td>:</td><td><input type="radio" name=jurusan value=TK>TK<input
type="radio" name=jurusan value=MI>MI<input type="radio" name=jurusan
value=KA>KA</td></tr>

<tr><td>Gender</td><td>:</td><td><input type="radio"name=gender value=Laki-Laki>Laki-Laki<input
type="radio" name=gender value=Perempuan>Perempuan</td></tr>

<tr><td>Alamat</td><td>:</td><td><textarea rows=0 cols=0 wrap="on" name=alamat></textarea></td></tr>

<tr><td colspan=3 align=center><input type="submit" value=Proses><input
type="reset" value="Cancel"></td></tr>

</table></form>

<?

$NIM=$HTTP_POST_VARS["NIM"];

$NAMA=$HTTP_POST_VARS["NAMA"];

$jurusan=$HTTP_POST_VARS["jurusan"];

$gender=$HTTP_POST_VARS["gender"];

$alamat=$HTTP_POST_VARS["alamat"];

ECHO"<table cellspacing=2 cellpadding=2 align=center width=50%><tr><td>";

ECHO"<pre> Nim $NIM<br>";

ECHO"<pre> Nama $NAMA<br>";

ECHO"<pre> Jurusan $jurusan<br>";

ECHO"<pre> Gender $gender<br>";

ECHO"<pre> Alamat : $alamat<br></td></tr></table>";

?>

</body>

</html>

Contoh Form Outut PHP If Else

2007-04-07T05:25:00.000-07:00

<?

$kode=$HTTP_POST_VARS['kode'];

if ($kode=='NOK')

$merk="NOKIA";

else if ($kode=="SGH")

$merk="SAMSUNG";

ELSEif ($kode=="ERC")

$merk="SONY ERRICSON";

else

$merk="Merk Lain";

ECHO"<PRE>";

echo"Kode HP : $kode$type<br>";

echo"Type HP : $type<br>";

echo"Merk : $merk<br>";

echo"Harga : Rp.$harga<br>";

$total=$harga*$jumlah;

echo"Subtotal Bayar : Rp.$total<br>";

//IF ($jumlah>3)

// $disc=0.4*$total;

// ELSE IF ($jumlah>2)

// $disc=0.2*$total;

// ELSE

// $disc=0.1*$total;

SWITCH ($jumlah)

{

case 2:

$disc=0.02*$total;

break;

case 3:

$disc=0.05*$total;

break;

default:

$disc=0.1*$total;

}

echo"Discount : Rp.$disc<br>";

$totalbyr=$total-$disc;

echo"Harga Yang Harus di bayar : Rp.$totalbyr";

echo"<form action=if_else.php method=post><input type=submit
value=Kembali></form>";

?>

Contoh Form Input PHP If Else

2007-04-07T04:55:00.000-07:00

<!doctype html public "-//W3C//DTD HTML 4.0 //EN">

<html>

<head>

<title>Title here!</title>

</head>

<body>

<form action=if_else_tampil.php method=post>

<pre>Input Data Transaksi Penjualan HP<br>

Kode HP : <input type="text" name=kode>

Type : <input type="text" name=type>

Harga : <input type="text" name=harga>

Jumlah Beli : <input type="text" name=jumlah>

<input type="submit" value=Kirim> <input type="reset" value=Batal>

</body>

</html>

Contoh Form PHP Input

2007-04-04T07:12:00.000-07:00

<html>

<head>

<title>Biodata Pelanggan</title>

</head>

<body >

<table width=50% bordercolor=red cellpadding=0 cellspacing=0 align=center
border=1 bgcolor=white>

<tr>

<center><b><h2>Silahkan Masukan Data Anda</h2></b></center>

<hr>

<form method="post" action="form_order2.php">

<pre>

Nama Pelanggan : <input type=text name="pelanggan" size=10>

Nama Barang : <input type=Checkbox name="brg1" value=Hardisk >Hardisk
(Rp.500.000,-)

<input type=Checkbox name="brg2" value=CDROM >CDROM (Rp.300.000,-)

<input type=Checkbox name="brg3" value=Mouse >Mouse (Rp.30.000,-)

<input type=Checkbox name="brg4" value=Printer >Printer (Rp.400.000,-)

Jumlah Beli : <input type="text" name="jumbel" size=2>

Diskon : <input type="radio" name="disc1" value="Tidak" unchecked>Tidak

<input type="radio" name="disc2" value="10%" unchecked>10%

<input type="radio" name="disc3" value="20%" unchecked>20%

<hr><localhost/ady/Clock.exe>

<center><input type=submit value=Cetak> <input type=reset value=Batal></center>

</pre>

</table>

</body>

</html>

Contoh Form OutPut PHP

2007-04-04T07:10:00.000-07:00

<?

$pelanggan=$HTTP_POST_VARS["pelanggan"];

$jumbel=$HTTP_POST_VARS["jumbel"];

$br1=$HTTP_POST_VARS["brg1"];

$br2=$HTTP_POST_VARS["brg2"];

$br3=$HTTP_POST_VARS["brg3"];

$br4=$HTTP_POST_VARS["brg4"];

$disk1=$HTTP_POST_VARS["disc1"];

$disk2=$HTTP_POST_VARS["disc2"];

$disk3=$HTTP_POST_VARS["disc3"];

$jmlbyr=$HTTP_POST_VARS["jmlbyr"];

echo"<table width=50% bordercolor=red cellpadding=0 cellspacing=0 align=center
border=1 bgcolor=white>";

echo"<tr>";

echo"<pre>";

echo"<div align=center><h2>Toko Computer<br></h2></div>";

echo"<hr><b> ";

echo" Nama Pelanggan <b> $pelanggan</b><br>";

$brg=array($br1,$br2,$br3,$br4);

for($c=0;$c<=3;$c++)

{ if($brg[$c]!="")

echo" Nama Barang <b> $brg[$c],&nbsp <br>";}

if($br1)

{$harga=500000;}

elseif($br2)

{$harga=300000;}

elseif($br3)

{$harga=30000;}

else

{$harga=400000;}

$total=$harga*$jumbel;

echo" Harga Satuan Rp. $harga<br>";

echo" Jumlah Beli <u> $jumbel buah</u><br>";

echo" Total Harga Rp. $total<br>";

$disc=array($disk1,$disk2,$disk3,$disk4);

for($d=0;$d<=3;$d++)

{if($disc[$d]="")

echo"$disc[$d],&nbsp";}

if($disk2)

{$disc[$d]=0.1*$total;}

elseif($disk3)

{$disc[$d]=0.2*$total;}

else

{$disc[$d]=0*$total;}

echo" Diskon Rp. $disc[$d]<br>";

$kembali=$total-$disc[$d];

echo" Total Pembayaran <b>Rp. $kembali</b><br>";

$tanggal=date("d F Y");

$jam=date("H:i");

echo" Dicetak pada tanggal : $tanggal - $jam";

echo"</pre>";

?>

<a href="form_order1.php">kembali</a>

Contoh Case Of Pascal

2007-04-04T07:00:00.000-07:00


Contoh Case …Of  perhitungan  berat dan harga barang
 

Ketentuan soal :
1. Kualitas Barang di masukkan 
Kualitas Harga Per Kg
A/a 1000
B/b 750
C/c 500

Uses crt;
Var
Berat,harga,hargaperkg:integer;
Kualitas:char;
Begin
Clrscr;
Write(‘ Massukkan Kualitas Buah [A/B/C] : ‘); readln(kualitas);
Write(‘ Berapa Kg berat yang di beli           : ‘ ); readln(berat);
Case kualitas of
‘A’,’a’: hargaperkg:=1000;
‘B’,’b’: hargaperkg:=750;
‘C’,’c’: hargaperkg:=500;
Else
Begin
Hargaperkg:=0;
Writeln(‘Salah Input’);
End;
End;

Harga:=hargaperkg*berat;
Writeln(‘ Harga Per Kg : Rp.’,hargaperkg);
Writeln(‘ Harga Total    : Rp.’,harga);
End.

Contoh Program Pascal If Perhitungan Gaji

2007-04-04T06:46:00.000-07:00


Contoh Penghitungan Gaji 

Ketentuan Soal :
1. Nama Di input 
2. Jabatan di input , 
Jabatan        Gaji       Tunjangan
Direktur       3000000    10 % dari gaji
Manager        2000000    5% dari gaji
Karyawan       1000000    2% dari gaji
OB             800000     1% dari gaji

3. Dikenakan PPN 10 % dari gaji
4. Gaji Bersih didapat dari : gaji + tunjangan – PPn
  
Jawabannya:

Uses crt;
Var nama:string[20];jabatan:string;
Gaji:longint;
Tunj,ppn,gajibersih:real;
Begin
Clrscr;
Write(‘Nama Karyawan     : ‘); readln(nama);
Write(‘Masukkan Jabatan  : ‘); readln(jabatan);
If  (jabatan=’Direktur’) or (jabatan=’direktur’) then
     Begin
 Gaji:=3000000;
 Tunj:=0.1* gaji;
     End
Else If  (jabatan=’Manager’) or (jabatan=’manager’) then
     Begin
 Gaji:=2000000;
 Tunj:=0.05* gaji;
     End
Else If  (jabatan=’Karyawan’) or (jabatan=’karyawan’) then
     Begin
 Gaji:=1000000;
 Tunj:=0.1* gaji;
     End
Else 
     Begin
 Gaji:=800000;
 Tunj:=0.1* gaji;
     End;
Writeln(‘Gaji Bersih      : Rp.‘,gaji);
Writeln(‘Tunjangan Jabatan      : Rp.‘,tunj:9:2);
Ppn:=0.1*gaji;
Writeln(‘PPN 10 %      :  Rp.‘,ppn:9:2);
Total:=(gaji+total)-ppn;
Writeln(‘Total Gaji   :  Rp.‘,total:9:2);
Readln;
End.

Mengubah warna Object Pada 3 d MX

2007-03-06T21:32:00.000-08:00

Mengubah warna Object Pada 3 d MX
1. klik material editor atau
2. Tekan tombol M atau dari rendering pilih material editor
3. klik salah satu bulatan yang ada di material
4. klik kotak kecil yang ada di diffuse
5. Tentukan bentuk warnanya
6. Klik bulatan yang sudah di ubah warnanya drag ke arah object yang akan di beri warna.
7. atau juga bisa klik assign material to selection
8. Bisa juga kita memberi warna dengan warna gambar yang kita inginkan
9. caranya sama dengan langkah diatas hanya kita pilih bentuk bitmap
10. setelah itu kita cari gambar yang kita inginkan

Kembali

Bab 4 Array PASCAL

2007-03-06T00:55:00.001-08:00

Bab 4 Array
Array adalah tipe data terstruktur yang terdiri dari sejumlah komponen-komponen yang mempunyai tipe sama. Komponen-komponen tersebut disebut sebagai komponen type, larik mempunyai jumlah komponen yang jumlahnya tetap. Banyaknya komponen dalam larik ditunjukkan oleh suatu index, dimana tiap komponen di array dapat diakses dengan menunjukkan nilai indexnya atau subskript. Array dapat bertipe data sederhana seperti byte, word, integer, real, bolean, char, string dan tipe data scalar atau subrange. Tipe larik mengartikan isi dari larik atau komponen- komponenya mempunyai nilai dengan tipe data tersebut.
Contoh:
Var
Untai : array[1..50] of Integer;
Pada contoh Array dengan nama untai telah dideklarasikan dengan tipe integer, dengan jumlah elemen maksimum 50 elemen, nilai dari elemen array tersebut diatas harus bertipe integer.

Contoh Program :
Program Contoh_Array_Input;
Uses Crt;
Var
Bilangan : array[1..50] of Integer;
Begin
ClrScr;
Bilangan[1]:=3;
Bilangan[2]:=29;
Bilangan[3]:=30;
Bilangan[4]:=31;
Bilangan[5]:=23;
Writeln('nilai varibel bilangan ke 3 =',Bilangan[3]);
Readln;
End.

Array juga dapat dideklarasikan bersama dengan tipe yang beragam seperti contoh dibawah ini :
Program Contoh_Deklarasi_Array_Beragam;
Uses Crt;
Var
NPM : array[1..20] of string[10];
Nama : array[1..20] of string[25];
Nilai : array[1..20] of real;
Umur : array[1..20] of byte;
banyak,i : integer;
Begin
ClrScr;
Write('Isi berapa data array yang diperlukan :');Readln(banyak);
For i := 1 to banyak Do
Begin
Write('NPM =');Readln(NPM[i]);
Write('Nama =');readln(Nama[i]);
Write('Nilai=');readln(Nilai[i]);
Write('Umur =');readln(Umur[i]);
End;
{cetak varibel array}
Writeln('NPM NAMA NILAI UMUR ');
For i:= 1 to banyak Do
Begin
Writeln(Npm[i]:10,Nama[i]:25,Nilai[i]:3:2,' ',Umur[i]:3);
End;
Readln;
End.

Untuk deklarasi array dapat digunakan beberapa cara seperti berikut ini :
Type
Angka = String[20];
Var
Nama : Array [1..50] of Angka;
Begin
.
.
End.

Deklarasi tipe indeks subrange integer Indeks pada array dapat tipe skalar atau subrange, tetapi tidak bisa real.
Contoh:
Var
Nilai : Array[1..10] of Integer;
pada contoh ini array nilai mempunyai 10 buah elemen yaitu dari 1 sampai 10. Array tersebut dapat dideklarasikan dengan type seperti berikut ini :

Type
Skala = 1..10;
Var
Nilai : Array [skala] of Integer;
atau :
Type
Skala = 1..10;
Y = Array[skala] of Integer;
Var
Nilai : Y;
atau :
Type
Y = Array[1..10] of Integer;
Var
Nilai : Y;
atau :
Const
Atas =1;
Bawah = 5;
type
Y = Array[Atas..Bawah] of Integer;
Var
Nilai : Y;

I. Deklarasi Type Indeks Skalar
Indeks dari larik dapat berupa tipe skalar.
Contoh. :
Program Deklarasi_Indeks_Array_Skalar;
Uses Crt;
Var
Jum : Array[(jan,feb,mar,apr,mei)] of Integer;
Begin
Jum[jan]:=25;
Jum[feb]:=45;
Jum[mar]:=21;
Jum[apr]:=23;
Jum[mei]:=50;
Writeln('Jumlah nilai bulan maret =',Jum[mar]);
Readln;
End.
dapat juga ditulis :
type
Bln = (jan,feb,mar,apr,mei);
Var
Jum : Array[bln] of Integer;
atau :
type
Bln =(jan,feb,mar,apr,mei);
Var
Jum : Array[jan..mei] of Integer;

II. Deklarasi Konstanta Array
Array tidak hanya dapat berupa suatu varibel yang dideklarasikan di bagian deklarasi variabel, tetapi dapat juga berupa konstanta (const).
Contoh Program :
Program Contoh_Deklarasi_Array_Konstan;
Uses Crt;
Const
Tetap : Array[1..4] of Integer=(7,10,21,20);
Var
i : Integer;
Begin
For i:= 1 to 4 Do
Writeln('Nilai Konstan array ke ',i:2,' =',Tetap[i]);
Readln;
End.
konstanta array dapat juga berupa ketetapan dalam bentuk karakter seperti berikut.
Contoh Program :
Program Contoh_Konstan_Array_Char_;
Uses Crt;
Const
Huruf : Array[0..5] of Char=('A','B','C','D','E','F');
Var
i : Integer;
Begin
For i:= 0 to 5 Do
Writeln('Nilai konstan array ke',i:2,' = ',Huruf[i]);
Readln;
End.
Konstanta array dapat juga berupa string seperti berikut ini.
Contoh Program :
Program Constanta_Array_String;
Uses Crt;
Type
A = Array [1..5] of String;
Const
Nama : A = ('basic','pascal','cobol','paradox','dbase');
Var
i : Integer;
Begin
For i:= 1 to 5 Do
Writeln('Nilai Array ke-',i:2,'= ',Nama[i]);
readln;
end.

Dalam pascal string merupakan array dari elemen- elemen karakter seperti berikut :
Contoh Program :
Program String_Adalah_Array_Tipe_Char;
Uses Crt;
Var
Nama : string;
i : Integer;
Begin
Nama:='Turbo Pascal';
For i:= 1 to Length(nama) Do
Writeln('Elemen ',i,' dari ',Nama,'= ',Nama[i]);
Readln;
End.

contoh program bilangan prima dengan menggunakan bantuan array.
Contoh program :
Program Mencari_Bilangan_Prima_Dengan_Array;
Uses Crt;
Var
Prima : Array[1..100] of Integer;
i,j : Integer;
bil : Integer;
Begin
ClrScr;
For i := 2 to 100 Do
Begin
Prima[i]:=i;
For j:= 2 to i-1 Do
Begin
bil := (i mod j); {* i dibagi j dicek apakah 0*}
If bil = 0 then Prima[i]:=0; {*jika habis dibagi,berarti bkn prima*}
End;
If Prima[i]<> 0 Then Write(Prima[i],' '); {*cetak array yg prima*}
End;
Readln;
End.

Contoh pengurutan data dengan metode buble sort, yaitu dengan cara penukaran, dapat dilihat pada contoh dibawah ini :
Contoh Program :
Program Penggunaan_Array_Untuk_Sortir_Buble_Sort;
Uses Crt;
Var
nil1 : Array[1..100] of Integer;
n,i,j,dum : Integer;
Begin
ClrScr;
Write('mau isi berapa data acak (integer) ='); readln(n);
For i := 1 to n Do
Begin
Write('Data Ke ',i,':');Readln(nil1[i]);
End;
{* penyapuan proses}
for i:= 1 to n-1 do
begin
for j:= i to n do
begin
if nil1[j]begin
dum:=nil1[j];
nil1[j]:=nil1[i];
nil1[i]:=dum;
end;
end;
end;
writeln;
writeln('Hasil Sortir');
for i := 1 to n do
write(nil1[i]:3);
readln;
end.

III. Array Dua Dimensi
Di dalam pascal Array dapat berdimensi lebih dari satu yang disebut dengan array dimensi banyak (Multidimensional array), disini akan dibahas array 2 dimensi saja. Array 2 dimensi dapat mewakili suatu bentuk tabel atau matrik, yaitu indeks pertama menunjukkan baris dan indeks ke dua menunjukkan kolom dari tabel atau matrik.
1 2
1 2 3
Untuk mengetahui cara mendeklarasikan dari penggunaan aray dua dimensi dapat dilihat pada listing program dibawah ini .

Contoh Program:
Program Deklarasi_Array_Dua_Dimensi;
Uses Crt;
Var Tabel : Array[1..3,1..2] of Integer;
i,j : Integer;
Begin
ClrScr;
Tabel[1,1]:=1;
Tabel[1,2]:=2;
Tabel[2,1]:=3;
Tabel[2,2]:=4;
Tabel[3,1]:=5;
Tabel[3,2]:=6;
For I := 1 to 3 Do Begin For J:= 1 to 2 Do Begin Writeln('Elemen ',i,',',j,'= ',tabel[i,j]);
End;
End;
Readln;
End.

IV. Alternatif Deklarasi Array Dua Dimensi.
Ada beberapa cara dalam mendeklarasikan array dua dimensi, beberapa cara tersebut dapat dilihat dibawah ini :
Contoh :
Var
Tabel : Array[1..3] of Array[1..2] of Byte;
atau :
Type
Matrik = Array[1..3,1..2] of Byte;
Var
Tabel : Matrik;
atau :
Type
Baris = 1..3;
Kolom = 1..2;
Matrik = Array[Baris,Kolom] of Byte;
Var
Tabel : Matrik;
atau :
Type
Baris = 1..3;
Kolom=1..2;
Matrik= Array[Baris] of Array[Kolom] of Byte;
Var
Tabel : Matrik;
Dibawah ini akan diberikan listing program penggunaan array dua dimensi dalam aplikasi penjumlahan matrik :
Contoh Prorgam:
Program Penjumlahan_Matrik;
Uses Crt;
Var
Matrik1,Matrik2, Hasil : Array[1..3,1..2] of Integer;
i,j : Integer;
Begin
ClrScr;
{ input matrik ke satu }
Writeln(' Elemen matrik satu');
For i := 1 to 3 Do
Begin
For j := 1 to 2 Do
Begin
Write('Elemen baris -',i,' Kolom -',j,'= ');
Readln(matrik1[i,j]);
End;
End;
{input matrik ke dua}
Writeln('input elemen matrik dua');
For i:= 1 to 3 Do
Begin
For j:= 1 to 2 Do
Begin
Write('Elemen baris -',i,' kolom -',j,'= ');
Readln(matrik2[i,j]);
End;
End;
{proses penjumlahan tiap elemen}
For i := 1 to 3 Do
Begin
For j:= 1 to 2 Do
Begin
Hasil[i,j]:=Matrik1[i,j]+Matrik2[i,j];
End;
End;
{proses cetak hasil}
For i:= 1 to 3 Do
Begin
For j:= 1 to 2 Do
Begin
Write(Hasil[i,j]:6);
End;
Writeln;
End;
Readln;
End.

V. Array Sebagai Parameter
Array dapat digunakan sebagai parameter yang dikirimkan baik secara nilai (by value) atau secara acuan (by reference) ke procedure atau ke function. Procedure yang menggunakan parameter berupa array harus dideklarasikan di dalam judul procedure yang menyebutkan parameternya bertipe array.

Contoh Program :
Program Contoh_Pengiriman_Parameter_Array_Di_Procedure;
Uses Crt;
Const
Garis ='---------------------------------------------------';
Type
Untai = Array[1..10] of String[15];
Bulat = Array[1..10] of Integer;
Huruf = Array[1..10] of Char;
Var
i,Banyak : Integer;
Procedure Proses(Nama:Untai;Nilai:Bulat);
Var
Ket : String;
Abjad : Char;
Begin
Writeln(Garis);
Writeln('Nama Nilai Abjad Keterangan');
Writeln(Garis);
For i := 1 to Banyak Do
Begin
If Nilai[i] > 90 Then
Begin
Abjad:='A';
Ket :='Istimewa';
End;
If (Nilai[i]<90) And (Nilai[i]>70) Then
Begin
Abjad:='B';
Ket :='Memuaskan';
End;
If (Nilai[i]<70) And (Nilai[i]>60) Then
Begin
Abjad:='C';
Ket :='Cukup';
End;
If (Nilai[i]<60) And (Nilai[i]>45) Then
Begin
Abjad:='D';
Ket :='Kurang';
End;
If Nilai[i]< 45 Then
Begin
Abjad:='E';
Ket :='Sangat kurang';
End;
Writeln(Nama[i]:15,' ',Nilai[i]:4,' ',Abjad,' ',Ket:15);
End;
Writeln(Garis);
End;
Procedure Masuk_Data;
Var
Nama : Untai;
Nilai : Bulat;
Begin
Write('Banyak data =');Readln(Banyak);
For i:= 1 to Banyak Do
Begin
ClrScr;
Writeln('Data ke - ',i);
Write('Nama =');readln(Nama[i]);
Write('Nilai =');readln(Nilai[i]);
End;
Proses(Nama,Nilai);
End;
{modul Utama}
Begin
Masuk_Data;
Readln;
End.
Referensi :
# Lepkom Universitas Gunadarma.
# Dasar-dasar Pemrograman Pascal, Teori dan Program terapan , Ir.P. Insap Santosa, M.Sc.

KEMBALI

Bab 3 Bentuk Perulangan & Penyeleksian Kondisi

2007-03-06T00:54:00.001-08:00

Bab 3 Bentuk Perulangan & Penyeleksian Kondisi

Materi
1. Bentuk – bentuk Perulangan

Dalam hampir setiap program yang kompleks mutlak memerlukan suatu perulangan dan percabangan. Tujuan perulangan disini adalah untuk mengulang statement atau blok statement berulang kali sesuai
sejumlah yang ditentukan pemakai. Dalam materi ini akan memberikan gambaran konsep dasar dari pengertian diatas.

a) Perulangan For.
Perulangan dengan statemen For digunakan untuk mengulang statemen atau suatu blok statemen berulang kali. Perulangan dengan statemen For dapat berupa perunlangan positif dan perulangan negatif.

• Perulangan For positif
contoh : perulangan positif untuk satu statement :
Uses Crt;
Var
i : Integer;
Begin
For i := 1 To 5 Do Writeln ('I Love Dinda’);
END.
Maka bila program diatas dicompile
hasilnya :
I Love Dinda
I Love Dinda
I Love Dinda
I Love Dinda
I Love Dinda
Penjelasan : Berati statemen I Love Dinda akan diulang sebanyak 5 kali yaitu dengan menghitung nilai i dari i ke 1 sampai nilai i terakhir yaitu i ke 5.

# Contoh dengan menggunakan blok statement: cara penulisannya dengan pada awal blok diawali dengan Begin dan pada akhir blok diakhiri dengan End;
Uses Crt;
Var
i : Integer;
Begin
For i:= 1 To 10 Do
Begin
Writeln ('I Love Dinda'); { blok statement }
End;
End.
Hasil yang akan didapat akan sama dengan contoh yang pertama, tapi yang harus diingat disini untuk penggunaan blok pada perulangan For biasanya mempunyai banyak statement [lebih dari 1 statement]

# Contoh 3 : Penggunaan perulangan For dalam blok statement untuk membuat tabel

Uses Crt;
Var
a,b,c : Integer;
bagi : Real;
Begin
Writeln('----------------------------------------------');
Writeln(' a a*a a*a*a 1/a ');
Writeln('----------------------------------------------');
For a := 1 To 10 Do
Begin
b:= a*a;
c:=a*a*a;
bagi := 1/a;
Writeln(a:4,c:10,d:10,bagi:12:3);
End;
Writeln ('----------------------------------------------');
End.
maka hasilnya :
----------------------------------------------
a a*a a*a*a 1/a
----------------------------------------------
1 1 1 1.000
2 4 8 0.500
3 9 27 0.333
4 16 64 0.250
5 25 125 0.200
6 36 216 0.167
7 49 343 0.143
8 64 512 0.125
9 81 729 0.111
10 100 1000 0.100
----------------------------------------------
• Perulangan For negatif : Perulangan negatif adalah perulangan dengan menghitung (counter) dari besar ke kecil.

Statement yang digunakan adalah For-DownTo-Do
contoh :
Uses Crt;
Var
i : Integer;
Begin
For i := 10 DownTo 1 Do Write (i:3);
End.
Hasil :
10 9 8 7 6 5 4 3 2 1

• Perulangan For tersarang
Perulangan For tersarang adalah perulangan For yang berada pada perulangan yang lainnya. Perulangan yang lebih dalam akan diproses terlebih dahulu sampai habis, kemudian perulangan yang lebih luar baru akan bertambah, mengerjakan perulangan yang lebih dalam lagi mulai dari nilai awalnya dan seterusnya.
Contoh :
Var
a,b : Integer;
Begin
For a := 1 To 3 Do
Begin
For b := 1 To 2 Do Write (a :4,b:2);
Writeln;
End;
End.
Hasil :
1 1 1 2
2 1 2 2
3 1 3 2

• Perulangan While - Do
Penyeleksian kondisi digunakan untuk agar program dapat menyeleksi kondisi, sehingga program dapat menentukan tindakan apa yang harus dikerjakan, tergantung dari kondisi yang diseleksi tersebut. Perulangan While – Do tidak dilakukan jika kondisi tidak terpenuhi.
Contoh :
Uses Crt;
Var i : Integer;
Begin
i := 0;
While < 5 do
Begin
Write (i:3);
Inc (i); { sama dengan i:=i+1 }
End;
End.
Hasilnya :
0 1 2 3 4

• Perulangan While – Do tersarang
Perulangan While – Do tersarang (nested While - Do) merupakan perulangan While – Do yang satu di dalam perulangan While – Do yang lainnya.
Contoh :
Uses Crt;
Var
a, b : Integer;
Begin
ClrScr;
a:=1;
b:=1;
While a < 4 Do{ loop selama a masih lebih kecil dari 4 }
Begin
a := a+1;
While b < 3 Do{ loop selama b masih lebih kecil dari 3 }
Begin
Write (a:3,b:2);
b:=b+1;
End;
End;
Readln;
End.

• Perulangan Repeat - Until.
Repeat – Until digunakan untuk mengulang statement-statemen atau blok statement sampai (Until) kondisi yang diseleksi di Until tidak terpenuhi.
Sintak dari statement ini adalah :
Contoh :
Var
i : Integer;
Begin
i:=0;
Repeat
i:= i+1;
Writeln (i);
Until i=5;
End.
hasil :
1
2
3
4
5

• Repeat – Until tersarang
Repeat – Until tersarang adalah suatu perulangan Repeat - Until yang satu berada didalam perulangan Repeat – Until yang lainnya.
Contoh :
Var
a,b,c : Real;
Begin
Writeln('========================================');
Writeln(' sisi A sisi B Sisi C ');
Writeln (' =======================================');
a:= 1;
Repeat { perulangan luar }
b := 0;
Repeat{ perulangan dalam }
c:=Sqrt (a*a+b*b);
Writeln (a:6:2, b:9:2, c:9:2);
b:=b+5;
Until b>25; { berhenti jika b lebih besar dari 5 untuk
perulangan dalam }
a:=a+1;
Until a>3; { berhenti jika a lebih besar dari 3 untuk
perulangan luar }
Writeln(' =======================================');
End.

• Percabangan

 If - Then
Bentuk struktur If – Then adalah sebagai berikut :
If Kondisi Then Statement
Ungkapan adalah kondisi yang diseleksi oleh statement If. Bila kondisi yang diseleksi terpenuhi, maka statement yang mengikuti Then akan diproses, sebaliknya bila kondisi tidak terpenuhi, maka yang akan diproses statement berikutnya.
Misalnya :
If Pilihan = 2 Then
Begin{ jika kondisi terpenuhi, Yaitu jika pilihan = 2 }
......
......
End
Else{ jika kondisi tidak terpenuhi, yaitu jika pilhan tidak sama dengan 2}
Begin
.......
.......
End;
Contoh Program :
Uses Crt;
Var
Nilai : Real;
Begin
Write ('Jumlah Nilai :');
Readln (nilai); { Pemasukan data }
If nilai > 60 Then { seleksi kondisi variabel nilai }
Writeln('Lulus') { Dilaksanakan jika nilai lebih besar dari 60 }
Else
Writeln('Tidak lulus'); { Dilaksanakan jika variabel nilai lebih kecil dari 60 }
End.
Hasil :
Jika kita Memasukan 40 pada varibel nilai, Maka program diatas akan mencetak Tidak lulus.

 If tersarang (nested If)
Struktur If tersarang merupakan bentuk dari suatu statement If berada di dalam lingkungan statemen If yang lainya. Bentuk statement If tersarang sebagai berikut :

If kodisi1 Then atau If Kondisi1 Then
If kondisi2 Then Begin
statemen1 IF kondisi2 Then
Else statemen1
statemen2; Else
statemen2
End;

 Case - Of
Struktur Case – Of mempunyai suatu ungkapan logika yang disebut dengan selector dan sejumlah statemen yang diawali dengan suatu label permasalahan (case label) yang mempunyai tipe sama dengan selector.
Statement yang mempunyai case label yang bernilai sama dengan case label yang bernilai sama dengan nilai selector akan diproses sedang statemen yang lainya tidak.

Bentuk struktur dari Case - Of:

Case Variabel Kondisi Of
Case – Label 1; Statement 1;
Case – Label 2; Statement 2;
Case – Label 3; Statement 3;
Case – Label 4; Statement 4;
........
........
Case – Label n ; Statement n ;
End ; { end dari case }

Daftar Case label dapat berupa konstanta, range dari konstanta yang bukan bertipe real.
Contoh program ;
Program nilai;
Var
nil : Char ;
Begin
Write ('Nilai Numerik yang didapat :');
Readln (nil);
Case nil Of
'A': Writeln ('Sangat Baik’);
'B': Writeln('Baik’);
'C': Writeln('Cukup');
'D': Writeln('Kurang');
'E': Writeln('Sangat Kurang');
End;
End.
hasil : Nilai Numerik yang didapat : B Input Baik
Contoh Listing Program untuk Dicoba

1. Program input data dengan array.
Program Pemakaian_Array_Untuk_10_data_dengan_menggunakan_For;

Uses Crt;
Const
garis='------------------------------------------------------';
Var
nil1,nil2 : Array [1..10] Of 0..100; {Array dgn Type subjangkauan}
npm : Array [1..10] Of String [8];
nama : Array [1..10] Of String [15];
n,i,bar : Integer;
jum : Real;
tl : Char;
Begin
ClrScr;
{ pemasukan data dalam array }
Write ('Mau Isi Berapa Data:');
Readln (n);
For i:= 1 To n Do
Begin
ClrScr;
GotoXY(30,4+1); Write('Data Ke-:',i:2);
GotoXY(10,5+i); Write('NPM :'); Readln (npm[i]);
GotoXY(10,6+i); Write('Nama :'); Readln (nama[i]);
GotoXY(10,7+i); Write('Nilai 1 :'); Realdn(nil 1[i]);
GotoXY(10,8+i); Write('Nilai 2 :'); Readln(nil 2[i]);
End;
{ proses data dalam array }
ClrScr;
GotoXY(5,4); Write(Garis);
GotoXY(5,5); Write ('No');
GotoXY(9,5); Write ('NPM');
GotoXY(18,5); Write ('Nama');
GotoXY(34,5); Write ('Nilai 1');
GotoXY(41,5); Write ('Nilai 2');
GotoXY(47,5); Write ('Rata');
GotoXY(54,5); Write ('Abjad’);
GotoXY(5,6); Write (Garis);
{ proses Cetak isi array dan seleksi kondisi }
bar := 7;
For i:= 1 To n Do
Begin
jum:=(nil1[i]+nil2[i])/2;
If jum>= 90 Then tl:='A'
Else
If jum>80 Then tl:='B'
Else
If jum>60 then tl:='C'
Else
If jum 50 Then tl:='D'
Else
tl:='E';
{ cetak hasil yang disimpan di array dan hasil }
{ penyeleksian kondisi }
GotoYX(5,bar); Writeln(i:2);
GotoYX(9,bar); Writeln (NPM[i]);
GotoYX(18,bar); Writeln (NAMA[i]);
GotoYX(34,bar); Writeln (NIL1[i]:4);
GotoYX(41,bar); Writeln (NIL2[i]:4);
GotoYX(47,bar); Writeln (jum:5:1);
GotoYX(54,bar); Writeln (tl);
bar:=bar+1;
End;
GotoXY(5,bar+1);Writeln(garis);
Readln;
End.

2. Program jendela bergerak.
Program Window_Bergerak_dgn_delay;
Uses Crt;
Var i : Integer;
Begin
For i:=1 To 15 Do
Begin
Sound (i*100);
Delay (100);
NoSound;
End;
TextBackGround(black);
ClrScr;
For i := 1 To 9 Do
Begin
TextBackGround(white);
Window (42-i*4,10-i,38+i*4,15+i);
ClrScr;
Delay(100);
End;
TextColor(15);
GotoXY(28,2);Writeln('c');
GotoXY (8,3); Writeln ('3');
GotoXY (28,4); Writeln ('A');
TextColor(black);
GotoXY (44,3); Writeln ('3');
GotoXY (44,2); Writeln ('&');
TextColor (29,4); Writeln ('U');
TextColor (red*25);
GotoXY (30,3); Writeln ('B E L A J A R');
TextColor (black);
GotoXY (5,5); Write('c');
For i := 6 To 64 Do
Begin
GotoXY (i,5); Writeln ('');
End;
For i := 6 To 20 Do
Begin
GotoXY(5,i); Writeln('3 ');
End;
GotoXY (5,21); Writeln (' ');
TextColor(white);
GotoXY(65,5); Write('U');
For i := 6 To 65 Do
Begin
GotoXY (i,21); Writeln(' `);
End;
For i := 6 To 20 Do
Begin
GotoXY(65,i); Writeln('3');
End;
GotoXY (65,21); Writeln ('c');
TextColor(yellow);
Readln;
End.

Soal Latihan
Buatlah program untuk soal dibawah ini dengan tampilan sebagus mungkin (gunakan perintah Window, Textcolor dll). Jumlah suku sesuai dengan input dari keyboard.
1. Buat deret hitung 3,7,11,15,......................=?
Program akan berhenti jika pada pertanyaan "Hitung Lagi [Y/T] ?" diisi huruf T.
2. Buat deret ukur 3,9,27,................................=?
Program akan berhenti jika pada pertanyaan "Hitung Lagi [Y/T] ?" diisi huruf T.
3. Buat tabel deret bergoyang 1,-2,4,-8,...........=?
Program akan berhenti jika pada pertanyaan "Hitung Lagi [Y/T] ?" diisi huruf T.
4. Buat deret suku harmonis 1,1/2,1/3,.............=?
Program akan berhenti jika pada pertanyaan "Hitung Lagi [Y/T] ?" diisi huruf T.
5. Buat deret fibbonaci 1,1,2,3,5,.....................=?
Program akan berhenti jika pada pertanyaan "Hitung Lagi [Y/T] ?" diisi huruf T.
6. Buat deret seperti berikut 1,-2,3,-4,.............=?
Program akan berhenti jika pada pertanyaan "Hitung Lagi [Y/T] ?" diisi huruf T.
7. Buat deret kuadrat 1, 4, 9,............................=?
Program akan berhenti jika pada pertanyaan "Hitung Lagi [Y/T] ?" diisi huruf T.
8. Buat deret seperti berikut 100, 90, 70 ,...........=?
Program akan berhenti jika pada pertanyaan "Hitung Lagi [Y/T] ?" diisi huruf T.
9. Buat deret seperti berikut 256, 196, 144,............=?
Program akan berhenti jika pada pertanyaan "Hitung Lagi [Y/T] ?" diisi huruf T.
10. Buat deret seperti berikut 1, 1, 1, 2, 2, 3, 6, 4, 24, 5..........=?
Program akan berhenti jika pada pertanyaan "Hitung Lagi [Y/T] ?" diisi huruf T.
11. Buatlah program untuk mencari faktorial, sesuai dengan input yang diminta.
12. Buatlah program huruf yang berjatuhan sehingga membentuk suatu kalimat yang telah diinput dari keyboard .

KEMBALI

Bab 2 Statemen-Statemen pada Pemrograman Pascal

2007-03-06T00:53:00.001-08:00

Bab 2 Statemen-Statemen pada Pemrograman Pascal
Nah, sekarang anda sudah masuk ke bab statement pemrograman ….selamat mencoba… Reserved Word Reserved Word adalah kata-kata baku yang digunakan dalam program dan sudah terintergrated dalam pascal dan juga mempunyai bentuk serta kegunaan tertentu yang telah didefinisikan oleh Pascal. Reserved Word tidak boleh didefinisikan kembali oleh pemakai, sehingga tidak dapat digunakan sebagai pengenal (Identifier). Dalam bahasa pemrograman Pascal, beberapa Reserved Word dalam Pascal anatra lain:
AND DOWNTO IN OF STRING
ASM ELSE INHERITED OR THEN
ARRAY END INLINE PACKED TO
BEGIN EXPORTS INTERFACE PROCEDURE TYPE
CASE FILE LABEL PROGRAM UNIT
CONST FOR LIBRARY RECORD UNTIL
CONSTRUCTOR FUNCTION MOD REPEAT USES
DESTRUCTOR GOTO NIL SET VAR
DIV IF NOT SHL WHILE
DO IMPLEMENTATION OBJECT SHR WITH
.
Selain dari Reserved Word di atas, Turbo Pascal masih memiliki tambahan Reserved Word berikut:
ABSOLUTE ASSEMBLER () FAR FORWARD INDEX

Beberapa Statemen Turbo Pascal
Statemen adalah perintah untuk pengerjaan program pascal. Statemen terletak di bagian deklarasi statemen dengan diawali oleh kata cadangan BEGIN dan diakhiri dengan kata cadangan END. Akhir dari setiap statemen diakhiri dengan titik koma [;]. Statemen statemen dalam bahasa Pascal terdiri dari pernyataan yang berupa fungsi dan prosedur yang telah disediakan sebagai perintah standar Turbo Pascal.

1. Statemen-statemen yang digunakan untuk input/output.

# Read/Readln [prosedur]. Perintah ini digunakan untuk memasukkan [input] data lewat keyboard ke dalam suatu variabel.
Sintaks: Read/Readln(x); (ingat, selalu diakhiri dengan titik koma [;])
Keterangan : x = variabel.
Read = pada statemen ini posisi kursor tidak pindah ke baris selanjutnya.
Readln = pada statemen ini posisi kursor akan pindah ke baris selanjutnya setelah di input.

# ReadKey [fungsi]. Untuk pembacaan sebuah karakter dari keyboard. Tipe data yang dihasilkan adalah char.
Sintaks: ReadKey;

# Write/Writeln [prosedur]. Digunakan untuk menampilkan isi dari suatu nilai variable dilayar.
Sintaks: Write/Writeln(x);
Keterangan : x = variabel.
Write/Writeln= statement ini digunakan untuk mencetak variable ke dalam monitor
Contoh :
Program input;
Uses Crt;
Var nm : String;
npm : String;
Begin
Clrscr;
Writeln ('masukkan nama dan NPM ');
Writeln ('------------------------------');
Write ('nama anda : ');
Readln (nm);
Writeln ('NPM anda : ');
Readln (npm);
End.
Bila dijalankan hasilnya adalah:
masukkan nama dan NPM
------------------------------
nama anda : ( di input )
NPM anda : ( di input )

2. Statemen-statemen yang digunakan untuk pengaturan letak layar.

# ClrScr [prosedur]. Perintah ini digunakan untuk membersihkan layar.
sintaks: ClrScr; [Clear screen]

# GotoXY[prosedur]. Untuk menempatkan posisi kursor pada layar.
Sintaks: GotoXY(X, Y: Byte);
Keterangan : X = sumbu X (posisi horisontal)
Y = sumbu Y (posisi vertikal)

# DelLine [prosedur]. Untuk menghapus sebuah baris pada posisi kursor dan menaikkan baris-baris dibawahnya.
Sintaks: DelLine;

# InsLine [prosedur]. Untuk menyisipkan sebuah baris pada posisi kursor dan menggeser kebawah tampilan-tampilan baris dibawahnya.
Sintaks: InsLine;

# Delay [prosedur]. Untuk menghentikan sejenak proses program.
Sintaks: Delay (MS: Word);
Keterangan : variable MS = ukuran waktu dalam milisecond.
Contoh :
Program Layar;
Uses Crt;
Var x : Char;
Begin
ClrScr;
GotoXY(35,10);Writeln (‘I Love Dinda');
Write (tunggu sebentar...!!');
Delay (5000);
InsLine;
GotoXY (35,11);Writeln ('Bayi sehatku');
GotoXY(01,13);Writeln ('Tekan Enter !');
Delay(1000);
GotoXY(15,12);
DelLine;
Read(x);
End.
Hasilnya adalah :
I Love Dinda
Bayi sehatku
tunggu sebentar...!!
Tekan Enter !

3. Statemen yang digunakan untuk memanipulasi string.

# ConCat[fungsi]. Untuk menggabungkan 2 atau beberapa variabel string.
Sintaks: ConCat (s1 [,s2,...,sn]: String) : String;
contoh: ConCat ('ABC','DEF') { ABCDEF }

# Copy [fungsi]. Mengambil satu atau beberapa karakter dari sebuah string.
Sintaks: Copy (S,Index,Count) : String;
Keterangan : S = sebuah string (string).
Index = posisi awal kita akan mengambil beberapa karakter (integer)
Count = banyaknya karakter yang akan diambil (integer).

# Delete [prosedur]. Menghapus sebagian karakter dari sebuah string.
Sintaks: Delete (S,Index,Count);
Keterangan : sama dengan statemen Copy.

# Insert [prosedur]. Menyisipkan satu atau beberapa karakter ke dalam sebuah string.
Sintaks: Insert (Source,var S,Index);
Keterangan : Source = sumber string untuk disisipi (string)
var S = string tujuan yang akan disisipi oleh string Source (string)
Index = posisi mulai (integer).

# Length [fungsi]. Memberikan nilai panjang dari suatu string (jumlah karakter dalam string).
Sintaks: Length (S);
Keterangan : S = string
Length(S) menghasilkan nilai integer.

# Pos [fungsi]. Mencari posisi sebuah bagian string (substring) didalam sebuah string.
Sintaks: Pos (Substr,S); {menghasilkan nilai Byte}
Keterangan : Substr = substring yang akan dicari posisinya didalam sebuah string S. Bila bernilai 0 berarti nilai string yang dicari tidak ada.

# Str [prosedur]. Merubah nilai numerik ke dalam nilai string.
Sintaks: Str (N,S);
Keterangan :
N = data tipe integer,
S = data tipe string.

# Val [prosedur]. Merubah nilai string ke dalam nilai numerik.
Sintaks: Val (S,N,P);
Keterangan :
S = nilai string,
N = nilai real,
P = posisi salah.
Nilai string harus berisi angka, plus atau minus, bila tidak berarti kesalahan dan letak kesalahannya ditunjukkan oleh variabel posisi salah. Jika benar, maka nilai variabel tsb = 0 (nol).

# UpCase [fungsi]. Memberikan huruf kapital dari argumen.
Sintaks: UpCase (S);
Keterangan :
S = variabel bertipe karakter.
Contoh :
Program Man_String;
Uses Crt;
Var s : String;
l : Integer;
h : String;
Const a='Dinda';
b='Bayi ';
c='Sehatku';
Begin
ClrScr;
s:= ConCat (a,b,c);
Writeln (s);
Insert (' & ',s,6);
Writeln(s);
Delete (s,7,7);
Writeln (s);
h:=Copy (s,1,5);
Writeln (h);
l:= Length(s);
Writeln ('Panjangnya string S : ',l);
Writeln ('Posisi "Sehat" pada nilai S : ',POS('Sehat',s));
END.
Hasilnya adalah :
DindaBayiSehatku
Dinda & Bayi Sehatku
Dinda Sehatku
Dinda
Panjangnya string S : 16
Posisi "Sehat" pada nilai S : 7

4. Statemen-statemen untuk perhitungan aritmatik.

# Abs [fungsi]. Memberikan nilai mutlak dari suatu argumen.
Sintaks: ABS(x);

# ArcTan[fungsi]. Memberikan nilai dari fungsi arctangent dari perhitungan goniometri.
Sintaks: ArcTan (x); ‘dimana x dapat bertipe real atau integer dan akan menghasilkan nilai bertipe real.’

# Cos [fungsi]. Memberikan nilai dari fungsi Cosinus.
Sintaks: Cos (x);

# Exp [fungsi]. Menghitung nilai pangkat dari bilangan e (bilangan alam),yaitu sebesar x.
Sintaks: Exp (x); ‘x dapat bertipe real atau integer dan akan menghasilkan nilai bertipe real. ‘

# Frac [fungsi]. Untuk mendapatkan nilai pecahan dari suatu bilangan.
Sintaks: Frac (x); ‘Tipe dari x sama seperti yang diatas. ‘

# Int [fungsi]. Memberikan nilai integer (bilangan bulat) dari suatu variabel dengan membuang bilangan di belakang koma.
Sintaks: Int (X);

# Ln [fungsi]. Digunakan untuk menghitung nilai logaritma alam (natural logarithm) dari nilai x.
Sintaks: Ln (x);

# Sin [fungsi]. Memberikan nilai dari fungsi Sinus.
Sintaks: Sin (x);

# Sqr [fungsi]. Digunakan untuk menghitung nilai pangkat kuadrat dari suatu bilangan.
Sintaks: Sqr (x);
Tipe dari x bisa berupa real maupun integer. Dan hasilnya akan sama dengan tipe dari x.

# Sqrt (fungsi). Digunakan untuk menghitung nilai akar dari suatu bilangan.
Sintaks: Sqrt (x);
Contoh :
Program Aritmatik;
Uses Crt;
Var x : Real;
Begin
Clrscr;
Write('Masukkan nilai dari X = ');
Readln (x);
If x <0 Then x:=Abs (x);
Writeln('Nilai X = ',x:5:2);
Writeln ('Nilai eksponentialnya = ',EXP(x):9:3);
Writeln ('Nilai logaritma alamnya = ',LN(x):9:3);
Writeln ('Nilai integernya = ',INT(x):5:2);
Writeln ('Nilai fraksionalnya = ',FRAC(x):5:2);
Writeln ('Nilai X dipangkatkan = ',SQRT(x):9:3);
Writeln ('Nilai X diakarkan = ',SQRT(x):9:3);
Write('Nilai X jika dimasukkan dalam ');
Writeln('fungsi Sin,Cos,Tangen: ');
Writeln('- Sinus = ',Sin(x):9:3);
Writeln('- Cosinus = ',Cos(x):9:3);
Writeln('- Tangen = ',ArcTan(x):9:3);
End.
Hasilnya :
masukkan nilai dari X = -2.5
Nilai X = 2.50
Nilai eksponensialnya = 12,182
Nilai logarima alamnya = 0,196
Nilai integernya = 2.00
Nilai fraksionalnya = 0.50
Nilai X dipangkatkan = 6.250
Nilai X diakarkan = 1.581
Nilai X jika dimasukkan dalam fungsi Sin,Cos,Tangen:
- Sinus = 0.598
- Cosinus = -0.801
- Tangen = 1.190

5. Statemen-statemen untuk transfer nilai dari suatu variabel.

# Chr [fungsi]. Merubah nilai dari byte ke bentuk karakter yang sesuai dengan kode ASCII.
Sintaks: Chr (x);
Keterangan : x bertipe byte
contoh : Writeln (Chr (61));
hasilnya : a

# Ord [fungsi]. Merubah nilai suatu variabel dari bentuk karakter ke bentuk longint.
Sintaks: Ord (x);
Keteranagn : x bertipe char
contoh : Writeln(Ord ('B'));
hasilnya : 42

# Round [fungsi]. Membulatkan data tipe real ke data tipe longint.
Sintaks: Round (x);
Keterangan : Jika nilai pecahan < 0,5 maka dibulatkan kebawah. Jika nilai pecahan > 0,5 maka dibulatkan keatas.
contoh : Writeln('10/3 dibulatkan = ',Round(10/3));
hasilnya : 10/3 dibulatkan = 3

# TRUNC [fungsi]. Membulatkan kebawah data tipe real ke data tipe longint.
Sintaks: Trunc (x);
contoh : Writeln('20/3 dibulatkan kebawah = ',Trunc (20/3));
hasilnya : 20/3 dibulatkan kebawah = 6

6. Statemen-statemen untuk memanipulasi data.

# Pred [fungsi]. Memberikan nilai sebelum nilai argumen dalam urutannya dalam ASCII.
Sintaks: Pred (x);

# Succ [fungsi]. Memberikan nilai sesudah nilai argumen dalam urutannya dalam ASCII.
Sintaks: Succ (x);

# Inc[fungsi]. Menambah (increments) nilai suatu variabel.
Sintaks: Inc (x,i); {i >= 1}

# Dec [fungsi]. Mengurangi (decrements) nilai suatu variabel.
Sintaks: DEC(x,i); {i >=1}

Contoh :
Progam Man_Data;
Uses Crt;
Type
hari = (hr0,hr1,hr2,hr3,hr4,hr5,hr6,hr7)
Var
urutanhr : hari;
Const
namahr : Array [hr1..hr7] of String [6]=('Senin','Selasa','Rabu','Kamis','Jumat','Sabtu','Minggu');
Begin
Writeln('Daftar Nama Hari);
urutanhr := hr0;
While Urutanhr < hr7 DO
Begin
urutanhr := Succ(urutanhr);
Write('hari ke ',Ord(Urutanhr):2,' adalah ');
Writeln(namahr[urutanhr]);
End;
End.
hasilnya adalah :
Daftar Nama Hari
hari ke 1 adalah Senin
hari ke 2 adalah Selasa
hari ke 3 adalah Rabu
hari ke 4 adalah Kamis
hari ke 5 adalah Jumat
hari ke 6 adalah Sabtu
hari ke 7 adalah Minggu

7. Statemen-statemen tambahan (warna,suara dan window).

# TextColor [prosedur]. Untuk mengatur warna dari karakter-karakter di layar.
Sintaks: TextColor (color : Byte);
Catatan : untuk pilihan warna lihat pada buku Turbo Pascal yang anda miliki.
Daftar TextColor :
(2) Hijau Muda (3)Hijau pupus (4)Merah
(5)Ungu Tua (6) Kuning (7)Putih
(8)Biru Tua (9)Biru Cerah (10)Hijau Muda
(12)Merah Muda (13)Ungu Cerah (14)Kuning Muda
(15) Ungu Pupus (16)Hitam

Daftar TextColor dengan Blink :
(17)Biru Tua (18)Hijau Muda (19)Hijau Pupus
(20)Merah (21)Ungu Tua

# TextBackGround [prosedur]. Untuk mengatur warna latar belakang dari karakter-karakter dilayar.
Sintaks: TextBackGround (Color : Byte);

# Window [prosedur]. Untuk membuat suatu jendela (window) yang terletak pada layar.
Sintaks: Window (x1,x2,y1,y2 : Byte);
x1,x2 = kordinat kiri atas dengan nilai maksimal sesuai dengan mode layar.
y1,y2 = kordinat kanan bawah dengan nilai maksimal sesuai dengan mode layar.

# TextMode [prosedur]. Untuk mengatur lebar layar, 80 kolom atau 40 kolom.
Sintaks: TextMode(Mode: Byte);
Default = C80

# Sound [prosedur]. Untuk mengaktifkan suara (beep) pada internal speaker.
Sintaks: Sound (Hz : word);
Untuk mengnonaktifkannya, gunakan statemen NoSound.
Contoh :
Program Layar2;
Uses Crt;
Begin
ClrScr;
Window (5,5,20,75);
TextBackGround(Red); ‘anda juga bisa menggunakan angka (4)
TextColor(Yellow);
Sound (220);
GotoXY(10,7);
Writeln('I Love Dinda');
GotoXY(11,7);
Writeln('Bayi Sehatku');
NoSound;
End.
Sebagai Latihan dari teori-teori yang sudah anda pelajari diatas, coba anda kerjakan soal-soal dibawah ini .

Soal Latihan
1. Soal I
Buatlah program dibawah ini dengan tampilan menggunakan perintah Window, TextColor, Blink TextColor, Textbackground, GotoXY, dan Sound untuk memperindah tampilan.
1. Mengubah derajat temperatur, dari derajat Celcius ke derajat Fahreinheit dan Reamur (derajat Celcius diinput)
2. Menghitung Luas dan Keliling lingkaran, dengan jari-jari diketahui (diinput).
3. Menghitung Luas dan Keliling segitiga sembarang yang diketahui ke tiga sisinya.
4. Mencari nilai Sinus, Cosinus, dan Tangen dengan sudut diinput.
5. Mencari akar dan kuadrat dari suatu nilai (nilai diinput).
6. Mencari nilai bulat dan pecahan dari suatu nilai yang dimasukkan melalui keyboard (diinput). Nilai pecahan tersebut dibulatkan sampai 3 angka dibelakang koma (,).
7. Tampilkan nama dan NPM anda di dalam window, dan terletak pada tengah-tengah layar.
8. Tampilkan tulisan 'I Love Dinda’ di dalam window pada pojok kanan atas dengan ukuran window sama dengan tulisan tersebut.
2. Soal II
Buatlah program pada soal jenis I (no. 1-6) dengan tampilan menggunakan 2 window. Window yang pertama digunakan untuk nilai yang diinput. Window yang kedua untuk hasil dari program (output).
3. Soal III
1. Buatlah program untuk menggabungkan 2 buah kata yang diinput. Setiap kata yang diinput harus berada didalam window yang dan hasilnya berada pada window yang berbeda pula.
2. Buatlah program untuk menampilkan window secara acak dengan warna yang berbeda.

KEMBALI

Bab 1 Mengenal Tampilan Turbo Pascal

2007-03-06T00:51:00.001-08:00

Bab 1 Mengenal Tampilan Turbo Pascal
PENDAHULUAN
Menu Turbo Pascal Turbo Pascal memiliki 7 buah menu utama yang terdiri dari : File, Edit, Run, Compile, Options, Debug, dan Break / Watch. Untuk memilih salah satu dari menu itu anda bisa menekan tombol Alt + F (untuk memanggil menu file), atau menekan Alt + [huruf pertama dari menu]. Jika anda ingin kembali ke menu utama anda bisa saja menekan tombol F10, untuk pindah dari menu satu ke menu yang lain anda juga bisa menekan panah kanan atau panah kiri. Contohnya ketika anda berada di menu File maka untuk pindah ke menu Compile anda cukup menggunakan tombol panah kanan atau panah kiri , dan anda juga bisa langsung menekan huruf C. Untuk menutup menu anda bisa menggunakan tombol Esc. Sebetulnya akan lebh mudah jika memanggil sebuah menu dengan menggunakan hotkey, table dibawah ini adalah hotkey yang digunakan dalam turbo pascal :
Kunci	Fungsi	Ekivalen menu
F1	Mengaktifkan jendela pertolongan.	File / Save
F2	Menyimpan berkas yang ada pada editor.	File / Load
F3	Memanggil program kedalam editor.	Run / Go to cursor
F4	Mengeksekusi program sampai posisi kursor.	Run / Trace into
F5	Memperbesar atau memperkecil jendela yang aktif.	Compile / Make
F6	Mengganti jendela yang aktif.	File / Pick
F7	Melacak kedalam subrutin.	File / user screen
F8	Melompati pemanggil subrutin.	Compile
F9	Mengaktifkan perintah ‘Make’	Run / Program reset
F10	Berpindah dari menu-menu ke jendela yang aktif.
Alt + F1	Memanggil jendela pertolongan yang terakhir dibaca.
Alt + F3	Memilih berkas untuk dimuat.
Alt + F5	Memperlihatkan hasil eksekusi.
Alt + F6	Mengganti isi jendela yang aktif.
Alt + F9	Mengkompilasi program.
Alt + B	Mengaktifkan menu Break / Watch.
Alt + C	Mengaktifkan menu compile.
Alt + D	Mengaktifkan menu debug.
Alt + E	Mengaktifkan editor.
Alt + F	Mengakaktifkan menu file.
Alt + O	Mengaktifkan menu option.
Alt + R	Mengaktifkan menu run.
Alt + X	Keluar dari Turbo Pascal dan kembali ke DOS.
Ctrl + F1	Menampilkan menu pertolongan bahasa.
Ctrl + F2	Menghentikan pembetulan.
Ctrl + F3	Menampilkan isi tumpukan.	Debug / Call Stack
Ctrl + F4	Melakukan penghitungan atau mengubah nilai peubah..	Debug / Evaluate
Ctrl + F7	Menambahkan ungkapan pada jendela watch. .	B / Add Watch
Ctrl + F8	Toggles Breakpoint..	B / Toggle breakpoint
Ctrl + F9	Menjalankan program..	Run / Run
Ctrl + F10	Menampilkan versi layar monitor.

Nah, itu tadi adalah beberapa hotkey yang ada pada Turbo Pascal, sekarang kita langsung aja yah mempelajari menu di Turbo Pascal ini.

1. Menu File : Didalam menu File banyak submenu yang bisa dipilih misalkan saja perintah Load / F3 yang berfungsi untuk memanggil berkas yang sudah tersimpan, dan banyak lainnya.
2. Submenu Load : Pilihan ini digunakan untuk memanggil program dari suatu folder atau directory ke dalam editor. Didalam submenu ini anda juga bisa memilih submenu yang lain dengan hanya menekan tombol huruf depan dari submenu yang dituju, contohnya anda mau ke submenu New, maka anda tinggal menekan huruf N.
3. Submenu Pick : Pilihan yang satu ini digunakan untuk mengambil salah satu dari beberapa buah program yang sebelumnya telah dimuat ke dalam jendela Edit. Hal ini ditujukan agar kita tidak perlu repot-repot lagi mencarinya di submenu load.
4. Submenu New :Program yang ada di editor akan dihapus dan program yang akan anda tulis dianggap sebagai program yang baru dengan nama NONAME.PAS, nama ini bisa anda rubah ketika anda mau menyimpannya.
5. Submenu Save [F2] : Pilihan ini digunakan untuk menyimpan suatu program yang sudah di edit ke dalam cakram atau folder, jika nama program itu masih NONAME.PAS maka Turbo Pascal akan menanyakan pada anda, nama apa yang akan anda berikan pada program yang akan disimpan tersebut. Atau anda juga bisa menekan tombol F2.
6. Submenu Write to : pilihan ini digunakan untuk menggantikan program lama dengan program yang baru (istilah kerennya Overwrite…☺). Jika nama program anda sudah ada pada cakram atau folder maka ada verifikasi dari Turbo Pascal untuk penggantian nama.
7. Submenu Directory : pilihan ini digunakan untuk menampilkan direktori dan nama-nama file yang anda inginkan. Anda juga bisa menggunakan pilihan Load.
8. Submenu Change Dir : Pilihan yang satu ini digunakan untuk menampilkan direktori yang sedang digunakan dan juga bisa digunakan untuk mengganti nama direktori yang baru.
9. Submenu OS shell : Perintah ini digunakan bagi anda yang ingin ke tampilan DOS tetapi tanpa mematikan Turbo Pascalnya, untuk kembali lagi ke Turbo Pascal, anda tinggal mengetikan “exit”, tetapi biasanya ketika anda sedang membuat suatu program atau mengedit suatu program perintah ini tidak dapat dijalankan karena kurangnya kapasitas memory.
10. Submenu Quit [Alt + x] : Dari namanya sudah jelas, perintah ini digunakan untuk keluar dari Turbo Pascal dan kembali ke prompt DOS.

11. Menu Edit : Perintah edit ini digunakan untuk mengaktifkan editor Turbo Pascal.
12. Menu Run [Ctrl + F9] : Perintah ini digunakan untuk mengeksekusi program yang sudah anda buat. Anda juga bisa menekan Ctrl + F9 untuk mengeksekusi program anda.
13. Submenu Program Reset [Ctrl + F2] : Pilihan ini digunakan untuk memberitahukan Turbo Pascal bahwa anda selesai dengan pembetulan-pembetulan dan menginisialisasi debugger untuk operasi yang lain. Pilihan ini sekaligus membebaskan pengingat yang telah dialokasikan dan menutup semua berkas, tetapi tidak merubah nilai-nilai perubah. Pilihan ini sangat berguna jika anda ingin menjalankan pilihan File / OS shell.
14. Submenu Go to Cursor [F4] : Pilihan ini digunakan untuk memulai / melanjutkan eksekusi program dimulai dari posisi saat eksekusi dimulai sampai tempat kursor berada. Jika kursor berada pada statement yang bersifat executable, seperti spasi atau baris komentar, maka eksekusi akan dilanjutkan sampai statement yang bersifat executable.
15. Submenu Trace Into [F7] :Perintah ini digunakan untuk mengeksekusi baris berikutnya, jika ada pemanggilan ke suatu subrutin, maka pelacakan akan dimulai dari statement pertama dari subrutin tersebut. Sekaligus juga akan memuat berkas-berkas atau unit Include jika dimungkinkan.
16. Submenu Step Over : Step over ini memiliki cara kerja yang hampir sama dengan Trace Into, hanya saja jika statement adalah sebuah prosedur atau fungsi, maka keseluruhan subrutin akan dikerjakan sekaligus dan debugger akan berhenti pada statement sesudah pemanggilan ke subrutin.
17. Submenu User screen [Alt + F5] : Pada umumnya perintah ini digunakan untuk melihat hasil dari program yang telah compile dan kita run. Pada tampilan ini IDE [Integrated Debugger Environment] berpindah-pindah pada saat anda menjalankan dan mendebug program. Perintah ini juga digunakan oleh File / OS shell.

Tampilan User Screen

18. Menu Compile [Alt + F9] : Perintah ini digunakan untuk mengkompile program atau bisa juga kita bilang kalau program yang telah kita buat tadi dengan bahasa pascal di terjemahkan kedalam bahasa komputer agar si komputer ini mengerti apa-apa saja perintah kita.
19. Submenu Make : Pilihan ini digunakan untuk mengaktifkan perintah make, jika file yang primer telah diberi nama, maka file ini akan dikompilasi, jika tidak maka file yang terakhir yang sedang dimuat di editor akan dikompilasi.. Pilihan ini sangat berguna jika terdapat beberapa program yang secara fisik terpisah tetapi secara logikanya merupakan suatu kesatuan.
20. Submenu Build : Perintah ini mirip dengan perintah make, hanya saja perintah build ini sifatnya bebas, sedangkan perintah make hanya akan mengkompilasi file-file selain file yang digunakan.
21. Submenu Destination [Memory] : Perintah ini secara umumnya hanya berfungsi untuk memilih apakah hasil kompilasi akan disimpan dalam cakram atau folder sebagai file yang bertipe .EXE atau hanya di pengingat utama yang akan hilang pada saat anda keluar dari Turbo Pascal.
22. Submenu Find Error : Dari namanya anda pasti sudah tahu, yah perintah ini digunakan untuk menentukan lokasi kesalahan pada saat program dijalankan [run time error]. Lokasi kesalahan dinyatakan dengan format seg:off, misalnya 2BE0:FFD4. jika anda kembali ke IDE, turbo pascal akan menempatkan kursor pada baris dimana terjadi kesalahan. Jika anda terlanjur memindahkan kursor sembarangan maka anda bisa memindahkan kembali kursor ke tempat kesalahan dengan menekan Ctrl + Q + W.
23. Submenu Primary File : Perintah ini digunakan untuk menyatakan bahwa file .PAS akan dikompilasi pada saat make [F9] atau build [Alt + C + B] diaktifkan.
24. Submenu Get info : Tidak salah lagi, perintah ini digunakan untuk menampilkan jendela informasi dari program .PAS yang sedang anda gunakan, termasuk ukuran kode sumber [dalam sumber dan baris], ukuran file .EXE atau .TPU dalam byte dan data
25. Menu Options : Pilihan pada menu yang satu ini berfungsi mengkonfigurasi untuk mengoptimalkan penggunaan fasilitas-fasilitas pada turbo pascal.
26. Submenu Compiler : Pilihan ini didalamnya pun masih banyak perintah yang lainnya seperti pengecekan batas, pengecekan tumpukan dll, seperti yang anda lihat pada gambar di atas. contohnya pengecekan batas [Range checking] adalah sama dengan {$R}. sekarang saya akan coba jelaskan satu persatu agar lebih jelas dari masing-masing penggunaan ini.
27. Range checking [Off]: Perintah ini digunakan untuk menghidupkan atau mematikan pengecekan batas. Jika dihidupkan, kompiler akan membangkitkan kode yang akan mencek batas index pada array dan string dan juga nilai yang dihasilkan dalam suatu statement pemberian. Pilihan ini sama dengan petunjuk kompiler {$R}.
28. Stack checking [On]: Digunakan untuk menghidupkan atau mematikan pengecekan kesalahan operasi I/O. Jika dihidupkan pada saat terjadi kesalahan operasi I/O proses akan langsung dihentikan. Jika dimatikan, kode kesalahan akan tersimpan dalam fungsi IO Result. Pilihan ini sama dengan penunjuk kompiler {$I}.
29. Force far calls [Off]: Digunakan untuk memilih model pemanggilan terhadap prosedur atau fungsi yang telah dikompilasi. Model pemanggilan bisa secara far atau near. Pilihan ini sama dengan penunjuk kompiler {$F}.
30. Allign Data [Word] : Digunakan untuk mengatur cara penyimpanan perubah dan konstanta bertipe dari byte ke word atau sebaliknya. Pilihan ini sama dengan penunjuk kompiler {$A}.
31. Overlay Allowed [Off] : Mengaktifkan atau menonaktifkan pembakitan kode Overlay. Pilihan ini sama dengan penunjuk kompiler {$O}.
32. Var string checking [Strict] : Digunakan untuk mengendalikan cara pengecekan data string yang digunakan sebagai parameter berubah. Pilihan sama dengan penunjuk kompiler {$V}.
33. Boolean Evaluation [Short Circuit] : Digunakan untuk memilih pembangkitan kode pada saat operasi logika [operasi Boolean] dijalankan. Pilihan ini sama dengan penunjuk kompiler {$B}.
34. Numeric Processing [Software] : Digunakan untuk memilih pembangkitn kode operasi titik mengambang [floating point] yang didukung oleh Turbo Pascal. Pilihan ini juga sama dengan penunjuk kompiler {$N}
35. Emulation [On] : Mengaktifkan atau menonaktifkan linking dengan run – time yang mengemulasikan ke prosessor numeric 8087. pilihan ini sama dengan penunjuk kompiler {$E}
36. Debug Information [On] : Digunakan untuk membangkitkan atau tidak membangkitkan informasi pada saat didalam program terjadi kesalahan. Pilihan ini sama dengan penunjuk kompiler {$D}.
37. Local Symbol [On] : Digunakan untuk mengaktifkan atau menonaktifkan symbol informasi local.
38. Conditional defines: Digunakan untuk menyatakan penunjuk kompiler berkondisi.
39. Memory sizes: Digunakan untuk mengkonfigurasi peta pengingat. Dengan penunjuk kompiler{$M}.
40. Stack Size: ukuran segmen tumpukan maksimum 64 K dengan standart 16 K.
41. Low Heap limit: ukuran heap minimum standart adalah 0 K.
42. High Heap limit: ukuran heap maksimum adalah 655360 byte.
43. Submenu Linker Pilihan ini digunakan untuk mengatur konfigurasi built in linker.
44. Map File [Off] : Menentukan berapa banyak informasi dalam berkas peta map yang akan dihasilkan. Berkas peta akan ditempatkan dalam direktori .EXE dengan akhiran .MAP
45. Segment : Informasi segment [Nama, Ukuran, Awal dan Akhir segment dan kelasnya].
46. Public : Informasi segment, semua nama-nama symbol dan alamatnya dan titik masukkan program.
47. Detailed : segement, informasi symbol dan titik masukkan program dan nomor barisnya dan tabel-tabel modul.
48. Submenu Environment Pilihan ini digunakan untuk memberitahukan Turbo Pascal dimana bisa ditemukan berkas yang akan dikompilasi, di link dengan dilengkapi dengan menu-menu pertolongan.
49. Config Auto Save [Off] : Digunakan untuk mencegah kehilangan setting komfigurasi yang telah anda lakukan.
50. Edit Auto Save [Off] : Digunakan untuk mencegah kehilangan berkas yang disebabkan oleh penyimpanan otomatis pada saat anda menggunakan Run / Step Over atau Run / Run.
51. Backup Files [On] : Secara standard, turbo pascal akan membangkitkan berkas backup pada saat anda menyimpan berkas. Yang biasa kita lihat dengan .BAK
52. Tab Size [2] : Digunakan untuk mengatur ukuran Tab pada editor. Ukuran yang diperbolehkan adalah 2 sampai 16 dengan defaultnya 8.
53. Zoom Windows [Off] : Jika di On kan maka, Jendela Edit, Watch, dan Output akan diperluas sampai satu layar penuh.
54. Screen Size [25 line] : Digunakan untuk memilih ukuran layar. Dengan standard 25 baris, 43 baris [EGA] atau 50 baris [VGA]. Pilihan ini hanya bisa diaktifkan jika perangkat kerasnya mendukung.
55. Submenu Directories : Pilihan menu ini digunakan untuk menunjukkan kepada Turbo Pascal lokasi setiap direktori yang diperlukan.
56. Turbo directory : Digunakan untuk menemukan berkas konfigurasi [.TP] dan berkas pertolongan [Turbo.HLP].
57. EXE & TPU directory : Digunakan untuk menyimpan berkas .EXE dan .TPU.
58. Include Directories : Digunakan untuk menentukan direktori yang berisi Include File.
59. Unit Directories : Digunakan untuk memberitahu TP dimana berkas-berkas unit berada.
60. Object Directories : Digunakan untuk menentukan direktori yang berisi berkas [.OBJ].
61. Pick file name : Digunakan untuk menentukan nama dan lokasi pick file.
62. Current pick file : Digunakan untuk menunjukkan nama dan lokasi pick file, jika ada.
63. Submenu Parameters : Digunakan untuk memberikan parameter baris perintah [Command Line parameters] pada program-program yang akan dijalankan.
64. Submenu Save Option : Digunakan untuk menyimpan semua pengaturan dalam menu Compiler, Environment, dan Directories dalam berkas konfigurasi [standardnya adalah TURBO.TP]
65. Submenu Retrieve Options :Digunakan untuk memuat berkas konfigurasi yang sebelumnya disimpan dengan pilihan save.
66. Menu Debug : Pilihan-pilihan yang ada dalam menu ini terutama digunakan untuk melacak nilai-nilai perubah, mencari letak suatu fungsi atau prosedur dan lain-lain.
67. Submenu Evaluate [Ctrl + F4] : Dengan pilihan ini anda akan dibawa ke suatu jendela dengan 3 kotak yang memungkinkan anda untuk menuliskan sembarang nama perubah / ungkapan, menunjukan nilai perubah / ungkapan saat itu an memungkinkan anda untuk memberikan nilai yang baru untuk sembarang perubah.
68. Submenu Call Stack [Ctrl + F3] : Pada saat anda melakukan debugging, suatu jendela yang menunjukan daftar pemanggil prosedur dan fungsi akan terlihat.
69. Submenu Find Procedure : Memungkinkan anda untuk menuliskan nama prosedur dan fungsi dan kemudian mencari dalam program yang sedang anda aktifkan.
70. Submenu Integrated Debugging [On] Jika dipilih On, debugging dilakukan menggunakan IDE.
71. Submenu Stand Alone Debugging [Off] Jika diset Off, dan compile / destination dipilih ke Disk debug information akan ditambahkan ke dalam berkas .EXE untuk digunakan oleh Turbo Debugger.
72. Submenu Display Swapping [Smart] Penampilan pada layar bisa dipilih salah satu dari 3 pilihan, Smart, Always atau Never.
• Smart : debugger akan melihat kode yang sedang dieksekusi untuk melihat apakah perlu menampilkan hasilnya ke layar.
• Always : pilihan ini akan menyebabkan layar dipindah setiap kali suatu statement dieksekusi.
• Never : pilihan ini akan memberitahukan debugger untuk tidak melakukan pemindahan layar.
73. Submenu Refresh Display : Pilihan ini digunakan untuk memanggil kembali layar IDE. Hal ini perlu, terutama jika program anda merusak tampilan yang sudah ada dalam layar.

Menu Break / Watch
74. Submenu Add Watch [Ctrl + F7] : Digunakan untuk menambahkan rinci data, perubah atau ungkapan kedalam jendela watch.
75. Submenu Delete Watch : Untuk menghapus ungkapan dalam jendela Watch pada saat jendela ini terlihat.
76. Submenu Edit Watch : Pilihan ini akan membawa posisi watch ke kotak input sehingga anda bisa mengubahnya.
77. Submenu Remove All Watches : Menghapus semua rinci dalam jendela watch sekaligus memperkecil ukurannya sampai minimum.
78. Submenu Toggle Breakpoints [Ctrl + F8]: mengatur suatu baris sebagai breakpoint. Dalam editor breakpoint ditunjukkan dengan highlight text.
79. Submenu Clear All Breakpoints: Menghapus semua breakpoint yang telah diset.
80. Submenu View Next Breakpoint : Digunakan untuk menggerakkan kursor ke posisi breakpoint berikutnya.
Perintah Dasar untuk Menggerakkan Kursor
Tombol Fungsi
Ctrl + S atau panah kiri
Ctrl + D atau panah kanan
Ctrl + A atau Ctrl + panah kiri
Ctrl + F atau Ctrl + panah kanan
Ctrl + E atau panah naik
Ctrl + X atau panah turun
Ctrl + W
Ctrl + Z
Ctrl + R atau PgUp
Ctrl + C atau PgDown Bergerak ke kiri satu karakter
Bergerak ke kanan satu karakter
Bergerak ke kiri satu kata
Bergerak ke kanan satu kata
Bergerak ke atas satu baris
Bergerak ke baah satu baris
Memutar layar ke atas
Memutar layar kebawah
Kehalaman sebelumnya
Kehalaman berikutnya

Perintah Kursor Tambahan
Tombol
Ctrl + U
Ctrl + O + I atau Ctrl + Q + I
Ctrl + P
Ctrl + K + D atau Ctrl + K + Q
Ctrl + Q + F
Ctrl + Q + A
Ctrl + Qn
Ctrl + Q + W
Ctrl + O + O
F10
Ctrl + F1
F3
Ctrl + O + F
Ctrl + Q + [
Ctrl + Q + ]
Ctrl + L
Ctrl + Q + L
Ctrl + K + S atau F2
Ctrl + Kn
Ctrl + I atau Tab
Ctrl + O + T atau Ctrl + Q + T
Ctrl + O + U Fungsi
Membatalkan kegiatan
Meng – On atau meng – Off kan autoindent
Awal karakter kendali
Keluar dari editor tanpa menyimpan
Mencari kata
Mencari kata dan menggantinya
Mencari penanda tempat
Menuju ke posisi kesalahan
Menyisipkan penunjuk kompiler
Mengaktifkan menu utama
Pertolongan bahasa
Memuat berkas
Mengisi On / Off secara optimal
Pasangan tanda kurung kedepan
Pasangan tanda kurung kebelakang
Mengulang pencarian terakhir
Menyimpan kembali baris
Menyimpan dan meneruskan
Mengatur penanda tempat
Tab
Mode Tab
Unindent On / Off

Tombol-Tombol Kendali Operasi Blok
Tombol Fungsi
Ctrl + K + Y
Ctrl + K + V
Ctrl + K + C
Ctrl + K + W
Ctrl + K + H
Ctrl + K + R
Ctrl + K + T
Ctrl + K + P
Ctrl + K + I
Ctrl + K + U
Menghapus blok
Memindah blok ke tempat lain
Membuat duplikat blok
Meyimpan blok ke dalam cakram
Menyembunyikan atau menampilkan blok
Membaca blok dari cakram untuk digabung di merge
Menandai satu kata
Mencetak satu blok
Mengident blok
Mengunident blok

Untuk lebih jelasnya tentang pengoperasian blok diatas, lebih baik kita langsung saja praktekan, disini saya akan memberikan contoh yang paling mudah yaitu mengkopi blok
Tampilan sebelum suatu blok dipilih Procedure FLU.GERAK samapai end [8 baris] akan dipilih sebagai blok. Maka kita letakkan kursor kita di huruf p di kata procedure dan kita tekan Ctrl + K + B. kemudian kursor dipindahkan ke tempat di sebelah kanan d dari kata end dan kita tekan Ctrl + K + K. maka tampilan akan berubah menjadi tampilan yang dibawah ini.
Tampilan setelah diblok Untuk mengkopi blok, tempatkanlah kursor dimana blok tersebut akan dikopi. Kemudian tekanlah Ctrl + K + C maka blok akan dikopi. Begitu juga dengan perintah blok yang lain, caranya sama dengan teknik pengkopian diatas…
Tampilan sesudah di kopi Nah, itulah sekilas tentang Editor di dalam Turbo Pascal, semoga bisa membantu anda yang menyukai pascal dan yang belum mencoba silahkan mencoba karena gak ada salahnya anda memiliki ilmu yang banyak….. Dan tunggu edisi berikutnya….

KEMBALI

FUNGSI-FUNGSI STRING PADA PASCAL

2007-03-06T00:48:00.000-08:00

PENDAHULUAN
Pascal adalah sebuah bahasa pemograman tempo dulu. Mungkin itu saja yang dapat
saya definiskan, karena saya yakin pembaca lebih tahu mengenai definisi lengkap dari
Pascal. Saya ingin berbagi ilmu walaupun cuma sedikit tentang pemograman dengan
Pascal.
Melalui tulisan ini, saya mencoba untuk mengulas program, prosedur dan fungsi
menarik yang bisa Anda coba dan terapkan dalam pemograman Pascal.
Beberapa yang dapat saya sampaikan, diantaranya:
1. Fungsi-fungsi String
2. Fungsi-fungsi Date
3. Fungsi-fungsi Konversi
4. Program Permainan
Semoga bahasan ini menjadi menarik dan bermanfaat untuk Anda semua.
FUNGSI-FUNGSI STRING
Berikut ini adalah fungsi-fungsi untuk memanipulasi data String. Jalankan aplikasi
Pascal Anda, ketikkan kode berikut:
PROGRAM MANIPULASISTRING;
USES CRT;
a. Lower Case
Fungsi ini akan mengubah string yang diinputkan menjadi Lower Case (huruf kecil).
Ketikkan fungsi berikut ini:
b. Upper Case
Fungsi ini akan mengubah string yang diinputkan menjadi Upper Case (huruf besar).
Ketikkan fungsi berikut ini:
c. Proper Case
Fungsi ini akan mengubah string yang diinputkan menjadi Proper Case (huruf besar
untuk huruf awal setiap kata). Ketikkan fungsi berikut ini:

FUNCTION LCASE(S:STRING):STRING;
VAR I:INTEGER;
BEGIN
FOR I:= 1 TO LENGTH(S) DO
IF (S[I] >= 'A') AND (S[I] <= 'Z') THEN
INC(S[I], 32);
LCASE := S;
END;
FUNCTION UCASE(S:STRING):STRING;
VAR I:INTEGER;
BEGIN
FOR I:= 1 TO LENGTH(S) DO
IF (S[I] >= 'a') AND (S[I] <= 'z') THEN
DEC(S[I], 32);
UCASE := S;
END;

Untuk mencoba fungsi-fungsi di atas, ketikkan program utama sebagai berikut:
{program utama}
BEGIN
CLRSCR;
WRITE(LCASE('Created By vian sastra '));
WRITE(UCASE('Created By vian sastra '));
WRITE(PCASE('Created By vian sastra '));
READLN;
END.

Lihatlah tampilan pada layar monitor Anda!
Baris pertama, tiap kata ditulis dengan huruf kecil, baris ke-2 tiap kata ditulis dengan
huruf besar, dan baris ke-3, tiap kata hanya huruf awal saja yang ditulis dengan huruf
besar.
FUNCTION PCASE(S:STRING):STRING;
VAR I, J:INTEGER;
BEGIN
IF (S[1] >= 'a') AND
(S[1] <= 'z') THEN
DEC(S[1], 32);
FOR I:= 2 TO LENGTH(S) DO
IF (S[I] >= 'A') AND
(S[I] <= 'Z') THEN
INC(S[I], 32);
FOR I:= 2 TO (LENGTH(S)-1) DO
IF (S[I] = ' ') THEN
BEGIN
J := I;
IF (S[J + 1] >= 'a') AND
(S[J + 1] <= 'z') THEN
DEC(S[J + 1], 32);
END;
PCASE := S;
END;

FUNGSI-FUNGSI DATE
Berikut ini adalah fungsi-fungsi untuk memanfaat sistem date dari unit Dos, untuk
menampilkan tanggal atau hari sesuai data pada sistem komputer. Jalankan aplikasi
Pascal Anda, ketikkan kode berikut:

PROGRAM TAMPILTANGGAL;
USES CRT, DOS;
(* FUNGSI UNTUK MENGKONVERSI
NILAI INTEGER MENJADI STRING *)
FUNCTION INTTOSTR(I: LONGINT): STRING;
VAR
S: STRING[12];
BEGIN
STR(I, S);
INTTOSTR := S;
END;

a. Menampilkan Tanggal Sistem
Fungsi ini akan menampilkan tanggal dari sistem komputer Anda.
b. Menampilkan Nama Hari
Fungsi ini akan menampilkan tanggal dari sistem komputer Anda.

FUNCTION TANGGAL:STRING;
VAR
Y, M, D, DOW : Word;
BEGIN
GETDATE(Y,M,D,DOW);
TANGGAL := INTTOSTR(D) + '-'
+ INTTOSTR(M) + '-' + INTTOSTR(Y);
END;
FUNCTION HARI_INI:STRING;
CONST
DAYS : ARRAY [0..6] OF STRING[9] =
('MINGGU','SENIN','SELASA',
'RABU','KAMIS','JUMAT',
'SABTU');
VAR
Y, M, D, DOW : Word;
BEGIN
GETDATE(Y,M,D,DOW);
HARI_INI := 'HARI INI : ' + DAYS[DOW] + ', ';
END;

Untuk mencoba fungsi-fungsi di atas, ketikkan program utama sebagai berikut:
(* program utama *)
BEGIN
CLRSCR;
WRITELN(HARI_INI, TANGGAL);
READLN;
END.
Lihatlah tampilan pada layar monitor Anda!

FUNGSI-FUNGSI KONVERSI
Berikut ini adalah fungsi-fungsi untuk mengkonversi suatu nilai ke nilai lain. Jalankan
aplikasi Pascal Anda, ketikkan kode berikut:

PROGRAM KONVERSI;
USES CRT, STRINGS;
VAR MASUKAN : INTEGER;
(* FUNGSI UNTUK MENGKONVERSI
NILAI {INTEGER} MENJADI STRING *)
FUNCTION INTTOSTR(I: LONGINT): STRING;
VAR
S: STRING;
BEGIN
STR(I, S);
INTTOSTR := S;
END;

a. Konversi Desimal ke Angka Romawi
Fungsi ini akan mengkonversi suatu nilai bilangan (decimal) ke angka Romawi. Contoh:
1234 menjadi: MCCXXXIV.
(* FUNGSI UNTUK MENGKONVERSI
BILANGAN DESIMAL MENJADI ANGKA ROMAWI*)
FUNCTION CONVROMAN(INTANGKA : INTEGER): STRING;
VAR
I: INTEGER;
INTSERIBU, INTLIMARATUS : INTEGER;
INTSERATUS, INTLIMAPULUH : INTEGER;
INTSEPULUH, INTLIMA, INTSATU : INTEGER;
STRSERIBU, STRLIMARATUS :STRING;
STRSERATUS, STRLIMAPULUH : STRING;
STRSEPULUH, STRLIMA, STRSATU : STRING;
STRROMAWI : STRING;
BEGIN
I := 0;
STRROMAWI :='';INTSERIBU := 0;
INTLIMARATUS := 0;INTSERATUS := 0;
INTLIMAPULUH := 0;INTSEPULUH := 0;
INTLIMA := 0;INTSATU := 0;
STRSERIBU :='';STRLIMARATUS :='';
STRSERATUS :='';STRLIMAPULUH :='';
STRSEPULUH :='';STRLIMA :='';
STRSATU :='';
(*===============================*)
INTSATU := INTANGKA;
INTSERIBU := INTANGKA DIV 1000;
INTSATU := INTSATU - (INTSERIBU * 1000);
INTLIMARATUS := INTSATU DIV 500;
INTSATU := INTSATU - (INTLIMARATUS * 500);
INTSERATUS := INTSATU DIV 100;
INTSATU := INTSATU - (INTSERATUS * 100);
INTLIMAPULUH := INTSATU DIV 50;
INTSATU := INTSATU - (INTLIMAPULUH * 50);
INTSEPULUH := INTSATU DIV 10;
INTSATU := INTSATU - (INTSEPULUH * 10);
INTLIMA := INTSATU DIV 5;
INTSATU := INTSATU - (INTLIMA * 5);
(*=================================*)
FOR I := 0 TO INTSERIBU-1 DO
STRSERIBU := STRSERIBU + 'M';
IF INTSERATUS <> 4 THEN
FOR I := 0 TO INTLIMARATUS-1 DO
STRLIMARATUS := STRLIMARATUS + 'D';
FOR I := 0 TO INTSERATUS-1 DO
STRSERATUS := STRSERATUS + 'C';
IF INTSERATUS = 4 THEN
IF INTLIMARATUS = 1 THEN
STRSERATUS := STRROMAWI + 'CM'
ELSE
STRSERATUS := STRROMAWI + 'CD';
IF INTSEPULUH <> 4 THEN
FOR I := 0 TO INTLIMAPULUH-1 DO
STRLIMAPULUH := STRLIMAPULUH + 'L';
FOR I := 0 TO INTSEPULUH-1 DO
STRSEPULUH := STRSEPULUH + 'X' ;
IF INTSEPULUH = 4 THEN
IF INTLIMAPULUH = 1 THEN
STRSEPULUH := STRROMAWI + 'XC'
ELSE
STRSEPULUH := STRROMAWI +'XL';
IF INTSATU <> 4 THEN
FOR I := 0 TO INTLIMA-1 DO
STRLIMA := STRLIMA + 'V';
FOR I := 0 TO INTSATU-1 DO
STRSATU := STRSATU + 'I' ;
IF INTSATU = 4 THEN
IF INTLIMA = 1 THEN
STRSATU := STRROMAWI + 'IX'
ELSE
STRSATU := STRROMAWI +'IV';
STRROMAWI := STRSERIBU + STRLIMARATUS
+ STRSERATUS + STRLIMAPULUH
+ STRSEPULUH + STRLIMA + STRSATU;
CONVROMAN := STRROMAWI;
END;
b. Konversi Desimal ke Binear
Fungsi ini akan mengkonversi suatu nilai bilangan (decimal) ke basis Binear. Contoh:
123 menjadi: 1111011.
FUNCTION BINEAR(INTANGKA : INTEGER): STRING;
VAR
INTNILAI :LONGINT;
INTLEN :INTEGER;
J :INTEGER;
STRHASIL :STRING;
STREND :STRING[1];
STRSUB : STRING;
BEGIN
STRHASIL := '';
STREND := '';
STRSUB := '';
REPEAT
INTNILAI := INTANGKA MOD 2;
INTANGKA := INTANGKA DIV 2;
STRHASIL := STRHASIL + IntToStr(INTNILAI);
UNTIL INTANGKA = 1;
INTLEN := LENGTH(STRHASIL);
STREND := IntToStr(INTANGKA);
FOR J := INTLEN DOWNTO 1 DO
STRSUB := STRSUB + COPY(STRHASIL, J, 1);
BINEAR := STREND + STRSUB;
END;
c. Konversi Desimal ke Hexadecimal
Fungsi ini akan mengkonversi suatu nilai bilangan (decimal) ke basis Hexadecimal.
Contoh: 123 menjadi: 7B.
FUNCTION HEXADEC(INTANGKA : INTEGER): STRING;
VAR
INTNILAI :LONGINT;
INTLEN :INTEGER;
J :INTEGER;
STRHASIL :STRING;
STRHEXA :STRING;
STREND :STRING[1];
STRSUB :STRING;
BEGIN
STRHASIL := '';
STRHEXA := '';
STRSUB := '';
STREND := '';
REPEAT
INTNILAI := INTANGKA MOD 16;
INTANGKA := INTANGKA DIV 16;
CASE INTNILAI OF
10: STRHEXA := 'A';
11: STRHEXA := 'B';
12: STRHEXA := 'C';
13: STRHEXA := 'D';
14: STRHEXA := 'E';
15: STRHEXA := 'F';
ELSE
STRHEXA := IntToStr(INTNILAI);
END;
STRHASIL := STRHASIL + STRHEXA;
UNTIL INTANGKA < 16;
INTLEN := LENGTH(STRHASIL);
STREND := IntToStr(INTANGKA);
FOR J := INTLEN DOWNTO 1 DO
STRSUB := STRSUB + COPY(STRHASIL, J, 1);
HEXADEC := STREND + STRSUB;
END;
d. Konversi Desimal ke Nominal
Fungsi ini akan mengkonversi suatu nilai bilangan (decimal) ke huruf nominal. Contoh:
123 menjadi: Seratus duapuluh tiga.
Function DlmHuruf(Var nHuruf:String):String;
Begin
If nHuruf ='1' Then DlmHuruf:='satu' Else
If nHuruf ='2' Then DlmHuruf:='dua' Else
If nHuruf ='3' Then DlmHuruf:='tiga' Else
If nHuruf ='4' Then DlmHuruf:='empat' Else
If nHuruf ='5' Then DlmHuruf:='lima' Else
If nHuruf ='6' Then DlmHuruf:='enam' Else
If nHuruf ='7' Then DlmHuruf:='tujuh' Else
If nHuruf ='8' Then DlmHuruf:='delapan' Else
If nHuruf ='9' Then DlmHuruf:='sembilan' Else
DlmHuruf:=' ';
End;
{-------------------------------------------}
Function Terbilang(Angka:LongInt):String;
var
ChrS : Array[1..10] of String;
StrT : Array[1..10] of String;
Huruf:String;Indeks,Panjang:Integer;
Begin
Huruf:=''; Panjang:=0;
For Indeks := 1 to 10 do begin
ChrS[Indeks]:='';
StrT[Indeks]:='';End;
Panjang:=Length(IntToStr(Angka));
For Indeks := 1 to Panjang do
ChrS[Indeks] :=
Copy(IntToStr(Angka),
(Panjang-(Indeks-1)),1);
If ChrS[8] ='0' Then
Begin
StrT[8] :='';
StrT[7]:=DlmHuruf(ChrS[7]) + 'juta ';
End
Else If ChrS[8] ='1' Then
Begin
StrT[8]:='';
If ChrS[7] = '0' Then
StrT[7]:='Sepuluh juta ' Else
If ChrS[7] = '1' Then
StrT[7]:='Sebelas juta ' Else
StrT[7]:= DlmHuruf(ChrS[7]) +
'belas juta';
End
Else If ChrS[8] >'1' Then
Begin
StrT[7]:=DlmHuruf(ChrS[7]) + 'juta ';
StrT[8]:=DlmHuruf(ChrS[8]) + 'puluh ';
End;
Begin
End;
If ChrS[6] = '0' Then
StrT[6]:=''
Else
Begin
If ChrS[6] <> '1' Then
StrT[6]:=DlmHuruf(ChrS[6]) + 'ratus '
Else
StrT[6]:='Seratus ';
End;
If ChrS[5] = '0' Then
Begin
StrT[5]:='';
If ChrS[4] = '1' Then
StrT[4]:= 'Seribu '
Else
StrT[4] := DlmHuruf(ChrS[4]) + 'ribu ';
End
Else If ChrS[5] = '1' Then
Begin
StrT[5]:='';
If ChrS[4] = '0' Then
StrT[4]:='Sepuluh ribu ' Else
If ChrS[4] = '1' Then
StrT[4]:='Sebelas ribu ' Else
StrT[4]:= DlmHuruf(ChrS[4]) +
'belas ribu ';
End
Else
Begin
StrT[4]:=DlmHuruf(ChrS[4]) + 'ribu ';
StrT[5]:=DlmHuruf(ChrS[5]) + 'puluh ';
End;
If ChrS[3] = '0' Then
StrT[3]:=''
Else If ChrS[3] ='1' Then
StrT[3]:='Seratus '
Else If ChrS[3] > '1' Then
StrT[3]:=DlmHuruf(ChrS[3]) + 'ratus ';
{========================================}
If ChrS[2] = '0' Then
Begin
StrT[2]:='';
StrT[1]:=DlmHuruf(ChrS[1]);
End
Else If ChrS[2] ='1' Then
Begin
StrT[2]:='';
If ChrS[1] = '0' Then
StrT[1]:='Sepuluh' Else
If ChrS[1] = '1' Then
StrT[1]:='Sebelas' Else
StrT[1]:= DlmHuruf(ChrS[1]) +'belas';
End
Else If ChrS[2] > '1' Then
Begin
StrT[1]:=DlmHuruf(ChrS[1]);
StrT[2]:=DlmHuruf(ChrS[2])+'puluh ';
End;
For Indeks := 1 to 8 Do
If Panjang <= Indeks Then
StrT[Indeks + 1] :='';
For Indeks := 8 DownTo 1 Do
Huruf:=Huruf + StrT[Indeks];
Terbilang := Huruf;
Untuk mencoba fungsi-fungsi di atas, ketikkan program utama sebagai berikut:
(* program utama *)
BEGIN
CLRSCR;
WRITE ('MASUKAN ANGKA : ');
READLN(MASUKAN);
WRITELN('ROMAWI = ', CONVROMAN(MASUKAN));
WRITELN('BINEAR = ', BINEAR(MASUKAN));
WRITELN('HEXA = ','&H', HEXADEC(MASUKAN));
WRITELN('TERBILANG = ', TERBILANG(MASUKAN));
READLN
END.
Tampilan akhir program seperti gambar di bawah ini:

PROGRAM PERMAINAN
Berikut ini adalah contoh pembuatan sebuah program permainan, sulap angka. Program
ini akan menebak sebuah angka yang dipilih oleh seorang pemain, setelah menempuh
beberapa wizard. Jalankan Pascal dan ketikkan kode yang banyak ini:
PROGRAM SULAPANGKA;
USES CRT;
VAR I, J, K, L: INTEGER;
YT: CHAR;
NILAI:INTEGER;
FUNCTION CSTR(I: INTEGER): STRING;
VAR
S: STRING[11];
BEGIN
STR(I, S);
CSTR := S;
END;
PROCEDURE TULIS(POSISI:INTEGER; TEKS:STRING);
VAR A, B, C: INTEGER;
BEGIN
A := POSISI;
B := POSISI MOD 10;
C := 1;
IF B = 0 THEN
BEGIN B := 10;C := 0; END;
GOTOXY(B * 8 - 5,
(A DIV 10 + C) * 3 + 1);
WRITE(TEKS);
END;
(* Untuk symbol-symbol seperti : ÉÍÍ,
dapat Anda ganti dengan symbol: # atau lainnya *)
PROCEDURE BIKIN_KOTAK(KOLOM, BARIS: INTEGER);
BEGIN
CLRSCR;
FOR I:= 1 TO KOLOM DO
BEGIN
FOR J := 1 TO BARIS DO
BEGIN
GOTOXY (J * 8 - 7, (I * 3));
WRITE('ÉÍÍÍÍ»');
GOTOXY (J * 8 - 7, (I * 3 + 1));
WRITE('º º');
GOTOXY (J * 8 - 7, (I * 3 + 2));
WRITE('ÈÍÍÍÍ¼');
END;
END;
END;
PROCEDURE WIZARD7;
BEGIN
CLRSCR;
WRITELN('ANGKA YANG ANDA PILIH = ', NILAI);
WRITELN;
WRITE('INGIN MENGULANG (Y/ESC.)? ');READKEY;
YT := READKEY;
END;
PROCEDURE WIZARD6;
BEGIN
BIKIN_KOTAK(2, 10);
FOR I := 1 TO 19 DO
TULIS(I, CSTR(I + 31));
GOTOXY (5, 15);
WRITE('APAKAH ANGKA YANG ANDA PILIH',
' ADA PADA DERETAN ANGKA DI ATAS (Y/T) ');
REPEAT
YT := READKEY;
UNTIL YT IN ['y', 'Y', 't', 'T', #27];
IF UPCASE(YT) = 'Y' THEN
NILAI := NILAI + 32;
WIZARD7;
{===============================}
END;
PROCEDURE WIZARD5;
BEGIN
BIKIN_KOTAK(2, 10);
FOR I := 1 TO 16 DO
TULIS(I, CSTR(I + 15));
FOR J := 17 TO 19 DO
TULIS (J, CSTR(J + 31));
GOTOXY (5, 15);
WRITE('APAKAH ANGKA YANG ANDA PILIH',
' ADA PADA DERETAN ANGKA DI ATAS (Y/T) ');
REPEAT
YT := READKEY;
UNTIL YT IN ['y', 'Y', 't', 'T', #27];
{===============================}
IF UPCASE(YT) = 'Y' THEN
NILAI := NILAI + 16;
WIZARD6;
END;
PROCEDURE WIZARD4;
BEGIN
BIKIN_KOTAK(3, 10);
FOR J := 0 TO 2 DO
FOR I := 1 TO 8 DO
TULIS(J * 8 + I, CSTR(J * 16 + I + 7));
GOTOXY (5, 15);
WRITE('APAKAH ANGKA YANG ANDA PILIH',
' ADA PADA DERETAN ANGKA DI ATAS (Y/T) ');
REPEAT
YT := READKEY;
UNTIL YT IN ['y', 'Y', 't', 'T', #27];
IF UPCASE(YT) = 'Y' THEN
NILAI := NILAI + 8;
WIZARD5;
{===============================}
END;
PROCEDURE WIZARD3;
BEGIN
BIKIN_KOTAK(3, 10);
FOR J := 0 TO 5 DO
FOR I := 1 TO 4 DO
TULIS(J * 4 + I, CSTR(J * 8 + I + 3));
GOTOXY (5, 15);
WRITE('APAKAH ANGKA YANG ANDA PILIH',
' ADA PADA DERETAN ANGKA DI ATAS (Y/T) ');
REPEAT
YT := READKEY;
UNTIL YT IN ['y', 'Y', 't', 'T'];
IF UPCASE(YT) = 'Y' THEN
NILAI := NILAI + 4;
WIZARD4;
{===============================}
END;
PROCEDURE WIZARD2;
BEGIN
BIKIN_KOTAK(3, 10);
J:=0;
FOR J := 0 TO 12 DO
FOR I := 1 TO 2 DO
TULIS(J * 2 + I, CSTR(J * 4 + I + 1));
GOTOXY (5, 15);
WRITE('APAKAH ANGKA YANG ANDA PILIH',
' ADA PADA DERETAN ANGKA DI ATAS (Y/T) ');
REPEAT
YT := READKEY;
UNTIL YT IN ['y', 'Y', 't', 'T', #27];
IF UPCASE(YT) = 'Y' THEN
NILAI := NILAI + 2;
WIZARD3;
{===============================}
END;
PROCEDURE WIZARD1;
BEGIN
BIKIN_KOTAK(3, 10);
L:= 1;
REPEAT
TULIS ((L + 1) DIV 2,CSTR(L));
L:= L + 2;
UNTIL L > 50;
GOTOXY (5, 15);
WRITE('APAKAH ANGKA YANG ANDA PILIH',
' ADA PADA DERETAN ANGKA DI ATAS (Y/T) ');
REPEAT
YT := READKEY;
UNTIL YT IN ['y', 'Y', 't', 'T', #27];
IF UPCASE(YT) = 'Y' THEN
NILAI := 1;
WIZARD2;
{===============================}
END;
PROCEDURE TULIS_NOMOR;
BEGIN
BIKIN_KOTAK(5, 10);
FOR K:= 1 TO 50 DO
TULIS(K, CSTR(K));
GOTOXY(1, 20);
WRITE ('PILIH SEBUAH ANGKA, ',
'TEKAN: Y, KALO MAU TERUS! ');
WRITE ('TEKAN ESC UNTUK KELUAR ');
REPEAT
YT := READKEY;
IF UPCASE(YT) = 'Y' THEN
BEGIN
NILAI := 0;
WIZARD1;
END;
UNTIL YT IN ['y', 'Y', 't', 'T', #27];
{===============================}
END;
(* Program Utama *)
BEGIN
CLRSCR;
TEXTATTR := $1F;
REPEAT
TULIS_NOMOR;
UNTIL YT = #27;
END.
Tampilan program adalah sebagai berikut:
Tampilan
pertama:
Pada wizard
ini pemain
diminta
memilih
sebuah angka,
tanpa perlu
ditunjuk atau
disebutkan,
kemudian
tekan tombol
Y pada keyboard.
Pada wizard ini, pemain mengamati angka-angka yang ditampilkan, jika angka yang
dipilih (pada wizard sebelumnya) ada pada deretan, tekan tombol Y, jika tidak ada tekan
tombol T
Tampilan dan penggunaan wizard-wizard selanjutnya sama seperti wizard di samping.
Setelah melalui
semua wizard,
maka akan
ditampilkan
hasil seperti
pada gambar di
samping ini.

KEMBALI

BAG XII FILTER DAN RANGE DATA

2007-03-01T00:28:00.001-08:00

BAB XII
FILTER DAN RANGE DATA

Didalam Suatu konsep pemograman data base memberikan sebuah kemudahan didalam penanganan suatu tabel terhadap setiap user adalah sesuatu hal yang mutlak untuk diadakan. Salah satu fasiltas yang dapat memberikan kemudahan didalam pengelolaan data base adalah adanya fungsi range maupun filter. Fungsi ini hanya maksimal digunakan untuk field dengan type data numeric.

12.1. Filter

merupakan fungsi yang digunakan untuk membatasi tampilan data pada setiap tabel sesuai dengan data yang diinginkan. Method yang sering digunakan didalam penulisan fungsi filter adalah :

a. Tablefilterecord : fungsi ini digunakan untuk kontrol data terhadap field mana yang digunakan sebagai kunci.
b. Filtered : fungsi ini digunakan untuk mengaktifkan fungsi dari event filter.
c. Fieldbyname : berfungsi untuk menentukan field yang digunakan sebagai kunci pengurutan.
d. Indexname : digunakan untuk mengaktifkan nama index dari suatu tabel.

9.2. Range

merupakan fungsi yang dapat digunakan untuk menampilkan data berdasarkan cakupan data atau kelompok data. Dalam hal ini fungsi range membutuhkan nilai yang dapat digunakan sebagai batasan awal kelompok maupun nilai untuk menentukan batasan akhir terhapa kelompok tersebut.

a. serangestart : digunakan untuk menentukan nilai awal terhadap suatu range.
b. Setrangeend : digunakan untuk menentukan nilai akhir terhadap suatu range.
c. Fieldbyname: digunakan sebagai kunci field mana yang digunakan sebagai kunci.
d. Applyrange : digunakan untuk mengeksekusi terhadap batasan range yang diingikan.
e. Canceclrange : digunakan untuk membatalkan perintah range yang sudah diberikan dan mengembalikan data ke fungsi normal.
f. Indexname : digunakan untuk memanggil index primary key.

12.3. Merancang Aplikasi Program Dengan Fungsi Range dan Filter

a. Hasil setelah form dijalankan

b. Desain Form

c. Desain Properties

Object Properties
Name Caption/text
Group Box1 Group Box1 Menampilkan Data (berdasarkan kode)
Group Box 2 Group box2 Filter Data (berdasarkan kode)
Edit1 Eawal -
Edit2 Eakhir -
Edit3 Efilter -
Label1 Label1 Batas Bawah
Label2 Label2 Batas Akhir
Label3 Label3 Stok Barang
Button1 Brange Tampilkan
Button2 bfilter Tampilkan
Button3 Bnormal Normal
Object Data Base Name Table Name
Table1 Penjualan Barang
Object Data Set
Data Source1 Table1
Object Data Source
Dbgrid1 Data Source1
Object Active
Query True

d. Listing Program

Untuk mengaktifkan fungsi filter record klik table dan pada event pilih dan doubleklik onfilterrecord. Ketikan kode program berikut :

procedure TForm3.Table1FilterRecord(DataSet: TDataSet;
var Accept: Boolean);
begin
accept := table1.FieldByName('stok').AsFloat = strtofloat(efilter.Text);
end;

Program untuk mengeksekusi hasil filter record, ketikan program pada button Filter.

procedure TForm3.bfilterClick(Sender: TObject);
begin
table1.IndexName := 'indstok';
table1.Filtered := true;
end;

Program mengeksekusi range tabel , ketikan program berikut pada button range

procedure TForm3.brangeClick(Sender: TObject);
begin
table1.IndexName := 'indstok';
table1.SetRange([strtofloat(eawal.Text)],[strtofloat(eakhir.Text)]);
table1.ApplyRange;
end;

Program untuk mengembalikan data ke posisi default

procedure TForm3.bnormalClick(Sender: TObject);
begin
table1.IndexName := '';
table1.CancelRange ;
table1.Filtered := false;
end;

BAG XI Pencarian Data

2007-03-01T00:27:00.001-08:00

Bab XI
Pencarian Data

Salah satu konsep pemograman berbasis data base proses pencarian data menjadi satu hal yang sangat penting didalam mendukung kesempurnaan hasil didalam sebuah aplikasi program. Fungsi secara umum adanya pencarian data adalah untuk mendapatkan secara cepat data yang diinginkan dari sebuah tabel didalm sebuah database.

11.1 Konsep Pemograman Pencarian Data

b Konsep Pencarian dengan Properti
Konsep ini merupakan metode pencarian data dimana memanfaatkan kemampuan property untuk mendapatkan data yang diinginkan

Ada 5 konsep pencarian data dengan property

1. Locate
Locate adalah metode pencarian data untuk record yang sama dengan criteria yang sudah ada ataupun mendekati dengan kriteria yang ada. Pencarian locate dapat digunakan untuk tabel dengan index maupun yang tanpa index

Contoh

If not table1.locate (‘nama’, enama.text, []) then
Messagedlg(‘”’ + enama.text + ‘ “ Tdak ditemukan’, mterror, [mbok],0);

2. Findkey
Metode finkey digunakan mencari record yang sama . Metode ini dapat digunakan untuk tabel dengan index.

Contoh

Table1.indexname := ‘ ‘;
If not table1.findkey ([‘00099’]) then
Messagedlg(‘data Tdak ditemukan’, mterror, [mbok],0);

Proses pencarian data diatas digunakan untuk table dengan index sebagai primary key. Sedangkan untuk pencarian dengan indes secondary dapat terlihat seperti contoh berikut ini.

Table1.indexname := ‘nama’;
If not table1.findkey([enama.text]) then
Messagedlg(‘”’ + enama.text + ‘ “ Tdak ditemukan’, mterror, [mbok],0);
Else
Tampil;

3. Find Nearest
Metode ini digunakan untuk tabel dengan index selaian itu juga dapat digunakan untuk pencarian record yang paling mendekati.

Contoh

Table1.indexname ;= ‘nama’;
Table1.findnearest([enama.text])

4. Gotokey

Metode ini sama seperti dengan metode dengan findkey, tetapi dalam hal penulisan lebih rumit karena harus menjalankan terlebih dahulu event Setkey ataupun editkey. Konsep ini juga dapat digunakan untuk tabel dengan index maupun tidak.

Contoh

Table1.setkey;
Table1.fieldbyname(‘nama’).Asstring := enama.text;
If not table1.gotokey then
Messagedlg(‘”’ + enama.text + ‘ “ Tdak ditemukan’, mterror, [mbok],0);
Else
Tampil;

5. Gotonearest

Metode ini hampis sama dengan metoded findnearest. Perbedaan utamanya hanya dalam hal penulisan.

Contoh

Table1.setkey
Table1.fieldbyname(‘nama’).Asstring := enama.text;
Table1.gotokey;

b Konsep pencarian data dengan perintah SQL

Metode ini merupakan metode pencarian data yang banyak digunakan oleh para pengembang aplikasi karena konsep ini dapat digunakan untuk semua bahasa pemograman dengan berbagai macam database. Luwes merupakan salah satu keunggulan penggunaan konsep pencarian dengan perintah SQl. Selain itu konsep yang digunakan tidak perlu mengingat property yang digunakan.

Contoh

Var strsql : string;
Begin
Strsql := ‘Select * from barang where nama like “’ + enama.text +’%” ‘;
Query1.sql.clear;
Query1.sql.add(strsql);
Query.close;
Query.open;
End;

11.2. Aplikasi Program Pencarian Data

a. Dengan Propeti

1. Hasil Form Setelah Dijalankan

2. Desain Form

3. Desain Properties

Catatan = Koneksi table dan data base akan dilakukan secara programming, jadi untuk setting properties tidak perlu disetup.

Object Properties
Name Caption/text
Group Box1 Group Box1 Cari Data Barang
Edit1 Ecari -
Edit2 Enmbarang -
Edit3 Ehrgbeli -
Edit4 Kdpemasok -
Label1 Label1 Kode Barang
Label2 Label2 Nama Barang
Label3 Label3 Harga Beli
Label4 Label4 Kode Pemasok
Button1 Ecari Cari
Button2 Ebatal Batal
Button3 Eclose Close
Object Data Base Name Table Name
Table1 - -
Object Data Set
Data Source1 -
Object Data Source
Dbgrid1 -
Object Active
Table1 -

4. Listing Program

Ketika pada saat program dijalankan maka proses koneksi program akan diaktifkan selama form tersebut diaktifkan.

procedure TForm11.FormCreate(Sender: TObject);
begin
table1.DatabaseName := 'penjualan' ;
table1.TableName := 'barang.db';
table1.Active:= true;
datasource1.DataSet:= table1;
dbgrid1.DataSource := datasource1;
end;

Program pencarian dimulai dengan input kode barang pada txtcari dan diakhiri dengan button cari. Jika data barang tidak ditemukan maka akan ditampilkan pesan, tetapi jika tditemukan maka data barang akan ditampilkan.

procedure TForm11.bcariClick(Sender: TObject);
begin
table1.IndexName := '';
if not table1.FindKey([ecari.Text]) then
begin
showmessage('Data Belum ada');
exit;
form11.ActiveControl := ecari;
end
else
enmbarang.Text := table1['nmbarang'];
ehrgbeli.Text := table1['hrgbeli'];
ekdpemasok.Text := table1['kdpemasok'];
end;

Penjelasan
Table1.indexname := ‘ ‘ menunjukan bahwa proses pencarian deengan memanfaatkan kunci utama (primary key), sehingga koneksi program dianjurkan dengan menggunakan metode findkey. If Not table1.findkey([ecari.text]) menunjukan bahwa jika data tidak ada, maka akan ditampilkan pesan bahwa tidak ditemukan dan kursor dikembalikan ke txtcari, tetapi jika ada maka data akan ditampilkan.

Program untuk membatalkan proses pencarian dengan mengaktifkan txtcari kembali.

procedure TForm11.bbatalClick(Sender: TObject);
begin
ecari.Text := '';
form11.ActiveControl := ecari;
end;

Program untuk menutup form

procedure TForm11.bbatalClick(Sender: TObject);
begin
ecari.Text := '';
form11.ActiveControl := ecari;
end;

b. Dengan Metode SQl

1. Hasil Setelah Form Dijalankan

2. Desain Form

3. Desain Properties

Catatan = untuk koneksi dengan perintah SQL maka icon table tidak dibutuhkan tetapi icon query yang dibutuhkan. Icon Query terdapat dalam tab BDE.

Object Properties
Name Caption/text
Group Box1 Group Box1 Cari Data Barang
Edit1 Ecari -
Label1 Label1 Nama Barang
Button1 Ecari Cari
Button2 Ebatal Batal
Button3 Eclose Close
Object Data Base Name Table Name
Query1 - -
Object Data Set
Data Source1 -
Object Data Source
Dbgrid1 -
Object Active
Query -

4. Listing Program

Program koneksi dengan perintah SQl.

procedure TForm12.FormCreate(Sender: TObject);
//var strsql : string;
begin
query1.DatabaseName := 'penjualan';
query1.SQL.Add ('Select * from barang');
query1.Active := true;
datasource1.DataSet := query1;
dbgrid1.DataSource := datasource1;
end;

Penjelasan

Secara umum koneksi databse dan tabel hampir sama dengan koneksi dengan icon table, hanya terdapat perbedaan ketika harus mengkatifkan tabel. Dengan query harus dituliskan sintaks perintah SQL. Kondisi ini lebih luwes karena bisa menampilkan data lebih dari satu tabel.

Program pencarian nama

procedure TForm12.bcariClick(Sender: TObject);
var strsql : string;
begin
strsql := 'Select * from barang where nmbarang like "' + ecari.Text + '%"';
query1.SQL.Clear;
query1.SQL.Add(strsql);
query1.Close;
query1.Open;
end;

Program Untuk mengembalikan data ke semua record

procedure TForm12.bbatalClick(Sender: TObject);
var sql : string;
begin
sql := 'Select * from barang' ;
query1.SQL.Clear;
query1.SQL.Add(sql);
query1.Close;
query1.Open;
end;

Program menutup Form

procedure TForm12.bcloseClick(Sender: TObject);
begin
close;
end;

BAG X Kontrol Data Set Dan Navigasi Tabel

2007-03-01T00:12:00.001-08:00

Bab X
Kontrol Data Set Dan Navigasi Tabel

Kontrol Dataset merupakan control yang diberikan kepada tabel dalam suatu data base. Hal ini meliputi bagaimana data terhubung dengan tabel dari suatu data base. Setelah terhubung bagaimana proses menggerakan record, ental itu keawal, ke akhir, ke record sesudah maupun ke record sebelumnya.

10.1. Komponen Table

a. Borland Database Engine(BDE)

Kompenen Borland Database Engine merupakan media penghubung antara database dengan aplikasi program. Pada awalnya BDE digunakan untuk paradox. Kompoenen BDE mendukung akses database yang merupakan bawaan dari deelphi walaupun tidak menutup kemungkinan bisa juga digunakan untuk pengaksesan database yang bersifat client/server. Salah satu kelebihan BDE adalah integrasi yang sudah sangat baik dengan Delphi. Sisi lain penggunaan BDE hanya maksimal untuk pemograman yang bersifat standlone.

Bentuk Komponen BDE pada Delphi

Komponen Delphi Keterangan

Komponen Data Source = Komponen ini digunakan untuk mengkases Data base (terdapat dalam tab Data Access)

Komponen table = Komponen ini digunakan untuk mengakses tabel yang terdapat dalam Database (terdapat dalam tab BDE)

b. ActiveX Data Object (ADO)

ADO merupakan salah satu teknologi Akses Data Base tingkat tinggi. Kelebihan antar muka ADO adalah merupakan teknologi Akses Indevenden terhadapa setiap aplikasi program. Ado mendukung aplikasi yang bersifat local maupun yang berbasis Clien Server. Komponen ADO terdapat dalam tab ADO pada Component Pallete.

Bentuk Komponen ADO

Komponen Delphi Keterangan

Komponen ADO Connection = Komponen ini digunakan untuk mengkases Data base (terdapat dalam Tab ADO)

c. dbexpress

merupakan teknologi pengaksesan database dengan kemampuan yang bersifat terbatas pada teknologi akses untuk database yang bersifat client/Server. Kemampuan terbaik untuk dbepress adalah didalam pembuatan laporan.

Bentuk Komponen DBExpress

Komponen Delphi Keterangan
Komponen ADO Connection = Komponen ini digunakan untuk mengkases Data base (terdapat dalam Tab ADO)
Komponen Delphi Keterangan

Komponen Sql Connaction = Komponen ini digunakan untuk mengkases Data base (terdapat dalam tab Dbexpress)

d. Interbase Express (IBX)

Merupakan teknologi control databse yang bersifat open source. IBX merupakan teknologi akses database server yang bersifat khusus.

Komponen Delphi Keterangan

Komponen IBDatabase = Komponen ini digunakan untuk mengkases Data base (terdapat dalam tab Interbase)

10.2. Kontrol Tabel

Kontrol tabe adalah komponen yang menyediakan akses ke dalam sekumulan record terdapat didalam suatu tabel. Kontrol ini merupakan konsep bagaimana Akses ke dalam suatu tabel meenjadi lebih mudah. Salah satu Kontrol Tabel yang bisa digunakan adalah dengan memanfaatkan fasilitas yang ada di page BDE.

a. Ttable = Digunakan untuk menghubungkan ke tabel dalam suatu Data.
b. Tquery = Digunakan untuk menempatkan hasil dari sebuah Query.

Kontrol tabel memiliki dua properti

a. Properti BOF (Begin Of File)
menunjukan bahwa kontrol data di awal record.
b. Properti EOF (End of File)
Menunjukan bahwa kontrol data pada diakhir record.

10.3. Merancang Program Dengan Kontrol Tabel

a. Hasil Yang Diingikan

b. Desain Form

c. Komponen Tambahan yang dibutuhkan

1. 6 button dan 1 edit text
2. 1 Dbgrid (dalam komponen Data Control)
Digunakan untuk menampilkan data tabel pada form.
3. 1 table (dalam komponen BDE)
Digunakan untuk menghugnkan antara tabel dengan database yang dibutuhkan
4. 1 datasource (dalam Komponen Data Access)
Digunakan untuk koneksi Database / Alias Data Base Didalam suatu folder.

d. Setting Properties

Object Properties
Name Caption/text
Label1 Label1 Aplikasi Penj ….
Button1 Bawal Pertama
Button2 Bsebelum Sebelum
Button3 BSesudah Sesudah
Button4 Bakhir Akhir
Button5 bLoncat Go To
Button6 Bclose Close
Edit1 Eloncat -
Object Data Base Name Table Name
Table1 Toko Barang.db
Object Data Set
Data Source1 Table1
Object Data Source
Dbgrid1 Data Source1
Object Active
Table1 True

Ketikan program berikut ini

procedure TForm1.bpertamaClick(Sender: TObject);
begin
table1.First
end;

procedure TForm1.bsebelumClick(Sender: TObject);
begin
if table1.Bof then
showmessage('Anda diawal record')
else
TABLE1.Prior;
end;

procedure TForm1.bsesudahClick(Sender: TObject);
begin
if table1.Eof then
showmessage('Anda berada pada record terakhir')
else
table1.Last;
end;

procedure TForm1.bakhirClick(Sender: TObject);
begin
table1.Next;
end;

procedure TForm1.bloncatClick(Sender: TObject);
begin
table1.MoveBy(strtoint(eloncat.Text));
end;

procedure TForm1.bcloseClick(Sender: TObject);
begin
if (application.MessageBox('Anda yakin form akan ditutup','Info',MB_YESNO)= IDYES) then
close;
end;

BAG IX Komponen Query Atau SQL (Strutured Query Language)

2007-03-01T00:11:00.000-08:00

BAB IX
Komponen Query Atau SQL (Strutured Query Language)

9.1. Sekilas Mengenai SQL

SQL adalah bahasa standar untuk query yang difungsikan untuk memanipulasi suatu data pada Database. Hal itu meluputi DDL (Data Definition Language) meliputi pembuatan Data Base ataupun pembuatan tabel dan DML (Data Manipulation Language) meliputi perintah – perintah standar query.

9.2. Dasar – Dasar mengenai Metode SQL

9.2.1. DDL (Data Defenition Language)

a. Membuat Tabel

Pembuatan tabel dengan perintah SQL dapat dilakukan dengan perintah Create diikuti dengan nama tabel dan field yang dibutuhkan

Bentuk Umum

Create table nama_tabel (
Nm_filed1 tipedata1,
Nm_field2 tipedata2,
…………………..
……………………
nm_fieldN tipedataN
);

Contoh

Create table barang (
Kdbarang varchar(5) not null primary key,
Nmbarang varchar(15)
);

9.2.2. DML (Data Manipulation Language)

a. Metode Select

Metode Select digunakan untuk menampikan dan memilih suatu data dengan kondisi ataupun syarat yang sudah ditentukan dari satu atau beberapa tabel sekaligus dalam satu data base.

1. Select Tanpa Syarat

Merupakan perintah pencarian data tanpa diikuti perintah dengan kondisi ataupun persyaratan.
Bentuk Umum

Select Daftar Field From Nama Tabel

Contoh

Select * From barang

Perintah tersebut adalah digunakan untuk menampilkan semua data pada tabel barang. Untuk menampilkan data pada tabel dengan tidak menampilkan semua field pada tabel dengan menggunakan perintah Select diikuti dengan daftar field.

Contoh

Select kdbarang, nmbarang From barang

Perintah yang digunakan untuk menampilkan data Kode Barang dan Nama Barang pada tabel Barang.

2. Select Dengan Syarat

Adalah perintah menampilkan data yang diikuti dengan kondisi yang harus terpenuhi.

Bentuk Umum

Select daftar_field From nama_tabel Where kondisi/persyaratan

Contoh

Select * From barang where kdbarang = ‘A001’;

Adalah menampilkan semua data barang dengan kode barang = A001

Select * From barang where stok < 100;

Adalah menampilkan semua data barang dengan kondisi stok yang lebih kecil dari 100.

Select * From barang where hargabeli < = 2000 and Stok >= 5

Adalah menampilkan seluruh data pada tabel barang untuk harga beli dibawah atau sama dengan 2000 dan Stok diatas sama dengan 5.

Select * From barang where Harga_beli Between 5000 And 10000

Adalah semua data pada tabel barang dengan harga beli diatara 5000 dan 10000

Select * From barang where nmbarang like ‘mei%’

Adalah menampilkan seluruh data dari tabel barang dengan nama barang yang berawalan Mei

Select * From barang where nmbarang Like ‘%mei’

Adalah menampilkan data dari tabel barang dengan nama barang yang berakhiran dengan kata mie.

b. Mengurutkan Data (Order By)

Fungsi ini digunakan untuk menurutkan data berdasarkan kondisi tertentu terhadap hasil Query.

Bentuk Umum

Select daftar_field From nama_tabel order by nama_field metode_pengurutan

Contoh

Select * From barang order by nmbarang ASC

Menampilkan seluruh data barang diurutkan berdasarkan nama barang secara Ascending

c. Mengelompokan Data (Group By)

Fungsi ini digunakan untuk mengelompokan data berdasarkan field terpilih.

Bentuk Umum

Select * From barang Group By kdbarang

Contoh

Select * From barang group by kdbarang

Menampilkan seluruh data barang dengan dikelompokan berdasarkan kode barang.

d. Fungsi Angregasi

Fungsi Agregasi adalah fungsi matematika yang digunakan bersamaan dengan perintah Select. Berbagai macam agregasi yang digunakan bersamaan dengan peritah Select

Fungsi Kegunaan
Count Untuk memperoleh jumlah record hasil Query
Sum Untuk memperoleh total nilai dari suatu field
Avg Untuk memperoleh nilai rata – rata
Max Untuk memperoleh nilai terbesar
Min Untuk memperoleh nilai terkecil
Bentuk Umum

Select Fungsi_agregasi (nama_field) From nama_tabel

Contoh

Select Sum(stok) From barang

e. Query Untuk banyak Tabel

Adalah fungsi Query yang digunakan untuk menampilkan lebih dari satu tabel

Bentuk Umum

Select index1.daftar_field_tabel1, index2.daftar_field_tabel2 From tabel1 index1, tabel2 index2 Where index2.tabel1 = index1.tabel2

Atau

Select Distinct tabel1.daftar_field, tabel2.Daftar_field From tabel1, tabel2 Where tabel1.nama_field = tabel2.nama_field

Contoh

Select Distinct barang.nmbarang, barang.harga_bel, pemasok.nmpemasok, pemasok.alamat From Pemasok, barang Where barang.kdpemasok = pemasok.kdpemasok.

Perintah tersebut akan menampilkan nama barang dari tabel barang, harga beli dari tabel barang, nama pemasok dari tabel pemasok, dan alamat dari tabel pemasok dari tabel pemasok dan tabel barang dengan kondisi dimana kdpemasok di tabel barang sama dengan kode pemasok pada tabel pemasok.

f. Manipulasi Data

Perintah SQL yang digunakan untuk memanipulasi data pada sebuah tabel. Hal ini meliputi = menambah data, mengedit data ataupun menghapus data.

Ada tiga perintah yang sering digunakan untuk perintah SQl dalam hal memanipulasi Data

1. Insert

Perintah SQl yang digunakan untuk menambahkan data pada tabel. Bentuk umum penulisan perintah Insert.

Insert Into nama_tabel (field1, field2, field3,…….fieldn)
Values (nilai1, nilai2, nilai3,……..nilain)

Yang perlu diperhatikan adalah jumlah semua field dengan jumlah nilai yang akan dimasukan adalah sama. Untuk field dengan tipe Alpha (string) maka diantara nilai yang diinput diberikan dengan tanda kutif (‘ ‘).

Contoh

Insert Into barang(kdbarang, nmbarang, hargabeli, hargajual, stok)
Values (‘A001’,’Indomei rasa Soto’,20000,30000,23)

2. Update

Perintah SQL yang digunakan untuk mengedit data yang sudah ada sebelumnya pada tabel.

Update nama_tabel
Set field1 = nilai1, field2=nilai2, field3 = nilai3, ……….. fieldn = nilain)
Where syarat

Contoh

Update barang
Set kdbarang = ‘A001’, nmbarang = ‘Idomie rasa Ayam’, hargabeli = 2000, hargajual = 3000, stok = 34 where kdbarang = ‘A002’

Perintah SQl tersebut diatas adalah mengganti seluruh data yang ada ditabel barang untuk kode barang = A002 menjadi A001.

3. Delete

Perintah SQL digunakan untuk menghapus data yang ada ditabel. Bentuk umum penulisan perintah Delete.

Delete From nama_tabel where syarat (digunakan untuk menghapus record dengan kondisi yang diinginkan).

Atau

Delete From nama_tabel (digunakan untuk menghpus seluruh record pada tabel terpilih)

Contoh

Delete From barang where kdbarang = ‘A001’

Merupakan kondisi dimana ada perintah untuk menghapus data barang untuk kode barang = A001

8.2.3. Penerapan Konsep SQL pada Aplikasi

Penerapan konsep pemograman SQl pada Delphi dapat kita implementasikan dengan dua konsep yaitu dengan konsep Data Base Dekstop dan Konsep pemograman

9.2.3.1 Konsep Database Dekstop

Penerapan konsep ini dengan memanfaatkan jendela dari data base Dekstop dan SQL File.

Langkah - langkahnya

a. Aktifkan Data Base Dekstop
b. Dari Menu File | New | SQL File. Jendela SQL Editor akan ditampilkan

Gambar 10.1 Jendela SQL Editor

a. Dari Menu SQl pilih Select Alias (untuk tabel yang ada dalam folder penyimpanan), sehingga pada layer akan ditampilkan jendela Select Alias.

Gambar 9.2. Jendela Select Alias

b. Dari jendela Select Alias pilih dan aktifkan nama alias yang sudah dibuat sebelumnya (TOKO) . Setelah selesai klik OK.
c. Pada jendela editor tulisakn perintah SQL dan jalankan dengan memilih icon Run SQL.

Untuk mencoba kita gunakan beberapa kasus berikut ini

a. Menampikan semua data barang

Sintaks Penulisan

Hasil

b. Menampilkan Semua Data barang dengan kode pemasok = 01001

Sintaks Penulisan

Hasil

c. Menampilkan kode barang dan nama barang dari tabel barang dengan pengurutan secara descending berdasar nama barang serta mengganti judul kdbarang menjadi KodeBarang.

Sintaks Penulisan

Hasil

d. Menampilkan Semua Data barang untuk stok diantara 34 sampai dengan 56

Sintaks Penulisan

Hasil

e. Menambahkan data barang dengan data sebagai berikut =

Kdbarang Nmbarang Harga Beli Harga Jual Stok Kdpemasok
A0010 Gula Pasir 1 Kg 3400 3500 34 03002

Sintaks Penulisan

Hasil

Untuk melihat semua data gunakan perintah menampilkan data seluruhnya

f. Mengganti Stok barang untuk kode A001 menjadi 15

Sintaks Penulisan

Hasil

G. Tugas

1. Hapus Data barang untuk field stok dibawah 20
2. Tampilkan Nama Pemasok, Kode Pemasok dari tabel pemasok dan nama barang, harga beli dari tabel barang. Sesuai dengan pemasok masing – masing seperti yang ada dalam tabel barang. Dengan hasil seperti berikut ini

3. Tampilkan Nama Pemsaok, Kode Pemasok dari tabel pemasok dan nama barang, harga beli dari tabel barang sesuai dengan pemasok masing – masing seperti yang ada dalam tabel barang khusus nama barang yang berawalan dengan kata Mie. Dengan hasil seperti berikut ini

4. Cari rata – rata dari stok barang.

BAG XIII MANIPULASI DATA/TABEL MASTER

2007-03-01T00:10:00.000-08:00

BAB XIII
MANIPULASI DATA/TABEL MASTER

13.1. Program Tambah Data

Konsep program ini meluputi bagaimana proses pencarian data yang digunakan untuk memberikan batasan agar data yang disimpan bukan merupakan data yang sama, proses penyimpanan dan membatlakn penambahan data.

13.2. Event Yang Digunakan

a. findkey : digunakan untuk pencarian data, apakah data sudah ada atau belum.
b. Append : digunakan untuk membuka record kosong pada tabel
c. Post : enent pada tabel ini digunakan untuk menyimpan data pada tabel.
d. Databasename : digunakan untuk memanggil nama data base.
e. Table : digunakan untuk mengaktifkan tabel.
f. Dataset : digunakan untuk menghubungkan antara datasource dengan tabel.
g. Datasource : digunakan untuk menghubungkan grid dengan tabel melalui datasource.

13.3. Aplikasi Tambah Data Barang

a. Hasil Form Setelah Dijalankan

b. Desain Form

c. Desain Properties

Object Properties
Name Caption/text
Edit1 Ekdbarang -
Edit2 Enmbarang -
Edit3 Ehrgbeli -
Edit4 Ehrgjual -
Edit5 Estok -
Label1 Label1 Kode Barang
Label2 Label2 Nama Barang
Label3 Label3 Harga Beli
Label4 Label4 Harga Jual
Label5 Label5 Stok
Button1 Btambah &Tambah
Button2 Bsimpan &Simpan
Button3 Bbatal &Batal
Button4 Bexit &Exit
Object Data Base Name Table Name
Table1 - -
Object Data Set
Data Source1 -
Object Data Source
Dbgrid1 -
Object Active
Query -

d. Listing Program

 Pembuatan Prosedur
Ada 4 prosedur yang dibutuhkan : tampil, hidup, kosong, mati.

Langkah pembuatan

Double klik pada form, ketika berada pada jendela unit dari form tempatkan kursor berada declaration, khusunya pada bagian deklarasi public. Setelah itu ketikan deklarasi prosedur seperti berikut :

public
procedure tampil;
procedure kosong;
procedure mati;
procedure hidup;
{ Public declarations }
end;
Penulisan Program Prosedur

Penulisan program prosedur secara umum sama seperti penulisan program pada umumnya, hanya disini penulisan nama prosedurnya ditulis oleh programmer. Penulisannya terdapat pada bagian implementation.

Program untuk prosedur tampil
Digunakn untuk menampilkan data pada form

procedure tform6.tampil;
begin
ekdbarang.Text := table1['kdbarang'];
enmbarang.Text := table1['nmbarang'];
ehrgbeli.Text := floattostr(table1['hrgbeli']);
ehrgjual.Text := floattostr(table1['hrgjual']);
estok.Text := floattostr(table1['stok']);
end;

Program Untuk Prosedur Mati
Digunakan untuk menonaktifkan semua text box yang ada pada form.

procedure tform6.mati;
begin
ekdbarang.Enabled := false;
enmbarang.Enabled := false;
ehrgbeli.Enabled := false;
ehrgjual.Enabled := false;
estok.Enabled := false;
end;

Program Untuk Prosedur Hidup
Fungsi ini digunakan untuk mengembalikan fungsi edit text, seperti fungsi normalnya.

procedure tform6.hidup;
begin
ekdbarang.Enabled := true;
enmbarang.Enabled := true;
ehrgbeli.Enabled := true;
ehrgjual.Enabled := true;
estok.Enabled := true;
end;

Program Prosedur Kosong

procedure tform6.kosong;
begin
ekdbarang.Text := '';
enmbarang.Text := '';
ehrgbeli.Text := '';
ehrgjual.Text := '';
estok.Text := '';
end;

 Langkah awal menghubungkan semua perangkat tabel untuk mengaktifkan tabel. Perintah ini terdapat pada formcreate.

procedure TForm6.FormCreate(Sender: TObject);
begin
table1.DatabaseName := 'penjualan' ;
table1.TableName := 'barang.db';
table1.Active:= true;
datasource1.DataSet:= table1;
dbgrid1.DataSource := datasource1;
end;

 Program tampil diaktifkan untuk menampilkan data pada edit text box, program digunakan sema form diaktifkan.

procedure TForm6.FormActivate(Sender: TObject);
begin
tampil;
mati;
bsimpan.Enabled := false;
end;

 Program tambah

procedure TForm6.btambahClick(Sender: TObject);
begin
mati;
ekdbarang.Enabled := true;
bsimpan.Enabled := true;
form6.ActiveControl := ekdbarang;
kosong;
end;

 Program Pencarian Data. Control data yang digunakan adalah enter ketika kode barang diinput pada edit text kodebarang.

procedure TForm6.ekdbarangKeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then
begin
if table1.FindKey([ekdbarang.Text]) then
begin
showmessage('Data Sudah ada');
exit;
end
else
hidup;
ekdbarang.Enabled := false;
form6.ActiveControl := enmbarang;
end;
end;

 Program Penyimpanan Data ke Dalam tabel

procedure TForm6.bsimpanClick(Sender: TObject);
begin
table1.Append;
table1['kdbarang'] := ekdbarang.Text;
table1['nmbarang'] := enmbarang.Text ;
table1['hrgbeli'] := strtofloat(ehrgbeli.Text);
table1['hrgjual'] := strtofloat(ehrgjual.Text);
table1['stok']:= strtofloat(estok.Text);
table1.Post;
mati;
end;

 Program Membatalkan penyimpanan data

procedure TForm6.bbatalClick(Sender: TObject);
begin
kosong;
table1.First;
tampil;
mati;
end;

 Program Mengaktifkan data sesuai deengan pilihan pada setiap record pada grid.

procedure TForm6.DBGrid1CellClick(Column: TColumn);
begin
tampil;
end;

 Program untuk menutup form

procedure TForm6.bexitClick(Sender: TObject);
begin
table1.Close;
close;
end;

12.4. Aplikasi Program Edit Dan Hapus Data

a. Hasil Setelah Form Dijalankan

b Desain Form

c. Desain properties

Object Properties
Name Caption/text
Edit1 Ekdbarang -
Edit2 Enmbarang -
Edit3 Ehrgbeli -
Edit4 Ehrgjual -
Edit5 Estok -
Label1 Label1 Kode Barang
Label2 Label2 Nama Barang
Label3 Label3 Harga Beli
Label4 Label4 Harga Jual
Label5 Label5 Stok
Button1 Bedit &Edit
Button2 Bupdate &Update
Button3 Bhapus &Hapus
Button4 Bbatal &Batal
Button5 Bexit &Exit
Object Data Base Name Table Name
Table1 - -
Object Data Set
Data Source1 -
Object Data Source
Dbgrid1 -
Object Active
Query -

d. Listing program

 Program Untuk Prosedur

procedure tform7.tampil;
begin
ekdbarang.Text := table1['kdbarang'];
enmbarang.Text := table1['nmbarang'];
ehrgbeli.Text := floattostr(table1['hrgbeli']);
ehrgjual.Text := floattostr(table1['hrgjual']);
estok.Text := floattostr(table1['stok']);
end;

procedure tform7.kosong;
begin
ekdbarang.Text := '';
enmbarang.Text := '';
ehrgbeli.Text := '';
ehrgjual.Text := '';
estok.Text := '';
end;

procedure tform7.mati;
begin
ekdbarang.Enabled := false;
enmbarang.Enabled := false;
ehrgbeli.Enabled := false;
ehrgjual.Enabled := false;
estok.Enabled := false;
end;

procedure tform7.hidup;
begin
ekdbarang.Enabled := true;
enmbarang.Enabled := true;
ehrgbeli.Enabled := true;
ehrgjual.Enabled := true;
estok.Enabled := true;
end;

 Program Untuk Mengaktifkan Database dan tabel pada form

procedure TForm7.FormCreate(Sender: TObject);
begin
table1.DatabaseName := 'penjualan' ;
table1.TableName := 'barang.db';
table1.Active:= true;
datasource1.DataSet:= table1;
dbgrid1.DataSource := datasource1;
end;

 Program Selama Form Aktif

procedure TForm7.FormActivate(Sender: TObject);
begin
tampil;
mati;
bupdate.Enabled := false;
bhapus.Enabled := false;
end;

 Program untuk button Edit

procedure TForm7.beditClick(Sender: TObject);
begin
mati;
ekdbarang.Enabled := true;
bupdate.Enabled := true;
bhapus.Enabled := true;
form7.ActiveControl := ekdbarang;
kosong;
end;

 Program Pencarian Data

procedure TForm7.ekdbarangKeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then
begin
if not table1.FindKey([ekdbarang.Text]) then
begin
showmessage('Data Belum ada');
exit;
end
else
hidup;
tampil;
ekdbarang.Enabled := false;
form7.ActiveControl := enmbarang;
end;
end;

 Program Update

procedure TForm7.bupdateClick(Sender: TObject);
begin
table1.Edit;
table1['kdbarang'] := ekdbarang.Text;
table1['nmbarang'] := enmbarang.Text ;
table1['hrgbeli'] := strtofloat(ehrgbeli.Text);
table1['hrgjual'] := strtofloat(ehrgjual.Text);
table1['stok']:= strtofloat(estok.Text);
table1.Post;
mati;
end;

 Program hapus Data

procedure TForm7.bhapusClick(Sender: TObject);
begin
table1.Delete;
mati;
table1.First;
end;

 Program Batal

procedure TForm6.bbatalClick(Sender: TObject);
begin
kosong;
table1.First;
tampil;
mati;
end;

 Program Untuk Dbgrid

procedure TForm6.DBGrid1CellClick(Column: TColumn);
begin
tampil;
end;

 Program Menutup Form

procedure TForm6.bexitClick(Sender: TObject);
begin
table1.Close;
close;
end;

BAG VII Operator String

2007-03-01T00:03:00.000-08:00

BAB VII
Operator String

7.1. Menggabungkan String

menggabungkan string adalah proses merangkai dua karakter atau lebih menjadi satu kalimat atau kata yang baru. Operator string yang dikenal dalam Bahasa Delphi adalah operator dengan symbol ‘+’.

a. Model Penulisan

var
nama : string[20];
saya : string[15];
namasaya : string[50];
Begin
Nama := ‘Nama Saya adalah = ‘;
Saya : = ‘Irnawan’;
Namasaya : = ‘nama+’ ‘+saya;
Ehasil.text : = namasaya;
End.

b. Contoh Program

Hasil yang Diperoleh

Gambar 7.1 Form Penggabungan String
Desain Form

Gambar 7.2 Desain Form Penggabungan String

Desain Properties

Object Caption/Text Name
Label 1 Nama Depan Label1
Label 2 Nama Tengah Label2
Label 3 Nama Akhir Label3
Label 4 Nama Lengkap Label4
Edit1 - Edepan
Edit2 - Etengah
Edit3 - Eakhir
Edit4 - Egabung
Button1 Gabung bgabung

Listing Program

procedure TForm13.bgabungClick(Sender: TObject);
var
depan : string[20];
tengah : string[20];
akhir : string[20];
gabung : string[80];
begin
depan := edepan.Text ;
tengah := etengah.Text;
akhir := eakhir.Text;
gabung := depan+' '+tengah+' '+akhir;
elengkap.Text := gabung;
end;

7.2. Menghapus Teks

Prosedur standart ini digunakan untuk menghapus atau mengurangi sebagian atau seluruh karakter terhadap string atau teks.

Bentuk umum penulisan

Delete(teks, index, jumlah)

Delete adalah prosedur standart yang digunakan untuk menghapus teks. Teks merupakan kalimat atau string yang akan dihapau, Index menunjukan posisi awal yang akan dihapus. Jumlah menunjukan jumlah karakter yang akan dihapus.

a. Hasil Setelah Form Dijalankan

Gambar 7.3 Form Hapus teks

b. Desain Form

Gambar 7.4 Desain Form Hapus teks

c. Desain Properties

Object Caption/Text Name
Label 1 Nama Anda Label1
Label 2 Ketikan urutan mulai penghapusan Label2
Label 3 Jumlah Karakter yang dihapus Label3
Label 4 Nama Sesudah dihapus Label4
Edit1 - Enama
Edit2 - Eurut
Edit3 - Ejumlah
Edit4 - Ehasil
Button1 OK bOK
Button2 Close Bclose
Group Box 1 Rincian Nama Yang Ingin Dihapus Group box 1

d. Listing Program

Program untuk eksekusi perintah penghapusan teks.

procedure TForm9.bokClick(Sender: TObject);
var
karakter:string;
pos,jumlah:integer;
begin
karakter:= enama.Text;
pos := strtoint(eurut.Text);
jumlah := strtoint(ejumlah.Text);
Delete(karakter,pos,jumlah);
ehasil.Text := karakter;
end;

Program untuk keluar dari form

procedure TForm9.bcloseClick(Sender: TObject);
begin
close;
end;

7.3. Mencari Panjang teks (length)

fungsi ini digunakan untuk menghitung panjang atau jumlah karakter dari suatu teks atau kalimat. Dalam menghitung jumlah karakter dalam suatu teks spasi akan dibaca sebagai satu karakter. Sebagai catatan hasil yang diperoleh dari perhitungan adalah bilangan bulat positif.

Bentuk Umum

Length(teks)

Contoh

a. Hasil setelah form dijalankan

Gambar 7.5 Hasil Form Panjang String

a. Desain Form

Gambar 7.6 Desain Form Panjang String

b. Desain properties

Object Caption/Text Name
Label 1 Operasi Standart Length Label1
Label 2 Nama Anda Label2
Label 3 Panjang Karakter dari Nama Anda Label3
Edit1 - Enama
Edit2 - Ehasil
Button1 OK bOK
Button2 Close Bclose

e. Listing Program

Program untuk meneksekusi pencarian panjang karakter

procedure TForm8.bokClick(Sender: TObject);
var
nama:string;
begin
nama := enama.Text ;
ehasil.Text := inttostr(length(nama));
end;

Program Untuk menutup Form

procedure TForm8.bcloseClick(Sender: TObject);
begin
close;
end;

7.4. Mencari Karakter Pada Teks (POS)

Fungsi ini digunakan untuk mencari letak atau posisi dari suatu karakter dari suatu nilai string. Nilai yang dihasilkan adalah berupa byte.

Bentuk umum

Pos(sustr, string);

Contoh

a. Hasil setelah dijalankan

Gambar 7.7 Hasil Form Pencarian Huruf

b. Desain Form

Gambar 7.8 Desain Form Pencarian Huruf

c. Desain Properties

Object Caption/Text Name
Label 1 Operasi Standart Pos Label1
Label 2 Kata Awal Label2
Label 3 Huruf yang Dicari Label3
Label4 Huruf tersebut ada diposisi ke ……
Edit1 - eawal
Edit2 - ecar
Edit3 - ehasil
Button1 OK bOK
Button2 Close Bclose

d. Listing Program

Program untuk eksekusi perintah pencarian

procedure TForm7.bokClick(Sender: TObject);
var karakter : string;
kar : string;
hasil : integer;
begin
karakter:= eawal.Text;
kar:= ecari.Text;
hasil := pos(kar,karakter);
ehasil.Text := inttostr(hasil);
end;

Program Untuk menutup Form

procedure TForm7.bcloseClick(Sender: TObject);
begin
close;
end;
end.

7.5. Mengkopi String (Copy)

Fungsi ini digunakan untuk mencetak ulang string atau karakter sebanyak huruf yang dipilih dengan posisi karakter awal yang sudah ditentukan.

Bentuk Umum

Copy(teks, index, jumlah);

Penulisan awal diawali dengan perintah copy, dengan diikuti teks yang ditunjukan teks. Awal pengcopian ditunjukan dengan index, dan jumlah karakter yang akan di tulis ulang ditunjukan deengan perintah jumlah.

Contoh

a. Hasil setelah form dijalankan

Gambar 7.9 Hasil Form Copy Teks

b. Desain Form

Gambar 7.10 Desain Form Copy Teks
c. Desain Properties

Object Caption/Text Name
Label 1 Operasi Copy Teks Label1
Label 2 Kata Awal Label2
Label 3 Hasil Copy 1 Label3
Label4 Hasil Copy 2 Label4
Edit1 - eawal
Edit2 - Ehasil1
Edit3 - Ehasil2
Button1 OK bOK
Button2 Close Bclose

d. Listing Program

Program untuk mengeksekusi program

procedure TForm6.bokClick(Sender: TObject);
var
karakter:string;
begin
karakter := eawal.Text;
ehasil1.Text := copy(karakter,5,3);
ehasil2.Text := copy(karakter,3,10)
end;

Program untuk menutup Form

procedure TForm6.bcloseClick(Sender: TObject);
begin
close;
end;

7.6. Konversi Karakter ke Ascii (Chr)

Fungsi ini digunakan untuk mengkonversi Kode Acsii menjadi nilai karakter atau huruf.
Bentuk Umum

Chr(karakter);

Contoh

a. Hasil setelah dijalankan

Gambar 7.11 Hasil Form Konvesi Ascii

b. Desain Form

Gambar 7.12 Desain Form Konversi ASCII

c. Desain properties

Object Caption/Text Name
Label 1 Ketikan angka dari kode ASCII Label1
Label 2 Karakter dari kode Ascii tersebut adalah Label2
Edit1 - eangka
Edit2 - ehuruf
Button1 OK bOK
Groupbox1 Konversi dari Angka ke huruf Groupbox1

d. Listing Program

procedure TForm11.bokClick(Sender: TObject);
var
angka : integer;
begin
angka:= strtoint(eangka.Text);
ehuruf.Text := chr(angka);
end;

BAG VI ARRAY

2007-03-01T00:02:00.002-08:00

BAB VI
ARRAY

6.1. Pengertian Array

Array (larik) merupakan tipe data tersetruktur dimana didalamnya terdiri dari komponen – komponen yang mempunyai tipe data yang sama. Didalam suatu array jumlah komponen banyaknya adalah tetap. Didalam suatu larik atau array setiap kompoenen ditunjukan oleh suatu index yang unik. Index dari setiap komponen array menunjukan urutan data atau identitas yang mewakili data yang ada didalamnya.
Logika sederhananya array itu bisa disamakan dengan dua orang dengan nama yang sama didalam suatu komunitas, untuk membedakan antara nama yang satu atau dengan nama yang lain maka diberikan initial tambahan untuk setiap nama.

6.2. Deklarasi Array

Didalam penulisan bahasa pemograman setiap penggunaan array harus dideklarsikan terlebih dahulu. Pendeklarasian array diawali dengan nama variabel array diikuti dengan indeks array yang dituliskan didalam tanda “[]” , diikuti dengan kata cadangan of dan tipe data yang dibutuhkan.

Bentuk Umum Penulisan

Tanda_pengenal : array [..tipe index ..] of tipe data;

Contoh :

Var
A : array[1..4] of integer;
B : array[1..5] of string;
C: array[1..10] of real;

Keterangnan :
A,B,C merupakan tanda pengenal/ nama variabel dari array;
1..4 : merupakan tipe indek dari array, yang menunjukan banyaknya data yang mampu disimpan.
Integer : menunjukan bahwa data yang diinput berupa bilangan bulat.

6.3. Alokasi Penggunaan Array

a. Array Static (Static Array)

array static adalah model pendeklarasian array dimana tipe data yang digunakan mempunyai nilai yang tetap. Nilai yang digunakan untuk menentukan jangkauan pada umumnya bernilai integer. Array Static juga bisa disebut Array dengan deklarasi tipe indeks subrange integer.

Bentuk Umum

array[indexType1, ..., indexTypen] of baseType

Keterangan = index type menunjukan tipe data ordinal yang menunjukan batasan atau elemen maksimul terhadap seberapa besar variabel tersebut menyimpan komponen.

Contoh

Var arrayku : array[1..5] of char

Atau juga

type
jangkauan = 1..5;
var
nilai : array[jangkauan] of integer;

b. Array Dinamis (Dynamic arrays)

Larik atau array dinamis merupakan array yang tidak mempunyai suatu jangkauan atau ukuran yang tetap. Tetapi ketika program dijalankan maka memori untuk suatu array dinamis direalokasikan ketika kita menugaskan suatu nilai kepada array. Dynamic-Array jenis ditandai oleh konstruksi (menyangkut) format

Bentuk Umum

array of baseType

Contoh

var nilai: array of Real;

Dari deklarasi tersebut nilai yang merupakan deklarasi array belum memperoleh nilai yang tetap, tetapi hanya diberikan batasan sebagai tipe data real. Untuk mendeklarasikan array tersebut kita harus menempatkan array didalam suatu memori, caranya adalah dengan memanfaatkan fungsi dari perintah sellength.

Selllength(nilai,20)

Dari penggalan program tersebut nilai untuk array nilai tersebut mempunyai range sebanyak atau cakupan 20 untuk tipe data real, dengan indeex dimulai dari 0 sampai dengan 20.

6.4. Studi Kasus program dengan Array

a. Hasil ketika form Dijalankan

Gambar 5.1 Form Konversi Tanggal

b. Desain Properties

Object Caption/Text Name
Label 1 Tanggal Label1
Label 2 Bulan Label2
Label 3 Tahun Label3
Label 4 Hari Pada Tanggal tersebut Adalah Label4
GroupBox1 Entry Tanggal Groupbox1
Edit1 - Etgl
Edit2 - Ebln
Edit3 - Etahun
Edit4 - Ehari
Command1 OK bok

c. Listing Program

Program untuk Command OK

procedure TForm12.bhariClick(Sender: TObject);
type
x = string[7];
const
faktorbln : array[1..12] of byte = (0,3,3,6,1,4,6,2,5,0,3,5);
hari : array[0..8] of
x=('Minggu','Senin','Selasa','','Rabu','Kamis','','Jum''at','Sabtu');
var
hr : string;
nama : string[255];
j1,j2,j3,j4 : integer;
tanggal,bulan,tahun : integer;
begin
tanggal := strtoint(etgl.Text);
bulan := strtoint(ebln.Text);
tahun := strtoint(ethn.Text);
if tahun > 1900 then tahun := tahun - 1900;
j1 := trunc(tahun * 365.25);
j2 := j1 + faktorbln[bulan];
if (tahun/4 = int(tahun/4)) and (bulan < 3) then j2 := j2-1;
j3 := j2 + tanggal;
j4 := trunc(frac(j3/7) * 10);
hr := Hari[j4];
ehari.Text := hr;
end;

BAG V FUNGSI

2007-03-01T00:02:00.001-08:00

BAB V
FUNGSI

5.1 Pengertian Fungsi

Pengertian secara umum mengenai fungsi adalah merupakan sebuah penggalan program yang terpisah dari program utama dan berfungsi sebagai sebuah program bagian dari program utama. Penulisan fungsi diawali dengan kata cadangan function dan dideklarasikan dalam bagian deklarasi fungsi. Dan penulisan program fungsi ditempatkan pada program utama. Satu ha yang perlu diperhatikan dalam penulisan fungsi adalah harus diikuti dengan tipe datanya.

Bentuk Umum penulisan Fungsi

Fuction indentifier(daftar-parameter) : type;

Contoh

Function hitung(var a,b : real) :real;

Penulisan blok fungsi diawali dengan kata cadangan begin dan diakhiri dengan end;.

5.2. Fungsi Tunggal

fungsi tunggal merupakan suatu fungsi dimana proses pemanggilan dirinya sendiri tanpa melalui fungsi yang lain atau fungsi yang tidak terdapat dalam fungsi yang lain.

Contoh
.
a. Hasil yang diinginkan

b. Desain Form

c. Listing Program Dengan Fungsi

function hitung(var a,b : integer): integer;
begin
hitung := a+b;
end;

procedure TForm10.bjumlahClick(Sender: TObject);
var
x,y : integer;
c : integer;
begin
x := strtoint(enil1.Text);
y := strtoint(enil2.Text);
c:= hitung(x,y);
ehasil.Text := inttostr(c);
end;

Didalam program utama tidak ditempatkan rumus untuk menghitung penjumlahan tetapi ketika dilakukan eksekusi terhadap program dan kita melakukan input nilai 1 dan 2 dan kita klik jumlah maka akan ditampilkan hasil yang diinginkan. Hasil itu diperoleh dari pengiriman nilai dari teks ke nilai pada variabel deprogram utama (x := strtoint(enil1.Text);y := strtoint(enil2.Text);). Selanjutnya nilai pada variabel deprogram utama dikirim ke fungsi hitung untuk mendapat hasil penjumlahan (c:= hitung(x,y);).

5.3. Fungsi Untuk Memanggil Fungsi yang Lain

Merupakan pembuatan program fungsi yang digunakan untuk memanggil program fungsi yang lain didalam satu listing program.

Contoh

a. Hasil Yang Diinginkan

b. Desain Form

c. Desain Properties

Object Caption/Text Name
Label 1 Nama Peminjam Label1
Label 2 Jumlah Uang Pinjam Label2
Label 3 Tingkat Bunga (dalam %) Label3
Label 4 Lama Pinjam Label4
Label5 Besarnya Uang Yang Harus Dikembalikan Label5
Label6 Cicilan Uang Setiap Bulan Label6
GroupBox1 Rincian Nama Anggota Groupbox1
Edit1 - Epeminjam
Edit2 - Epinjam
Edit3 - Ebunga
Edit4 - Elama
Edit5 - Ekembalian
Edit6 - Ecicil
Button1 Total Btotal
Button2 Bersih Bbersih
Button3 Close Bclose

d. Listing Program

 Fungsi Perhitungan Bunga

function pangkat(x,y : real):real;
begin
pangkat := exp(ln(x)*y);
end;
function bunga(e,f,g : real):real;
begin
bunga := e*pangkat((1+f/100),g);
end;

 Program Total

procedure TForm15.btotalClick(Sender: TObject);
var
a,b,c,d,e : real;
begin
a := strtofloat(ejumlah.Text);
b := strtofloat(ebunga.Text);
c := strtofloat(elama.Text);
d := bunga(a,b,c);
ekembalian.Text := floattostr(d);
ekembalian.Text := formatfloat('#.###,0',d);
e := d/c;
ecicil.Text := floattostr(e);
ecicil.Text := formatfloat('#.###,0',e);
end;

 Program Bersih

procedure TForm15.bbersihClick(Sender: TObject);
begin
ejumlah.Text :='';

elama.Text := '';
epeminjam.Text := '';
ebunga.Text := '';
ekembalian.Text :='';
ecicil.Text := '';
end;

 Program Menutup Form

procedure TForm15.bcloseClick(Sender: TObject);
begin
close;
end;

BAG IV Prosedur , Perulangan dan Megenal Input Box

2007-03-01T00:01:00.001-08:00

BAB IV
Prosedur , Perulangan dan Megenal Input Box

4.1. Prosedur

Prosedur adalah suatu program terpisah dan berdiri dalam suatu blok program dan befungsi sebagai sebuah sub program (program bagian). Penulisan prosedur diawali dengan kata Procedure pada bagian deklarasi program dan cukup menuliskan nama prosedur yang dibuat pada bagian Implementasi.

Alasan penggunaan prosedur
1. Digunakan untuk penggalan program yang akan digunakan secara berulang – ulang dalam suatu proses program.
2. Digunakan untuk memmecah – mecah program menjadi sebuah modul program, sehingga listing program menjadi lebih sederhana.

Syarat penulisan nama procedure
1. harus diawali dengan karakter.
2. untuk nama prosedur dengan menggunakan dua kata atau lebih penulisannya tidak boleh menggunakan spasi, harus digabung atau dihubungkan dengan underscore ( _ )
3. tidak mengenal tanda baca.

Contoh

a. Pendeklarasian Prosedur
Penulisan pendeklarian sebuah prosedur dalam Delphi ditempatkan setelah kata public agar dapat dikenali oleh semua object yang ada dalam proses program tersebut. Penulisannya diawali dengan kata Procedure diikuti nama procedure.

Public
Procedure bersih;

b. Penulisan prosedur
Penulisan pogram prosedur terdapat dalam bagian implementation,

Procedure TForm1.Bersih;
Begin
Enama.text := ‘’;
Ealamat.text := ‘’;
Ekota := ‘’;
End;

c. Pemanggilan Prosedur
Pemanggilan prosedur terdapat dalam bagian implementation, pada umumnya pemanggilan prosedur terdapat dalam suatu ruang lingkup object yang mempunyai sebuah event. Cara pemenggilannya cukup hanya dituliskan nama prosedurnya saja.

Procedure.TForm1.button1click(sender: Tobject);
Begin
Bersih;
End;

atau ketika program prosedur digunakan pada object yang lain untuk memanggil program yang sama kita hanya cukup menuliskan nama prosedurnya tanpa dibutuhkan pendeklarasian prosedur baru.

Procedure TForm1.enamakeypress(sender: Tobject; var key:char);
Begin
If key = #13 then
Bersih;
End;

4.2. Perulangan
Merupakan control program yang digunakan untuk suatu proses yang akan berjalan terus menerus. Kondisi perulangan merupakan proses berjalannya program secara terus menerus dan akan berhenti ketika proses mendapatkan kondisi yang sudah ditentukan.

Di dalam Delphi mengenal 3 jenis perulangan

a. Perulangan For – To - Do

Perulangan dengan statement for adalah perulangan yang digunakan untuk melakukan suatu proses dalam sebuah blok program. Proses perulangan For – To – Do dimulai dengan nilai terkecil ke besar.

Bentuk Umum

For variabel := nilai awal to nilaiakhir statement

Catatan : semua variabel yang berhubungan dengan perulangan harus mempunyai tipe data sama.

Contoh

procedure TForm4.Button1Click(Sender: TObject);
var
i:integer;
begin
for i := 1 to 5 do
edit1.SelText := inttostr(i);
end;
end.
Bila Program tesebut dijalankan maka nilai i akan ditampilkan pada edit1 dengan hasil sebagai berikut =

b. Perulangan For – DownTo-Do

Perulangan For-Dowbto-Do adalah perulangan yang mengihutng suatu proses dengan nilai awal besar dan nilai akhinya lebih kecil, maka variabel sebagai control program yang diperoleh adalah dari besar ke kecil.

Bentuk Umum

For Variabel := nilai-awal Downto Nilai-akhir Do Pernyataan

Contoh

procedure TForm4.Button2Click(Sender: TObject);
var
i : integer;
begin
for i := 5 Downto 1 do
edit2.SelText := inttostr(i);
end;

Bila program tersebut dijalankan maka hasil yang diperoleh adalah sebagai berikut ;

c. Perulangan While Do

Perulangan While Do adalah statement perulangan akan terus melakukan suatu proses selama kondisi/syarat yang ditentukan bernilai benar.

Bentuk Umum

Statement While – Variabel Syarat – Do Pernyataan

Contoh

procedure TForm4.Button3Click(Sender: TObject);
var
i : integer;
begin
i := 0;
while i < 5 do
begin
edit3.SelText := inttostr(i);
i := i + 1;
end;
end;

Bila program tersebut dijalankan maka hasil yang akan diperoleh adalah sebagai berikut :

d. Perulangan Repeat Until

Perulangan repeat until digunakan untuk mengulang suatu kondisi sampai (until) kondisi bernilai salah.

Bentuk Umum

Repeat – Statement/penyataan — Until --- ungkapan logika

Contoh

procedure TForm4.Button4Click(Sender: TObject);
var
i : integer;
begin
i := 1;
repeat
i := i + 2;
edit4.SelText := inttostr(i);
until i = 15;

end;

Bila program tersebut dijalankan maka akan diperoleh hasil sebagai berikut :

4.3. Mengenal Input Box

Input Box adalah sebuah kotak pesan bagi user. Selain itu juga bisa digunakan untuk menginput data.

Bentuk umum

Var
Indentifier : typedata;
begin
Identifier := inputbox(‘string_title’,’string_subtitle’,’’);
end;

Contoh

Var
Inputnama : string;
Begin
Inputnama := inputbox(‘Info’,’Ketikan Nama’,’’);
End;

4.4. Study Kasus Perulangan

a. Hasil Setelah Dijalankan

Gambar 4.1 Form Penjualan

Ketentuan Dan Alur Logika

1. Total item digunakan sebagai pembatas berapa kali, pelanggan akan membeli barang.
2. Ketika jumlah item diberikan nilai maka ketika kita klik OK akan ditampilkan kotak pesan (input Box) untuk menginput nama barang dan harga barang yang dibeli. Begitu seterusnya sampai kondisi dari total item terpenuhi.
3. Total Penjualan diperoleh dari penjumlahan seluruh harga barang yang dibeli.
4. isi data lagi diberikan untuk mengulang pembelian.
5. Close untuk menutup form.
6. Untuk tanggal ditampilkan secara otomatis.

b. Desain Form

Gambar 4.2 Desain Form Penjualan

c. Desain Properties

Object Caption Name
Label 1 Total Item yang dibeli Label1
Label 2 Tanggal Label2
Label 3 NO Faktur Label3
Label 4 Total Penjualan Label4
GroupBox1 Data Penjualan Groupbox1
GroupBox2 Daftar Nama Barang Yang Debeli Groupbox2
Groupbox3 Daftar Harga Barang Groupbox3
Command1 OK Cmdok
Command2 Isi Data Lagi Cmdlagi
Command3 Close cmdclose

Object Text Name
Edit1 - eitem
Edit2 - enofaktur
Edit3 - etgl
Edit4 - Etotal
ListBox1 - lnama
Listbox2 - lharga
d. Listing Program

Program untuk menampilkan tanggal secara otomatis ketika form dijalankan

procedure TForm5.FormCreate(Sender: TObject);
begin
DateSeparator := '-';
ShortDateFormat := 'mm/dd/yyyy';
etanggal.Text := 'Hari ini' + DateToStr(Date);
end;

Program command OK

procedure TForm5.bokClick(Sender: TObject);
var
inputnama : string;
inputharga : string;
i : integer;
j : integer;
harga : real;
begin
harga := 0;
j := 0;
j:= strtoint(eitem.Text);
if j <= 0 then
begin
showmessage('Data Tidak boleh lebih kecil dari Nol');
exit;
end
else
begin
for i := 1 to j do
begin

inputnama := inputbox('INput','Ketikan Nama Barang','');
inputharga := inputbox('INput','Ketikan Harga Barang','');
lnama.Items.Add(inputnama) ;
lharga.Items.Add(inputharga);
harga := harga + strtofloat(inputharga);
end;
end;
etotal.Text := floattostr(harga);
end;

Program Untuk Isi Data Lagi

procedure TForm5.clagiClick(Sender: TObject);
begin
eitem.Text :='';
enofaktur.Text := '';
lnama.Clear;
lharga.Clear;
etotal.Text :='';
end;

Program Untuk Menutup Form
Close;

4.5. Aplikasi Konversi Suhu

a. hasil yang Diinginkan

Gambar 4.4 Hasil Form Penjualan

b. Ketentuan Program

1. Batas Awal dan Batas akhir diberikan untuk mengetahui nilai awal dan akhir derajat celcius yang ingin cetak.
2. Penambahan diberikan untuk memberikan penambahan dari nilai awal untuk mencapai nilai akhir.
3. Close adalah untuk keluar dari program
4. Rumus Mencari Fahrenheit adalah = 1.8*Celcius+32

BAG III Percabangan

2007-03-01T00:00:00.001-08:00

BAB III
Percabangan

3.1. Operator Percabangan

percabangan adalah merupakan operator yang digunakan untuk menentukan pilihan terhadap beberapa pilihan yang ada.

Dalam bahasa pemograman Delphi mengenal dua operator per cabangan

3.1.1. Percabangan If

merupakan operator percabangan yang digunakan untuk menentukan pilihan atas beberapa kondisi yang merupakan syarat terhadap pilihan yang sudah ditentukan.

Ada dua model percabangan if

a. Percabangan untuk kondisi pilihan tunggal

Merupakan operator percabangan yang digunakan untuk menentukan sebuah pilihan dengan kondisi tunggal

Bentuk Umum

If Syarat then hasil;

Contoh

If Nilai > 80 then keterangan = ‘Lulus’;

b. Percabangan untuk kondisi majemuk

Merupakan operator percabangan yang digunakan untuk menentukan pilihan dengan kondisi yang harus dipeuhi lebih dari satu.

Bentuk Umum

If Syarat1 then
Hasil1
Else
If syarat2 then
Hasil2
Else
…………….
……………
end;

Contoh
If nilai > 80 then
Grade = “A”
Else
if nilai > 70 then
grade = “B”
else
if nilai > 60 then
grade = “C”
else
grade = “E’;

3.1.3. Percabangan case

case of adalah merupakan metode lain dari sebuah percabangan, berfungsi sama seperti fungsi if yaitu untuk melakukan seleksi atas beberapa pilihan dengan kondisi sebagai syarat yang harus terpenuhi. Secara fungsi scee dan if tidak ada perbedaan tetapi untuk penulisan fungsi case lebih mudah diterapkn untuk pilihan atau kondisi lebih dari satu.

Bentuk Umum fungsi Case OF

Case of
; hasil1;
; hasil2;

;hasil3;
………………………
; hasiln;
end;

atau fungsi case of bisa juga diberikan else untuk piliahn terakhir.

Bentuk Umum

Case of
; hasil1;
; hasil2;
;hasil3;
………………………
else
hasiln;
end;

Contoh

Case Bilangan of
1:showmessage(‘Angka 1’);
2:showmessage(‘Angka 2’);
3:showmessage(‘Angka 3’);
end;

3.2. Mengenal Object II (combo box, list box dan radio button)

1
Checkbox Digunakan untuk menentukan pilihan lebih dari satu
2
Radio Button Digunakan untuk menentukan pilhan, tetapi hanya satu pilhan yang bisa digunakan
3
List Box Menmpilkan pilihan dalam bentuk list
4
Combo Box Menampilkan pilihan dalam bentuk popup

3.3. Merancang Program dengan fungsi IF

a. Hasil Yang Diperoleh

Gambar 3.1 Gambar Perhitungan Gaji
Ketentuan Perhitungan Gaji

1. Dalam Struktur organisasi perusahaan ketentuan gaji perusahaan terbagi menjadi 3 struktur utama

Jabatan Gaji Pokok
Direktur 5000000
Manager 3000000
Karyawan 1000000

2. Besarnya tunjangan ditentukan oleh status kep

b. Desian Form

Gambar 3.2. Desain Form Gaji

c. Desain Properties

Object Name Caption
Label 1 Label1 Nama Pegawai
Label 2 Label2 Jabatan
Label 3 Label3 Gaji Pokok
Label 4 Label4 Tunjangan Status
Label5 Label5 Gaji Bersih
GroupBox GroupBox1 Status
RadioButton1 Rtetap Tetap
RadioButton2 Rhonorer Honorer
Object Name Text
Edit1 enama -
Edit2 epokok -
Edit3 etunjangan -
Edit4 ebersih -
Combo Box Cjabatan -

Object Name Caption
Button1 Btotal Total Gaji
Button2 Blagi Isi Data Lagi
Button3 Bclose Close

d. Listing Program

 Memberikan pilihan pada combo box sesuai dengan piihan pada jabatan

Dengan Menggunakan Object Properties

Langkah – langkahnya
1. aktifkan combo box yang akan dipilih
2. pada properties pilih dan klik item, lalu klik command (…)

3. Pada jendela String list Editor, Seperti terlihat pada jendela berikut

4. Ketikan kata sebagai kata pilihan pada jendela seperti contoh tersebut diatas.
5. Setelah selesai klik OK

Melalui jendela code editor
Double click pada form, sebarang tempat dan ketikan program berikut ini.

procedureTForm1.FormCreate(Sender: TObject);
begin
cjabatan.Items.Add('Direktur');
cjabatan.Items.Add('Manager');
cjabatan.Items.Add('Karyawan');
end;

 Program untuk mencari gaji pokok
1. Aktifkan combo box untuk jabatan
2. Pada pada jendela properties pilih event,
3. pilih dan aktifkan onclick, Seperti yang terlihat seperti gambar berikut ini.

4.

5. Double click pada combo onclick.
6. Ketikan program berikut ini

procedure TForm3.cjabatanClick(Sender: TObject);
begin
if cjabatan.Text = 'Direktur' then
epokok.Text := '5000000'
else
if cjabatan.Text = 'Manager' then
epokok.Text := '2000000'
else
if cjabatan.Text = 'Karyawan' then
epokok.Text := '1000000'
else
epokok.Text := '0'
end;

 Program menghitung Tunjangan Karyawan Tetap
Double click pada option tetap dan ketikan program berikut ini

procedure TForm3.etetapClick(Sender: TObject);
begin
if etetap.Checked = true then
a := strtofloat(epokok.Text);
hasil :=a*0.3;
etunjangan.Text := floattostr(hasil)
end;

 Program menghitung Tunjangan Karyawan Honorer
Double click pada option honorer dan ketikan program berikut ini

procedure TForm3.rhonorerClick(Sender: TObject);
begin
if rhonorer.Checked = true then
a := strtofloat(epokok.Text);
hasil :=a*0.1;
etunjangan.Text := floattostr(hasil)
end;

 Program menghitung Gaji Bersih
Double click pada command total gaji, dan ketikan program berikut ini :

procedure TForm3.btotalClick(Sender: TObject);
begin
a := strtofloat(epokok.Text);
b := strtofloat(etunjangan.Text);
c := a+b;
ebersih.Text := floattostr(c);
end;

 Program bersih
Double click pada Isi Data Lagi, dan ketikan program berikut ini

procedure TForm3.blagiClick(Sender: TObject);
begin
cjabatan.Text := 'Jabatan';
enama.Text := '';
ebersih.Text := '0';
etunjangan.Text := '0';
epokok.Text := '0';
etetap.Checked := false;
rhonorer.Checked := false;
end;

 Program Close dengan pesan, seperti tampilan sebagai berikut.

Gambar 3.3 Form Pesan

procedure TForm3.bcloseClick(Sender: TObject);
begin
if (application.MessageBox('Anda Yakin akan keluar','Informasi',MB_YESNO)= IDYES)then
close
end;

3.4. Program Biaya Ujian

Buatlah program untuk mencari biaya ujian untuk calon siswa pada suatu perguruan tinggi.

Tampilan yang diinginkan adalah sebagai berikut

Ketentuan Pencarian Biaya
1. Nilai murni didapat dari penjumlahan (nilai Prkatek * 60%) ditambah (Nilai Teori * 40 %).
2. Keterangan = Gagal jika nilai murni < 60 dan dinyatakan lulus jika nilai murni >= 60
3. Biaya perjurusan diperoleh dari dua pilihan jurusan yang ada:
1. jika pilhan MI maka biayanya = 250000
2. jika pilihan TK maka biaya = 300000
4. Pilihan Biaya Waktu Ujian diperoleh dari 2 waktu kuliah yang ada.
Jika pilihan pagi maka biaya kuliah = 50000, 1000000 untuk biaya kuliah malam.
5. Total biaya diperoleh dari penjumlahan Semua jurusan ditambah biaya waktu kuliah.
6. Isi data lagi untuk mengulang input data
7. close untuk mentup program.

Bag II Operator, Deklarasi Dan Tipe Data

2007-02-28T23:59:00.000-08:00

Bab II
Operator, Deklarasi Dan Tipe Data

2.1 Deklarasi

Dalam setiap penulisan bahasa pemograman deklarasi sangat digunakan apabila dalam penulisan program dibutuhkan indentifier atau tanda pengenal. Indentifier pada umumnya di buat oleh progremmmer yang digunakan untuk mewakili nilai dari suatu object.
Indentifier yang dikenal dalam Delphi adalah label, konstanta, tipe, fungsi, procedure maupun variabel.

2.1.1. Deklarasi Konstanta

Deklarasi konstanta adalah tanda pengenal dalam Delphi yang mempunyai nilai yang sudah tetap. Definisi konstanta diawali dengan kata baku Const diikuti dengan kumpulan indentifier yang diberi sebuah nilai.

Contoh

procedure TForm2.etertulisChange(Sender: TObject);
const
nil1:='30000';
begin
end;

2.1.2. Deklarasi Variabel

Deklarasi variabel adalah tanda pengenal dalam Delphi yang mempunyai nilai yang mana nilai tersebut akan terus berubah selama proses berjalan. Definisi variabel diawali dengan kata baku Var diikuti dengan kumpulan identifier yang diikuti dengan tipe data yang dibutuhkan.

Contoh

procedure TForm2.EpraktekKeyPress(Sender: TObject; var Key: Char);
var
praktek,nil2,nil1 :real;
begin
if (key = #13) then
begin
nil1 := strtofloat(ehtulis.Text);
praktek:= strtofloat(epraktek.Text);
nil2:= 0.4 * praktek;
ehpraktek.Text := floattostr(nil2);
form2.ActiveControl := cmi;
emurni.Text := floattostr(nil1 + nil2);
if nil1 > 60 then
egrade.Text := 'Lulus'
else
egrade.Text := 'Gagal'
end;
end;

2.2 Tipe Data

Secara sederhana tipe data dapat didefinisikan dengan istilah tempat untuk menentukan pemberian nilai terhadap suatu variabel sesuai atau tidak dengan nilai yang diberikan oleh user. Dalam versi lain tipe data juga diartikan sebagai batasan terhadap fungsi tanda pengenal terhadap semua nilai yang diterima. logika yang dapat kita berikan adalah ketika kita menempatkan tanda pengenal harga hanya mengenal angka, maka ketika kita memberikan nilai berupa string maka secara otomatis data tersebut akan ditolak karena nilai tersebut tidak dikenali oleh tipe data yang diberikan.

2.2.1 Tipe Data Numeric Integer

Tipe data integer merupakan tipe data bilangan bulat yang hanya mengenal bilangan decimal. Dimana tipe data Integer tidak mengenal pecahan

Bentuk Umum

Var
Nil1:integer;
Begin
Nil1:=5000;

2.2.2 Tipe Data Real

Tipe data numeric real adalah tipe data dari suatu tanda pengenal selain mengenal bilangan bulat utuh tipe data ini juga mengenal nilai angka yang mengenal pecahan.

Bentuk Umum

Var
Nil:real;
Begin
Nil1:=20,5;

2.2.3 Tipe Data String
Tipe data string merupakan salah satu jens tipe data selain mengenal angak disini tipe data dapat juga mengenla data berupa huruf maupun tanda baca.

Bentuk umum

Var
Nama:string;
Begin
Nama:=’Anton’;

2.2.4 Tipe Data Char

Secara fungsi tipe data char sama dengan tipe data string tetapi dari segi kapsitas ruang diperoleh tipe data char jauh lebih sedikit karena hanya mengenal 1 karakter.

2.3. Dasar umum merancang Program aplikasi berbasis visual
a. Merancang tampilan program (user interface) hal ini meliputi = Form dan toolbox
b. Desain properties. Hal ini digunakan untuk merubah tampilan icon yang asli toolbox agar sesuai dengan tampilan yang tampilan yang diinginkan.
c. Jendela Code Editor , digunakan sebagai media komunikasi antar object pada form dengan system yang ada.

2.4. Mengenal Komponen label, edit & Button

Label Hanya untuk menampilkan Teks

Edit Untuk menampilkan dan input data (1 baris)

Button Digunakan untuk melakukan eksekusi terhadap suatu proses

2.5. Mengenal Operator

Delphi mengenal banyak operator, sama seperti bahasa pemograman yang lain, operator menjadi satu hal penting yang harus ada untuk perancangan program.

2.5.1. Operator Penugasan (assignment Operator)

Symbol operator digunakan untuk melakukan suatu proses atas suatu nilai dengan memberikan nilai baru pada suatu variabel

Lambang operator Penugasan “ := “

Bentuk Umum penulisan

Var := perintah;

Contoh =

A:=”B”;
Label1.caption := “Irnawan”
C:= A + B;

2.5.2. Operator Aritmatika

Operator aritmatika berfungsi untuk melakukan suatu proses aritmatika yang meliputi perkalian, pembagian, penjumlahn, pengurangan maupun pengurangan terhdap suatu nilai variabel yang tersimpan dalam suatu object, dengan memberikan nilai baru.

Symbol yang dikenal dalam delphi

Symbol Keterangan
+ Penjumlahan
- Pengurangan
* Perkalian
/ Pembagian
Div Pembagian Integer
Mod Sisa Pembagian

Contoh
B := 15 + 2; hasil B = 17
B := 15 div 2 B = 7
B := 15/2 B = 7,5
B := 15 * 2 B = 30
B := 15 mod 2 B = 1

2.5.3. Operator String

Digunakan untuk menggabungkan dua teks/string atau lebih.

Symbol yang digunakan = +

Contoh =

Bentuk Umum

A := teks1 + teks2

Contoh
A : = “Aku”;
B := “Bisa”;
C := A + B;
Hasil C = Aku Bisa

2.5.4. Merancang Aplikasi Dengan Delphi

a. Hasil ketika form dijalankan

Gambar 2.1 Form Operator

b. Desain Form

Gambar 2.2 Desain Form Operator

c. Desain Properties

Object Name Caption
Label 1 Label 1 Program pengenalan dasar operator Delphi
Label 2 Label 2 Nilai Praktek I
Label 3 Label3 Nilai Praktek II
Label 4 Label4 Nilai Perhitungan
Label5 Label5 Hasil
Label6 Label6 Hasil
Label7 Label7 Hasil
Label8 Label8 Hasil

Object Name Text
Edit1 Nil1 -
Edit2 Nil2 -
Edit3 Ehtambah -
Edit4 ehkali -
Edit5 Ehbagi -
Edit6 ehkurang -

Object Name Caption
Button1 Btambah Tambah
Button2 Bkali Kali
Button3 Bbagi Bagi
Button4 Bkurang Kurang
Button5 Bclose Close

d. Listing Program

Catatan =
Dalam bahasa pemograman Delphi semua data yang diinput melalui edit box dideklarasikan dengan tipe data string, sehingga ketika kita akan melakukan proses perkalian atau pengurangan kita tidak bisa mengalikan secara langsung edit box yang dimaksud tetap kita perlu merubah menjadi nilai dengan tipe data yang dapat dikalikan.

1. Program Tambah

Digunakan untuk menampilkan hasil penjumlahan antara nilai praktek 1 dengan nilai praktek II, cara double klik pada buton tambah dan tuliskan kode berikut ini =

procedureTForm2.BtambahClick(Sender: TObject);
var
nil1, nil2 : real;
tambah: real;
begin
nil1 := strtofloat(enil1.text);
nil2 := strtofloat(enil2.text);
tambah := nil1 + nil2;
ehtambah.text := floattostr(tambah);
end;

Catatan
Var
Nil1,nil2 : real;
Tambah ; real;

Var digunakan untuk mendeklarasikan suatu nama varibael yag dibuat oleh programmer yang berfungsi untuk menyimpan nilai atau data selama proses program berjalan.

Nil1,nil2 dan tambah adalah nama variabel baru yang dibentuk oleh progrmmer

Real adalah nama dari sekeian banyak tipe data yang dikenal dalam bahasa peograman Delphi. Cakupan tipe data real adalah membaca bilangan angka dalam bentuk decimal.

Strtofloat adalah fungsi yang digunakan merubah nilai dari tipe data string menjadi tipe data numeric.

Floattostr adalah fungsi yang digunakan merubah nilai pecahan menjadi data string.

2. Program untuk kali

procedure TForm2.BkaliClick(Sender: TObject);
var
bil1,bil2:real;
kali : real;
begin
bil1 := strtofloat(enil1.text);
bil2 := strtofloat(enil2.text);
kali := bil1*bil2;
ehkali.text := floattostr(kali);
{ehkali.text := inttostr(strtoint(enil1.text) * strtoint(enil2.text));}
end;

3 Program untuk bagi

procedureTForm2.BbagiClick(Sender: TObject);
var
bil1,bil2 : real;
bagi : real;
begin
bil1 := strtofloat(enil1.Text);
bil2 := strtofloat(enil2.Text);
bagi := bil1/bil2;

ehbagi.Text := floattostr(bagi);
end;

4. Program untuk kurang

procedureTForm2.BkurangClick(Sender: TObject);
var
bil1,bil2,kurang : real;
begin
bil1 := strtofloat(enil1.Text);
bil2 := strtofloat(enil2.Text);
kurang := bil1 - bil2;
ekurang.Text := floattostr(kurang);
end;

5. Program untuk keluar

procedureTForm2.bcloseClick(Sender: TObject);
begin
messageDlg('Ingin Menutup form',mterror, [mbok],0);
close;
end;
Catatan
Messagedlg adalah penggalan program yang digunakan untuk menampilkan kotak pesan.

Close digunakan untuk menutup form.

2.5.5. Latihan Program Pembayaran

a. Form setelah dijalankan

Gambar 2.3 Gambar Toko

b. Ketentuan yang diinginkan pemilik toko

1. Nama barang, harga barang dan jumlah merupakan media input bagi user mengenai detail nama barang, harga barang serta jumlah yang dibeli.
2. Bayar digunakan untuk menampilkan perkalian dari jumlah yang dibeli dengan harga barang, dengan cara mengklik hitung.
3. Untuk menutup form user tinggal mengklik exit, dengan menampilkan pesan untuk user.

Catatan :
1. Untuk Menambah Form Baru pilih dan klik icon New Form
2. Untuk Mengaktifkan Form Yang Pernah Dibuat adalah pilih dan klik View Form , pada jendela View Form pilih form yang ingin diaktifkan dan klik OK
3. Untuk Menjalankan Form yang diinginkan dari beberapa form yang telah dibuat adalah dengan cara pilh Project| option. Pada combo Project Option, pilih dan klik form yang diingikan dengan mengaktifkan Combo Main form. Setelah selesai klik OK.
4. Untuk menyimpan semua project pilih dan klik Save All.

Bag I Mengenal Delphi

2007-02-28T23:56:00.000-08:00

Bab I
Mengenal Delphi

1.1. Pengertian Delphi
Delphi adalah suatu bahasa pemograman (development language) yang digunakan untk merancang suatu aplikasi program.

a. Kegunaan Delphi
1. untuk membuat aplikasi windows
2. Untuk merancang aplikasi program berbasis grafis
3. Untuk membuat program berbasis jaringan (client/server)
4. Untuk merancang program .Net (berbasis internet)

b. Keunggulan Delphi
1. IDE (Integrated Development Environment) atau lingkungan pengembangan aplikasi sendiri adalah satu dari beberapa keunggulan delphi, didalamnya terdapat menu – menu yang memudahkan kita untuk membuat suatu proyek program.
2. Proses Kompilasi cepat, pada saat aplikasi yang kita buat dijalankan pada Delphi, maka secara otomatis akan dibaca sebagai sebuah program, tanpa dijalankan terpisah.
3. Mudah digunakan, source kode delphi yang merupakan turunan dari pascal, sehingga tidak diperlukan suatu penyesuain lagi.
4. Bersifat multi purphase, artinya bahasa pemograman Delphi dapat digunakan untuk mengembangkan berbagai keperluan pengembangan aplikasi.

c. Sejarah Borland Delphi
1. Delphi versi 1 (berjalan pada windows 3.1 atau windows 16 bit)
2. Delphi versi 2 (Berjalan pada windows 95 atau delphi 32 bit)
3. Delphi versi 3 (berjalan pada windows 95 keatas dengan tambahan fitur internet atua web)
4. Perkembangan selanjutnya diikuti dengan Delphi versi 4, 5 dan 6.
5. Versi terkini dari delphi adalahversi 7 dengan tambahan vitur .net dengan tambahan file XML

1.2. OOP (Object Oriented Programming)
OOP adalah metode pemograman dengan membentu sebuah aplikasi yang mendekati keadaan dunia yang sesungguhnya. Hal itu bisa dilakukan dengan cara mendisain object untuk menyelesaikan masalah.
a. Tiga unsur OOP
1. Encapsulation atau pemodelan
Encapsulation adalah konsep penggabungan data dengan operator. Dalam konsep pemodelan data dan operasi menjadi satu kesatuan yang disebut object. Encapsulation juga disebut dengan penyembunyian informasi (information hiding)

Contoh = ketika kita menyalakan sebuah TV kita tidak tahu apa yang terjadi dengan proses dan percakapan antar alat yang berhubungan dengan TV tersebut sehingga mampu menampilkan sebuah gambar.
Atau = ketika melakukan klik pada subuah object dalam suatu aplikasi program kita tidak tahu apa yang dilakukan program sehingga ditampilkan hasil yang sesuai.

Catatan = dari dua contoh kasus tersebut terdapat kesamaan proses mengenai information hiding yang tidak diketahui oleh user sampai hasil ditampilkan.
b. Inheritance atau penurunan
Inherintance adalah sebuah object yang dapat diturunkan menjadi object yang baru dengan tidak menghilangkan sifat asli dari object tersebut.

Contoh = TV merupakan salah satu media elektronik yang dgunakan untuk menampilkan gambar dengan tujuan untuk memberikan informasi kepada konsumen. Secara umum TV memunyai cara kerja yang sama dengan media elektronik yang lain dlam proses penyampaian informasi, tetapi mempunyai sifat yang unik yang dapat membedakan dengan media electronik yang ada.
Atau = Dalam aplikasi program kita sering menggunakan command button, untuk beberapa perintah yang berbeda.

c. Polymorphism atau Polimorfisme
Polymorphism merupakan penggunaan berbagai macam object yang berbeda tetapi secara fungsi bergantung pada satu object sebagai induk, dengan cara pelaksanaan yang berbeda – beda.

Contoh = TV dan radio adalah media electronik yang mempunyai sistem yang sama tentang bagaimana meyebarkan suatu informasi, tetapi cara kerja dari masing – masing sistem pasti berbeda.

Atau
Object Simpan dan Update adalah icon yang berasal dari induk yang sama yaitu , command button tetapi cara kerja tersebut berbeda – beda.

1.3. Delphi dan OOP (Object Oriented Programming)
Secara default ketika kita merancang suatu aplikasi program, mau tidak mua dan tanpa kita sadari bahwa kita telah menerapkan OOP, walupun secara teori kita kurang memahami OOP dalam arti yang sebenarnya.

Contoh sederhananya adalah ketika kita merancang suatu form (Tform1) baru, sadar atau tidak sebenarnya form yang kita aktifkan merupakan turunan dari Tform sebagai induknya atau ketika kita mengaktikan button pada form merupakan turunan dari tbutton.

Atau

Contoh dalam bahasa program adalah sebagai berikut = ketika merancang suatu label di form secara otomatis delphi akan menuliskan label tersebut dalam jendela code editor tentang turunan dari label tersebut.

Type
Tform = class(tform)
Label1 = tlabel
End;

1.4. IDE DELPHI

a. langkah – langkah mengaktifkan Delphi

a. Klik start
b. pilih program Files
c. pilih Borland Delphi
d. pilih dan klik Delphi 7

b. Jendela Utama Delphi

Gambar 1.1 Jendela Utama Delphi

c. Bagian – bagian dari Jendela Delphi

1. Object Tree View
Merupakan sebuah diagram pohon yang menggambarkan hubungan logis menghubungkan semua komponen yang terdapat dalam suatu proyek program. Komponen tersebut meliputi form, modul atau frame. Fungsinya digunakan untuk menampilkan seluruh daftar komponen program dalm sebuah aplikasi program sesuai dengan penempatnnya.

Gambar 1.2 Jendela Object Tree View

2. Object Inspector
Merupakan jendela yang digunakan utnuk mengatur tampilan komponen pada form, misal bagaimana mengubah tulisan button pada command button menjadi Simpan, atau menghapus tulisan pada label dan mengganti nama menjadi Nama Mahasiswa atau memberikan perintah tertentu pada sebuah komponen sehingga ada interaksi ketika program dijalankan..

Secara Umum Object Inspector terbagi menadi 2, yaitu =
a. Properties
Digunakan untuk mengatur tampilan pada sebuah komponen baik itu meliputi penggantian nama, warna, jenis huruf, border dan lain –lain.

Gambar 1.3 Jendela Inspector (properties)

b. Events
Merupakan jendela properties yang digunakan untuk memberikan fungsi yang lebih detail dari fungsi sebenarnya. Misalnya ketika tombol Simpan di klik maka program akan menjalankan perintah penyimpanan data. Dari kalimat tersebut ada event clik untuk mengeksekusi sebuah tombol simpan. Perintah event clik tersebut dapat diberikan melalui jendela events.

Gambar 1.4. Jendela Events pada Object Inspector

3. Form Designer
Merupakan tempat yang digunakan untuk merancang semua aplikasi program yang diambil dari komponen pallete.

Gambar 1.5. Jendela Form Designer

4. Component Pallete
Merupakan kumpulan icon yang digunakan untuk merancang suatu aplikasi pada untuk membentuk sebuah aplikasi user interface.
Dalam komponen pallete semua icon dikelompokan dalam berbagai komponen sesuai dengan fungsi dan kegunaannya.

Gambar 1.6. Jendela Komponen Pallete

No Icon Name Fungsi
1
Pointer Mengembalikan fungsi mouse ke defaultnya
2
Frame Membentuk suatu frame terhadap obyek yang ada didalamnya
3
Main menu Membuat menu Utama
4
Popup Menus
5
Label Hanya untuk menampilkan Teks
6
Edit Untuk menampilkan dan input data (1 baris)
7
Memo Sama seperti edit tetapi mempunyai kapasitas lebih besar (lebih dari 1 baris)
8
Button Digunakan untuk melakukan eksekusi terhadap suatu proses
9
Checkbox Digunakan untuk menentukan pilihan lebih dari satu
10
Radio Button Digunakan untuk menentukan pilhan, tetapi hanya satu pilhan yang bisa digunakan
11
List Box Menmpilkan pilihan dalam bentuk list
12
Combo Box Menampilkan pilihan dalam bentuk popup
13
Scroll Bar Merupakan icon yang berupa baris status
14
Group Box Digunakan untuk mengelompokan suatu icon
15
Radio Group Digunakan untuk mengelompokan pilihan

5. Code Editor
Bagian dari delphi yang digunakan untuk menuliskan kode program. Pada bagian code editor terdapat 3 bagian utama yaitu = bagian paling kiri yang berisi berupa angka menunjukan baris dan kolom. Keterangan modified menunjukan bahwa telah terjadi modifikasi terhapap baris program. Dan paling kanan menunjukan status keyboard tentang tombol insert atau over write.

Gambar 1.7 Jendela Code Editor

6. Code Explorer
Jendela yang digunakan untuk menampilkan seluruh variabel, type, dan rountine yang didefinisikan pada sebuah unit.

Gambar 1.8. Jendela Code Explorer

7. Code Diagram
Merupakan fasilitas pada delphi yang digunakan untuk mendesain sebuah diagram atas komponen – komponen yang digunakan dalam seatu rancangan aplikasi.

Gambar 1.9. Jendela Code Diagram

d. Projek Delphi
1. File Proyek
File ini disimpan dengan ber-ekstenion .dpr. File ini berisi informasi mengenai seluruh proyek program
2. File Unit
File ini merupakan kumpulan dari barisan kode program yang terdapat di jendela code editor, baik itu yang dituliskan oleh progremmer maupun oleh system. Extention file ini adalah . pas
File Unit dibagi menjadi 2
a. Bagian Interface
Barisan ini dimulai dari kata Interface (setelah nama unit), berisi seluruh deklarasi variabel, tipe data object maupun deklarasi tambahan.

b. Bagian Implementation
Dimulai dari kata kunci implementation dan diakhiri dengan kata end. Fungsi digunakan untuk menuliskan kode program sebagai bagain dari interaksi antar komponen ataupun dengan user.

3. File Form
Berisi tentang seluruh informasi yang ada kaitannya dengan form yang dibuat, meliputi tinggi, lebar, pososi form atau tentang komponen didalmnya. Penggunaan file ini tidak dianjurkan karena untu pengaturan sudah disediakan object inspector sebagai media pengaturan semua komponen.

1.5. Aplikasi Salam Kenal (LATIHAN 1)

a. Hasil Program

Gambar 1.10 Gambar Form Salam kenal

b. Desain Form

Gambar 1.20 Gambar Desain Form Salam Kenal

c. Desian Properties

Object Name Caption
Label 1 Label 1 Nama Saya
Label 2 Label 2 Alamat
Label 3 Lnama -
Label 4 Lalamat -
Button1 Bclose Close
Form 1 Form1 Salam Kenal

d. Listing program

1. Ketika form dalam keadaan aktif maka form akan menampilkan nama dan alamat pembuat program

procedureTForm1.FormCreate(Sender: TObject);
begin
nama.Caption := 'Irnawan';
alamat.Caption := 'Jalan Bina Warga';
end;

2. Untuk keluar dari program user mengklik buton close

procedureTForm1.TcloseClick(Sender: TObject);
begin
close;
end;
end.