tubes_kelompok_41.pas

aplikasi pascal dengan file

Program Fotografi;
uses CRT;

{Prosedur di fotoschool}
procedure ftschool; forward;
procedure pendaftaran_siswa; forward;
procedure pendaftaran_pengajar; forward;
procedure biayasekolah;forward;
procedure viewdatasiswa;forward;
procedure viewdatapengajar;forward;
procedure hapusdatasiswa;forward;
procedure hapusdatapengajar;forward;

{prosedur di fotoservice}
procedure ftserv; forward;
procedure penerimaan_order;forward;
procedure rincian_biaya;forward;
procedure persetujuanorder;forward;
procedure viewdataservice;forward;
procedure hapusdataservice;forward;

{prosedur di program utama}
PROCEDURE welcome; forward;
PROCEDURE Menuowner; forward;
PROCEDURE UserSelect; forward;
PROCEDURE Menuadmin; forward;
procedure password; forward;
procedure thanks;forward;





{BLOK UTAMA}

procedure welcome;
var
i,j:integer;
tekan:string;
begin

clrscr;


		for j:=1 to 15 do
		for i:=1 to 20 do

		begin

		gotoxy(i,j);

		textcolor(red);

		;writeln('1')

		;delay(100)

		;gotoxy(80-i,16-j);

		textcolor(green);

		;writeln('2')

		;delay(100)

		end

			;for j:=1 to 5 do
			for i:=1 to 79 do

			begin

			gotoxy(i,j);

			textcolor(yellow);

			;writeln('3')

			;delay(100)

			;gotoxy(80-i,16-j);

			textcolor(3);

			;writeln('4');

			;delay(100)
			;gotoxy(71-i,23-j);
			write('');


		        end;

      gotoxy(25,7);write('    X   -   2   0   0   0   ');

      gotoxy(25,9);write('    P H O T O G R A P H Y');
      TEXTCOLOR(15+blink);
      gotoxy(20,20);writeln('press "backspace" to replay the animation');
      gotoxy(20,23);writeln('        PRESS ENTER TO CONTINUE');
      textcolor(white);

         {music}
          Sound(2000);Delay(30000);nosound;
          Sound(3000);Delay(30000);nosound;
          Sound(4000);Delay(30000);nosound;
          Sound(5000);Delay(30000);nosound;
          Sound(2000);Delay(30000);nosound;
          Sound(3000);Delay(30000);nosound;
          Sound(4000);Delay(30000);nosound;
         {__________________}



tekan:=readkey;
if tekan=#8 then begin welcome; end;
end;


Procedure Password;
var
pswt,p:string;
begin
clrscr;
writeln;
writeln;
pswt:='x-2000';
writeln(' =====================================================================');
writeln('        ##-Selamat datang di X-2000 Fotografi profesional-##  ');
writeln(' =====================================================================');
writeln;


     repeat
        write('                   Masukkan Password :  '); textcolor(0);readln(p);textcolor(white);
        writeln;
      if p<>pswt then
        begin
        clrscr;
        textcolor(red+blink);
        gotoxy(15,25);writeln('          --- Password Salah --- ');textcolor(white);
        Sound(200);Delay(20000);nosound;
        Sound(100);Delay(20000);nosound;
        Sound(50);Delay(20000);nosound;
        writeln;
        end;
     until p=pswt;
    Sound(4000);Delay(20000);nosound;
    Sound(6000);Delay(20000);nosound;
    textcolor(green+blink);
    clrscr;
    gotoxy(6,15);write('                  ***    Selamat Bekerja    ***');

    gotoxy(6,20);write('          ]]**>>    press enter to continue    <<**[[');
    writeln;
    textcolor(white);
    writeln;
    readln;
end;



PROCEDURE UserSelect;
var x,y:integer;
    tekan,pswt:string;
 Begin
 clrscr;
     GOTOXY(21,3);WRITELN('  谀哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