CONFIGURAR GUILHOTINHA DA DARUMA DR700
bom dia,
alguem pode clarear um pouco aqui?
esta dando esse erro:
compiler error:
U-ser-defined type not defined
estou com esse codigo:
Private Sub Buttom_Mega5_Click()
Dim Int_Flag As Short
Dim Int_LinhasAcionamento As Short
Dim Str_Flag As String
Dim Str_LinhasAcionamento As String
Str_Flag = InputBox([Ô]Digite 1(um) para Habilitar a Gilhotina ou 0(zero) para Desabilitar:[Ô], [Ô]Daruma Framework[Ô], [Ô]1[Ô])
If Str_Flag = [Ô][Ô] Then
Exit Sub
End If
Str_LinhasAcionamento = InputBox([Ô]Entre com a quantidade de linhas para o Acionamento da Guilhotina ex: 0 a 20:[Ô], [Ô]Daruma Framework[Ô], [Ô]5[Ô])
If Str_LinhasAcionamento = [Ô][Ô] Then
Exit Sub
End If
Int_Flag = CShort(Str_Flag)
Int_LinhasAcionamento = CShort(Str_LinhasAcionamento)
Int_Retorno = Daruma_DUAL_ConfigurarGuilhotina(Int_Flag, Int_LinhasAcionamento)
If Int_Retorno = 1 Then
MsgBox = vbOK([Ô]Programacao feita com Sucesso![Ô], MsgBoxStyle.Information, [Ô]Daruma Framework[Ô])
Else
MsgBox = vbIgnore([Ô]Erro![Ô], MsgBoxStyle.Critical, [Ô]Daruma Framework[Ô])
Exit Sub
End If
End Sub
alguem pode clarear um pouco aqui?
esta dando esse erro:
compiler error:
U-ser-defined type not defined
estou com esse codigo:
Private Sub Buttom_Mega5_Click()
Dim Int_Flag As Short
Dim Int_LinhasAcionamento As Short
Dim Str_Flag As String
Dim Str_LinhasAcionamento As String
Str_Flag = InputBox([Ô]Digite 1(um) para Habilitar a Gilhotina ou 0(zero) para Desabilitar:[Ô], [Ô]Daruma Framework[Ô], [Ô]1[Ô])
If Str_Flag = [Ô][Ô] Then
Exit Sub
End If
Str_LinhasAcionamento = InputBox([Ô]Entre com a quantidade de linhas para o Acionamento da Guilhotina ex: 0 a 20:[Ô], [Ô]Daruma Framework[Ô], [Ô]5[Ô])
If Str_LinhasAcionamento = [Ô][Ô] Then
Exit Sub
End If
Int_Flag = CShort(Str_Flag)
Int_LinhasAcionamento = CShort(Str_LinhasAcionamento)
Int_Retorno = Daruma_DUAL_ConfigurarGuilhotina(Int_Flag, Int_LinhasAcionamento)
If Int_Retorno = 1 Then
MsgBox = vbOK([Ô]Programacao feita com Sucesso![Ô], MsgBoxStyle.Information, [Ô]Daruma Framework[Ô])
Else
MsgBox = vbIgnore([Ô]Erro![Ô], MsgBoxStyle.Critical, [Ô]Daruma Framework[Ô])
Exit Sub
End If
End Sub
Caro RICKSOUSA
Pode ser a declaração desta variável Int_Retorno é do tipo Integer.
valores de referência de sua variável Int_Flag só pode ser 0 ou 1
valores de referência de sua variável Int_LinhasAcionamento deve ser entre 0 até 20
Como trata-se variáveis que passam valores inteiros talves seja melhor mudar o tipode variável de Short para Integer e refazer esta lógica
Int_Flag = CShort(Str_Flag)
Int_LinhasAcionamento = CShort(Str_LinhasAcionamento)
Pode ser a declaração desta variável Int_Retorno é do tipo Integer.
valores de referência de sua variável Int_Flag só pode ser 0 ou 1
valores de referência de sua variável Int_LinhasAcionamento deve ser entre 0 até 20
Como trata-se variáveis que passam valores inteiros talves seja melhor mudar o tipode variável de Short para Integer e refazer esta lógica
Int_Flag = CShort(Str_Flag)
Int_LinhasAcionamento = CShort(Str_LinhasAcionamento)
Bom você está usando a dll da DARUMA que seria DarumaFrameWork.dll
sem sim, então deveria declara em um módulo
Public Declare Function eAcionarGuilhotina_ECF_Daruma Lib [Ô]DarumaFrameWork.dll[Ô] (ByVal sTipoCorte As String) As Integer
e em um botão colocaria
Dim iRetorno As Integer
para corte parcial
iRetorno = eAcionarGuilhotina_ECF_Daruma([Ô]1[Ô])
para corte total
iRetorno = eAcionarGuilhotina_ECF_Daruma([Ô]0[Ô])
sem sim, então deveria declara em um módulo
Public Declare Function eAcionarGuilhotina_ECF_Daruma Lib [Ô]DarumaFrameWork.dll[Ô] (ByVal sTipoCorte As String) As Integer
e em um botão colocaria
Dim iRetorno As Integer
para corte parcial
iRetorno = eAcionarGuilhotina_ECF_Daruma([Ô]1[Ô])
para corte total
iRetorno = eAcionarGuilhotina_ECF_Daruma([Ô]0[Ô])
mais amigo assim ja esta?
Dim Int_Flag As Short
Dim Int_LinhasAcionamento As Short
Dim Str_Flag As String
Dim Str_LinhasAcionamento As String
Str_Flag = InputBox([Ô]Digite 1(um) para Habilitar a Gilhotina ou 0(zero) para Desabilitar:[Ô], [Ô]Daruma Framework[Ô], [Ô]1[Ô])
If Str_Flag = [Ô][Ô] Then
Exit Sub
End If
Str_LinhasAcionamento = InputBox([Ô]Entre com a quantidade de linhas para o Acionamento da Guilhotina ex: 0 a 20:[Ô], [Ô]Daruma Framework[Ô], [Ô]5[Ô])
If Str_LinhasAcionamento = [Ô][Ô] Then
Exit Sub
End If
[txt-color=#e80000] Int_Flag = CShort(Str_Flag)
Int_LinhasAcionamento = CShort(Str_LinhasAcionamento)[/txt-color]
Int_Retorno = Daruma_DUAL_ConfigurarGuilhotina(Int_Flag, Int_LinhasAcionamento)
If Int_Retorno = 1 Then
MsgBox = vbOK([Ô]Programacao feita com Sucesso![Ô], MsgBoxStyle.Information, [Ô]Daruma Framework[Ô])
Else
MsgBox = vbIgnore([Ô]Erro![Ô], MsgBoxStyle.Critical, [Ô]Daruma Framework[Ô])
Exit Sub
End If
End Sub
Dim Int_Flag As Short
Dim Int_LinhasAcionamento As Short
Dim Str_Flag As String
Dim Str_LinhasAcionamento As String
Str_Flag = InputBox([Ô]Digite 1(um) para Habilitar a Gilhotina ou 0(zero) para Desabilitar:[Ô], [Ô]Daruma Framework[Ô], [Ô]1[Ô])
If Str_Flag = [Ô][Ô] Then
Exit Sub
End If
Str_LinhasAcionamento = InputBox([Ô]Entre com a quantidade de linhas para o Acionamento da Guilhotina ex: 0 a 20:[Ô], [Ô]Daruma Framework[Ô], [Ô]5[Ô])
If Str_LinhasAcionamento = [Ô][Ô] Then
Exit Sub
End If
[txt-color=#e80000] Int_Flag = CShort(Str_Flag)
Int_LinhasAcionamento = CShort(Str_LinhasAcionamento)[/txt-color]
Int_Retorno = Daruma_DUAL_ConfigurarGuilhotina(Int_Flag, Int_LinhasAcionamento)
If Int_Retorno = 1 Then
MsgBox = vbOK([Ô]Programacao feita com Sucesso![Ô], MsgBoxStyle.Information, [Ô]Daruma Framework[Ô])
Else
MsgBox = vbIgnore([Ô]Erro![Ô], MsgBoxStyle.Critical, [Ô]Daruma Framework[Ô])
Exit Sub
End If
End Sub
Eu sei que já está assim, porém não funciona, por isso perguntei você está usando a dll da daruma?
no caso um e zero não habilita ou desabilita a guilhotina e sim determina se é um corte total, ou um corte parcial.
no caso um e zero não habilita ou desabilita a guilhotina e sim determina se é um corte total, ou um corte parcial.
não amigo eu tinha respondido para o AJSO não tinha visto que vc tinha deixado a mensagem, vc se interessa em terminar esse sistema free lancer, quanto vc cobra?
RICK da uma olhada neste exemplo da DARUMA é completissimo
http://www.desenvolvedoresdaruma.com.br/home/downloads/Site_2011/Exemplos/Exemplo_ComunicacaoDireta_DR_VB6.zip
ele foi retirado deste site que irá te ajudar muito
http://www.desenvolvedoresdaruma.com.br/home/index.php
boa sorte
http://www.desenvolvedoresdaruma.com.br/home/downloads/Site_2011/Exemplos/Exemplo_ComunicacaoDireta_DR_VB6.zip
ele foi retirado deste site que irá te ajudar muito
http://www.desenvolvedoresdaruma.com.br/home/index.php
boa sorte
obrigado vou dar uma olhada.
Caro MARCELO-TREZE e RICKSOUSA
Realmente ambos tem possibilidade de estarem coerentes, utilizo tbm estas dua formas pois trabalho com este fornecedore de impressora e as duas formas satisfaz para o corte total e parcial porem este modelo que o colega descreveu no forum tbm é usando no manual.
Para DARUMA tenho um comando identico ao do nosso colega RICKSOUSA como descrito no manual 3.0 da daruma para VB 6.0 e tem que funcionar
Neste caso a msg de erro que ele está recebendo é uma forma de configuração das variáveis dentro do aplicativo em VB6.0 que ele desenvolveu que precisamos identificar pois este comando que está sendo executado em um evento de Botão.
Talves uma analise maior e global ao seu aplicativo para identificar o problema ou melhorar estas declarações a fim de não ter esta msg novamente em seu acionamento.
O uso das DLL para equipamento DARUMA não tem muito segredo porem exige uma atenção no modelo de uso para Input e output de instrução no desenvolvimentode acionamento de comandos.
O erro é de escopo
O uso da DLLdentro do VB6.0 e do VB.Net são apenas semelhantes mas funciona em ambas as plataformas pois utilizo exatamente o mesmo comando em VB 6.0, VB.Net e C#
Sse tiver mais detalhes na sua aplicação para informas estas declarações e como colocou o modulo em sua aplicaçã talves poderemos ajudar.
Boa Sorte
Realmente ambos tem possibilidade de estarem coerentes, utilizo tbm estas dua formas pois trabalho com este fornecedore de impressora e as duas formas satisfaz para o corte total e parcial porem este modelo que o colega descreveu no forum tbm é usando no manual.
Para DARUMA tenho um comando identico ao do nosso colega RICKSOUSA como descrito no manual 3.0 da daruma para VB 6.0 e tem que funcionar
Neste caso a msg de erro que ele está recebendo é uma forma de configuração das variáveis dentro do aplicativo em VB6.0 que ele desenvolveu que precisamos identificar pois este comando que está sendo executado em um evento de Botão.
Talves uma analise maior e global ao seu aplicativo para identificar o problema ou melhorar estas declarações a fim de não ter esta msg novamente em seu acionamento.
O uso das DLL para equipamento DARUMA não tem muito segredo porem exige uma atenção no modelo de uso para Input e output de instrução no desenvolvimentode acionamento de comandos.
O erro é de escopo
Citação::
compiler error:
U-ser-defined type not defined
O uso da DLLdentro do VB6.0 e do VB.Net são apenas semelhantes mas funciona em ambas as plataformas pois utilizo exatamente o mesmo comando em VB 6.0, VB.Net e C#
Sse tiver mais detalhes na sua aplicação para informas estas declarações e como colocou o modulo em sua aplicaçã talves poderemos ajudar.
Boa Sorte
Tópico encerrado , respostas não são mais permitidas