SCF - Official Edition PASCAL MOD!

Esse código esta compilado para Dev-Pascal, se usar Pascalzim dai tem q mudar algumas coisas...

CORRIGIDO O BUG DAS NOTAS QUE PODIA DAR NOTA NEGATIVA AO FILME E TAMBÉM MAIOR DO QUE 10.

VERSÃO BETA 3 AGORA ....

Quem estiver testando e achar algum BUG acesse a página de Bugs e me avise.

23/03/2011 - Implementado "loader" para algumas funçoẽs...



Download Here
-------------------

///Código Criado Por B03iR4 
//boeira.exe@live.com
//geekDevTeam.blogspot.com
//--------------------------------------

program cadastro_com_texto;
uses crt;
type
     cadastro = record
         nome_orig, nome_br, genero:string[200];
         nota:integer;
         preco:real;
end;
arquivo_texto = file of cadastro;
var dados_filme : cadastro;
    opcao: char;
    banco_dados: arquivo_texto;
    user, pass, certeza:String[200];
    i:integer;
    loader: string[200];
    contador :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
                         loader := '||||||||||||||||||||||||||||||||||||';
                         write('Gerando : ');
                         for contador := 1 to length(loader) do
                              begin
                                 write(loader[contador]);
                                 delay(100);
            
             end;
            end;
       delay(3000);
     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;


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
        loader := '|||||||||||||||||||||||||||||||||||';
         write('Conferindo : ');
       for contador := 1 to length(loader) do
           begin
             write(loader[contador]);
             delay(250);
           end;
      
      
        writeln('Senha e/ou Login Incorreto(s) | Tente Denovo...') ;

        delay(2000);

       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.

SCF - Bugs Oficiais v1.3Beta2

----------------------------------------------------------------------------------
BUGS DECLARADOS DA VERSÃO 1.3 BETA 2

1) NÃO GRAVA MAIS DE 1 FILME (EM ANDAMENTO)
2) NÃO LÊ MAIS DE 1 FILME          (EM ANDAMENTO)

3) NÃO EXISTE POSSIBILIDADE DE CRIAR OUTROS USUÁRIOS PELO PROGRAMA ( SÓ PELA SOURCE ) - Práticamente Impossível em PASCAL(acho eu)

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

--------------------------------
BUGS CORRIGIDOS DA VERSÃO BETA 1

1) NOTAS DO FILME PODIAM SER NEGATIVAS E/OU MAIORES QUE 10


Eu achei esses...
bom se vocês acharem mais, por favor procurem, testem tudo que der imaginem...
depois me avisem pelos comentários ou por e-mail... boeira.exe@live.com

SCF - Sistema de Cadastro De Filmes v1.3Beta2

Programinha Bem Simples que estou criando.. Ainda em Versão Beta 3  ...
posteriormente colocarei o source dele ai pra galera que gosta...


Basicamente ele tem 4 Opções no Menu;

1 - Gerar Banco de Dados
2 - Criar Cadastro de Filme
3 - Ler Cadastro de Filme
4 - Sair

 e antes ainda tela de login.

 User:admin
Senha:123


Obs : Se user Win7 ou Vista tem q executar como admin para criar banco de dados!

2.2) Resolvendo alguns Exercícios Parte1

Vamos resolver aguns exercício achados na internet, para aprender melhor, na prática mesmoO...


1. Faça um algorítimo que imprima na tela a soma de números inteiros 35 e 47:

algoritimo "Problema_Exemplo"

var 

n1,n2:inteiro

inicio 

n1 := 35

n2 := 47  //atribuindo os valores para as variáveis  

 escreva(n1,n2) /mandando escrever as variáveis

fimalgoritimo 

Análise:

Usou-se ":="  lido Recebe, por exemplo n1:=35 fica N1 recebe 35, é atribuido um valor a variavel inteira N1.

Depois de atribuidos os valores são mostrados na tela como o pedido.

O Mesmo Poderia ter sido feito sem variaveis mas como queria deixar essa parte mais clara logo ja coloquei assim, poderia ser assim também.

algoritimo "Problema_Exemplo"

var 

inicio 

 escreva("35 e 47") /mandando escrever as variáveis

fimalgoritimo 

E se esse mesmo algorítimo pedisse para que você escrevesse um valor e depois ele fosse mostrado? Aí sim era de uso obrigatório variaveis:

algoritimo "Problema_Exemplo"

var 

n1,n2:inteiro

inicio 

leia(n1,n2) //lendo as variaveis em vez de definir você mesmo.                                 

escreva(n1,n2) /mandando escrever as variáveis

fimalgoritimo 

________________________________________________________

________________________________________________________

2. Faça um Algoritimo que execute e imprima a soma de 2 números:

Obs: Vamos usar como base o exercício anterior para ler as variaveis n1 e n2.

algoritimo "Problema_Exemplo"

var 

n1,n2,soma:inteiro

inicio 

leia(n1,n2) //                                                                                                                  

soma := n1+n2   //cálculo da soma de 2 variaveis digitadas.                                                                                  

escreva("A Soma é: ",soma)

fimalgoritimo 

Agora faça soma,multiplicação,divisão, e subtração de 2 números quaisquer digitados pelo usuário:

algoritimo "Problema_Exemplo"

var 

n1,n2,soma,subtracao,multiplicacao:inteiro

divisao : real
inicio 

leia(n1,n2)                                                                                                         
soma := n1+n2   //cálculo da soma de 2 variaveis digitadas.                                 

subtracao := n1-n2   //cálculo da subtração de 2 variaveis digitadas.   

multiplicacao := n1*n2   //cálculo da multiplicação de 2 variaveis digitadas.  

divisao := n1/n2   //cálculo da divisão de 2 variaveis digitadas.                                                                                                                                                                                                                                                                

escreval("A Soma é: ",soma)

escreval("A Subtração é: ",subtracao)

escreval("A Multiplicação é: ",multiplicacao)

escreval("A Divisão é: ",divisao)  

fimalgoritimo 

 Análise: Ao final desse código repare na parte de declaração de variáveis, destaquei que divisão está como REAL, por quê?


Resposta simples e matemática: Qualquer número dividido por qualquer número pode e geralmente alertórios gerarão um número decimal, ou seja REAL.

Se você digitasse 4 / 2 iria dar 2 , mas e se fosse 6 / 4 ?  o Número seria 1,5 que é Real, teste colocar divisao como inteiro e o programa VisuALG ja vai te dar um erro, depois tente colocar algum número decimal, vai trancar e sair do programa, pois ainda não está 1/1000 de ser um programa completo e sim apenas um protótipo para desenvolvimento de raciocício lógico de programação.

1.6) Operadores Matemáticos para Programação

Exemplos:

x := 7
y := 5
x Recebe 7
y Recebe 5

Comparações:

X=7         Sim
X>7         Não
X>=7      Sim (ele cabe dentro do = e não do maior mas como é >=)
X<>5      Sim
X<>Y      Sim
X<Y         Não
X>Y         Sim

 Considere a=3, b=7, total=200.0, média=8.1 e ano=2000

• a > b -- resultado falso
• total = 100.0 -- resultado falso
• média >= 7.0 -- resultado verdadeiro
• ano <> 2001 -- resultado verdadeiro

Exemplos:

Para as Contas Matemáticas :

As Contas devem ser passadas para uma forma compreensível para o processador, uma forma mais linear...