alexandremanowar

Cara não achei nada referente ao evento closing? Não achei nada nas propriedades e nem nos eventos do form principal. Como e onde devo criar esse evento?

E aí Graymalkin beleza Então demorei o tempo esta empaçado! mas vamos lá. Estou testando o esquema mas esta dando errado fiz um pequeno form com a MSN de aquarde e chamei ele antes do loop dessa forma: Dim f As New form_aguarde f.MdiParent = Me f.Show() e depois tento fechar assim: Dim f As New Principal f.MdiParent = Me f.Show() Mas esta fazendo uma bagunça rsrs estra dando pau! Como eu devo abrir esse form que você falou e usar essa opção: Application.DoEvents() ? Valeu pela força

E aí pessoal beleza! Eu estou trabalhando com winform usando vb.net 2005 na versão express. Eu gostaria de saber o seguinte: 1) gostaria de controlar o "X" fechar do form MDIPai do meu projeto, gostaria de fazer isso porque eu quero que ele realize uma rotina antes de fechar o programa. Já procurei e não achei nada. É possível fazer isso? 2)Eu fiz um teste de publicação de projeto e instalei ele em outra máquina. A instalação funcionou, porém antes de instalar o projeto eu tenho que instalar outros componentes que meu projeto usa que no caso são: banco de dados mysql, mysql-conector.net e jogar uma cópia do bando de dados que meu projeto usa no mysql que instalei. Isso é meio incomodo o certo seria fazer um empacotamento que já faça tudo ele empacote o projeto com o banco e o instaladores necessários e instale tudo automáticamente. Procurei mas a opção de publicação do meu vb.net é muito básica não tem nada. Tem algum modo de publicar isso completo? A versão full do visual studio.net tem essa opção? Se não tiver existe algum programa que faça isso? Valeu

Valeu a todos Entendi o recado. Mas será que não existe um livro que de ensine essa lógica?

E aí galera beleza! Eu estou querendo aperfeiçoar meus conhecimentos em php, e estou querendo usar ele estruturado em objetos, então estou procurando um lugar para fazer curso, as escolas que vi são muito caras tudo acima de 1.000 até 3.000, eu não tenho muita grana. A grade do curso que eu queria fazer é essa: Compreendendo o mundo OO: - Abstração - Encapsulamento - Herança - Polimorfismo Usando orientação a objetos na web Análise do HTML do ponto de vista dos objetos Construção de superclasses/subclasses Ojetos inteligentes em PHP Aplicativos web complexos: - Automação (técnica para reduzir drasticamente o tempo de criação de um aplicativo para o desenvolvedor) - Iframe zero - Escrevendo conteudo dinâmico em tempo de execução em um iframe - Iframes virtuais - Iframes recursivos Usando Ajax Programações não lineares (simplificando grandes sistemas em apenas algumas classes) Alguém pode me dar alguma dica?

E aí pessoal beleza Então eu estou fazendo um programa em vb.net 2005 com winform e tem algumas partes dele que são loops tipo assim: O form tem um botão armazenar, quando eu clico ele ativa uma sequência de armazenamento em banco de dados, esse armazemento é feito dentro de um loop porque amazena vários tipos de informações. Eu gostaria que enquanto o processo do loop esta em adamento, apareça uma caixa de MSN acima do form com a MSN: aguarde!, enquanto tiver essa caixa nada no sistema pode ser acessado. Assim que o loop terminar o trabalho a caixa sai e o sistema pode ser operado novamente. Como eu posso fazer isso?

E aí beleza Então seguindo seus conselhos eu resolvi o problema assim: A conexão ficou assim na abertura do form: Try conn_local.Open() Catch ex As Exception MsgBox("Erro ao conectar o servidor local", MsgBoxStyle.Critical, "Erro") End Try No objeto timer fiz o teste usando o ping dessa form If conn_local.Ping = False Then conn_local.Open() End If 'aqui fica o trabalho com o sql Dessa forma funcionou! Porém você falou no caso de se a conexão fica um tempo sem mexer ela desativa! Qual seria a solução para isso? Essa mesmo que já fiz? Porque tenho um problema parecido, a conexão fica ativa mas só de vez em quando alguém usa aí depois de um tempo ela desativa. Valeu

