AnaoScript

Volta Redonda-RJ A famosa Cidade do Aço Lugar melhor que esse num existe aqui fumando ou não você esta com o pumão cheio de toxinas a CSN polói a cidade todo e as vizinhas proximas Po acho que aqui num existe um programador

eu qeuria sabe como eu faço para parar uma função caso o valor seja invalido Ex: seila.color := clAzul no caso acontecria um erro poqrque a cor clAzul num existe em delphi então como eu verifico se iria acontecer um erro ou não

hehehehe Po tempão quenum posto aqui ae é simples so usar a função length ex: y = 'jean'; x = y.length; T+

if MDIChildCount <=0 then ve se é isso ae

Ae Morphadorm cara graças a um program que um cara me indicou eu conssegui resolver cara e o melhor sozinho a unica dica foi esse programa mas ae vou mostrar como fiz e como desobri o segredo: Esse programa(Color picker) mostra codigo de cor em variso formatos aparentemente inutil mas eu fui ficar brincando e olhando o codigo da cor em delphi e comparando com a usada em paginas Web eu percebi os padrões(Simplessimos) o codigo que vi é esse Delphi = $002255FF html = #FF5522 ta na cara!!! Primeiro eu vi as cors em delphi sempre contia "00" antes do todas a cores logo depois eu vi que as cores delphi são invertidas da html um exemplo no html é usado RGB no delphi seria BGR mas claro ess inverssão não seria por caractere mas sim a cada dois caracteres Ae o codigo e esse: var cor,rgb,r,g,b:String; begin if dl_Color.Execute then cor := ColorToString(dl_Color.Color); if Pos('$',cor) <> 0 then begin delete(cor,Pos('$',cor),Pos('$',cor)); delete(cor,1,2); r := cor; g := cor; b := cor; delete(r,3,length(cor)); delete(g,1,2); delete(g,3,length(cor)); delete(b,1,length(cor)-2); rgb := '#'+b+g+r; end else begin delete(cor,1,2); rgb := rgb+cor; end; cor_Fundo.Text := rgb; A morph valeu por tentar ajudar valeu mesmo ae

Ae sem querer me entrometer mas acho que fazer u logo pra mim é sacanagem po acho melhor o cara enssinar dar dicas ou acompnhar passo a passo pois esse forum foi feito pra aprender e não pra prestar serviços comunitarios Ae marcelo não é nada contra você não pois eu já quase fiz a mesma coisa que você so não fiz por achar sacanagem pois imagine você a cada site que você for fazer pedir pra alguém no forum fazer pra você Moleza nê!!! Por exemplo eu vi aquele tuto(Globo) do Slip e estou consseguindo fazer alguma coisa Ae se o cara te der dicas vão servir para todos forum(Eu) entende já se ele fizer pra você isso vai deixar de ser um forum Ae eu pensso assim mas cara não esquenta comigo não eu so quero ve a galera(Eu ) aprender T++

Ae qaundo você criou a tabela no campo id(numero do cadstro) você coloca "auto_increment" È isso ou você quer quer que o numero que apreçe na pagina mude toda vez que alguém se cadstrar? Acho que a unica solução é atualizar a pagina constantemente(30seg)

Ae jissa valeu cara tu é d+ Ae dizem que js é pequeno nõ da pra chegar onge com js hahahaha isso porque eles não te conhece!!! Ae vo vê que que eu conssigo fazer com essa parada depois eu posto (Se sairalguma coisa)

Ae jissa faz tempo que eu não emcho com JissaScript pois to enferrujado mas ae tem uma coisa nesse codigo que não to entendede <script language="C#" runat="server"> void click(object sender, EventArgs e) { btnPress.Text = "CHANGED"; } </script> <asp:Button id="btnPress" style="Z-INDEX: 102; LEFT: 233px; POSITION: absolute; TOP: 110px" runat="server" Text="PressMe" onClick="click"> </asp:Button> Ae esse botão não aparece e a funcõa a unica coisa que eu entendi é que quando clickar no btnpress vai mudar sei la ae se que é o mestre me explica JissaScript = Tudo que não for humanamente legivel

