Pemrograman

Bahasa

Framework

Peralatan

Info

Contoh program dengan variabel dan tipe data di Lazarus

– 01 September 2014

Variabel adalah sebuah simbol tempat menyimpan sesuatu (data), sedangkan tipe data adalah jenis data yang disimpan dalam variabel. Ada empat tipe data yang sering di gunakan dalam pemrograman lazarus yaitu: string, integer, real, dan boolean.

Membuat program dengan variabel

Untuk memahami variabel dan tipe data di pemrograman lazarus, mari kita membuat sebuah program sederhana. Buatlah proyek baru.

Langkah 1: Desain Form

Desain form menggunakan beberapa objek, diantaranya Label, Edit, GroupBox, dan Button. Sebagian dari obejek-objek telah diganti namanya untuk mempermudah saat pengkodean.

Langkah 2: Menulis Kode Program

Klik ganda pada objek button (tampilkan), lalu tuliskan kode berikut
procedure TForm1.Button1Click(Sender: TObject);
var
      nama: string;
      thnLahir, thnSekarang, umur: integer;
begin
      nama := EditNama.Text;
      thnLahir := StrToInt(EditTahunLahir.Text);
      thnSekarang := StrToInt(EditTahunSekarang.Text);

      umur := thnSekarang - thnLahir;

      LabelNama.Caption := nama;
      LabelUmur.Caption := IntToStr(umur);
end;

Langkah 3: Menjalankan Program

Simpan semua dengan mengelik tombol save all. Kemudian jalankan dengna menekan tombol F9.

Deklarasi variabel dapat ditulis di atas kode BEGIN dengan menggunakan kata kuci var. Deklarasi berfungsi untuk mengumumkan tipe data setiap variabel yang dibuat.
var
     nama: string;
     thnLahir, thnSekarang, umur: integer;
Mengisi variabel dengan nilai yang dimasukan oleh pengguna. Data yang dimasukan di form bertipe teks (string). Oleh karena itu, kita perlu merubahnya menjadi angka (integer) dengan fungsi StrToInt() agar dapat disimpan di variabel yang bertipe integer.
nama := EditNama.Text;
thnLahir := StrToInt(EditTahunLahir.Text);
thnSekarang := StrToInt(EditTahunSekarang.Text);
Melakukan operasi pengurangan dengan variabel untuk menghitung umur atau selisih antara tahun sekarang dan tahun lahir.
umur := thnSekarang - thnLahir;
Menampilkan hasil hitungan ke form. Agar dapat disimpan di atribut caption, data harus bertipe teks (string). Oleh karena itu, kita perlu merubahnya dengan fungsi IntToStr().
LabelNama.Caption := nama;
LabelUmur.Caption := IntToStr(umur);