fhermel
Membros-
Total de itens
36 -
Registro em
-
Última visita
Tudo que fhermel postou
-
Olá amigo, voce poderia me mostra como pois não estou entendendo ?!?!?!? waleu!!!
-
Olá pessoal, já dei inicio a este cod C++ como citado no exercicio acima. Agora so valta calcular a diferença das horas as opções a e b já esta pronto agora so falta c e o d.
-
Olá pessoal, :wacko: Estou aqui pedindo novamente a ajuda dos amigos, pois estou com este trabalho de faculdade e não estou sabendo por onde começar! seque abaixo a descrição do exercício. EXERCÍCIOS SOBRE SUBROTINAS Escreva um programa em C que leia do teclado um horário do dia (horas, minutos e segundos), e valide se a entrada é coerente. O programa deve ler um segundo horário (também validando), e caso este seja maior do que o primeiro, calcular e imprimir o tempo que decorreu entre os dois horários informados (caso contrário, informar que o segundo horário informado é anterior ao primeiro). O tempo decorrido deve ser informado na forma <H> horas, <M> minutos, <S> segundos. Caso algum dos campos tenha valor nulo, a respectiva unidade de tempo não deve ser informada. Por exemplo, se o tempo decorrido for de 1 minuto e 45 segundos, a mensagem impressa deve ser apenas “1 minuto, 45 segundos” (ou seja, o numero de horas não deve ser informado). O programa deve conter obrigatoriamente as seguintes subrotinas: a) void ler_horario (int *hora, int *minuto, int *segundo) // solicita ao usuário a leitura do horário (e efetua a leitura) B) bool valida_horario (int hora, int minuto, int segundo) // valida o horario, retornando true se for valido, ou false se for invalido c) int calcula_tempo_decorrido (int hora1, int minuto1, int segundo1, int hora2, int minuto2, int segundo2 ) // verifica se o segundo horário é posterior ao primeiro. Caso seja, retorna o tempo decorrido (em segundos). Caso não seja, retorna o valor -1 d) void imprime_tempo_decorrido (int tempo_segundos) // imprime o tempo decorrido no formado especificado no enunciado (assumindo que a entrada fornecida é o tempo decorrido em segundos) No programa, defina os protótipos da funções (antes do main), e deixe a declaração das subrotinas para o final do arquivo.
-
Buenas galera do ASP. Pelo amor de deus alquem tem uma luz para um pobre mortal... Microsoft OLE DB Provider for ODBC Drivers (0x80004005) [Microsoft][Driver ODBC para Microsoft Access] Não foi possível excluir items das tabelas especificadas. desde já obrigado
-
Valeu amigo Mais aonde devo colocar esta linha ?!?!? eu não conheso este " RecSet.Fields " brigaduuuuuuuu !!!
-
Salve galerinha do ASP ... Tentarei ser o mais claro possível estou fazendo um cadastro de cliente e logo após a inclusão no BD quero fazer uma nova venda usando o ID deste cliente castrado a pouco. Então no mesmo code logo após a inclusão faço uma busca pelo telefone do cliente e coloco apenas o ID no response.redirect ??? Olhem o code abaixo <% 'Declaração de Variaveis Dim cliente, cpf, cnpj, fone, celu, fax, email, endereco, numero, apto, bloco, bairro, cep, obs 'Valor das Variaveis cliente = Request.Form("cliente") cpf = Request.Form("cpf") if cpf="" then cpf="Este cliente não é pessoa fisica!" end if cnpj = Request.Form("cnpj") if cnpj="" then cnpj="Este cliente não é pessoa jurica!" end if fone = Request.Form("fone") celu = Request.Form("celu") if celu="" then celu="cliente sem celular!" end if fax = Request.Form("fax") if fax="" then fax="cliente sem fax!" end if email = Request.Form("email") if email="" then email="Cliente não informatizado!" end if endereco = Request.Form("endereco") numero = Request.Form("numero") apto = Request.Form("apto") if apto ="" then apto="Sem numero de apartamento!" end if bloco = Request.Form("bloco") if bloco="" then bloco="Sem numero de bloco!" end if bairro = Request.Form("bairro") cep = Request.Form("cep") if cep="" then cep="00000-000" end if obs = Request.Form("obs") if obs="" then obs="Não costa obsevação para este cliente!" end if 'Abre conexão com o Banco Dim objConn Dim SQL Set objConn = server.createobject("ADODB.Connection") objConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &Server.MapPath("bd/admin.mdb")) set objrs=server.createobject("adodb.recordset") SQL= "select * from cadastro where fone='"& fone &"'" objrs.Open SQL, objConn if objrs.eof then olha_fone="NOA" end if objrs.close if olha_fone = "NOA" then 'Inicia o Processo de Inclusao no Banco 'A opcao Aspas E comercial e Underscore serve para organizar o código SQL=" "&_ "INSERT INTO cadastro ("&_ "cliente, "&_ "cpf, "&_ "cnpj, "&_ "fone, "&_ "celu, "&_ "fax, "&_ "email, "&_ "endereco, "&_ "numero, "&_ "apto, "&_ "bloco, "&_ "bairro, "&_ "cep, "&_ "obs) "&_ "" & "VALUES ("&_ "'" & cliente & "', "&_ "'" & cpf & "', "&_ "'" & cnpj & "', "&_ "'" & fone & "', "&_ "'" & celu & "', "&_ "'" & fax & "', "&_ "'" & email & "', "&_ "'" & endereco & "', "&_ "'" & numero & "', "&_ "'" & apto & "', "&_ "'" & bloco & "', "&_ "'" & bairro & "', "&_ "'" & cep & "', "&_ "'" & obs & "')" 'busca para recuperar o ID do cliente SQL= "select * from cadastro where fone='"& fone &"'" Set RecSet = objconn.Execute(SQL) 'Response.Write SQL response.redirect "vendas.asp?id="&ID&"" end if if olha_fone <> "NOA" then response.redirect "ok.asp?resposta=1" end if %> valeuzis
-
Ai galerinha agora esta OK busca e da o total das colunas no final o code esta abaixo para teste VALEUZIS Dark0 <% Dim objConn, objrs, strsql, id, texto, olha_fone id = request("id") Set objConn = server.createobject("ADODB.Connection") objConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &Server.MapPath("bds/cadastro.mdb")) set objrs=server.createobject("adodb.recordset") strsql= "SELECT * from compra where comcli = '"&id&"' order by data" objrs.Open strsql, objConn If objrs.EOF Then Response.Write("<center><b>Nenhum registro foi encontrado</b></center>") Else end if set RS=server.createobject("adodb.recordset") strsql_2= "SELECT SUM(compra.valor) AS tvalor, SUM(compra.quanto) AS tqto FROM compra where comcli='"&id&"'" 'Response.Write strsql RS.Open strsql_2, objConn if RS.EOF then Response.Write("<center><b>Nenhum registro foi encontrado</b></center>") else end if %> <html> <head> <title>Untitled</title> </head> <body> <%do while not objRS.eof%> VALOR: <b><%=objRS("valor")%></b> QUANTIDADE: <b><%=objRS("quanto")%></b><br> <%objrs.movenext loop%> <br> VALOR: <b><%=RS("tvalor")%></b> QUANTIDADE: <b><%=RS("tqto")%></b> </body> </html> <% objconn.close set objconn = nothing %>
-
Sim da forma correta ???
-
esta abaixo VALOR: <b><%=objrs("tvalor")%></b> QUANTIDADE: <b><%=objrs("tqto")%></b>
-
Sim os nomes estão corretos , mais sera que não é a orden do SQL ??? Primeiro ele busca e depois soma , na parte que busca ele esta OK mais quando é para somar da aquele erro. Mais se alterado ele soma OK mais não busca e da o mesmo erro ? que duvida cruel VALEUZIS
-
Ai galerinha do ASP Estou fazendo um code que busca e some mais esta dando um erro da uma olha no code. Ele busca mais não soma da este erro ADODB.Fields error '800a0cc1' ADO não pôde encontrar o objeto na coleção correspondente ao nome ou à referência ordinal solicitada pelo aplicativo. /vendas.asp, line 110 <% Dim objConn, objrs, strsql, strsql_2, id, texto, olha_fone id = request("id") Set objConn = server.createobject("ADODB.Connection") objConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &Server.MapPath("bds/cadastro.mdb")) set objrs=server.createobject("adodb.recordset") strsql= "SELECT * from compra where comcli = '"&id&"' order by data" objrs.Open strsql, objConn If objrs.EOF Then Response.Write("<center><b>Nenhum registro foi encontrado</b></center>") Else end if strsql= "SELECT SUM(compra.valor) AS tvalor, SUM(compra.quanto) AS tqto FROM compra where comcli='"&id&"'" Response.Write strsql %> VALEUZIS
-
estranho Ricardo achei q era função do FORUM mais tudo bem já dei um jeito, valeu aos q tiveram algum interesse
-
Ai galerinha olha o code esta funcionando um Newsletter de barbada bem simples default.asp <html> <head> <title></title> </head> <body> <form name="main3" action="email.asp" target="Ajex" method="post" onsubmit="Ajex()"> <input onfocus="click4()" type="text" name="email" value="Seu e-mail aqui" style="{font-family:verdana;font-size:8pt;color: White;font-style: oblique;background-color:#000066;border: 0px;}"><br> <input type="radio" name="subs" value="0" checked>ADD<br> <input type="radio" name="subs" value="1">DEL<br> <input type="submit" name="submit" value="Enviar" style="{font-family:verdana;font-size:8pt;color: White;font-style: oblique;background-color:#000066;border: 0px;}"> </form> </body> </html> email.asp <% Dim email, sem_nada, subs email=request.form("email") subs=request("subs") if email = " " then sem_nada="<a href=javascript:self.close()><font face=verdana size=1 color=black><b>:.ensira seu email...</b></font></a>" else 'response.write subs accessdb="subs" cn="driver={Microsoft Access Driver (*.mdb)};" cn=cn & "dbq=" & server.mappath(accessdb) set rs = server.createobject("ADODB.Recordset") sql = "select * from emails where email = '"&email&"'" rs.Open sql, cn if rs.eof then ate_o_fim="No" end if rs.close if subs="1" then SQL = "DELETE * FROM emails where email = '"&email&"'" 'Response.Write sql rs.Open sql, cn delete="deletado o email" end if if ate_o_fim = "No" then SQL = "INSERT INTO emails (email)" sql = sql & "values ('"&email&"')" 'Response.Write sql rs.Open sql, cn mostra="enserido o email" end if %> <center> <% if ate_o_fim <> "No" then %> Seu E-Mail já consta em nossos registros. Obrigado!<br> <% else %> Obrigado pelo seu email !<br><br> <% end if %> <%= sem_nada %><br> <%= mostra %><br> <%= delete %><br> <% end if %> <html> <head> <link rel="stylesheet" href="style1.css" type="text/css" media="screen"> <LINK href="s_a.css" type=text/css rel=STYLESHEET> </head> <body marginwidth="0" marginheight="0" leftmargin="0" topmargin="0"> <br> <a href="javascript:self.close()"> <font face=verdana size=1 color=black><b> :. Fechar... </b></font></a></center> </body> </html> </center> valeu a ajuda
-
Ai galerinha do ASP Da uma olhada estou fazendo code para cadastro de email, mais eu quero que o usuário tenha a possibilidade de excluir o seu email então criei um FORM com um campo email e um botão RADIO de nome del para que o usuário posa excluir , mais claro não esta funcionando será que rola uma dica ?!?!? agradeço <% Dim email, mostra, sem_nada, del email=request.form("email") del=request("radio") if email = "" then sem_nada="<a href=javascript:self.close()><font face=verdana size=1 color=black><b>:.ensira seu email...</b></font></a>" else accessdb="db/hemails" cn="driver={Microsoft Access Driver (*.mdb)};" cn=cn & "dbq=" & server.mappath(accessdb) set rs = server.createobject("ADODB.Recordset") if del = "radio" then sql= "delete * from estailer where email = "&email&"" response.write("excluido") else end if sql = "select * from estailer where email = '"&email&"'" rs.Open sql, cn if rs.eof then ate_o_fim="No" end if rs.close if ate_o_fim = "No" then SQL = "INSERT INTO estailer (email)" sql = sql & "values ('"&email&"')" 'Response.Write sql rs.Open sql, cn mostra="ok" end if %> <center> <% if ate_o_fim <> "No" then %> Seu E-Mail já consta em nossos registros. Obrigado!<br> <% else %> Obrigado pelo seu email !<br><br> <% end if %> <%=sem_nada%> <% end if %> <%= mostra %> Valeuzis
-
mais nem uma olhadinha
-
Ai galerinha ????
-
Ai galerinha do JavaScript Pessoal tenho este code na minha pagina mais quando a pagina entra a musica toca sempre, eu gostaria que o usuario tenho a opção de dar um PAUSE na musica. Meu code esta abaixo. <!--Inicio code MID --> <div align="right"><FONT face="Verdana" color=#000000 size=1><B> <script language="javascript"> var aMidi = new Array(); var aMidi = new Array(); aMidi[0] = "../wap/mid/56.mid"; aMidi[1] = "../wap/mid/62.mid"; aMidi[2] = "../wap/mid/99.mid"; aMidi[3] = "../wap/mid/89.mid"; aMidi[4] = "../wap/mid/79.mid"; aMidi[5] = "../wap/mid/57.mid"; aMidi[6] = "../wap/mid/69.mid"; aMidi[7] = "../wap/mid/51.mid"; aMidi[8] = "../wap/mid/93.mid"; aMidi[9] = "../wap/mid/75.mid"; aMidi[10] = "../wap/mid/92.mid"; aMidi[11] = "../wap/mid/60.mid"; aMidi[12] = "../wap/mid/71.mid"; aMidi[13] = "../wap/mid/81.mid"; aMidi[14] = "../wap/mid/77.mid"; aMidi[15] = "../wap/mid/55.mid"; aMidi[16] = "../wap/mid/61.mid"; aMidi[17] = "../wap/mid/73.mid"; aMidi[18] = "../wap/mid/85.mid"; aMidi[19] = "../wap/mid/94.mid"; aMidi[20] = "../wap/mid/100.mid"; var Descreve = 1; var aMidiDesc = new Array(); aMidiDesc[0] = "56.mid"; aMidiDesc[1] = "62.mid"; aMidiDesc[2] = "99.mid"; aMidiDesc[3] = "89.mid"; aMidiDesc[4] = "79.mid"; aMidiDesc[5] = "57.mid"; aMidiDesc[6] = "69.mid"; aMidiDesc[7] = "51.mid"; aMidiDesc[8] = "93.mid"; aMidiDesc[9] = "75.mid"; aMidiDesc[10] = "92.mid"; aMidiDesc[11] = "60.mid"; aMidiDesc[12] = "71.mid"; aMidiDesc[13] = "81.mid"; aMidiDesc[14] = "77.mid"; aMidiDesc[15] = "55.mid"; aMidiDesc[16] = "61.mid"; aMidiDesc[17] = "73.mid"; aMidiDesc[18] = "85.mid"; aMidiDesc[19] = "94.mid"; aMidiDesc[20] = "100.mid"; var Quantas = aMidi.length; function rndnumber(){ var randscript = -1; while (randscript < 0 || randscript > Quantas || isNaN(randscript)) { randscript = parseInt(Math.random()*(Quantas)); } return randscript; } i = rndnumber(); sMidi = "<bgsound src='" + aMidi[i] + " ' loop='infinite'>"; document.write(sMidi); if (Descreve == 1) { sMidiDesc = "Você ouvindo o toque de numero:<img src=images/som1.gif width=14 height=10 border=0> " + aMidiDesc[i]; document.write(sMidiDesc); } // --> </script> <!--Fim code MID --> exemplo da pagina:
-
Ai galerinha do Fireworks Eu gostaria de saber como é para tirar o serrilhamento desta imagem valeuzis
-
Ai meu Bruxo so valeu deu bem sertinho grande BARETA
-
Ai galerinha do JavaScript tenho um campo de formulario e não quero que o usuario digite nada do tipo " ! @ # $ % ¨ & * ( ) valeuzis
-
E ai galerinha do ASP Estou com o seguinte problema tenho uma pagina de login aonde crio uma sessio de nome YES e outra de logoff com um link para retornar a pagina de login <a href="logoff.asp?valida= ">Logoff.</a> esta é a pagina ligoff.asp <% if Session.abandon("valida") = " " then response.redirect "senha.asp?resposta=2" %> e da este erro ??? Erro de tempo de execução do Microsoft VBScript error '800a01b6' O objeto não dá suporte para a propriedade ou método: 'Session.abandon' /logoff.asp, line 6
-
Ola a todos com este code deu ! <% ConnString = "bds/cadastro.mdb" DSN = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(ConnString) Set Connexao = Server.CreateObject("ADODB.Connection") Connexao.Open DSN SQLString = "SELECT sum(compra.valor) as valor, sum(compra.quanto) as quanto from compra" Set RS = Connexao.Execute(SQLString) %> <html> <head> <STYLE> BODY { SCROLLBAR-FACE-COLOR: #000000; SCROLLBAR-HIGHLIGHT-COLOR: #ffffff; SCROLLBAR-SHADOW-COLOR: #ffffff; SCROLLBAR-3DLIGHT-COLOR: #000000; SCROLLBAR-ARROW-COLOR: #ffffff; SCROLLBAR-TRACK-COLOR: #ffffff; SCROLLBAR-DARKSHADOW-COLOR: #000000 } </STYLE> <style type="text/css"> a{font-family:verdana;font-size:8pt;color:#ffffff;text-decoration:nome;} input{font-family:verdana;font-size:8pt;color:#ffffff;background-color:#000066;} </style> </head> <body bgcolor="#E0E0E0" ftmargin="0" topmargin="0" marginwidth="0" marginheight="0"> VALOR: <b><%=RS("valor")%></b><br> QUANTIDADE: <b><%=RS("quanto")%></b> </body> </html> <% RS.Close Connexao.Close Set RS = Nothing Set Connexao = Nothing %>
-
Ola Amigo estou de volta. Qual a outra maneira de obter o calculo ???? valeuzis
-
nada amigo so isto que já lhe mostrei valeuzis