Ae jissa que troço é esse cara isso é java script asp c# ou activeX ou pode JissaScript Ae legal nunca vi nada igual

8.0 ficou legal muito criativo

A SlipkNot parebens ae pelo tutorial e pelo belo gosto de musica vei graças a esse tuto eu conssegui fazer um logo pela primeira vez Ae você podia fazer um totrial de um layout completo sabe dedo do logo ate a o layout nterio po vai ficar Dez T+

Ae pra fazer ua radio fica mais trabalhoso mas entre na seção de php la ele pode te ajudar melhor e sobre uma musica infinita é na seçao de HTML mas já que estou aqui <bgsound src="http://musica.wav" loop="-1"> Ae não asseita MP3 Falo

Ae vei se rgistrA NO FORUM for i=1 to 10 do begin x='teste'+IntToStr(i); valor= x.Value; {a variavel x seria o nome da variavel no banco de dados. Só que desta forma não dá certo} Ae o unico erro é que é uma variavel não possue propriedade Value pois o valor dela é ela Ex: x:='teste'+IntToStr(i); valor:= x; Obs: você não coloco ":=" para atribuir o valor

Cara o til bill merece ou cara foi muito maneiro

Pelo amor de deus olha que esses são os melhores que nos temos :P esse mundo não é mais mundo :D :D

Ae so de teste eu so digitei não deixei espaço e mudei minha assinatura

Ae então quando saie as camisas ? :D

Ae pode colocar o cargo tb mas oproblema é que como eu a pessoa pode sair do cargo de então ficaria chato o cara usando a camisa escript o cargo se ele não é mais Seria justo uma enquete :D

Ae eu to fazendo u editor de html a anos mas tipo eu quero inserir umcodigo de cor RGB de html aquele com 6digitos mas no dialog que tem no delphi o resultado do rgb sai em 8 digitos como eu trosformo para ficar o codigo de cor para internet

Ae fala serio Barara tu manda muito cara as camisas ficaram muito massa mas ae eu gostei mais da primeiro(preta) Ae tipo eu acho melhor ter os nick mas sem o cargo os motivos seriam Poderia reconhecer um membro do forum pela camisa E o cargo nõa pois poderia mudar Mas ae estou a espera das camisetas :D

Po dir eu sei que não é so reponder mas sei la eu acho que deveria ajudar tb sabe eu vejo de forma diferente mas esquece vei você a conta do trabalho e tb sempre que puder eu to aqui sem contar do jissa aquele já ta doente por js :D

