kuroi

correto até esta, pois na verdade 22,5º = 22º30' já que um grau tem 60 minutos. só q ele não esta mostrando no formato desejado. pra isso, você vai ter fazer a conversao. tipo, você tem pegar o numero depois da virgula e, considerando duas casas decimais (no exemplo, a cima o 5 ficaria 50, pois 22,5 = 22,50), dividir por 100 e multiplicar por 60. e ai você vai obter o valor em minutos. nesse tópico aqui http://scriptbrasil.com.br/forum/index.php?showtopic=108910 tb tem uma funcao q converte segundos para hora. se você passar o valor todo em segundos. ai você poderia adaptar, passando o valor em minutos. veja ai se você entendeu, qualquer coisa poste.

opa, movido de volta pra SQL, então. então, mas você instalou algum manager pro SQL?? recomendo q você baixe algum e instale porque eles gerenciam o banco de dados e facilitam o uso. ai você criaria a consulta q você quer direto no manager. um manager bastante usado é o SQL Management Express, faca uma busca no google, e instale ele q é de graca. ou caso você já esteja usando algum manager, qual o nome dele??

no design do form, copie o controle Winsock, cole e quando ele perguntar "Do you want to create a control array?", clique em Sim. e ai sempre q você adicionar um novo você vai ter um indice a mais do array. mas você pode apagar o segundo winsock q apareceu e adicionar os demais via codigo assim: Load Winsock1(novo_indice) na sub ConnectionRequest. acredito q você esteja usando-a pra aceitar a conexao, não?? Mais ou menos 50% das vezes. sei la, talvez porque você feche o programa mas o Winsock antigo continue na memoria. no Unload do Form, tente adicionar o codigo: Winsock1.Close Set Winsock1 = Nothing[/code]

opa. usar onde exatamente?? em textbox, em consulta sql, a variavel q não ta reconhecendo, etc?? explica melhor ae e de preferencia poste seu codigo pra gente ver.

manda sim. mas todos os Clientes é só um Cliente, você não consegue conectar dois clientes no mesmo objeto winsock. bom, pelo menos eu nunca consegui, acho q o winsock não deixa mesmo, tb porque depois q a primeria conexao chega, você para o listen e conecta com o cliente. pra fazer outro listen o esquema q eu arranjei é criar um array de winsocks e cada conexao q chegar no servidor, adicionar um winsock novo no form e dar o listen. não precisa nem mudar a porta. ai quando for mandar a mensagem você faz um for e manda pra todos os clientes. sei la, pode ser falha na comunicao dos seus pcs sei la. talvez seja porque você tentou abrir quando tava uma outra instancia aberta do servidro ou do cliente. é muito frequente dar 9??

isso é em uma classe?? acho q você tem declarar a sub do mesmo tipo dessa variavel. mas posta o codigo pra gente ver.

você quer abrir pra editar?? então você precisa do programa Crystal Reports.

primeiro note q a porta 100 na verdade é a RemotePort do cliente e não a local. você mandou ele procurar a porta 100 aberta no servidor, mas imagino q ele deva abrir uma porta random no cliente pra poder fazer a conexao e é esse valor q você ta passando pro servidor. o numero ta cehgando estranho, imagino porque você deve estar pegando os dados como string do outro lado não?? Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Dim x As String Winsock1.GetData x, vbString Text1.Text = x End Sub[/code] tipo isso q você ta fazendo não?? mas se você entrar nas propriedades do Winsock (F2 ou, no codigo, clique com o botao direito onde estiver escrito LocalPort como propriedade do winsock e clique en Definition) você vai ver q o LocalPort na verdade é do tipo Long, você não vai conseguir ler como String. ou você converte pra String com CStr() antes de mandar, ou você da um GetData como vbLong, mas acho q a primeira opcao seria melhor já q imagino q você va passar varias strings no SendData.

é mas tenta usar a propriedade RemoteHost e não RemoteHostIP, você já fez isso?? o terceiro erro acredito q ocorre porque ele não conectou com o servidor. tipo cheque a propriedade State do winsock cliente. se for 7 significa q esta conectado, veja a lista de states q o macoratti passa aqui: http://www.macoratti.net/winsock.htm talvez na verdade ele ate conecte, mas como você ta pondo a linha pra mandar a mensagem logo depois do connect, pode ser q ele esteja com o status 6 (conectando) e ai ele vai dar esse erro, pois demora um poco pra conectar. tenta, depois do connect chamar um timer q cheque o state do winsock cliente. se chegar em 7, você da esses senddata, desabilita o timer e poe o programa pra funcionar. caso chegue em 9 (erro) é porque não conseguiu conectar, ai nesse caso posta aqui de novo.

pro alinhamento é na propriedade ColAlignment. tipo assim: MSHFlexGrid1.ColAlignment(1) = flexAlignCenterCenter pro formato não sei. quando vou setar os dados direto do banco assim como você faz, sempre uso o DataGrid. O FlexGrid, só uso quando preciso preencher as colunas na mao com o TextMatrix. ai eu faco o formato na hora de preencher o TextMatrix.

bom, imagino q você esteja passando o ip do computador em vez do texto "Meu IP", certo?? mas no outro pc, ta o programa rodando com um listen no localport com o mesmo numero da porta q você ta passando no cliente?? se tiver, então tenta, no cliente, em vez de usar a propriedade RemoteHostIP, passe o nome do pc servidor na propriedade RemoteHost.

pode ser esse tópico mesmo. se quiser add rafaelsposito[a]hotmail.com

o bom do flexgrid é q você pode editar qualquer linha e coluna como bem entender, com o TextMatrix.

