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.