E aí pessoal beleza Bom vamos lá deixa eu corrigir. Eu abro a conexão quando eu abro meu form, dessa forma: Try conn_local.Open() Catch ex As Exception MsgBox("Erro ao conectar o servidor local", MsgBoxStyle.Critical, "Erro") End Try Essa é a única vez o a conexão é aberta e ela fica aberta até que programa seja fechado(ou o pau aconteça rsrs) Aí eu tenho um objeto timer(onde fica apenas minha função sql nada de conectar e desconectar eu mudei aquele erro fatal rsrs) que fica armazenando informação a cada um minuto o sistema funciona bem durante todo o dia mas quando vira o dia de 23:59 para 00:00 a conexão termina e da essa MSN de erro na função SQL que esta dentro do timer: Connection unexpectedly terminated Ou seja conexão terminada. Agora não sei se estou certo mas acho que tem muito a ver com a virada do dia ou a conexão tem um tempo limite e depois termina sózinha por padrão, não conheço muito! Eu li o POST que o mestre fyoda deixou mas não achei resposta para esse erro. Meu problema não esta em conectar esta conectando e fica horas conectado e armazenando o problema é que a conexão finaliza sozinha! Tem alguma idéia do que pode ser?

E a e galera beleza Eu fiz um código em vb.net 2005 para desktop onde ele conecta o meu banco mysql e faz a rotina de sempre consultar e armazenar etc, o banco esta funcionando legal porém acontece o seguinte. Quando eu inicio o sistema eu faço teste armazeno as informações numa boa mas se eu deixo o sistema conectado várias horas eu vou armazenando os dados porém quando chega uma certa quantidade de horas ("tipo virada de dia") ele dá falha na conexão e não deixa conectar mais! Será que isso tem a ver com a data a conexão tem que ser renovada sei lá??? Olha meu código: Esse é o módulo: Imports MySql.Data.MySqlClient Module conexao_local 'conecta ao banco de dados local Public conectar_local As String = "server=localhost;user id=root;password='';database=banco" Public conn_local As New MySqlConnection(conectar_local) End Module Esse é código que faz a conexão e os trabalhos com o banco: Dim aprovado As Integer = 0 Try conn_local.Open() aprovado = 1 Catch ex As Exception MsgBox("Erro ao conectar o servidor local", MsgBoxStyle.Critical, "Erro") End Try If aprovado = 1 Then 'caso a conexão passe numa boa ele entra aqui e faz as consultas e armazenamentos numa boa conn_local.Close() End If Então como eu disse quando eu inicio o sistema consigo trabalhar nele durante horas armazenando e consultando mas fiz uns testes alterando o relógio da máquina para o dia seguinte e aí ele entra no catch e apresenta a MSN de erro de conexão e não conecta mais de forma nenhuma a não ser que reinicie o programa aí volta tudo de novo numa boa. A esse código de conexão esta dentro de um objeto timer pois as consultas no banco são feitas de tempo em tempo automáticamente. O timer é simples configurando para fazer a verificação a cada 1 minuto de segundos. Não acredito que ele seja o problema pois não faz a nada a não ser ficar fazendo o loop dele. Ou estou errado? Alguém sabe porque esta dando esse erro?

E a e pessoal beleza Então fiz a quebra da variável dessa forma: VARIAVELSTRING = VARIAVELSTRING.Substring(0,16) Funcionou legal Entendi o esquemas dos da e ds. Vou declarar onde vou usar mesmo como disse o Graymalkin fica melhor na hora de mexer denovo no código. Valeu pela força pessoal mais uma vez tive uma ótima aula aqui com o pessoal do fórum Um abraço at+

