Ir para conteúdo
Fórum Script Brasil

deathcon4

Membros
  • Total de itens

    30
  • Registro em

  • Última visita

Tudo que deathcon4 postou

  1. Prazer a todos. Interessante, agora sempre o Java no eclipse pede para fechar a classe Scanner, antigamente isso não acontecia, qual o motivo?
  2. O que posso melhorar nesse código e não consigo descobrir porque a porcentagem está dando negativo. O que posso melhorar nesse código e não consigo descobrir porque a porcentagem está dando negativo.#include <iostream>#include <cstdlib>#include <locale.h>using namespace std;int main(void){setlocale(LC_ALL, "Portuguese");float porcentagem,contador,acumulador,altura,menor,maior,media,altura_t;int resposta,resp,i,homem,pessoas;porcentagem, contador, acumulador, altura,menor,maior,media,altura_t=0;contador = 0;resp = 0;resposta = 0;homem = 0;int contm = 0;cout << "Entre com a altura, digite -1 para sair: ";cin >> altura_t;maior = altura_t;menor = altura_t;while (altura_t != -1){if (altura_t == 0){maior = altura_t;menor = altura_t;altura_t++; }if (altura_t > maior)maior = altura_t;else if (altura_t < menor)menor = altura_t;cout << "Entre com a altura, digite -1 para sair: ";altura_t++;cin >> altura_t;}cout << "Entre com 1 para mulheres e 2 para homens. ";cin >> resposta;if (resposta == 1){cout << "Entre com a altura da mulher: ";cin >> altura; }else if (resposta == 2)homem++;while (resposta != -1){if (resposta != -1)if (resposta == 1){acumulador = acumulador + altura;//altura++;cout << "Entre com a altura da mulher, digite -1 para sair: ";contm++; cin >> altura;}else if (resposta == 2){homem++; }cout << "Para sair digite -1, dê enter para continuar. \\n";cout << "Escolha, 1 para mulher, 2 para homens: \\n";cin >> resposta;}porcentagem = contm * altura_t / 100;//porcentagem = (acumulador * contm ) / 100;//z = (x / y) * 100;media = acumulador / contm;cout << "A maior altura é: " << maior << " e a menor altura é: " << menor << "\\n";cout << "O número de homens é de:" << homem << "\\n";cout << "A porcentagem de mulheres em relação ao total de pessoas é de: " << porcentagem << "\\n";cout << "A média de altura das mulheres é de: " << media << endl;}
  3. Prazer para todos. Fiz este exercício para calcular as calorias gastas em uma refeição. Entra com prato, bebida e sobremesa. O problema está em comparar as strings. O VisualG não aceita a comparação. Por exemplo, entro com a string carne, o programa diz: esperava encontrar então na linha se (prato = carne) então. Não há explicação possível para esse problema. Não sei onde está o erro, para mim, a lógica está correta. Obrigado. Algoritmo "semnome" // Disciplina : [Linguagem e Lógica de Programação] // Professor : // Descrição : Aqui você descreve o que o programa faz! (função) // Autor(a) : Nome do(a) aluno(a) // Data atual : 02/10/2017 Var // Seção de Declarações das variáveis cal1,cal2,cal3,p1,p2,p3,caltotal:inteiro prato,bebida,sobremesa:caractere Inicio // Seção de Comandos, procedimento, funções, operadores, etc... escreval("Entre com o prato") leia (prato) escreval(prato) se (prato = carne) então cal1 <- 350 senão se (prato = peixe) então cal1 <- 230 senão se (prato = frango) então cal1 <- 250 senão cal <- 180 fimse fimse fimse escreval("Entre com a bebida") leia (bebida) se (bebida = cha) então cal2 <- 20 senão se (bebida = suco de laranja) então cal2 <- 100 senão se (bebida = suco de melao) então cal2 <- 100 senão se (bebida = refrigerante diet) então cal <- 65 fimse fimse fimse fimse escreval("Entre com a sobremesa") leia (sobremesa) se (sobremesa = abacaxi) então cal3<- 75 senão se (sobremesa = sorvete diet) então cal <- 110 senão se (sobremesa = mouse diet) então cal3 <- 170 senão se (sobremesa = mouse chocolate) então cal <- 200 fimse fimse fimse fimse senão escreval ("Opção inválida.") caltotal <- cal1 + cal2 + cal3 escreval("O prato escolhido foi: ",prato) escreval("A bebida escolhida foi: ",bebida) escreval("A sobremesa escolhida foi: ",sobremesa) escreval("O total de calorias é de: ",caltotal) Fimalgoritmo
  4. Eu estou tentando escrever um script para alterar o nível de prioridade de um processo. Parece que ele fica em loop e o Wscript não encerra depois de alterar o nível do processo. Não consigo encontrar o erro. 'wmic process where name="wininit.exe" call setPriority 32 'wmic process where name="csrss.exe" call setpriority 32 'wmic process where name="smss.exe" call setpriority 32 'wmic process where name="winlogon.exe" call setpriority 32 Dim WMI, OS, Value, Shell Dim WshShell Dim objWMI, objShell, osInfo 'Private Sub Promote_Admin 'do while WScript.Arguments.Count = 0 Set objWMI = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2") Set objShell = CreateObject("Shell.Application") Set osInfo = objWMI.ExecQuery("SELECT * FROM Win32_OperatingSystem") objShell.ShellExecute "wscript.exe", Chr(34) & _ WScript.ScriptFullName & Chr(34) & " uac", "", "runas",1 'loop 'Const NORMAL = 32 'strComputer = "." 'Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") 'Set colProcesses = objWMIService.ExecQuery("Select * from Win32_Process Where Name='wininit.exe' and Name = 'CSRSS.EXE' and Name='SMSS.EXE' and Name='winlogon.exe'") 'For Each objProcess in colProcesses 'objProcess.SetPriority(NORMAL) 'Next ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' If a particular process is running, will change its priority to whatever ' the constant PRIORITY_LEVEL is set at. If you want to change which service ' this script looks for, change the strProcess variable to the name of the ' process it is associated with. ' ' Priority Level Values: ' - Normal 32 ' - Low 64 ' - Realtime 128 ' - High 256 ' - Below Normal 16384 ' - Above Normal 32768 ' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 'Set vars 'Const PRIORITY_LEVEL = 32 'Const PROCESSO = "winlogon.exe" 'strComputer = "." 'Set objWMIService = GetObject("winmgmts:" _ ' & "{impersonationLevel=impersonate}!\\" _ ' & strComputer & "\root\cimv2") 'Search for process, if it's running, update priority 'Do ' Set colProcesses = objWMIService.ExecQuery _ ' ("Select * from Win32_Process Where Name='winlogon.exe' and name='wininit.exe' and name='crss.exe' and name='smss.exe'") ' For Each objProcess in colProcesses ' objProcess.SetPriority(PRIORITY_LEVEL) ' Next 'Loop While 1 Const HIGH = 32 strComputer = "." strProcess = "wininit.exe" strProcess = "csrss.exe" strProcess = "smss.exe" strProcess = "winlogon.exe" Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colProcesses = objWMIService.ExecQuery _ ("Select * from Win32_Process Where Name = '" & strProcess & "'") For Each objProcess in colProcesses objProcess.SetPriority(HIGH) Next Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colProcessList = objWMIService.ExecQuery _ ("Select * from Win32_Process Where Name = 'wscript.exe'") For Each objProcess in colProcessList objProcess.Terminate() Next 'End Sub WScript.Echo "Obrigado!" Set WshShell = WScript.CreateObject("WScript.Shell") WshShell.Run "taskkill /f /im Cscript.exe", , True WshShell.Run "taskkill /f /im wscript.exe", , True 'WScript.Quit
  5. Estou com dúvidas no uso das clausulas on e where no inner join. As vezes aparece somente on e as vezes somente o where.para fazer a comparação entre as tabelas do banco, isso está deixando-me confuso. Quando usar o on e quando usar o where. Também vi que dá para usar os dois juntos. Em inner join eu vi on sem where, com right join e left join com os dois. Posso usar select tabela.campo from tabela inner join where tabelaA.campo = tabelaB.campo where condição. Condição, por exemplo, cidade que seja Rio de Janeiro. em vez de select tabela.campo from tabela inner join on tabelaA.campo = tabelaB.campo where condição. Obrigado.
  6. #include <iostream> #include <cstdlib> #include <string> //#include "../cygwin/usr/i686-pc-mingw32/sys-root/mingw/include/tchar.h" //#include "../cygwin/usr/i686-pc-mingw32/sys-root/mingw/include/locale" #include "locale.h" /* run this program using the console pauser or add your own getch, system("pause") or input loop */ using namespace std; int main() { //_tsetlocale(LC_ALL, _T("portuguese_brazil")); setlocale(LC_ALL, ""); char ch; float mo1,mp1,mb1,mo2,mp2,mb2,mo3,mp3,mb3,ptot1,ptot2,ptot3; //const float pmnm; ch = 0; string pais1, pais2, pais3; cout << "Entre com o primeiro país.\n"; cin >> pais1; cout << "Entre com o número de medalhas.\n"; cout << "Medalhas de ouro, prata e bronze respectivamente.\n"; cin >> mo1 >> mp1 >> mb1; mo1 = (3*mo1) + 1; mp1 = (2*mp1) + 1; mb1 = mb1 + 1; ptot1 = mo1 + mp1 + mb1; cout << "Entre com o nome do segundo país.\n"; cin >> pais2; cout << "Entre com o nº de medalhas para o segundo país.\n"; cout << "Entre medalhas de ouro, prata e bronze respectivamente.\n"; cin >> mo2 >> mp2 >> mb2; mo2 = (3*mo2) + 1; mp2 = (2*mp2) + 1; mb2 = mb2 + 1; ptot2 = mo2 + mp2 + mb2; cout << "Entre com o nome do terceiro país,\n"; cin >> pais3; cout << "Entre com o nº de medalhas para o terceiro país.\n"; cout << "Entre medalhas de ouro, prata e bronze respectivamente.\n"; cin >> mo3 >> mp3 >> mb3; mo3 = (3*mo3) + 1; mp3 = (2*mp3) + 1; mb3 = mb3 + 1; ptot3 = mo3 + mp3 + mb3; while (ch != -1) { if ((ptot1 > ptot2) && (ptot1 > ptot3)) { cout << "O " << pais1 << " é o campeão.\n" << endl; if (ptot2 > ptot3) { cout << "O " << pais2 << " é o vice-campeão.\n" << endl; cout << "O " << pais3 << " é o terceiro colocado.\n" << endl; } else { cout << "O " << pais3 << " é com vice-campeão.\n"; cout << "O " << pais2 << " é o terceiro colocado.\n"; } } else if ((ptot2 > ptot1) && (ptot2 > ptot3)) { cout << "O " << pais2 << " é o campeão.\n"; if (ptot1 > ptot3) { cout << "O " << pais1 << " é o vice-campeão.\n"; cout << "O " << pais3 << " é o terceiro colocado.\n"; } else { cout << "O " << pais3 << " é vice-campeão.\n"; cout << "O " << pais2 << " é o terceiro colocado.\n"; } } else if ((ptot3 > ptot1) && (ptot3 > ptot2)) { cout << "O " << pais3 << " é o campeão.\n"; if (ptot1 > ptot2) { cout << "O " << pais1 << " é o vice-campeão.\n"; cout << "O " << pais2 << " é o terceiro colocado.\n"; } else { cout << "O " << pais2 << " é o vice-campeão.\n"; cout << "O " << pais1 << " é o terceiro colocado.\n"; } } cout << "Para sair digite -1\n."; cin >> ch; if (ch == -1) cout << "Deseja sair, digite -1.\n" << endl; break; } //system ("PAUSE"); //return EXIT_SUCCESS; } Por que no código acima, quanto tento entrar com o nome do país, uma string longa, dá erro? Por exemplo: tento entrar com a palavra Estados Unidos. Ele pula tudo e vai para o final, ignora o while e no final aparece a frase:Process excited with return value 0. Mesmo colocando o while no final ou no início.
  7. O códigoestáem C++. Minha dúvida é como faço para verificar quem ficou como vice e terceiro colocado no algoritmo abaixo. Para ver quem é o campeão eu consegui fazer, verificando o total de medalhas que cada país teve. Cada medalha tem um peso, ouro tem peso 3, prata tem peso 2 e bronze peso 1. Verifiquei quem pode ser campeão. Uma das idéias que tive foi criar uma constante e prender esta variável relacionada a quem foi campeão, para calcular quem foi o vice e também prender a variável com o valor de quem foi vice para o que sobrasse seria o terceiro colocado. Mas não estou tendo ideia de como calcular quem foi vice e quem ficou em terceiro lugar. Agradeço pela ajuda. #include <iostream> #include <cstdlib> //#include "../cygwin/usr/i686-pc-mingw32/sys-root/mingw/include/tchar.h" //#include "../cygwin/usr/i686-pc-mingw32/sys-root/mingw/include/locale" #include "locale.h" /* run this program using the console pauser or add your own getch, system("pause") or input loop */ using namespace std; int main(int argc, char *argv[]) { //_tsetlocale(LC_ALL, _T("portuguese_brazil")); setlocale(LC_ALL, ""); char ch; float mo1,mp1,mb1,mo2,mp2,mb2,mo3,mp3,mb3,ptot1,ptot2,ptot3; //const float pmnm; ch = 0; string pais1, pais2, pais3; cout << "Entre com o primeiro país.\n"; cin >> pais1; cout << "Entre com o número de medalhas.\n"; cout << "Medalhas de ouro, prata e bronze respectivamente.\n"; cin >> mo1 >> mp1 >> mb1; mo1 = (3*mo1) + 1; mp1 = (2*mp1) + 1; mb1 = mb1 + 1; ptot1 = mo1 + mp1 + mb1; cout << "Entre com o nome do segundo país.\n"; cin >> pais2; cout << "Entre com o nº de medalhas para o segundo país.\n"; cout << "Entre medalhas de ouro, prata e bronze respectivamente.\n"; cin >> mo2 >> mp2 >> mb2; mo2 = (3*mo2) + 1; mp2 = (2*mp2) + 1; mb2 = mb2 + 1; ptot2 = mo2 + mp2 + mb2; cout << "Entre com o nome do terceiro país,\n"; cin >> pais3; cout << "Entre com o nº de medalhas para o terceiro país.\n"; cout << "Entre medalhas de ouro, prata e bronze respectivamente.\n"; cin >> mo3 >> mp3 >> mb3; mo3 = (3*mo3) + 1; mp3 = (2*mp3) + 1; mb3 = mb3 + 1; ptot3 = mo3 + mp3 + mb3; while (ch != -1) { if ((ptot1 > ptot2) && (ptot1 > ptot3)) { cout << "O " << pais1 << " é o campeão.\n"; //pmnm = ptot1; } else if ((ptot2 > ptot1) && (ptot2 > ptot3)) { cout << "O " << pais2 << " é o campeão.\n"; //pmnm = ptot2; } else cout << "O " << pais3 << " é o campeão.\n"; //pmnm = ptot3; if ((ptot3 > ptot1) && (ptot3 > ptot2)) cout << "O " << pais3 << " é o vice_campeão.\n"; cout << "Para sair digite -1\n."; cin >> ch; if (ch == -1) cout << "Deseja sair, digite -1.\n" << endl; break; } //system ("PAUSE"); //return EXIT_SUCCESS; }
  8. Engraçado, o c++ não fuiona o pause, tirei o comando e funcionou perfeitamente. Outro problema e que não consigo descobrir e porque quando coloco 1 de ouro, 1 de prata e 1 de bronze no terceiro pais, sai como resultado 1, deveria sair 3 e mencionando que é o terceiro colocado. Ainda não descobri a lógica para resolver. Se alguém puder ajudar, agradeço.
  9. #include <iostream> #include <cstdlib> //#include "../cygwin/usr/i686-pc-mingw32/sys-root/mingw/include/tchar.h" //#include "../cygwin/usr/i686-pc-mingw32/sys-root/mingw/include/locale" #include "locale.h" /* run this program using the console pauser or add your own getch, system("pause") or input loop */ using namespace std; int main(int argc, char *argv[]) { //_tsetlocale(LC_ALL, _T("portuguese_brazil")); setlocale(LC_ALL, ""); char ch; float mo1,mp1,mb1,mo2,mp2,mb2,mo3,mp3,mb3; ch = 0; string pais1, pais2, pais3; cout << "Entre com o primeiro país.\n"; cin >> pais1; cout << "Entre com o número de medalhas.\n"; cout << "Medalhas de ouro, prata e bronze respectivamente.\n"; cin >> mo1 >> mp1 >> mb1; mo1 = (3*mo1) + 1; mp1 = (2*mp1) + 1; mb1 = mb1 + 1; cout << "Entre com o nome do segundo país.\n"; cin >> pais2; cout << "Entre com o nº de medalhas para o segundo país.\n"; cout << "Entre medalhas de ouro, prata e bronze respectivamente.\n"; cin >> mo2 >> mp2 >> mb2; mo2 = (3*mo2) + 1; mp2 = (2*mp2) + 1; mb2 = mb2 + 1; cout << "Entre com o nome do terceiro país,\n"; cin >> pais3; cout << "Entre com o nº de medalhas para o terceiro país.\n"; cout << "Entre medalhas de ouro, prata e bronze respectivamente.\n"; cin >> mo3 >> mp3 >> mb3; mo3 = (3*mo3) + 1; mp3 = (2*mp3) + 1; mb3 = mb3 + 1; while (ch != -1) { cout << "Para sair digite -1\n."; cin >> ch; if (ch == -1) cout << "Deseja sair, digite -1.\n" << endl; break; if (mo1 > (mo2 + mo3)) cout << "O campeão é o país 1.\n"; else if (mo2 > (mo1 + mo3)) cout << "O campeão é o país 2\n"; else if (mo3 > (mo1 + mo2)) cout << "O campeão é o país 3.\n"; if (mp1 > (mp2 + mp3)) cout << "O pais 1 é o vice-campeão\n"; if (mp2 > (mp1 +mp3)) cout << "O país 2 é o vice-campeão\n."; if (mp3 > (mp1 + mp2)) cout << "O pais 3 é o vicê campeão\n"; if (mb1 > (mb2 + mb3)) cout << "O país 1 é o terceiro colocado\n."; if (mb2 > (mb1 + mb3)) cout << "O país 2 é o terceiro colocado\n."; if (mb3 > (mb2 + mb1)) cout << "O paíes 3 é o terceiro colocado\n."; } system ("Pause > null"); return 0; } No final está aparecendo -1 e logo abaixo um ponto. O resto está ok. No final quando dou -1 para sair ele aparece com uma mensagem: sh: Pause: command not found. Será que está faltando alguma bibliteca?
  10. Instalei o cygwin e estou testando o eclipse, mas quando dá o resultado da compilação ele apresenta sempre este erro: make: *** [se.o] Error 1 Como faço para resolver este erro? A compilação está correta, não sei se é o parser.
  11. Estou com de dúvida de como faço para chamar arquivos externos. Estou testando uma coisa bem simples para entender. Arquivo principal: #include <cstdlib> #include <iostream> #include "Biblio.hpp" #include "area_tri.cpp" using namespace std; int main(int argc, char *argv[]) { double p, q, r; cout << "P? "; cin >> p; cout << "Q? "; cin >> q; r = soma(p,q); cout << "Soma= " << r << endl; system("PAUSE"); return EXIT_SUCCESS; } Arquivo externo: #include "Biblio.h" double soma(double a, double b) { return a + b; } Arquivo cabeçalho: #ifndef BIBLIO_H #define BIBLIO_H double soma(double a, double b); #endif arquivo externo 2: { int com, larg, area; cout << "Entre com o comprimento"; cin >> com; cout << "Entre com a largura"; cin >> larg; area = com * larg; cout << "A area vale: " << area << endl; } Minhas dúvidas: Sempre tenho que criar um arquivo cabeçalho para chamar um arquivo externo e tenho de chamá-lo através de uma função no arquivo principal? Tentei chamar o arquivo externo 2 sem colocar qualquer função no principal, mas ele fica dando erro de compilação acusando a falta de toquens ; e {. No arquivo externo 2 tenho de declarar novamente as bibliotecas? Obrigado.
  12. Sempre que eu construir um projeto e este tiver muitos arquivos para cada arquivo cabeçalho eu tenho que criar um .cpp? Ou posso criar somente o cabeçalho sem o arquivo cpp respectivo existindo somente o main e coloco o arquivo cabeçalho no main.
  13. Sou iniciante em Oracle, mas pelo que estudei para dar acesso total o comando é grant all <usuario>. Estou entrando no SQLPlus pelo system e a senha que criei quando instalei o sistema. Depois tento dar permissão total ao novo usuario. create user <usuario> identified by <senha> Tento dar permissão grant all <usuario> Saio do SQLPlus e tento com o novo usuario e a nova senha, mas não funciona. Quando eu dei as permissões não apareceu nenhuma mensagem de erro. Como resolvo este problema?
  14. É um código bem simples e está dando o erro abaixo. estou começando a passar para .net os meus códigos antigos. Erro no processamento de XML: formatado incorretamente Posição: file:///C:/Trabalho/login2/entrada.aspx Número da linha 1, coluna 2: <form runat="server"> <p runat="server"> Nome&nbsp;&nbsp; <asp:TextBox id="Txtnome" tabIndex="1" runat="server"></asp:TextBox> &nbsp;&nbsp;<asp:Button id="Btnconfirma" runat="server" Width="50px" Text="Confirma"></asp:Button> <asp:RequiredFieldValidator id="RequiredFieldValidator1" runat="server" ControlToValidate="Ttxnome" ErrorMessage="O campo não pode estar vazio!" Display="Dynamic"></asp:RequiredFieldValidator> </p> <p> Senha&nbsp;&nbsp; <asp:TextBox id="Txtsenha" tabIndex="2" runat="server" TextMode="password"></asp:TextBox> &nbsp;&nbsp;&nbsp;<asp:Button id="Btnlimpa" runat="server" Width="50px" Text="Limpa"></asp:Button> <asp:RequiredFieldValidator id="RequiredFieldValidator2" runat="server" ControlToValidate="Txtsenha" ErrorMessage="Senha inválida!" Display="Dynamic"></asp:RequiredFieldValidator> <asp:RegularExpressionValidator id="RegularExpressionValidator1" runat="server" ErrorMessage="RegularExpressionValidator" ValidationExpression="\d{4}"></asp:RegularExpressionValidator> </p> </form>
  15. O código está inserindo direto, não está verificando se existe determinado usuário dentro do banco. Que droga
  16. Reescrevi todo o código. <html> <%@LANGUAGE=VBScript%> <script language="Javascript"> function verifica(Form_acesso) { // ***** Testando os campos ***** if (Form_acesso.nome.value == "") { alert("\nFavor informar o nome.") Form_acesso.nome.focus(); return false; } if (Form_acesso.nome.value.length < 3) { alert("\nO campo nome deve conter no mínimo três letras.\n\nFavor Corrigir.") Form_acesso.nome.focus(); return false; } for (var i = 0; i < Form_acesso.nome.value.length; i++) { var ch = Form_acesso.nome.value.substring(i, i + 1); if (Form_acesso.senha.value == "") { alert("\nFavor informar a senha.") Form_acesso.senha.focus(); return false; } if (Form_acesso.senha.value.length < 3 ) { alert("\nO campo Senha deve conter no mínimo 4 dígitos alfa-numéricos.\n\nFavor Corrigir.") Form_acesso.senha.focus(); return false; } else if (Form_acesso.nsenha.value != "" || Form_acesso.cnsenha.value != "") { if (Form_acesso.nsenha.value.length < 3) { alert("\nO campo Nova Senha deve conter no mínimo 4 dígitos alfa-numéricos.\n\nFavor Corrigir.") Form_acesso.nsenha.focus(); return false; } // *** Return false se os caracteres não forem de a-z, A-Z, ou 0-9 **** for (var i = 0; i < Form_acesso.nsenha.value.length; i++) { var ch = Form_acesso.nsenha.value.substring(i, i + 1); if (((ch < "a" || "z" < ch) && (ch < "A" || "Z" < ch)) && (ch < "0" || "9" < ch)) { alert("\nO campo Nova Senha só aceita letras e números.\n\nFavor corrigir."); Form_acesso.nsenha.focus(); return false; } } // ************************ if (Form_acesso.cnsenha.value.length == "") { alert("\nFavor confirmar a Nova Senha.") Form_acesso.cnsenha.focus(); return false; } if (Form_acesso.cnsenha.value.length < 3) { alert("\nO campo Confirma Nova Senha deve conter no mínimo 4 dígitos alfa-numéricos.\n\nFavor Corrigir.") Form_acesso.cnsenha.focus(); return false; } if (Form_acesso.cnsenha.value != Form_acesso.nsenha.value) { alert("\nSenha Confirmada diferente da Nova Senha.\n\nFavor Corrigir.") Form_acesso.cnsenha.focus(); return false; } if (Form_acesso.nsenha.value == Form_acesso.senha.value) { alert("\nNova Senha é igual a Senha atual.\n\nFavor Corrigir.") Form_acesso.nsenha.focus(); return false; } } // ***** Confirma Informações ***** { retorno=confirm("\nConfirma o envio das Informações?") if (retorno == false) { return false; } } // *** Confirma - final *** return true; } --> </script> <head> <title></title> </head> <body background="../fundo_claro.gif"> <p> &nbsp;</p> <% dim nome, senha senha = request.form("senha") nome = request.form("nome") 'acesso ao banco Set DB = Server.CreateObject("ADODB.Connection") DB.Open "DBQ=c:\Trabalho\login\acesso.mdb;Driver={Microsoft Access Driver (*.mdb)}" executar = "SELECT * FROM acesso WHERE nome = '" & nome & "' and senha = '" & senha & "';" 'verifica se o campo já existe set query = db.execute(executar) if query.eof = true then%> mostra o form se o usuário não está cadastrado e insere a nova senha com o novo usuário. <%sql = "INSERT INTO acesso (nome,senha) VALUES ('" & nome & "','" & senha & "')" DB.Execute(sql) Acessa novamente o banco para saber se os dados foram incluídos, se encontrar algo, então retorna que foram inseridos, pois não chegou ao final. sql = "select * from acesso" DB.execute(sql) if query.eof = false then response.write "Registro inserido com sucesso!" response.redirect "entrada_dados.htm" end if else response.redirect "cadastro.htm" Esta página é para mostrar se o usuário já é cadastrado e assim redireciona para incluir informações do produto como fatura, peso, etc. ou para consultar banco de dados sobre os produtos. end if%> </center> </body> </html> Já testei e está inserindo, o único problema é se o usuário já está cadastrado, era para redirecionar para a página para fazer o login (entrada_dados.htm) mas ao invés disso, mostra sempre a página para cadastrar produtos (cadastro.htm) e esta página somente deve ser mostrada quando o usuário já está cadastrado e fez o login. Não consigo descobrir o motivo. response.redirect "url.htm" Obrigado novamente.
  17. Estou colocando em pedaços, pois não está aceitando a postagem de uma só vez. 'Cria um objeto Command Dim objCommand as OleDbCommand objCommand = New OleDbCommand(consulta, objConnection) Dim Dr As OleDbDataReader Dr = Comando.ExecuteReader if r1 = "I" then while Dr.read Response.write(Dr.Item("registro") & <br>) end while conexão.Close() 'Fecha a conexão objConnection.Close() 'Fecha a conexão à base de dados End Sub Dim mes, ano, registro as string </script> <html> <head> <title> </title> </head> <body> <table border="0" cellspacing="0" width="760" cellpadding="0"> <tr> <td bgcolor="#000080" width="427" height="5"> </td> <td bgcolor="#000080" width="89" height="5"><b><span style="letter-spacing: -1pt"><font face="Arial" size="2" color="#FFFFFF">Mês: <%Response.Output.write("mes")%></font></span></b></td> <td bgcolor="#000080" width="95" height="5"><b><span style="letter-spacing: -1pt"><font face="Arial" size="2" color="#FFFFFF">Ano: <%response.write("ano")%></font></span></b></td> <td bgcolor="#000080" width="138"></td> </tr> </table> <table border="0" cellspacing="1" width="762" cellspacing="1" cellpadding="0"> <tr> <td width="95" bgcolor="#FFBD5B" align="center"><b><font face="Arial" size="2">Registro</font></b></td> <td width="75" bgcolor="#FFBD5B" align="center"><b><font face="Arial" size="2">Fatura</font></b></td> <td width="75" bgcolor="#FFBD5B" align="center"><b><font face="Arial" size="2">Cliente</font></b></td> <td width="89" bgcolor="#FFBD5B" align="center"><b><font face="Arial" size="2">Nome</font></b></td> <td width="70" bgcolor="#FFBD5B" align="center"><b><font face="Arial" size="2">Quantidade</font></b></td> <td width="73" bgcolor="#FFBD5B" align="center"><b><font face="Arial" size="2">Peso</font></b></td> <td width="99" bgcolor="#FFBD5B" align="center"><b><font face="Arial" size="2">Peso c*bico</font></b></td> <td width="58" bgcolor="#FFBD5B" align="center"><font face="Arial" size="2"><b>Cep</b></font></td> <td width="141" bgcolor="#FFBD5B" align="center"><font face="Arial" size="2"><b>Pais</b></font></td> <td width="141" bgcolor="#FFBD5B" align="center"><font face="Arial" size="2"><b>Valor</b></font></td> </tr> </table> <table width="763" cellspacing="1" cellpadding="0"> <tr> <td width="84" align="center" bgcolor="#FEE29A"><font face="Arial" size="2"><%Response.Output.Write("registro")%></font></td> <td width="86" align="center" bgcolor="#FEE29A"><font face="Arial" size="2"><%response.write()%></font></td> <td width="69" align="center" bgcolor="#FEE29A"><font face="Arial" size="2"><%response.write()%></font></td> <td width="66" align="center" bgcolor="#FEE29A"><font face="Arial" size="2"><%response.write()%></font></td> <td width="82" align="center" bgcolor="#FEE29A"><font face="Arial" size="2"><%response.write()%></font></td> <td width="64" align="center" bgcolor="#FEE29A"><font face="Arial" size="2"><%response.write()%></font></td> <td width="66" align="center" bgcolor="#FEE29A"><font face="Arial" size="2"><%response.write()%></font></td> <td width="66" align="center" bgcolor="#FEE29A"><font face="Arial" size="2"><%response.write()%></font></td> <td width="124" align="center" bgcolor="#FEE29A"><font face="Arial" size="2"><%%></font></td> </tr> <p> </p> <p align="center"><font face="Arial" size="3" color="#000080"><b>A informação foi inserida com sucesso!</b></font> </p> <p align="center"><font face="arial" size="2" color="navy"><%response.write()%></font> <%else%> </p> <table width="512" cellspacing="1" cellpadding="0" align="center"> <tr> <td bgcolor="#000080" height="20" width="480" align="left"><p align="center"> </td> </tr> <tr> <td bgcolor="#00FFFF" height="30" style="border-right-style: outset; border-right-width: 1px; border-bottom-style: outset; border-bottom-width: 1px" width="512" align="left"><p align="center"><font face="Arial" size="2" color="#ff0000"><strong>Estas informações já existem no Banco.</strong></font></td> </tr> </table> <%end if end if%> <%if r1 = "D" then executar = "SELECT * FROM CartuchoCarretelArmazenadosLidosGravados WHERE mes = '" & mes & "' and ano = '" & ano & "' and regional = '" & regional & "';" Set verifica = DB.Execute(Executar)%> <%if verifica.EOF = true then%> <div align="center"> <center> <table border="1" width="517" cellspacing="0" cellpadding="0"> <tr> <td bgcolor="#000080" height="20" width="847" align="left"><p align="center"> </td> </tr> <tr> <td bgcolor="#00FFFF" height="30" style="border-right-style: outset; border-right-width: 1px; border-bottom-style: outset; border-bottom-width: 1px" width="879" align="left"><p align="center"><font face="Arial" size="2" color="#ff0000"><strong>Estas informações não existem no Banco!</strong></font></td> </tr> </table> </center></div><%else Executar = "Delete * FROM CartuchoCarretelArmazenadosLidosGravados " & _ "WHERE mes = '" & mes & "' and ano = '" & ano & "' and regional = '" & regional & "';" Set RecSet = DB.Execute(executar) %> <div align="center"><center> <table border="1" width="517" cellspacing="0" cellpadding="0"> <tr> <td bgcolor="#000080" height="20" width="847" align="left"><p align="center"> </td> </tr> <tr> <td bgcolor="#00FFFF" height="30" style="border-right-style: outset; border-right-width: 1px; border-bottom-style: outset; border-bottom-width: 1px" width="879" align="left"><p align="center"><font face="Arial" size="2" color="#ff0000"><strong>Registro deletado com sucesso!</strong></font></td> </tr> </table> </center></div><%end if end if%> <%if r1 = "A" then executar = "SELECT * FROM CartuchoCarretelArmazenadosLidosGravados WHERE mes = '" & mes & "' and ano = '" & ano & "' and regional = '" & regional & "';" Set verifica = DB.Execute(Executar)%> <%if verifica.EOF = true then%> <table width="512" cellspacing="1" cellpadding="0" align="center"> <tr> <td bgcolor="#000080" height="20" width="480" align="left"><p align="center"> </td> </tr> <tr> <td bgcolor="#00FFFF" height="30" style="border-right-style: outset; border-right-width: 1px; border-bottom-style: outset; border-bottom-width: 1px" width="512" align="left"><p align="center"><font face="Arial" size="2" color="#ff0000"><strong>Estas informações não existem no Banco.</strong></font></td> </tr> </table> <div align="center"><center> <table border="1" width="516" cellspacing="0" cellpadding="0"> <tr> <td bgcolor="#000080" height="20" width="1213" align="left"> </td> </tr> <tr> <td bgcolor="#00FFFF" height="30" style="border-right-style: outset; border-right-width: 1px; border-bottom-style: outset; border-bottom-width: 1px" width="1245" align="left"><p align="center"><font face="Arial" size="2" color="#ff0000"><strong>Registro alterado com sucesso!</strong></font></td> </tr> </table> </center></div><% end if end if%> <p><br> <br> <br> </p> <div align="center"><center> <table border="0" cellpadding="0" cellspacing="0" width="98%" height="1"> <tr> <td width="100%" height="4" colspan="3"><hr size="1" color="#000000"> </td> </tr> <tr> <td width="57%" height="4"><p align="left"><font face="Arial" size="1" color="#000000"><strong> </strong></font></td> <td width="23%" height="4"></td> <td width="20%" height="4" valign="middle"><p align="center"><a href="java script:history.back()"><img src="../imagens/retorno.gif" alt="Volta a página anterior" border="0" width="80" height="18"></a> </td> </tr> </table> </center></div> </body> </html> Bem, coloquei, agora sim, todo o código. Obrigado pela atenção.
  18. Bem, estou tentando pegar os dados de um banco access e não sei muito bem asp.net, diferente do asp antigo o qual eu conheço bem. A página para acionar está em javascript com o metodo post com um botão submit. O problema está em colocar os dados dentro da tabela, é diferente o antigo asp. Podem ver, não há grid, repeater e outras coisas que ainda não entendi muito bem. Quero percorrer o banco e listar os registros. Depois eu quero saber como inserir, alterar e apagar. Não tenho Webmatrix e nem <%@ Page Language="VB" %> <%@ Import Namespace="System.Data" %> <%@ Import Namespace="System.Data.SqlClient" %> &lt;script language="vb" runat="server"> Dim mes, registro Sub Page_Load(sender as Object, e as EventArgs) Dim conexão as String conexão = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source="c:\trabalho\correios\clientes_mala_direta.accdb";Persist Security Info="False"; Dim objConnection as OleDbConnection 'declara objecto para conexão objConnection = New OleDbConnection(connString) 'cria conexão objConnection.Open() 'abre a conexão Dim consulta as string = "SELECT * FROM clientes_mala_direta " & _ "WHERE mes = '" & mes & "' and ano = '" & ano & "' and nome = '" & nome & "' and fatura = '" & fatura & "' and registro = '" & registro & _ & "';"
  19. Não, ele não exibe o código e nem pede para salvar quando o servidor não está funcionando, estou pesquisando no Google sobre as diretivas do php.ini para saber o que é. Também vou procurar no manual do Apache. Quando carrego o monitor aparece corretamente lá carregado o php. O serviço do apache também carrega normalmente. É muito estranho. Uso o antigo firewall da Sygate que agora pertence a Norton e também não obtive resultado.
  20. Não acontece nada, aparece normalmente o código fonte. Habilitei todos os recursos para ver se aparecia algum erro, mas nada. O arquivo de log, eu habilitei, não apresentou nada, está vazio. Nunca vi isso. Vou continuar procurando uma solução, quando eu achar, eu posto aqui.
  21. Infelizmente não funcionou.
  22. É um código simples, bem simples. <html> <head> <? echo "Este servidor fornece suporte ao PHP"; ?> <meta http-equiv="Content-Type" content="text/html; charset=windows-8889-1"> <title>Teste</title> </head> <body> <? echo "Alo mundo"; ?> </body> </html> Carrego a página pelo Firefox e nada aparece.
  23. Acabei de atualizar o Apache e o PHP. Testei com o phpinfo e mostrou o resultado perfeitamente, mas se eu coloco algum código dentro, junto com o código do html, o browser não carrega nada, carrega uma página branca. Separado do html, o browser mostra corretamente o resultado do código. Quero uma ajuda para resolver. Valeu.
  24. Observe a seguinte especificação para um processo P uqe recebe E1 e E2 como entradas e produz como saída S1: Seja C = {2,3,4...} e I={1,2,3...} Pré-condição S1 pertence 1 and (não existe) Z1, Z2 pertence I (E1=Z1*S1 and E2 = Z2*S1) and not (não existe H pertence C((não existe Z1, Z2 pertence I(E1=Z1*H and E2=Z2*H)) and (H<S1)) A saída produzida por P é: a) o máximo diviso comum entre E1 e E2; B) o menor fator comum entre E1 e E2 c) o mínimo múltiplo comum entre E1 e E2; d) o menor número primo que é o produto de E1 e E2; e) o maior número primo que divide E1 e E2. Não entendi nada.
  25. Estou com uma dúvida. A clausula not exists não retorna somente os campos vazios da tabela externa? Pois tem essa questão e não entendi. A consulta sql que produz a lista dos candidatos que se inscreveram em todos os concursos é: select nome from candidato cd where not exists (select * from concurso cc where not exists (select * from inscrição i where i.id_concurso = cc.id_concurso and i.id_candidato = cd.id_candidato)) A consulta acima retorna candidatos que se inscreveram em todos os concursos. Tem outra: listar empregados que trabalham em todos os projetos: SELECT NOME FROM EMPREGADOS E WHERE NOT EXISTS (SELECT * FROM PROJETOS P WHERE NOT EXISTS (SELECT * FROM TRABALHAM T WHERE T.NUMERO_EMP = E.NUMERO AND T.NUMERO_PROJ = P.NUMERO)); Como configo isso se a clausula not exists deve somente retonar os campos vazios ou não existentes na comparação? Por exemplo: listar todos os empregados que não tenham dependentes, assim usaria a clausula. Alguém consegue explicar para mim? Obrigado.
×
×
  • Criar Novo...