Valeu muleke Micheleti Micheleti Micheleti Micheleti Micheleti Micheleti Micheleti Micheleti Micheleti Micheleti Micheleti Micheleti Micheleti Micheleti Micheleti Micheleti Micheleti Micheleti Micheleti Micheleti Micheleti Micheleti Micheleti Micheleti Micheleti Micheleti Micheleti Micheleti Micheleti Micheleti Micheleti Micheleti Micheleti Micheleti Micheleti Micheleti Micheleti Micheleti Micheleti :D mas ae vei presente do Anão pra vcsss (links para compentes) http://www.querosites.kit.net/delphi/scrip...42491192001.zip http://www.querosites.kit.net/delphi/scripts/advmenus.zip http://www.querosites.kit.net/delphi/scrip...71729292001.zip http://www.querosites.kit.net/delphi/scripts/asone.zip http://www.querosites.kit.net/delphi/scripts/automailer.zip http://www.querosites.kit.net/delphi/scripts/automation.zip http://www.querosites.kit.net/delphi/scripts/awb.zip http://www.querosites.kit.net/delphi/scripts/backfile.zip http://www.querosites.kit.net/delphi/scripts/blowfree.zip http://www.querosites.kit.net/delphi/scripts/Bmp2Jpg.zip http://www.querosites.kit.net/delphi/scripts/brccexpert.zip http://www.querosites.kit.net/delphi/scripts/cachedq2.zip http://www.querosites.kit.net/delphi/scripts/cgifreepas.zip http://www.querosites.kit.net/delphi/scrip...28811142001.zip http://www.querosites.kit.net/delphi/scripts/ChopShop.zip http://www.querosites.kit.net/delphi/scrip...D7601792000.zip http://www.querosites.kit.net/delphi/scrip...94568312000.zip http://www.querosites.kit.net/delphi/scripts/CursorPos.zip http://www.querosites.kit.net/delphi/scripts/CustomFil.zip http://www.querosites.kit.net/delphi/scripts/dialup.zip http://www.querosites.kit.net/delphi/scrip...pconnection.zip http://www.querosites.kit.net/delphi/scripts/drivescan.zip http://www.querosites.kit.net/delphi/scripts/dttm.zip http://www.querosites.kit.net/delphi/scripts/dws2l10.zip http://www.querosites.kit.net/delphi/scripts/ENCRYPTER.zip http://www.querosites.kit.net/delphi/scripts/Encryptor.zip http://www.querosites.kit.net/delphi/scripts/esbdat18.zip http://www.querosites.kit.net/delphi/scripts/esbmth21.zip http://www.querosites.kit.net/delphi/scripts/expbox.zip http://www.querosites.kit.net/delphi/scripts/expdlg.zip http://www.querosites.kit.net/delphi/scripts/f1hlp05.zip http://www.querosites.kit.net/delphi/scripts/GETIP.zip http://www.querosites.kit.net/delphi/scripts/ICQ.zip http://www.querosites.kit.net/delphi/scripts/Improved.zip http://www.querosites.kit.net/delphi/scripts/IMT.zip http://www.querosites.kit.net/delphi/scripts/IP.zip http://www.querosites.kit.net/delphi/scripts/jel.zip http://www.querosites.kit.net/delphi/scripts/JPG2HTML.zip http://www.querosites.kit.net/delphi/scripts/keepfiles.zip http://www.querosites.kit.net/delphi/scripts/LZW.zip http://www.querosites.kit.net/delphi/scripts/nonvisual.zip http://www.querosites.kit.net/delphi/scripts/ntcurs32.zip http://www.querosites.kit.net/delphi/scripts/paszlb10.zip http://www.querosites.kit.net/delphi/scripts/pathed11.zip http://www.querosites.kit.net/delphi/scripts/quit.zip http://www.querosites.kit.net/delphi/scripts/READING.zip http://www.querosites.kit.net/delphi/scripts/RXLIB275.ZIP http://www.querosites.kit.net/delphi/scripts/sendkeys.zip http://www.querosites.kit.net/delphi/scrip...eautomation.zip http://www.querosites.kit.net/delphi/scripts/wavepnl2.zip Segue abaixo os links das 6 apostilas Delphi: www.querosites.kit.net/delphi/apostilas/delphi.zip www.querosites.kit.net/delphi/apostilas/delphi3.zip www.querosites.kit.net/delphi/apostilas/delphi4.zip www.querosites.kit.net/delphi/apostilas/delphi4basico.zip www.querosites.kit.net/delphi/apostilas/delphi6.zip www.querosites.kit.net/delphi/apostilas/delphibd.zip Ae micheliti que tal fazer um tópico suspenso com links pra componentes e apostilas :D