E aí beleza Cara valeu pelas explicações! O problema da string que estou tendo é o seguinte. Por exemplo eu faço uma consulta em um banco e um dos campos é o campo "nome" aí eu pego o nome que esta armazenado nesse campo que pode ser "Epamindas aaaa bbbb pereira dos campos matos nascimento" Aí esse nome é enorme e eu armazenei ele na variável "nome" e vou exibir em algum lugar porém quero exibir apenas os primeiros 10 caracteres e não o nome inteiro que esta na variável. Como eu faço isso? Agora quanto as minhas outras perguntas acima, analisando bem é meio inútil declarar as mesmas dentro do módulo porque de certa forma eu tenho que repetir ela dentro do botão ou form que eu vou usar! logo só estou duplicando código. Ou estou errado?

Entendi cara valeu, realmente dessa forma fica mais claro o código. Aproveitando que estamos falando de limpeza de código rsrs eu fiz um módulo de conexão dessa forma: Module conexao_local 'conecta ao banco de dados local Public conectar_local As String = "server=localhost;user id=root;password='';database=banco" Public conn_local As New MySqlConnection(conectar_local) End Module Aí dentro do form é que eu estou puxando o restante da consulta dessa forma: .... conn_net.Open() Dim consulta As New MySqlCommand("select * from cadastro where codigo = " & Trim(recebe) & " limit 1", conn_net) Dim da As New MySqlDataAdapter(consulta) Dim ds As New DataSet() da.Fill(ds) .... O que eu queria era deixar essa parte Dim da As New MySqlDataAdapter(consulta), Dim ds As New DataSet() junto com o módulo assim aqui eu só chamaria aí eu deixei no módulo desse jeito: Module conexao_local 'conecta ao banco de dados local Public conectar_local As String = "server=localhost;user id=root;password='';database=banco" Public conn_local As New MySqlConnection(conectar_local) Dim da As New MySqlDataAdapter Dim ds As New DataSet() End Module No módulo não deu pau mas não sei como chamar dentro do form! eu chamei assim: .... conn_local.Open() Dim consulta As New MySqlCommand("select * from banco where campo1 = " & Trim(recebe) & " limit 1", conn_local) da(consulta) da.Fill(ds) .... Mas esta dando que da e ds não forão declados! Porque se já esta no módulo? Outra coisa que eu gostaria de aprender é como deixar a função de consulta no módulo também ou seja essa parte Dim consulta As New MySqlCommand aí nos forms ou botões eu só chamava a consulta e jogava a query do banco. É possível? Um outro problema que estou enfrentando é para reduzir a quantidade de carcteres de um string por exemplo quando pego a string de um campo do banco e armazeno eu uma variável e quero limitar em 10 caracteres para exibir na tela como se faz isso? Velu pela força

E a e graymalkin beleza Então não entendi essa parte: Parece ser mais organizada você poderia me explicar como se faz? Valeu

E aí Graymalkin beleza Consegui fazer e deu tudo certo, achei uns tutoriais na net e consegui chamar a dll e executar a função de enviar e receber informação da máquina olha como esta o código: Esse é o modulo: Module Funcoes Public Declare Function abreporta Lib "caminho\TIBethvb.dll" (ByVal n%) As Integer Public Declare Function closecom Lib "caminho\TIBethvb.dll" (ByVal m%) As Integer Public Declare Function envtmsg Lib "caminho\TIBethvb.dll" (ByVal mConj%, ByVal mcan%, ByVal mstr$) As Integer Public Declare Function getcnt Lib "C:\caminho\TIBethvb.dll" (ByRef mstr$, ByRef mcan%, ByVal conj%) As Integer Public x As Integer End Module Esse é o código que esta no form: Public Class Principal Public Sub Principal_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load x = abreporta(4) End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click x = envtmsg(0, 0, "Graças a Deus") End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick 'Dim r2 As String Dim canal As Integer Dim conjunto As Integer Dim recebe As String recebe = Space(255) conjunto = 0 Dim retorno As Integer retorno = getcnt(recebe, canal, conjunto) If retorno <> 0 Then MessageBox.Show(recebe,"resultado") End If End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click x = closecom(0) End End Sub End Class Existe alguma forma melhor de fazer isso? Se existir me explique por favor Tenho uma dúvida ainda nesse tópico por exemplo eu declarei a funcção dessa forma no móduloPublic Declare Function abreporta Lib "C:\vb\Deals Access\TIBethvb.dll" (ByVal n%) As Integer Essa parte: "C:\vb\projetoTIBethvb.dll" eu tive que declarar o caminho físico da dll não tem como eu incluir ela no meu projeto para não precisar colocar o caminho físico? porque dessa forma na hora de distribuir o projeto vai dar problemas por que ele vai ser instalado dentro do arquivos de programas!

