Ir para conteúdo
Fórum Script Brasil

david.lyonnais

Membros
  • Total de itens

    257
  • Registro em

  • Última visita

Tudo que david.lyonnais postou

  1. Ve se isso ajuda ai... algoritmo "calcular" // Função : Mostrar so numeros pares // Autor :David Leite Guilherme // Data : 09/08/2010 // Seção de Declarações var num1, num2, menor, maior, contador: inteiro inicio escreva("Número 1:") leia(num1) escreva("Número 2:") leia(num2) se num1 = num2 então escreva("nenhum numero par existente entre eles") fimse se num1 > num2 então menor<-num2 maior<-num1 fimse se num1 < num2 então menor<- num1 maior<- num2 fimse menor<- menor + 1 contador<- 0 enquanto menor < maior faca se menor mod 2 = 0 então escreval(menor) contador<- contador + 1 fimse menor<- menor + 1 fimenquanto escreva("Foram encontrado ",contador," números pares!!") fimalgoritmo Esse codigo vai escrever todos os numeros pares... se for uma diferença enorme entre os numeros vai da resultado muito cheio por isso coloquei com uma quebra de linha ecoloquei uma mensgem pra informa o numero de numeros pares listado...
  2. $_SESSION['senha'] = $senha; Não é necessario fica ate melhor retirar...
  3. você não entedeu o que eu quis dizer.. Eu quis diser quando você abre essa pagina aparece oque na página?? Imprimi tudo certo , oque ta saindo de errado... ou simplismente não aparece
  4. Posta o script da pagina do formulario...
  5. o que ta saindo de errado nesse codigo? assim fica mais fácil de achar o problema
  6. Posta o script todo da class , se der... Categoria.class.php
  7. Não entendi muito bem, mais vo tentar te ajudar... você disse que tem registrado no banco de dados os horarios , dai faz um combox com esses horarios , quando alguém marca um horario , não mostra ele... Ou seja mostra os horarios disponiveis no banco de dados... Se for isso tente isso aqui Criei outro campo e nomei-o como ocupado ai so vai ter dois valore 0 para livre e 1 para ocupado... Dai faça mostra no combox todos que tiverem com o campo ocupado com o valor 0 Quando alguém marca um horario é so muda o valor pra 1 e ele não vai aparece mais no combobox espero ter ajudado.
  8. Não sei se entendi.. Mas você poderia criar uma pagina chamada carro.php ai ela recebe um valor por GET ex.:carro.php?id=(id do carro q você coloco na tabela) dai faz ele fazer um select de acordo com o id Exemplo Vamo supor que ele escreveu carro.php?id=20 // id=20 == Gol 1.0 ai vai você armazena numa variavel e faz um select mostrando todas/ou algumas informações do gol 1.0 no jeito que quiser... E organiza essas informações no site.. ai torna todas paginas de carros com um formato padrão so mudando o conteudo
  9. Lembrando, que é a primeira vez que eu faço um Diagrama mais já da pra ter uma ideia Tallvez tenha ficado bizarro o negosso mais o raciocionio é esse LOGO depois do INICIO coloque um RETANGULO e CONDIÇÃO COLOQUE um LOSANGULO DEITADO 1 questao.. INICIO | v X-> numero A->0 B->0 | v Condição --------> A=X----> imprimir(A) X > 0 SIM | | | |não | V V B = X-----> imprimir(B)----------------FIM 2 questao INICIO | v X-> Numero | v SIM Condição------------->P=X---->IMPRIMIR('P =' P ) X mod 2 = 0 | | |não | v v I=X--------------->IMPRIMIR('I =' I)----------FIM 3 questao INICIO | v N->numero | v SIM CONDIÇÂO----------IMPRIMIR(N) N>100 | | | |não | v | FIM <--------------------- Note que alguns traços pra baixo fico toscos e sem sentido mais acho que deu pra entender onde estava direcionando Fui.Espero te ajudado
  10. To começando faz 3 dias em delphi.. e fiz uma calculadora para aprendizado.. funcionando como eu queria, mas eu acho que fico muito grande o código.. Dai eu queria que vocês olhasem e podessem dizer onde posso melhorar pra evitar tantas linhas de codigo Segue o código unit principal; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) visor_txt: TEdit; sete_btn: TButton; quatro_btn: TButton; um_btn: TButton; zero_btn: TButton; oito_btn: TButton; cinco_btn: TButton; dois_btn: TButton; ponto_btn: TButton; nove_btn: TButton; seis_btn: TButton; tres_btn: TButton; igual_btn: TButton; multi_btn: TButton; sub_btn: TButton; adicao_btn: TButton; bks_btn: TButton; limpar_btn: TButton; raiz_btn: TButton; divisao_btn: TButton; Panel1: TPanel; procedure zero_btnClick(Sender: TObject); procedure um_btnClick(Sender: TObject); procedure dois_btnClick(Sender: TObject); procedure tres_btnClick(Sender: TObject); procedure quatro_btnClick(Sender: TObject); procedure cinco_btnClick(Sender: TObject); procedure seis_btnClick(Sender: TObject); procedure sete_btnClick(Sender: TObject); procedure oito_btnClick(Sender: TObject); procedure nove_btnClick(Sender: TObject); procedure ponto_btnClick(Sender: TObject); procedure adicao_btnClick(Sender: TObject); procedure sub_btnClick(Sender: TObject); procedure multi_btnClick(Sender: TObject); procedure divisao_btnClick(Sender: TObject); procedure igual_btnClick(Sender: TObject); procedure raiz_btnClick(Sender: TObject); procedure limpar_btnClick(Sender: TObject); procedure bks_btnClick(Sender: TObject); private function operacao(operacao: integer): string; function addVisor(btn: string): string; function mostraResultado(): string; public { Public declarations } end; var Form1: TForm1; num1, num2: double; num: string; op: integer; verif: boolean = false; verif2: boolean = false; (*legenda: '+' = 1 '-' = 2 '*' = 3 '/' = 4*) implementation {$R *.dfm} (*Funções*) function TForm1.operacao(operacao: integer): string; begin if verif2 = true then begin if op > 0 then begin num2:= StrToFloat(visor_txt.Text); case op of 1: num1:= num1 + num2; 2: num1:= num1 - num2; 3: num1:= num1 * num2; 4: num1:= num1 / num2; end; op := operacao; verif:= true; Result:= FloatToStr(num1); verif2:= false; exit; end else num1:= StrToFloat(visor_txt.Text); op := operacao; verif2:= false; Result:= ''; end; end; function TForm1.addVisor(btn: string): string; begin if verif = true then begin visor_txt.Text:= ''; verif:= false; end; Result:= visor_txt.Text + btn; verif2:= true; end; function TForm1.mostraResultado(): string; begin if op > 0 then begin num2:= StrToFloat(visor_txt.Text); case op of 1: Result:= FloatToStr(num1 + num2); 2: Result:= FloatToStr(num1 - num2); 3: Result:= FloatToStr(num1 * num2); 4: Result:= FloatToStr(num1 / num2); end; verif:= false; op:= 0; end; end; procedure TForm1.zero_btnClick(Sender: TObject); begin visor_txt.Text:= addVisor('0'); end; procedure TForm1.um_btnClick(Sender: TObject); begin visor_txt.Text:= addVisor('1'); end; procedure TForm1.dois_btnClick(Sender: TObject); begin visor_txt.Text:= addVisor('2'); end; procedure TForm1.tres_btnClick(Sender: TObject); begin visor_txt.Text:= addVisor('3'); end; procedure TForm1.quatro_btnClick(Sender: TObject); begin visor_txt.Text:= addVisor('4'); end; procedure TForm1.cinco_btnClick(Sender: TObject); begin visor_txt.Text:= addVisor('5'); end; procedure TForm1.seis_btnClick(Sender: TObject); begin visor_txt.Text:= addVisor('6'); end; procedure TForm1.sete_btnClick(Sender: TObject); begin visor_txt.Text:= addVisor('7'); end; procedure TForm1.oito_btnClick(Sender: TObject); begin visor_txt.Text:= addVisor('8'); end; procedure TForm1.nove_btnClick(Sender: TObject); begin visor_txt.Text:= addVisor('9'); end; procedure TForm1.ponto_btnClick(Sender: TObject); begin visor_txt.Text:= addVisor(','); end; procedure TForm1.adicao_btnClick(Sender: TObject); begin visor_txt.Text:= operacao(1); end; procedure TForm1.sub_btnClick(Sender: TObject); begin visor_txt.Text:= operacao(2); end; procedure TForm1.multi_btnClick(Sender: TObject); begin visor_txt.Text:= operacao(3); end; procedure TForm1.divisao_btnClick(Sender: TObject); begin visor_txt.Text:= operacao(4); end; procedure TForm1.igual_btnClick(Sender: TObject); begin visor_txt.Text:= mostraResultado(); end; procedure TForm1.raiz_btnClick(Sender: TObject); var raiz: double; condicao: string; begin condicao:= visor_txt.Text; if condicao <> '' then begin raiz:= StrToFloat(visor_txt.Text); raiz:= sqrt(raiz); visor_txt.Text:= FloatToStr(raiz); verif:= false; op:= 0; end; end; procedure TForm1.limpar_btnClick(Sender: TObject); begin visor_txt.Text:= ''; num1:= 0; num2:= 0; op:= 0; verif2:= false; end; procedure TForm1.bks_btnClick(Sender: TObject); var s: string; tamanho: integer; begin s:= visor_txt.Text; tamanho:= Length(s); Delete(s,tamanho,1); visor_txt.Text:= s; end; end. Talvez devesse comentar pra facilitar mais to ocupado com uma outra coisa ai não deu tempo obrigado quem pode ajudar...
  11. enves de mostra uma mensagem faça redirecionar pra página login... dai o resto do código não é executado header("Location: paginadelogin.php");
  12. david.lyonnais

    Fatal error

    Qual é o arquivo que esta a classe sql_db??? se puder coloca o script desse arquivo
  13. $_SESSION["validar"]="1" aki ta validar no primeiro arquivo if ($_SESSION["valida"] != "1"){ No segundo ta valida Certeza que é por isso
  14. david.lyonnais

    User & Admin

    Dois erros no incio da pagina , nas tag html <head> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <title> &laquo; Bate Papo World &raquo;...:::: &trade; <? echo $rm ?> &trade; ::::...</title> <link rel="stylesheet" href="style.css" type="text/css" /> <link rel="shortcut icon" href="images/favicon.ico" /> Primeiro .. Pra que serve o head antes da tag html??? Segundo você não fecha a head e já abre o body...
  15. Acho que achei o erro nessa linha if ($_SESSION[valida] != "1"){ Deveria colocar as aspas... Ficando assim if ($_SESSION["valida"] != "1"){
  16. david.lyonnais

    User & Admin

    rapaz, so pra teste redirecione a pagina pra uma pagina tipo globo.com.. e ver se redireciona.. se sim é problema na pagina q você esta usando...
  17. david.lyonnais

    User & Admin

    Segundo o que você posto la em cima CREATE TABLE `bpworld` ( `id_membre` varchar(50) NOT NULL, `login` varchar(100) NOT NULL, `pass` varchar(100) NOT NULL, `mail` varchar(200) NOT NULL, `pseudo` varchar(100) NOT NULL, `sexe` varchar(100) NOT NULL, `age` varchar(20) NOT NULL, `family` varchar(100) NOT NULL, `lieu` varchar(100) NOT NULL, `ville` text NOT NULL, `site` varchar(200) NOT NULL, `hobby` text NOT NULL, `love` text NOT NULL, `dontlove` text NOT NULL, `pics` varchar(255) NOT NULL, `profession` text NOT NULL, `language` varchar(255) NOT NULL DEFAULT 'portuguese', `ativar` set('N','S') NOT NULL `user_admin` set('0','1') NOT NULL ) TYPE=MyISAM; o campo da senha é "pass" não "senha" então troque no codigo <? session_start(); include("inc/config.php"); //--- $login = $_POST['login']; $senha = $_POST['senha']; //Consulta ao banco de dados $sql = "SELECT * FROM bpworld WHERE login='$login' AND pass='$senha' "; $res = mysql_query($sql); // Verificar se existo usuario e senha $ex = mysql_num_rows($res); if($ex == 1){ header("Location: chat.php?rm=$rm"); } $dados = mysql_fetch_array($res); if($dados['user_admin'] == 1){ $_SESSION["permissao"] = 1; $_SESSION["login"] = $login; header("Location:chat1.php?rm=$rm"); }else{ $_SESSION["permissao"] = 0; $_SESSION["login"] = $login; echo "&lt;script>document.location.href='chat.php?rm=$rm'</script>"; } ?> @edit tirar a tag
  18. david.lyonnais

    User & Admin

    geralmente da esse erro quando você especifico algum campo errado da tabela @edit ve se você coloco alguma coisa errada...
  19. david.lyonnais

    User & Admin

    você esqseu de muda o nome da tabela pro nome da sua tabelaaaa Muda essa linha: $sql = "SELECT * FROM tabela_de_usuarios WHERE login='$login' AND senha='$senha' "; Muda tabela_de_usuarios para a tabela que você ta usando e coloca os campos correspondentes.. No sue caso ficaria assim $sql = "SELECT * FROM bpworld WHERE login='$login' AND pass='$senha' ";
  20. david.lyonnais

    User & Admin

    no caso do terceiro erro troque o header() por isso : echo "<script>document.location.href='pagina.php'</script>";
  21. david.lyonnais

    User & Admin

    de onde vem essa variavel $rm???
  22. david.lyonnais

    User & Admin

    Acho que entendi como não sei como é seu codigo todo vo fazer um exemplo Primeiro a pessoa faz o login Vamos supor que tem uma pagina de acesso com dois input um com name igual a login e outro com senha VerificarAcesso.php <? //inicia sessao antes de tudo session_start(); //você faz a conexao ao banco de dados desejado <<<<AKI>>> //--- $login = $_POST['login']; $senha = $_POST['senha']; //Consulta ao banco de dados $sql = "SELECT * FROM tabela_de_usuarios WHERE login='$login' AND senha='$senha' "; $res = mysql_query($sql); // Verificar se existo usuario e senha $ex = mysql_num_rows($res); if($ex == 1){ header("Location: paginadelogin.php"); } $dados = mysql_fetch_array($res); if($dados['user_adm'] == 1){ $_SESSION["permissao"] = 1; $_SESSION["login"] = $login; header("Location: pagina.php"); }else{ $_SESSION["permissao"] = 0; $_SESSION["login"] = $login; header("Location: pagina2.php"); } ?> segurança_admin.php session_start(); if($_SESSION["permissao"] != 1){ header("Location: index.php"); } segurança_user.php session_start(); if($_SESSION["permissao"] != 0 ){ header("Location: index.php"); } você coloca um include de cada arquivo segurança em quais paginas deve ser restrita a qm Caso restrita ao admin coloca um include da pagina segurança_admin.php Caso restrita ao user coloca um include da pagina segurança_user.php
  23. david.lyonnais

    User & Admin

    você quer criar paginas restrita ao user e ao admin so que ngm pode entrar? @edit Fiz a pergunta errado.. você quer criar paginas restritas , uma para o admin e outra pro user normal?
  24. david.lyonnais

    User & Admin

    pelo que eu vi ta certo o seu codigo... @edit vi outro erro tabm $sql = "SELECT * FROM usuarios WHERE login = '$login' AND pass = '$senha'"; so que agr na especificação da tabela nesse codigo ta usuarios e a tabela se chama CREATE TABLE `bpworld` (
  25. david.lyonnais

    User & Admin

    $sql = "SELECT * FROM usuarios WHERE login = '$login' AND login = '$senha'"; você coloco dois login o certo seria assim $sql = "SELECT * FROM usuarios WHERE login = '$login' AND pass = '$senha'";
×
×
  • Criar Novo...