VARIABEL GLOBAL & LOKAL

hay teman-teman udahlama tak jumpa kali ini kita akan membahas tentang Variabel-Variabel dalam logika algoritma, Sesuai dengan Materi yag di berikan oleh dosen pembimbing kami "HERY SUROYO, S.Si" pada matakulia PEMROGRAMAN VISUAL II di Smester IV, O ya saya lupa saya sekarang kuliah di AMIK BINA SRIWIJAYA .


sekarang kita akan membahas  VARIABEL GLOBAL & LOKAL

1. VARIABEL GLOBAL : Variabel ini dapatdigunakan lebih dari satu procudure, variabel ini dapat di gunakan jika terdapat beberapa procudure hal ini sangat bermanfaat karena kita tidak perlu menulis berkali-kali dalam beberapa prosudur, Untuk mendeklarasikan variabel global cukup dengan menuliskan variabel dan tipe data di bawah bagian var sebuah program.
2.  VARIABEL LOCAL : variabel ini merupakan variabel tunggal yang memiliki satu procudure

CONTOH SINTAKNYA

var
harga  : integer;

4. Double klik cmbJenis, isikan listing sebagai berikut:

procedure TfrmBuah.cmbJenisChange(Sender: TObject);
Var
jenis : Integer;
begin
jenis := cmbJenis.ItemIndex;
case jenis of
0 : harga := 5000;
1 : harga := 15000;
2 : harga := 20000;
3 : harga := 3000;
4 : harga := 25000;
5 : harga := 15000;
end;
edHarga.Text := IntToStr(Harga);
end;

5. Double klik button Hitung, isikan listing sebagai berikut:

procedure TfrmBuah.btHitungClick(Sender: TObject);
Var
berat, bayar : Integer;
begin
berat := StrtoInt(edBerat.Text);
bayar := berat * harga;
edBayar.Text := IntToStr(Bayar);
end;

6. Double klik button Keluar, isikan listing sebagai berikut:

procedure TfrmBuah.btKeluarClick(Sender: TObject);
begin
Application.Terminate;
end; end.