E aí pessoal beleza Eu tenho uma máquina colleter TED-1010 TCP/IP, essa máquina tem um pequeno teclado numérico e um enter, vem com uma dll de controle e um software que configura o ip dela na rede e cria uma porta de comunicação, no caso deixei como com4 ela fica plugada direto no meu suite, a empresa libera essa dll para usar em vb onde eu crio a comunicação de envio de dados da máquina de um software em vb e o vb devolve resposta no pequeno visor que a máquina tem. O modelo da máquina que comprei é esse : Modelo da máquina A máquina vem com um software em vb de teste instalei a máquina e o software em vb e a comicação funcionou normal tudo o que digitava na máquina e teclava o enter dela aparecia no software vb, e o software vb jogava uma MSN na tela da máquina, o software de exemplo dos caras foi feito em vb 6, mas eu estou estudando vb.net 2005 para desktop Eu li o manual que veio com a máquina e entendi o seguinte com essa dll eu abro a porta que esta a máquina e recebo a informação e evio a resposta, quando eu fechar o programa ele vai fechar a porta Eu gostaria de aprender como eu faço um software desse em vb.net 2005 desktop nunca fiz, como eu uso essa biblioteca para receber os dados da máquina e exibir na tela em um label e enviar a resposta de recebimento para o visar da máquina? O nome da dll é: TIBethvb.dll Alguém pode me explicar? obrigado

Cara entendi valeu pela força, obrigado e at+

Cara valeu pela força. Mas encomodando mais um pouco acho que não entendo a regra de três que você mencionou rssr soui meio lerdo, por exemplo eu peguei o que esta depois da vírgula dessa forma: $minutos = explode(".",$teste); $minutos = $minutos[1]; Assim eu tenho o que esta depois do ponto mas não consegui transformar isso nos minutos que no caso seriam 24 minutos o resultado

Entendi cara eu estava fazendo pelas horas e no caso é pelos segundos, mas eu tenho outra dúvida, nesse caso eu tenho as horas inteiras e se eu tiver as horas quebradas, tipo dessa forma: $date = strtotime("10/23/2007 10:12"); $dateTo = strtotime("10/31/2007 12:36"); $teste = $dateTo - $date; // aqui voce já tem o intervalo, agora é tratar ! $teste = $teste/60/60; //ou $teste = $teste/3600 echo "$teste"; ele vai dar o seguinte resultado: 194.4 Como eu faço para ficar as horas e os minutos no formato 99:99 ? nesse caso o resultado certo seria 194:24

E aí pessoal beleza Lendo os links que vocês deixaram e olhando o php.net e com o conselho de um amigo estou tentando usar a a função strtotime, o que eu preciso conseguir agora é tratar o resultado para ele ficar em horas, olha um dos teste que realizei: levando por base esse código: $date = strtotime("10/23/2007 10:00"); $dateTo = strtotime("10/31/2007 12:00"); $teste = $dateTo - $date; // aqui voce já tem o intervalo, agora é tratar ! echo "$teste"; A variável teste fica com esse valor: 698400, logo acredito eu que esse número seja segundos então estou tentando tratar da seguinte forma: $date = strtotime("10/23/2007 10:00"); $dateTo = strtotime("10/31/2007 12:00"); $teste = $dateTo - $date; // aqui voce já tem o intervalo, agora é tratar ! $teste = $teste/60/24; echo "$teste"; porém ele me deu 485 o que esta errado pois o valor deveria ser 194, eu estou entendo errado ou estou tratando errado? Fiz outras modos mas os resultados foram piores. Você poderia me explicar? Obrigado

