Lello

Graymalkin muito obrigado pela atenção , eu consigo trabalhar com a porta serial e que não estou sabendo e manipular ou melhor formatar o bloco de comandos para impressora fiscal que seria este formato Tabela 1 - Formato do bloco de comando enviado ao ECF Campo Conteúdo 1- Caracter de início de comando: ESC (<1B>) 2- Indicador de comando: F (<46>) 3- Primeiro byte do número de controle. Deve ser menor do que 128. 4- Segundo byte do número de controle. Deve ser menor do que 128. 5- Código do comando desejado (ver capítulo Descrição dos Comandos) 6- Número de bytes de argumentos, somado de 48 (<30>). Por exemplo, para se enviar dois bytes como argumento para o comando, este campo deve conter 50 (<32>). 7- Argumentos, se houver. O número de bytes deste campo deve estar de acordo com a campo 6 acima. Se não houver argumentos, este campo não deve ser transmitido. 8- Byte de verificação do comando, calculado como "ou exclusivo" (XOR) dos bytes do comando a partir do campo 3 acima.

Serial ( RS232 )

Tenho um pequeno e grande problema , tenho um cliente com impressora fiscal (ECF) - Marca Zanthus -modelo Iz21 , até consegui o manual de programacao mas não entendo como formatar o comando. O problema maior que a fabrica Zanthus não fornece mais suporte para ninguém No manual esta assim Tabela 1 - Formato do bloco de comando enviado ao ECF Campo Conteúdo 1- Caracter de início de comando: ESC (<1B>) 2- Indicador de comando: F (<46>) 3- Primeiro byte do número de controle. Deve ser menor do que 128. 4- Segundo byte do número de controle. Deve ser menor do que 128. 5- Código do comando desejado (ver capítulo Descrição dos Comandos) 6- Número de bytes de argumentos, somado de 48 (<30>). Por exemplo, para se enviar dois bytes como argumento para o comando, este campo deve conter 50 (<32>). 7- Argumentos, se houver. O número de bytes deste campo deve estar de acordo com a campo 6 acima. Se não houver argumentos, este campo não deve ser transmitido. 8- Byte de verificação do comando, calculado como "ou exclusivo" (XOR) dos bytes do comando a partir do campo 3 acima. Muito Obrigado

Tenho Um arquivo Texto Muito Grande Cerca de 30 mb , no momento estou indo linha por linha e com a funcao mid() separando as variaveis so que este procedimento esta muito demorado , alguém conhece uma maneira de agilizar isto ex. a1=mid(linha,1,10) . . . a100= mid(linha,500,3) Muito obrigado

Como eu trato erro num modulo de classe ex. Public Sub Imprime(Texto As String) N = FreeFile() Open "lpt1:" For Output As #N Print #N, Texto Close #N End Sub

