Jump to content
Fórum Script Brasil

traira007

Membros
  • Posts

    154
  • Joined

  • Last visited

Everything posted by traira007

  1. Fla galera, então to criando um formulário aqui de cadastro de currículo,porem.. Nome da Escola:<input type="text" name="nom_esco" title="NOME DA ESCOLA "> <br> Data De Início:<input type="text" name="data_ini_esco" title="DATA DE INÍCIO "> <br> Data De Término:<input type="text" name="data_fin_esco" title="DATA DE TÉRMINO "> <br> Nível Escolar:<select name="nivel_escolar" title="NÍVEL ESCOLAR"> <option>Ensino Médio <option>Ensino Técnico <option>Graduação <option>Pós Graduação <option>Mestrado </select><br><br> <b>+ ESCOLARIDADE<input type="checkbox" name="add_esco"> <br> </b> ao usuario clicar em +escolaridade, quero q ele adicione mais 2 formularios de escolaridade igual ao de cima,como posso fazer isso? obrigadooo
  2. traira007

    erro no formulario

    Parse error: parse error in C:\xampp\htdocs\enviar.php on line 43
  3. traira007

    erro no formulario

    <?php $radio1 =$_POST[radio1]; //recebe o valor do radio1 $radio2 =$_POST[radio2]; //recebe o valor do radio2 $radio3 =$_POST[radio3]; //recebe o valor do radio3 $radio4 =$_POST[radio4]; //recebe o valor do radio4 //valor do select for ($i = 0; $i < count($_POST['assunto']); $i++) { echo $_POST['assunto'][$i]; } $outro =$_POST[outro]; $comentarios =$_POST[comentarios]; $nome =$_POST[nome]; $email =$_POST[email]; $tel =$_POST[tel]; $fax =$_POST[fax]; //montadoo texto $conteudo=" Radio1: $radio1 <br> Radio2: $radio2 <br> Radio3: $radio3 <br> Radio4: $radio4 <br> Assunto: $assunto <br> Outro: $outro <br> Comentarios: $comentarios<comentarios> Nome: $nome <br> Email: $email <br> Tel: $tel <br> Fax: $fax <br> "; //Enviar os dados para o e-mail $enviar = mail("[email protected]", $conteudo); //Verifica se o e-mail foi entregue com sucesso if($enviar) { echo "E-mail enviado com sucesso!"; }else{ echo "Não foi possível enviar."; } ?> fica falando que ta danu erro na linha 43 o que esta errado nesse codigo vlw galera
  4. traira007

    Macro ajuda!

    Galera to querenu fazer uma macro que tenhas essas seguintes caracteristicas: -Mapear uma impressora na rede. -Mapear uma unidade de rede e copiar ela para area de trabalho -Copiar um arquivo na rede e joga-lo na area de trabalho como atalho -E por fim.Instalar um programa da rede(mysql) e configurar seus dados no odbc(MySQL ODBC 3.51). Os dados seriam:IP,NOME DO BANCO DE DADOS,USUARIO. Teria como realizar uma macro desse tipo? desde já agradeço.
  5. Estou usando o mysq l 4. Mais quando vou executar um sistema envolvido com o mysql.. as vez da max users conectados.. como posso fazer para aumenter o numero de usuarios.. porem o estranho tenho umas 50 pessoas usando o sitemas e o limite de usuarios esta a 100 oque pode esta acontecendoo obrigado
  6. Uso o windows server 2003..tenho em media 50 usuarios que acessam meus arquivos do server bom o problema foi que um unico usuario esta sendo bloqueado pelo server fala que a rede não esta acessivel.. tem como eu mecher na maquina dele e voltar aquela tela de fazer logon para a rede.. pois ta entranu direto.. por isso acho que ta travando obrigado
  7. traira007

    Relatorio

    Fala galera.. boa noite primeiramente fiz um relatório no rave.. so que na hora de visualizar ele so mostra um registro.. sendo que no banco de dados tem mais registros.. q pode ta acontecendo? uhausa acho expliquei erradooo na tabela temm NOME,IDADE,TELEFONE,SEXO SENDO QUE já CADASTREI UMAS 50 PESSOAS.. AI SO MOSTRA UM REGISTROO
  8. como posso fazer relatórios usando o delphi 2006? quem puder ajudar vlww
  9. cara deu certin mais tipo.. quando eu mando calcular a soma e a divisao por exemplo.. e quero agora so multiplicao,quando eu dismarco a opcao da soma..o botao desabilito.. como posso fazer que precise so de um checkbox clicado pra habilitar o botao?
  10. alguém poderia me ajudar nesse codigo, tenho 4 checkboxs... Ai teria alguma funcao que verificaria se nenhum deles foi marcado? e exiba uma menssagem,para que pelo menos um campo seja marcado? grato
  11. begin if check_somar.checked then begin btn_calcular.Enabled; end ; Quando eu selecionar o checkbox, o botao que esta disable muda para enable.. como fazer isso?
  12. Fala galera to crianu uma calculadora básica Ela funciona assim: O usuario escolhe no checkbox que opcao vai ser: SOMAR/SUBTRAIR/DIVIDIR/MULTIPLICAR ou todos eles de uma vez ai eu criei um messagebox para enviar todos os resultados.. Mais como que eu posso fazer um message box que so imprima so o resultado da opcao que eu escolhi no checkbox.. o codigo ate agora está aqui.. so que está danu erro no if sse alguém puder da uma olhada grato unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) btn_calcular: TButton; btn_limpar: TButton; edt_num1: TEdit; edt_num2: TEdit; check_somar: TCheckBox; check_subtrair: TCheckBox; check_dividir: TCheckBox; check_multiplicar: TCheckBox; Label1: TLabel; Label2: TLabel; procedure btn_limparClick(Sender: TObject); procedure btn_calcularClick(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.btn_calcularClick(Sender: TObject); var result , num1,num2,soma,sub,divi,mult:integer; begin if edt_num1.text='' then ShowMessage('Digite um valor para o 1º número') else if edt_num2.text='' then ShowMessage('Digite um valor para o 2º número'); if check_somar.Checked then num1:=StrToInt(edt_num1.text) ; num2:=StrToInt(edt_num2.text) ; soma:=num1 + num2; ShowMessage('O resultado da soma é'+IntToStr(soma)) else if check_subtrair.Checked then num1:=StrToInt(edt_num1.text) ; num2:=StrToInt(edt_num2.text) ; sub:=num1 - num2; ShowMessage('O resultado da subtracao é'+IntToStr(sub)); if check_dividir.Checked then num1:=StrToInt(edt_num1.text) ; num2:=StrToInt(edt_num2.text) ; divi:=(num1 / num2); result:=divi; if check_subtrair.Checked then num1:=StrToInt(edt_num1.text) ; num2:=StrToInt(edt_num2.text) ; mult:=num1 * num2; result:=mult; end; procedure TForm1.btn_limparClick(Sender: TObject); begin edt_num1.text:=''; edt_num2.text:=''; check_somar.Checked:=False; check_subtrair.Checked:=False; check_dividir.Checked:=False; check_multiplicar.Checked:=False; end; end.
  13. To com um jogo de perguntas e respostas..t na hora dos resultados quero que um campo receba o nº de perguntas erradas e outra para o numero de perguntas certas.. Outro campo para calcular a % porcentagem de acertos e erros.. ce puder me ajudar.. é pra amanha esse jogo
  14. fala cara..o jogo é dividi em 3 partes velho.. 1 para o inico, 2 para perguntas e 3 para resultados no resultados a varios campos de resultados das repostas corretas,tipo porcentagem,media de acertos,perguntas certa e erradas dentre outros para dados estatisticos..
  15. Galera procedure TForm3.RESULTADOSClick(Sender: TObject); begin case form2.RadioGroup1.itemindex of 0:Edit1.text := FloatToStr(strtofloat(edit1.text) +1) ; 1:Edit5.text := FloatToStr(strtofloat(edit1.text) +1) ; 2:Edit5.text := FloatToStr(strtofloat(edit1.text) +1) ; 3:Edit5.text := FloatToStr(strtofloat(edit1.text) +1) ; end ; o que pode está acontecendo aí? ele da erro aqui o is not a valid floating point value HElp aí
  16. procedure TForm3.RESULTADOSClick(Sender: TObject); begin if form2.RadioGroup1.ItemIndex=0 then edit1.Text:=strtofloat(edit1.text) +1 else edit5.Text:=strtofloat(edit5.text) +1; begin if form2.RadioGroup2.ItemIndex=2 then edit1.Text:=strtofloat(edit1.text) +1 else edit5.Text:=strtofloat(edit5.text) +1 ; begin if form2.RadioGroup3.ItemIndex=1 then edit1.Text:=strtofloat(edit1.text) +1 else edit5.Text:=strtofloat(edit5.text) +1 ; begin if form2.RadioGroup4.ItemIndex=0 then edit1.Text:=strtofloat(edit1.text) +1 else edit5.Text:=strtofloat(edit5.text) +1; begin if form2.RadioGroup5.ItemIndex=3 then edit1.Text:=strtofloat(edit1.text) +1 else edit5.Text:=strtofloat(edit5.text) +1 ; begin if form2.RadioGroup6.ItemIndex=0 then edit1.Text:=strtofloat(edit1.text) +1 else edit5.Text:=strtofloat(edit5.text) +1 end; end; end; end; end; end; end. alguém da uma mao?
  17. aí velho..da uma ajuda agora..caso eu queira colocar mais if.. como fica? procedure TForm3.RESULTADOSClick(Sender: TObject); begin if form2.RadioGroup1.ItemIndex=0 then edit1.text:='1' else edit5.Text:='0' end; begin if form2.RadioGroup2.ItemIndex=0 then edit2.text:='1' else edit5.Text:='0' end; end; end.
  18. vlw aí mano..agora deu certin
  19. procedure TForm3.Edit3Change(Sender: TObject); begin if form2.RadioGroup1.ItemIndex=0 then edit1.text:=1 else edit5.Text:=0 end; end. TO NO FORM 3 E TO QUERENU PUXAR O FORM 2 A VERIFICACAO.. MAIS está DANDO ERRO NO ELSE.. HAHA é UMA PERGUNTA NOOB MAIS QL é O ERRO?
  20. haha via postanu coisa boa que um dia você chega la
  21. Bom galera,to com uma planilha aqui,so que tem algumas partes das celulas que eu quero proteger,e outras não. Tem como eu proteger essas células para não deixar alguém chegar e copiar! Se der eu agradeço
  22. mas como que eu faco isso manow?
  23. bom galera,to precisando de uma ajuda aqui..quem souber as teclas de atalho para essas funcoes -Inserir os nomes de argumentos e parênteses para uma função, após ter digitado um nome de função válido em uma fórmula. -Criar nomes a partir de rótulos de linhas ou de colunas -Exibir a caixa de criação de fórmulas após ter digitado um nome de função válido em fórmulas quem puder ajuda =)
  24. Bom consegui colocar um server de um jogo chama do mu online no ar! Mas quando vou colocar o site no ar,ele diz que não consegue conectar ao BD. O tipo de login do banco de dados é Windows Authentication. Como eu posso resolver o problema? Abráços
×
×
  • Create New...