Pada artikel sebelumnya, yaitu :
1. File Bertipe Pada Pemrograman Pascal
2. Menampilkan Record File Bertipe di Pemrograman Pascal
Kedua program tersebut akan digabungkan menjadi satu program dengan menambahkan menu, sehingga semua program bisa dijalankan pada satu waktu.
Untuk itu tentu saja anda harus menggunakan prosedure, sehingga memudahkan dalam menyatukan program program yang ada.
Pada prinsipnya struktur program menu pada pascal, ini bisa terlihat seperti di bawah ini :
Variabel
....
....
Procedure InputMahasiswa;
Begin
{pada bagian ini untuk menginputkan data mahasiswa}
End;
Procedure InformasiMahasiswa;
Begin
{pada bagian ini untuk menampilkan data mahasiswa}
End;
Begin
{pada bagian ini di program utama dan untuk menu}
End.
Lebih lengkapnya program menu pada Pascal, bisa dilihat dibawah ini :
uses crt ;
type
mahasiswa = record
npm : string[8] ;
nama : string[30];
end;
var
rmhs : mahasiswa ;
fmhs : file of mahasiswa ;
i : byte;
mad : char ;
pil : byte ;
Procedure informasimahasiswa;
begin
assign(fmhs,'D:mhs.dat') ;
{$I-} Reset(fmhs) ;
{$I+} if IOresult <> 0 then rewrite(fmhs) ;
clrscr ;
writeln ('Informasi Data Mahasiswa') ;
writeln ('--------------------------------');
seek(fmhs, 0) ;
i := 1 ;
while not eof(fmhs) do
begin
seek (fmhs, i-1) ;
read (fmhs, rmhs);
writeln (i:2, rmhs.npm:9,' ', rmhs.Nama) ;
inc(i) ;
end;
writeln ('--------------------------------');
readln;
end;
procedure inputmahasiswa;
begin
assign(fmhs,'D:mhs.dat') ;
{$I-} Reset(fmhs) ;
{$I+} if IOresult <> 0 then rewrite(fmhs) ;
mad :='Y' ;
while upcase(mad)='Y' do
begin
Clrscr ;
writeln ('Input Data Mahasiswa') ;
writeln ('--------------------------------');
write ('NPM : ') ; readln(rmhs.npm) ;
write ('Nama : ') ; readln(rmhs.nama) ;
writeln ('--------------------------------');
seek(fmhs, filesize(fmhs)) ;
write(fmhs, rmhs) ;
write ('Masih Input Lagi : ') ; readln(mad);
end;
end;
begin
pil := 1;
while pil<>3 do
begin
clrscr ;
writeln(' Menu Utama ');
writeln('------------------------');
writeln('[1] Input Mahasiswa');
writeln('[2] Informasi Mahasiswa');
writeln('[3] Keluar Program');
writeln('------------------------');
write ('Pilihan Anda : '); readln(pil);
case pil of
1 : inputmahasiswa ;
2 : informasimahasiswa;
end;
end;
end.
Jika Pil dipilih 1, maka akan memanggil procedure inputmahasiswa, jika 2 maka akan memanggil procedure informasimahasiswa.
Mudah mudahan artikel program menu pada Pascal , ini bermanfaat buat anda.
Sumber : Mesran.Net