Eu Consegui Fazer a Comunicacao com a Balanca , so não estou conseguindo entender como fazer ele loop , alguém pode me explicar como faz A$ = "": B$ = "" Do Until Left$(A$, 1) = STX$ And Right$(A$, 1) = ETX$ B$ = Input$(1, #1) A$ = A$ + B$ Print I; " - "; Asc(B$) I = I + 1 Loop Print A$; "* "; Len(A$); " *" muito obrigado

Muito Obrigado pela colaboração , eu aguardo o exemplo Grato

Gostaria de um ajuda tem um codigo em basic que faz comunicacao com a balanca filizola como faco este mesmo codigo em visual basic Open "COM2:9600,N,8,1" For Random As #1 ENQ$ = Chr$(5) STX$ = Chr$(2) ETX$ = Chr$(3) Cls Do 10 G$ = INKEY$ If G$ = " " Then Print #1, ENQ$; If Loc(1) = 0 Then GoTo 10 I = 0 A$ = "": B$ = "" Do Until Left$(A$, 1) = STX$ And Right$(A$, 1) = ETX$ B$ = Input$(1, #1) A$ = A$ + B$ Print I; " - "; Asc(B$) I = I + 1 Loop Print A$; "* "; Len(A$); " *" Loop Muito Obrigado

Tentei com Impdef mas não entendi o que ele me retorno, ZECF_AtivaLOG @1 @0 ; ZECF_AtivaLOG ZECF_AtivaLOGHEX @2 @1 ; ZECF_AtivaLOGHEX ZECF_ConfiguraCheque @3 @2 ; ZECF_ConfiguraCheque ZECF_ConfiguraMoeda @4 @3 ; ZECF_ConfiguraMoeda Como eu Declaro e uso elas No Visual Basic Como Faço ? não Achei Nada a Respeito. Muito Obrigado

alguém conhece algum software que visualiza dentro da dll as declaracoes dela ? (Declaracoes e parametros das Funcoes nela contida) "não tenho Manual dessa Dll "

Como Faço para saber se existe um determinado Caracter na String exemplo "12345678.00" como faco para saber se exite o carater "." na string

Tem alguma Funcao ou Api para Fazer o Vb parar o Sistema até alguém pressionar alguma tecla ? Fiz um loop infinito mas não funcionou muito bem no Clipper Exite uma Funcao inkey() inkey(0) - aguardava uma tecla para passar adiante inkey(Valor) - aguardava um tempo ou alguma tecla para passar adiante tem algo no vb que faça isto ?

Declare a Variavel em um Modulo padrão como Public ou Global ex. public Variavel as integer global Variavel as integer

consegui, eu não estava no form1 , estava em um modulo o engraçado q terei q gerar um erro e não gerava muito obrigado!

todas as linhas estao no procedimento , com o textbox funciona mas com label não

Gostaria de uma explicacao de como trabalhar com objetos em variaveis Achei algo parecido com isto mas não consegui fazer funcionar Dim ObjClone as Label Set ObjClone = Form1.Label1 ObjClone.Caption = "Teste" não da nenhum Erro , mas tambem não muda as propriedades do objeto ,porque ?

Eu queria Fazer a Comunição Serial sem usar o objeto mscomm , alguém tem alguma dll , documentação de uma api ou algo parecido. muito obrigado

comparando com o exemplo achei o erro que eu estava ocorrendo valeu . muito obrigado.

muito obrigado , comparando os dois achei o erro. valeu

Aguem Pode me ajudar ? não Retorna Nada nesta Consulta , mas no Banco Exite Registros str2 = "SELECT * FROM Loja01VendasOperadores WHERE Operadores = '" & Trim(CmbOperadores.Text) & "' BETWEEN DateValue('" & CmbDataInicial.Text & "') and DateValue('" & CmbDataFinal.Text & "')" .Open str2, CN, adOpenKeyset, adLockOptimistic

Muito Obrigado , Por incrivel que pareça eu não tinha pensado em pegar pela Microsoft ok.. beleza

Desculpe não era Recordcount e sim ListCount. se eu Entendi Voce quer de uma combo em um form fazer uma pesquisa no banco de dados e adicionar tudo em outra combo em outro formulario . Deve Funcionar Assim str2 = "select * from Cadastro where Codigo =" & form1.combo1.text TbCad.Open str2, CN, adOpenKeyset, adLockOptimistic Do While Not TbCad.Eof form2.combo1.additem TbCad.Fields("Data") TbCad.MoveNext loop

Quando executo o programa q criei da um erro run-time erro 430 class does not support or does support expect interface Procurei no forum e achei o resultado , mas não consigo achar o Componentes de Acesso a Dados ( Data Access Components ) MDAC_TYP.EXE JETSETUP.EXE alguém pode me ajudar ? muito obrigado

amigo, tente o seguinte data=date() form1.combobox2.additem form1.combobox2.recordcount + 1 & " " & Data obs. Para voce Trabalhar com qualquer objeto em outras forms e so adicionar o nome da form . e objeto form1.combobox2.text se eu entendi e isto q deve funcionar

Descobri o que estava errado , format(Variavel,"######,00" ) o correto e Format(Variavel,"######.##") Mas Meu Problema e que eu pego Estes Valores de um Arquivo Texto de outro Software e ele separa as casas com "." e não "," , posso usar a funcao Replace(Variavel,".",",") quando o Windows estiver configurado o tipo de Numeros "," e quando estiver com "." Vai Ocorrer erro . como faço para corrigir este eventual erro ? Muito obrigado