o q você quer dizer com "torto la pra cima na esquerda"??

cobol ensina na minha faculdade. é optativo, talvez eu faca. hum achei aqui agora. é o crlf q faz isso, ele muda o texto todo pra azul assim q você digita, antes ainda de entrar no loop. por enquanto, uma gambiarra q vai resolver, é adicionar o seguinte codigo: txtCaixa.SelStart = 0 txtCaixa.SelLength = Len(txtCaixa.Text) txtCaixa.SelColor = vbBlack[/code] depois de [code]txtCaixa.Text = txtCaixa.Text & Tabela("Nick") & " diz: " & Tabela("Msg") & vbCrLf mas ainda quero descobrir porque ele dexa azul, se eu descobrir posto aqui.

bom, pelo menos sua vó deve entende melhor q eu ahahahah mas como assim tudo azul?? o texto todo da textbox esta azul?? todas as letras, todas as palavras??

hum, você criou a Soma no Declarations. ai ela guarda sempre o ultimo valor. a primera coisa no clique do botao, poe pra zerar ela e veja se não funciona. mas mano, você ta usando DAO pra acessar os bancos?? para com isso, esse negocio é da época da minha vó ahahahha. use ADO q é mais novo e melhor veja aqui: http://www.macoratti.net/ado.htm e esse tb: http://www.macoratti.net/dao_ado.htm

mano agora não tem erro não, ta testado e funcionando aqui ahahha como ficou o codigo todo agora??

veja q as duas linhas q estao txtCaixa.SelStart = Posição eram pra ser txtCaixa.SelStart = soma porque a posicao vai pegar a posicao a partir do mid. exemplo, se o mid vai comecar na posicao 10, e o nick ta na posicao 12, a variavel posicao vai retornar 2, mas o selstart tem q ser 12. a variavel soma vai guardar a posicao exata relativa ao txtCaixa.Text, enquanto q a Posição vai guardar a posicao em relacao à ultima ocorrencia do nick. EDITADO: é, foi mal, olhei meu post e vi fui eu q passei errado. antes de postar testei aqui e tinha feito certo, mas meus nomes de variaveis tavam diferentes e na hora de postar acabei trocando errado.

marvi, testei aqui e funcionou tanto no firefox quanto no ie, só com a margin de 515, sem as hacks. de uma olhada, o codigo todo ficou simplesmente assim: <html> <head></head> <body> <div style="border: 1px solid #000000; height: 275px; width: 255px; position:absolute; background-color: #000000; margin-top: 230px; margin-left: 515px;"></div> </body> </html>[/code] e funcionou certinho, nas duas resolucoes, nos dois navegadores, não aparece barra de rolagem não.

hahah é só um loop infinito, a primera vez q você ve um assusta mesmo hahaha. o q acontece é q eu fiz o código pra ele ficar em loop enquanto a posicao for diferente de 0. so q eu fiz o codigo errado e ele não ser diferente de 0 nunca. ou seja, ele vai ficar dentro do loop pra sempre. hahah antigamente quando acontecia isso, eu tb fechava o visual basic todo e perdia tudo q eu não tinha salvo. mas quando isso acontecer de novo é só apertar Ctrl + Break q ele para. corrigi o codigo aqui, o problema é q no codigo q eu fiz esqueci de fazer o posicao considerar o texto todo. tipo, a partir do segundo InStr, ele conta a posicao apenas a partir do inicio do Mid(), não conta o texto todo. a solucao é por uma variavel (no caso pus nela o nome de soma) pra ir somando as posicoes. tipo assim: Posição = InStr(txtCaixa.Text, Tabela("Nick")) soma = soma + Posição - 1 txtCaixa.SelStart = Posição txtCaixa.SelLength = Len(Tabela("Nick")) txtCaixa.SelColor = vbBlue soma = soma + Len(Tabela("Nick")) Do While Posição <> 0 Posição = InStr(Mid(txtCaixa.Text, soma + 1), Tabela("Nick")) If Posição <> 0 Then soma = soma + Posição - 1 txtCaixa.SelStart = Posição txtCaixa.SelLength = Len(Tabela("Nick")) txtCaixa.SelColor = vbBlue soma = soma + Len(Tabela("Nick")) End If Loop[/code] veja se funciona ae.

é... estranho... não devia mudar... não sei não... acho q a não ser q você ponha um alias em cada campo no select, você vai ter q mudar de novo os nomes no grid depois de cada filtro. você pode facilitar isso fazendo uma funcao q mude os titulos.

de um mid() a partir da posicao onde estava o nick pela ultima vez. tipo assim: Posição = InStr(txtCaixa.Text, Tabela("Nick")) txtCaixa.SelStart = Posição txtCaixa.SelLength = Len(Tabela("Nick")) txtCaixa.SelColor = vbBlue Do While Posição <> 0 Posição = InStr(Mid(txtCaixa.Text, Posição + Len(Tabela("Nick"))), Tabela("Nick")) If Posição <> 0 Then txtCaixa.SelStart = Posição txtCaixa.SelLength = Len(Tabela("Nick")) txtCaixa.SelColor = vbBlue End If Loop[/code] deve funcionar mais o menos assim, tenta ai. só de curiosidade... o q é Tabela?? um RecordSet??

nem, só postei pra dexar vocês bravos hahaah zuera mas não gosto do ozzy mesmo. ouvia metal na epoca da oitava serie, depois vi q não prestava, é comercial demais, percebi q o lado subversivo e alternativo q eu via no metal era só superficial e fiquei de saco cheio.

hum, qual versao do SQL você usa??