Border

INTERAKSI MANUSIA DAN KOMPUTER
--------------------------------------------------------------------------------------------------------
Pembuatan border, menampilkan menu dengan rapi

Program Praktikum_03B;
Uses Crt, Graph;
Var GraphicsDriver, GraphicsMode : smallint;
    ErrCode, Keypress : integer;
     C : integer;
begin
 Writeln('Inisialisasi Grafik, harap tunggu ....');
 GraphicsDriver := Detect;
 InitGraph(GraphicsDriver, GraphicsMode,'');
 ErrCode := GraphResult;

         If GraphResult <> grOK then
                            begin
                            ClrScr;
                            Writeln('Terjadi error grafik : ',GraphErrorMsg(ErrCode));
                            Readln;
                            Halt(1);
                            End Else
                              Begin
                              {Pie}

                               Bar3D(297,197,853,453,10,TopOn);
                              {membuat kotak, warna merah}
                              SetColor(4);
                              Rectangle(300,240,850,450);

                              {Kotak Dalam}
                              SetColor(4); Rectangle(303,243,847,447);
                              {Kotak Menu}
                              Rectangle(303,203,847,237);
                              {Kotak di luar1}
                              SetColor(32);Rectangle(299,199,851,451);
                              {Kotak di luar2}
                              SetColor(4); Rectangle(298,198,852,452);
                              {Kotak di luar3}
                              SetColor(4); Rectangle(297,197,853,453);

                              {Bar Menu}
                              SetFillStyle(1,28);Bar(305,205,845,235);

                              {Bar abu-abu}
                              SetFillStyle(1,28);Bar(305,245,573,445);
                              SetFillStyle(1,28);Bar(577,245,845,445);
                              SetFillStyle(1,8);Bar(308,248,570,442);
                              SetFillStyle(1,8);Bar(580,248,842,442);
                              SetFillStyle(1,7);Bar(311,251,570,442);
                              SetFillStyle(1,7);Bar(583,251,842,442);

                              MoveTo(575,243);LineTo(575,447);
                               SetColor(16);
                              MoveTo(560,218); OutText('MENU');

                               SetColor(4);
                              Rectangle(300,200,850,450);
                               SetColor(16);
                               SetColor(15);
                              MoveTo(320,280); OutText('[1] Lihat Daftar Mahasiswa ');
                               SetColor(16);
                              MoveTo(320,310); OutText('[2] Lihat Daftar Dosen ');
                              MoveTo(320,340); OutText('[3] Lihat Daftar Mata Kuliah ');
                              MoveTo(320,370); OutText('[4] Lihat Jadwal Kuliah ');
                              MoveTo(600,280); OutText('[5] Edit Data Mahasiswa ');
                              MoveTo(600,310); OutText('[6] Edit Data Dosen');
                              MoveTo(600,340); OutText('[7] Edit Data Mata Kuliah ');
                              MoveTo(600,370); OutText('[8] Keluar (Esc) ');
                              Writeln('Tekan untuk keluar.');
                              Readln;

                              Writeln('Tekan untuk keluar..');
                              Readln;
                              End;
  CloseGraph;
  End.
-----------------------------------------------------------------------------------------------------------