Po cara foi mal ae mas ontem eu tava com sono mas ae o codigo <script LANGUAGE=JAVASCRIPT TYPE "TEXT/JAVASCRIPT"> <!-- function checacpf (cpf){ if (cpf.length != 11 || cpf == "00000000000" || cpf == "11111111111" || cpf == "22222222222" || cpf == "33333333333" || cpf == "44444444444" || cpf == "55555555555" || cpf == "66666666666" || cpf == "77777777777" || cpf == "88888888888" || cpf == "99999999999") return false; soma = 0; for (i=0; i < 9; i ++) soma += parseInt(cpf.charAt(i)) * (10 - i); resto = 11 - (soma % 11); if (resto == 10 || resto == 11) resto = 0; if (resto != parseInt(cpf.charAt(9))) return false; soma = 0; for (i = 0; i < 10; i ++) soma += parseInt(cpf.charAt(i)) * (11 - i); resto = 11 - (soma % 11); if (resto == 10 || resto == 11) resto = 0; if (resto != parseInt(cpf.charAt(10))) return false; alert('CPF correto.'); return true; } function ValidaForm() { var verdade = false; if (form1.Nome.value == ""){ alert("Você precisa informar o seu Nome") form1.Nome.focus(); verdade = false } if (form1.Cidade.value == ""){ alert("Você precisa informar o seu Cidade") form1.Cidade.focus(); verdade = false } if (form1.Email.value.indexOf("@") == -1){ alert("Você precisa informar o seu Email") form1.Email.focus(); verdade = false } if ((form1.Sexo[0].checked == false) && (form1.Sexo[1].checked == false)){ alert("Você precisa informar o seu Sexo") verdade = false } for (i = 4;i < 9;i++){ if (form1.elements.selectedIndex == 0){ alert("Você precisa informar o seu "+form1.elements.name); Verdade = false; } if (i == 6) i = 7 } if ((form1.plano[0].checked == false) && (form1.plano[1].checked == false)&& (form1.plano[2].checked == false)){ alert("Você precisa informar o seu Plano") verdade = false } if (!checacpf(document.form1.Cpf.value)){ alert('CPF invalido, por favor digite-o novamente.'); } if (form1.senha.value.length < 8 && form1.senha.value != ""){ if (form1.confsenha.value != form1.senha.value){ alert("Preencha dereito seu nalfabeto"); form1.confsenha.value = ""; form1.senha.value = ""; } }else{ alert("Preencha a senha cara"); form1.senha.value = ""; form1.confsenha.value = ""; } } //--> </script> Ae cara os nome dos form você tem que mudar ta ae a lista com o os nomes mas tem de ser exatamente como esta tipo ate letra maiscula e minhuscula formulario = form1 nome = Nome Email = Email cidade = Cidade sexo = Sexo plano = plano cpf = Cpf Senha = senha cofirmação de senha = confsenha Ae os nome eu tive de muda porque eu fiz sem olhar os nome eu imaginei dai eu vi que tava dando erro então eu udei os nome mas eu fiz mo bagunça no codigo que estava comogo então é so colar esse ae falo vei Ae troca o a parte do codigo onde tem a data por esse aqi <select name="dia"> <option value=-1>Dia</option> <script LANGUAGE=JAVASCRIPT TYPE "TEXT/JAVASCRIPT"> <!-- var minMes = 1; var maxMes = 31; for (minMes; minMes <= maxMes; minMes++){ document.write("<option value="+minMes+">"+minMes+"</option>"); } //--> </script></select> / <select name="mes"> <option value=-1>Mês</option> <option value=1>JAN</option> <option value=2>FEV</option> <option value=3>MAR</option> <option value=4>ABR</option> <option value=5>MAI</option> <option value=6>JUN</option> <option value=7>JUL</option> <option value=8>AGO</option> <option value=9>SET</option> <option value=10>OUT</option> <option value=11>NOV</option> <option value=12>DEZ</option> </select> / <select name="ano"> <option value=-1>Ano</option> <script LANGUAGE=JAVASCRIPT TYPE "TEXT/JAVASCRIPT"> <!-- var minAno = 1900; var maxAno = 2003; for (minAno; minAno <= maxAno; minAno++){ document.write("<option value="+minAno+">"+minAno+"</option>"); } //--> </script> </select> é que se vez tudo na mão ali ele já faz um loop e fica tudo pronto T+ (Ae jissa eu sai por isso viu cara pressisa da parada mas eu não posso atender na hora :D )

Cara quando eu folo que to ruin em js é porque eu to viu jissa esescript ta me dando dor de cabeça :D po antigamente eu fazia isso nomole mas não sei orque ta dando pau mas ae eu vo dormi amnha eu faço pra tu vei mas ae cara amanh eu posto pra você ae o codigo bunitinho tudo feitinha e ainda o codigo ta menor pois aqueles anos cara você é guerrero tu fez 1002 options na mão cara:D Foi mal ae mas amnha sem falta