PASCAL

[B03iR4]

BUGS QUE PRECISO CORRIGIR::

-------------------------------------------------------------------

1) NÃO GRAVA MAIS DE 1 FILME

2) NÃO LÊ MAIS DE 1 FILME

3) NÃO EXISTE POSSIBILIDADE DE CRIAR OUTROS USUÁRIOS PELO PROGRAMA ( SÓ PELA SOURCE ) - Eu acho Pŕaticamente Impossível em PASCAL mas tem gente que diz q dá então...

4) DA ERRO E SAI DO PROGRAMA SE você DIGITA ALGO ERRADO NA HORA DE PREENCHER AS CARACTERÍSTICAS DE FILMES...

Ficarei muito Grato se pelo menos 1 desses Bugs( o de REGISTRAR E LER ) fosse resolvido, estou pensando bastante...

só me deem uma LUZ não precisa escrever o código...

pensei em matrizes pra criar mais de um filme...mas não saiu nada certoo isso foi o melhorzinho até agora...

(tem umas avacalhações com delay() ai da pra tirar ....)

USUÁRIO admin

SENHA 123

----------------------------------

program cadastro_com_texto;
uses crt;
type
     cadastro = record
         nome_orig, nome_br, genero:string[200];
         nota:integer;
         preço:real;
end;
arquivo_texto = file of cadastro;
var dados_filme : cadastro;
    opcao: char;
    banco_dados: arquivo_texto;
    user, pass, certeza:String[200];
    i:integer;






procedure gera_arquivo_banco;
begin

 textbackground(white);
        textcolor(black);
     clrscr;
     writeln('-----------------------------------------------------------------------------');
       writeln(' B 0 3 i R 4  -  S o f t w a r e s | Sistema de Cadastro de Filmes v1.2 BETA');
       writeln('-----------------------------------------------------------------------------');
     writeln('-----------------------------------------------');
     writeln('                  ATENCAO!!!');
     writeln('-----------------------------------------------');
     writeln;
     writeln('Criando um Novo Banco de Dados Voce Exclui o atual.');
     writeln;
     writeln('-----------------------------------------------');
     writeln('Voce esta certo disso? [S/N]  ');
     read(certeza);
     if (certeza = 'sim') or (certeza = 'Sim') or (certeza = 'S') or (certeza = 's') or (certeza = 'SIM')then
     begin
     readln;
     writeln;
     assign(banco_dados, 'C:\dados_filme.txt');
     rewrite(banco_dados);
     delay (3000);
     writeln('Novo Banco de Dados Gerado com Sucesso!');
     writeln;
     writeln('Pressione uma tecla para voltar ao Menu principal!');
     readln;
     close(banco_dados);
      end;


end;

procedure novo_filme;
begin
 textbackground(white);
        textcolor(black);
        clrscr;
             writeln('-----------------------------------------------------------------------------');
       writeln(' B 0 3 i R 4  -  S o f t w a r e s | Sistema de Cadastro de Filmes v1.3 BETA');
       writeln('-----------------------------------------------------------------------------');
        write('Digite o Nome do Filme Original.: ');
        readln(dados_filme.nome_orig);
        write('Digite o Nome do Filme No Brasil.: ');
        readln(dados_filme.nome_br);
        write('Digite o Genero do Filme.: ');
        readln(dados_filme.genero);
        write('Digite a nota do Filme (1 a 10).: ');
        readln(dados_filme.nota);
        while ((dados_filme.nota < 1) or (dados_filme.nota > 10)) do
              begin
                    writeln('- Nota Inválida -');
 write(' Escreva Uma Nota Válida (1 a 10) .: ');
 readln(dados_filme.nota);
   end;

        writeln('------------------------------------------------------------------------');
        //gravando os dados no arquivo
        assign(banco_dados, 'C:\dados_filme.txt');
        reset(banco_dados);
        write(banco_dados,dados_filme);
        writeln('Dados Gravados no Banco de Dados com Sucesso!');
        writeln('Pressione qualquer Tecla para Voltar ao Menu Principal');
        readln;
        close(banco_dados);
end;

procedure mostrar_dados;
begin 
        textbackground(white);
        textcolor(black);                                 clrscr;
      assign(banco_dados, 'C:\dados_filme.txt');
      reset(banco_dados);
      read(banco_dados, dados_filme);
             writeln('-----------------------------------------------------------------------------');
       writeln(' B 0 3 i R 4  -  S o f t w a r e s | Sistema de Cadastro de Filmes v1.3 BETA');
       writeln('-----------------------------------------------------------------------------');
      writeln('Bando de Dados informa que: ');
      writeln('Nome do Filme   .: ..... ',dados_filme.nome_orig);
      writeln('Nome no Brasil  .: ..... ',dados_filme.nome_br);
      writeln('Genero do Filme .: ..... ',dados_filme.genero);
      writeln('Nota do Usuario .: ..... ',dados_filme.nota);
      writeln('Pressione qualquer Tecla para Voltar ao Menu Principal');
      readln;
      close(banco_dados);