Cara eu li essa sua função mas não esta funcionando, porpem eu também não estou entendo como ela funciona. Eu tentei fazer de outras formas dei mais uma procurada no php.net, mas até agora não consegui resolver o problema. Alguém tem um modo diferente de fazer isso?

E aí pessoal beleza Estou tentando fazer um calculo de horas aqui e esta meio complicado, já fiz alguns tipos de cálculos mas esse esta me quabrando o coco, já calculei datas e horas das seguintes formas: $data = date("Y-m-d"); $hora = date("H:i:s"); echo date("H:i:s d/m/Y", strtotime("$data $hora +12 hour")); $data = date("Y-m-d"); $hora = date("H:i:s"); echo date("H:i:s d/m/Y", strtotime("$data $hora +1 year")); $data = date("Y-m-d"); $hora = date("H:i:s"); echo date("H:i:s d/m/Y", strtotime("$data $hora +12 day")); E assim vai, mas o que eu preciso fazer agora é o seguinte existe uma data e hora de incio tipo $data_inicio = "2007-03-27"; $hora_inicio = "12:00:00"; $data_fim = "2007-03-31"; $hora_fim = "14:30:00"; Eu preciso pegar esse período e chegar em dois resultados: 1) qual o total desse período em horas? Nesse caso seria 98:30 horas 2) qual o total desse período em horas e dia? nessa caso o resultado seria 4 dias e 2:30:00 Já tentei várias lógicas e não consegui. Alguém sabe como fazer isso?

Galera consegui fazer já faz uma cara mas fiquei sem tempo de vir postar aqui no fórum, foi mais simples do que eu imaginei. Acho que se eu tivesse procurado com mais cuidado tinha achado, nessa pergunta eu acho que manquei. at+

Ea e galera Eu criei um projeto e quero distribuir ele para os clientes, ou seja quero empacotar e criar um instalador para o projeto, aí é só eu copiar o instalador em um cd e distribui. Preciso saber tambem o seguinte eu quero que quando o cliente clicar no instalador ele crie o atalho do projeto dentro do menu inicar e em um submenu igual os programas como office ou aint-vírus faz quando nós instalamos ele, aí depois de instalado o cliente clica no inciar, todos programas, acessa a pasta do programa e clica nele. Eu estou usando vb.net 2005, existe alguma opção nele que eu consiga fazer isso? No vb.net 2003 tinha mas não achei aqui nesse.

Cara valeu pel apoio. Eu fiz de outra forma e também ficou bom. fiz assim $data = date("Y-m-d"); $hora = date("H:i:s"); echo date("H:i:s d/m/Y", strtotime("$data $hora +12 hour"));

E aí pessoal beleza Eu estou precisando realizar um cálculo de horas e não estou conseguindo o cálculo é o seguinte, o sistema tem que calcular as horas e os dias, seria assim: o cara entra as 22:00 horas do dia 14 e quando informa que vai ficar 6 horas no local. Preciso fazer um cáculo que informe a hora e dia exato que ele vai sair, nesse caso o resultado é: dia 15 às 4:00 da manhã. Já fiz alguns programs de usavam cálculos de horas, mas eram inteiros, tipo cáculo de dias eu faço assim: $inicio = "2007-01-12"; $qtd = 3 $resultado = date("Y-m-d", strtotime($inicio . " + $qtd day")); para calcular somar horas eu faço assim: $entrada = "8:2:02"; $saida ="10:2:24"; $hora1 = explode(":",$entrada); $hora2 = explode(":",$saida); $acumulador1 = ($hora1[0] * 3600) + ($hora1[1] * 60) + $hora1[2]; $acumulador2 = ($hora2[0] * 3600) + ($hora2[1] * 60) + $hora2[2]; $resultado = $acumulador2 + $acumulador1; $hora_ponto = floor($resultado / 3600); $resultado = $resultado - ($hora_ponto * 3600); $min_ponto = floor($resultado / 60); $resultado = $resultado - ($min_ponto * 60); $secs_ponto = $resultado; echo " $hora_ponto :$min_ponto :$secs_ponto"; Mas não consegui fazer o tipo de soma acima. Alguém pode me ajudar?