Ahmad Muhardian · 07 Sep 2015

Belajar Lazarus: Menggunakan Variabel dan Tipe Data pada Lazarus

Hallo! kali ini kita akan coba membuat sebuah program sederhana di lazarus yang menerapkan variabel dan tipe data.

Variabel merupakan sebuah nama atau simbol tempat kita menyimpan data. Variabel ini tersimpan dalam memori memori. Sedangkan tipe data adalah jenis data yang akan kita simpan.

Ok, mari kita coba…

Silakan buat dulu proyek baru di Lazarus, kemudian ikuti langkah-langkah berikut.

Langkah 1: Desain Form

Kita akan menggunakan beberapa objek, di antaranya Label, Edit, GroupBox, dan Button. Sebagian dari objek-objek telah diganti namanya untuk mempermudah saat pengkodean.

Langkah 2: Menulis Kode Program

Kode program akan kita tulis pada event tombol Tampilkan diklik. Silakan klik dua kali pada tombol 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;

Penjelasan:

Pertama kita mendeklarasikan empat variabel dengan kata kunci var. Empat variabel itu adalah nama, thnLahir,thnSekarang, dan umur.

var
    nama: string;
    thnLahir, thnSekarang, umur: integer;

Setelah itu, kita isi semua variabel ini dengan teks yang diinputkan:

nama := EditNama.Text;
thnLahir := StrToInt(EditTahunLahir.Text);
thnSekarang := StrToInt(EditTahunSekarang.Text);

Sekarang semua variabel sudah terisi dan tersimpan dalam memori. Selanjutnya kita bisa melakukan operasi pengurangan.

umur := thnSekarang - thnLahir;

Terakhir, kita tampilkan hasil operasi ke Label.

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

Langkah 3: Menjalankan Program

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

Nah, itulah contoh program sederhana penggunaan variabel di Lazarus. Gampang ‘kan?