Pemrograman 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…

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

Langkah 1: Desain Form

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

Desain form program biodata penduduk

Langkah 2: Menulis Kode Program

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

Terahir, 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 dengna menekan tombol F9.

Program Lazarus Biodata Penduduk

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