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
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
|
Edit1
|
Nil1
|
-
|
Edit2
|
Nil2
|
-
|
Edit3
|
Ehtambah
|
-
|
Edit4
|
ehkali
|
-
|
Edit5
|
Ehbagi
|
-
|
Edit6
|
ehkurang
|
-
|
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 =
procedure
TForm2.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);
end;
3
Program untuk bagi
procedure
TForm2.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
procedure
TForm2.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
procedure
TForm2.bcloseClick(Sender: TObject);
begin
messageDlg('Ingin
Menutup form',mterror, [mbok],0);
close;
end;
Catatan
|
|||
Messagedlg adalah penggalan
program
menampilkan
kotak pesan.
|
yang
|
digunakan
|
untuk
|
Close digunakan
untuk menutup form.
|
|||
2.5.5.
Latihan Program Pembayaran a. Form setelah dijalankan
Contoh penggunaan pada program
Tidak ada komentar:
Posting Komentar