LABORATORIUM KOMPUTER – TEKNIK INFORMATIKA STT DHARMA ISWARA MADIUN
PRAKTIKUM PEMROGRAMAN BERORIENTASI OBJEK-1
TIPE DATA DAN VARIABEL
LAPORAN RESMI MODUL KE-
NIM
NAMA MAHASISWA
1 (SATU)
09211080
FAJAR SUMANTO
1
TTD DOSEN
TIPE DATA DAN VARIABEL 1. Variabel Variabel pada dasarnya adalah nama untuk suatu lokasi pada memori. Variabel dalamprogram digunakan untuk menyimpan suatu nilai tertentu dimana nilai tersebut dapatberubah-ubah.Setiap variabel mempunyai tipe dan hanya data yang bertipe sama dengan tipe variabel yangdapat disimpan di dalam variabel tersebut. Setiap variabel mempunyai nama dan pemisahan antar variabel dilakukan dengan memberikan tanda koma. Contoh : Var namabarang : string; harga_per_unit,totalbiaya : integer; Sebelum suatu variabel dapat digunakan, variabel harus dideklarasikan terlebih dahuludengan menyebutkan nama variabel dan tipe datanya. Variabel dideklarasikan pada bagianyang diawali dengan var seperti contoh diatas.Keyword Var digunakan di beberapa tempat di dalam kode, seperti di awal unit untukmendefinisikan variabel global maupun di awal fungsi atau prosedur untuk menentukan variabel lokal. Aturan pemberian nama variabel pada Delphi : a. Nama variabel maksimum terdiri dari 63 karakter b. Nama variabel hanya boleh mengandung huruf, angka, garis bawah (_) dan tidak boleh diawali dengan angka c. Tidak boleh menggunakan keyword milik Delphi, misal variabel dengan nama if, else, for tidak diperbolehkan. d. Variabel merupakan Simbol yang digunakan untuk mewakili suatu data. Setiap varibel yang mewakili suatu data mempunyai jenis tipe data masing-masing. Berikut Tipe data pada Delphi :
2. Tipe Data. a. Tipe Data Integer Tipe data integer digunakan untuk bilangan bulat atau bilangan yang tidak memiliki angka desimal. Tipe data integer memiliki beberapa tipe yang tergantung pada rentang nilai dan ukuran penggunaan memori.
2
b. Tipe Data Real Tipe data real digunakan untuk bilangan yang memiliki desimal. Tipe data real memiliki beberapa tipe yang tergantung pada rentang nilai dan ukuran penggunaan memori. c. Tipe Data Currency untuk bilangan menyatakan uang. Keuntungan dari penggunaan tipe data Currency adalah: 9 Tipe data Currency mempunyai ketelitian yang lebih tinggi dalam menangani bilangan yang cukup besar. 9 Tipe data Currency dipakai dalam Currency Field dan Komponen lain dan kompatibel dengan tipe database yang menyatakan uang. d. Tipe Data Boolean Tipe data boolean digunakan untuk data logika yang hanya berisi True (Benar) dan False (Salah). e. Tipe Data Caracter Tipe data character digunakan untuk menyatakan karakter satu huruf dalam bentuk tiga tipe, yaitu:
f. Tipe Data String Tipe data string digunakan untuk menyatakan sederetan karakter, misalnya nama, alamat, kota dan lain-lain. Adapun tipe-tipe dari data string, yaitu:
g. Tipe Data Array Array adalah suatu variabel tunggal yang digunakan untuk menyimpan sekumpulan data yang sejenis. Anda dapat memanipulasi, menyalin array hanya dengan sebuah nama. Dalam tipe data array menggunakan nomor elemen dikanan nama array. Contoh: Var Hari : array [1..7] of String; Mi05_01:array[1..30]0f string; Begin Hari [1] : = ‘Senin’; …………… …………… Hari [7] : = ‘Minggu’; End
3
h. Tipe Data Record Tipe data record digunakan untuk menyimpan sekumpulan data yang mungkin mempunyai tipe yang berbeda tetapi saling berhubungan. Elemen-elemen dalam array mempunyai tipe yang sama, tetapi elemenelemen record dapat mempunyai tipe yang berbeda. Misalnya tipe data record yang digunakan untuk menampung data barang yang berisi kode, nama, dan harga barang. MENGUBAH TIPE DATA 1. Fungsi Strtoint Digunakan untuk mengubah String yang mempresentasikan data bertipe integer menjadi sebuah angka bertipe integer. Sintaks : Function Strtoint (const S : String) : Integer; Contoh : Nilai integer := Strtoint (edit1.text) ; Artinya mengubah data yang bertipe String di komponen edit1 menjadi data yang bertipe integer yang disimpan di variable nilai integer. 2. Fungsi Str tofloat Digunakan untuk mengubah String yang mempresentasikan data bertipe integer menjadi sebuah nilai floatingpoint (bilangan real). Sintaks : Function Strtofloat (const S : String) : Extended ; overload ; Function Strtofloat (const S : String ; Const format settings : tformat settings) : Extended ; overload ; Contoh : Bilangan real:= strtofloat (edit1.text) ; Artinya mengubah data yang bertipe String di dalam komponen edit1 menjadi data yang bertipe Extended (real) yang disimpan di variable bilangan real 3. Fungsi Inttostr Digunakan untuk mengubah data bertipe integer menjadi sebuah string Sintaks : Function inttostr (value : integer) : String ; overload ; Contoh : Mystring := Inttostr (5*6) Artinya data bertipe integer (yaitu 30, yang merupakan hasil perhitungan 5*6) dirubah menjadi data bertipe string yang disimpan di variable mystring 4. Fungsi Inttostr Digunakan untuk mengubah nilai floating-point menjadi sebuah string Sintaks : Function floattostr (value : Extended) : String ; overload ; Contoh : Mystring := FloatToStr (3,14*4) Artinya data bertipe real (yaitu 12,56, yang merupakan hasil perhitungan 3,14*4) dirubah menjadi data bertipe string yang disimpan di variable mystring
4
DESAIN FORM
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Label1: TLabel; Label2: TLabel; Edit1: TEdit; Label3: TLabel; Edit2: TEdit;
5
Label4: TLabel; Edit3: TEdit; Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; Button5: TButton; Label5: TLabel; Label6: TLabel; Edit4: TEdit; Label7: TLabel; Edit5: TEdit; Label8: TLabel; Edit6: TEdit; Button7: TButton; Button8: TButton; Button9: TButton; Button6: TButton; Label9: TLabel; Label10: TLabel; Edit7: TEdit; Label11: TLabel; Edit8: TEdit; Label12: TLabel; Edit9: TEdit; Button10: TButton; Button11: TButton; Button12: TButton; procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button4Click(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button11Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure Button10Click(Sender: TObject); procedure Button12Click(Sender: TObject); procedure Button7Click(Sender: TObject); procedure Button9Click(Sender: TObject); procedure Button8Click(Sender: TObject); procedure Button6Click(Sender: TObject); procedure Button5Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var
6
Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button2Click(Sender: TObject); var satu, dua : integer; begin satu:= strtoint(edit1.Text); dua:=strtoint(edit2.Text); edit3.Text:=inttostr(satu+dua); end; procedure TForm1.Button3Click(Sender: TObject); var satu, dua : integer; begin satu:= strtoint(edit1.Text); dua:=strtoint(edit2.Text); edit3.Text:=inttostr(satu-dua); end; procedure TForm1.Button4Click(Sender: TObject); var satu, dua : integer; begin satu:= strtoint(edit1.Text); dua:=strtoint(edit2.Text); edit3.Text:=inttostr(satu*dua); end; procedure TForm1.Button1Click(Sender: TObject); var satu, dua : real; begin satu:= strtoint(edit1.Text); dua:=strtoint(edit2.Text); edit3.Text:=floattostr(satu / dua); end; procedure TForm1.Button11Click(Sender: TObject); begin
7
edit1.Text:=''; edit2.Text:=''; edit3.Text:=''; edit4.Text:=''; edit5.Text:=''; edit6.Text:=''; edit7.Text:=''; edit8.Text:=''; edit9.Text:=''; edit1.SetFocus; end; procedure TForm1.FormCreate(Sender: TObject); begin edit1.Text:='0'; edit2.Text:='0'; edit3.Text:='0'; edit4.Text:='0'; edit5.Text:='0'; edit6.Text:='0'; edit7.Text:='0'; edit8.Text:='0'; edit9.Text:='0'; end; procedure TForm1.Button10Click(Sender: TObject); var satu, dua : string; begin satu:= (edit7.Text); dua:= (edit8.Text); edit9.Text:=satu +' '+dua; end; procedure TForm1.Button12Click(Sender: TObject); begin close(); end; procedure TForm1.Button7Click(Sender: TObject); var satu, dua : real; begin satu:= strtofloat(edit4.Text); dua:=strtofloat(edit5.Text); edit6.Text:=floattostr(satu+dua);
8
end; procedure TForm1.Button9Click(Sender: TObject); var satu, dua : real; begin satu:= strtofloat(edit4.Text); dua:=strtofloat(edit5.Text); edit6.Text:=floattostr(satu * dua); end; procedure TForm1.Button8Click(Sender: TObject); var satu, dua : real; begin satu:= strtofloat(edit4.Text); dua:=strtofloat(edit5.Text); edit6.Text:=floattostr(satu - dua); end; procedure TForm1.Button6Click(Sender: TObject); var satu, dua : real; begin satu:= strtofloat(edit4.Text); dua:=strtofloat(edit5.Text); edit6.Text:=floattostr(satu / dua); end; procedure TForm1.Button5Click(Sender: TObject); var satu, dua : integer; begin satu:= strtoint(edit1.Text); dua:=strtoint(edit2.Text); edit3.Text:=inttostr(satu mod dua); end; end.
9
DAFTAR PUSTAKA Arifin, Firman. 2011. Variabel & Tipe Data Delphi. http://cyberprotol.blogspot. com/2011/05/variabel-tipe-data-delphi.html# axzz1PIy0AtCz
10