end;
 procedure menu;
begin
 textbackground(white);
        textcolor(black);
    repeat
    begin
      clrscr;
        writeln('-----------------------------------------------------------------------------');
        writeln(' B 0 3 i R 4  -  S o f t w a r e s | Sistema de Cadastro de Filmes v1.3 BETA');
        writeln('-----------------------------------------------------------------------------');
        gotoxy(10,03);writeln('Seja Bem Vindo ',user,' :');
        writeln;
        gotoxy(10,05);delay (100);writeln('1 - Gerar Novo Banco de Dados(Apagar)');
        gotoxy(10,06);delay (100);writeln('2 - Cadastrar um novo Filme');
        gotoxy(10,07);delay (100);writeln('3 - Mostrar Filme Cadastrado');
        gotoxy(10,08);delay (100);writeln('4 - Sair');
        gotoxy(10,08);delay (100);writeln('4 - Sair');
  gotoxy(10,11);            write('Escolha uma Opcao.: ');
        readln(opcao);
           if opcao = '1' then   gera_arquivo_banco
           else if opcao = '2' then  novo_filme
           else if opcao = '3' then  mostrar_dados

    end;
    until opcao = '4';
       end;
           procedure login_menu;
           begin
           textbackground(white);
           textcolor(black);
       clrscr;
       writeln('-----------------------------------------------------------------------------');
       writeln(' B 0 3 i R 4  -  S o f t w a r e s | Sistema de Cadastro de Filmes v1.3 BETA');
       writeln('-----------------------------------------------------------------------------');

       writeln('O Sistema esta sendo Inicializado Aguarde...');
        writeln('------------------------------------------');
        delay (2800);writeln(' - Conectando ao Banco de Dados;');
        delay (900);writeln(' - Conferindo Credenciais;');
        delay (1300);writeln(' - Ligando Sistemas de Inicializacao;');
        delay (4000);writeln(' - Inicializando HD;');
        delay (3000);writeln(' - Abrindo Menu de Selecao...');
        writeln('------------------------------------------');
        writeln('Sistema Carregado Com Sucesso!');
        delay(2000);
        menu;

           end;





BEGIN
       repeat
       clrscr;
        textbackground(white);
        textcolor(black);
       writeln('-----------------------------------------------------------------------------');
       writeln(' B 0 3 i R 4  -  S o f t w a r e s | Sistema de Cadastro de Filmes v1.3 BETA');
       writeln('-----------------------------------------------------------------------------');
       writeln(' Para Cadastrar Mais usuarios Contate o Desenvolvedor - boeira.exe@live.com');
       writeln('-----------------------------------------------------------------------------');
       writeln;
       WRITELN;
       WRITELN;
       gotoxy(10,06);write('_____________________');
       gotoxy(10,09);write('---------------------');
       gotoxy(10,19);write('---------------------------------------------------------');
       gotoxy(10,20);write('  BOEIRA-SOFT CORP® - All Rights Reserved | Prouct Free');
       gotoxy(10,21);write('---------------------------------------------------------');
       gotoxy(10,07);write('|Login:');
       gotoxy(10,08);write('|Senha: ');
       GOTOXY(18,07);readln(user);
       GOTOXY(18,08);readln(pass);


       writeln;
       if (user ='admin')     and(pass ='123')
       or (user ='Marcelo')   and(pass ='boeira2k10')
       or (user ='localhost') and(pass ='123')
       or (user ='usuario')    and(pass ='senhadousuario')
       or (user ='666TheNumberofTheBeast') and (pass ='666thenumberofthebeast')
       then

       login_menu

        else
        writeln('Senha e/ou Login Incorreto(s) | Tente Denovo...');

        delay(2500);

       until opcao = '4';

   clrscr;
   writeln('-----------------------------------------------------------------------------');
       writeln(' B 0 3 i R 4  -  S o f t w a r e s | Sistema de Cadastro de Filmes v1.3 BETA');
       writeln('-----------------------------------------------------------------------------');
       writeln('O Sistema esta sendo Finalizado Aguarde...');
    writeln('------------------------------------------');
    delay (1700);writeln(' - Gravando Mudancas;');
    delay (1200);writeln(' - Desconectando do Servidor;');
    delay (800);writeln(' - Desfazendo Alteracoes de Hardware;');
    delay (1400);writeln(' - Reinicializando HDs;');
    delay (3000);writeln(' - Desempregando Programadores...');
    writeln('------------------------------------------');

    delay (1800);Writeln('Sistema Finalizado com Sucesso!');
    readln();



end.

[*FIT*]

Movendo para Outras linguagens de programação!