STRUKTUR CONTROL DI VISUAL BASIC
DAN
CONTOH PROGRAM SEDERHANANYA
Mengenal Struktur Kontrol
Struktur kontrol di dalam bahasa pemrograman adalah perintah dengan bentuk (struktur) tertentu yang digunakan untuk mengatur (mengontrol) jalannya program.
Visual Basic 6 mengenal dua jenis struktur kontrol, yaitu:
1. Struktur kontrol keputusan - digunakan untuk memutuskan kode program mana yang akan dikerjakan berdasarkan suatu kondisi. Sudah dibahas pada bab lalu.
2. Struktur kontrol pengulangan - digunakan untuk melakukan pengulangan kode program. Akan dibahas pada bab ini.
Ada dua bentuk struktur kontrol pengulangan (looping), yaitu:
1. Struktur FOR...NEXT.
2. Struktur DO...LOOP.
Struktur Kontrol For...Next
Bentuk penulisan (syntax) struktur For ... Next:
FOR <pencacah> = <awal> TO <akhir> [STEP <Iangkah>]
<blok kode program>
NEXT <pencacah>
<pencacah> adalah variabel (tipe: integer) yang digunakan untuk menyimpan angka pengulangan.
<awal> adalah nilai awal dari <pencacah>.
<akhir> adalah nilai akhir dari <pencacah>.
<Iangkah> adalah perubahan nilai <pencacah> setiap pengulangan. Sifatnya optional (boleh ditulis ataupun tidak). Bila tidak ditulis maka nilai <langkah> adalah 1.
Struktur Kontrol Do...Loop
Bentuk penulisan (syntax) struktur Do...Loop:
1. DO WHILE <kondisi>
<blok kode program>
LOOP
<blok kode program> akan diulang selama <kondisi> bernilai TRUE. Pengulangan berhenti bila <kondisi> sudah bernilai FALSE.
2. DO UNTIL <kondisi>
<blok kode program>
LOOP
<blok kode program> akan diulang sampai <kondisi> bernilai TRUE. Pengulangan berhenti bila <kondisi> sudah bernilai TRUE.
Bila nilai > 60 Hasil “Lulus”
Bila hasil < 60 hasil ”Tidak lulus”Script pascal
program daftar_nilai;
uses wincrt;
var
nama : string;
nilai: integer;
begin
write ('nama:'); readln (nama);
write ('nilai:'); readln (nilai);
if nilai >= 60 then
writeln ('HASIL = LULUS')
end.
else
writeln ('HASIL = TIDAK LULUS');
end
Bila nilai > 60 Hasil “Lulus”
Bila hasil < 60 hasil ”Tidak lulus”Script pascal
program daftar_nilai;
uses wincrt;
var
nama : string;
nilai: integer;
begin
write ('nama:'); readln (nama);
write ('nilai:'); readln (nilai);
if nilai >= 60 then
writeln ('HASIL = LULUS')
end.
else
writeln ('HASIL = TIDAK LULUS');
end
Laporan Pendahuluan
# Sebutkan dan Jelaskan macam struktur control di visual basic!!
0 komentar:
Posting Komentar