CAPTURAR PESO BALANCA ALFA
Bom dia gente.
Alguem sabe de uma maneira de capturar valor mostrado em um indicador de pesagem alfa 3101C? Falei com uma pessoa da emrpesa fornecedora, porem ela me disse que da apenas por comunicação direta na porta serial. Nao tenho ideia de como fazer isso.
Perguntei sobre algum componente e ele disse que nao tem.
é uma balança para pesagem de caminhoes.
Obrigado
Alguem sabe de uma maneira de capturar valor mostrado em um indicador de pesagem alfa 3101C? Falei com uma pessoa da emrpesa fornecedora, porem ela me disse que da apenas por comunicação direta na porta serial. Nao tenho ideia de como fazer isso.
Perguntei sobre algum componente e ele disse que nao tem.
é uma balança para pesagem de caminhoes.
Obrigado
Caro FBGSYSTEMS
Você precisa pelo menos das instr~uções de como fazer o input pata obter o output pela serial..
Um exemplo básico:
Objeto Microsoft Common Control : MSComm (MSCOMM32.OCX)
[ô]Utilize o Option Explicit
Option Explicit
Private Sub Command1_Click() [ô]ao clicar no botão
With MSComm1 [ô]abre o MScomm
[ô]make sure the serial port is open
If .PortOpen = False Then .PortOpen = True [ô]abre a porta
[ô]send the data (including a tailing carriage return as often needed)
.Output = Text2.Text & vbCr [ô]envia o conteudo de Text2 concatrenado com vb Cr
End With [ô]MSComm1 [ô]finaliza o mscomm
[ô]não sei o que é agora =D
With Text2
[ô]place the focus back to the textbox
.SetFocus
[ô]select the current text to be overwritten
.SelStart = 0
.SelLength = Len(.Text)
End With [ô]Text1
End Sub
Private Sub Form_Load()
With MSComm1 [ô]Usa a API ou o MScom. Qual que é?
[ô]make sure the serial port is not open (by this program)
If .PortOpen Then .PortOpen = False [ô]se a porta estiver aberta .PortOpen é falso (o que é isso?)
[ô]set the active serial port
.CommPort = 2 [ô]Faz ele se comunicar pela com2
[ô]set the badurate,parity,databits,stopbits for the connection
.Settings = [Ô]9600,N,8,1[Ô] [ô]abre a conexão em 9600bps, Com o parãmetro N que não sei o que é(vocês sabem?) modo de 8bits e 1 algo que também não sei o que é :cap_feceiro:
[ô]set the DRT and RTS flags
.DTREnable = True [ô]liga o DTR [ô]isso pro PIC fica desligado...
.RTSEnable = True [ô]liga o RTS
[ô]enable the oncomm event for every reveived character
.RThreshold = 1 [ô]não sei o que é!
[ô]disable the oncomm event for send characters
.SThreshold = 0 [ô]tambén não sei
[ô]open the serial port
.PortOpen = True [ô]abre a porta, isso?
End With [ô]MSComm1 [ô]Finaliza o MSComm1.
With Text1
[ô]aqui coisas de aparência que não tem haver com a comunicação
[ô]set the properties for the displaying textbox
.BackColor = vbCyan
.Locked = True
.Text = [Ô][Ô]
End With [ô]Text1
With Text2
[ô]set the properties for the [ô]send[ô] textbox
.TabIndex = 0
.Text = [Ô][Ô]
End With [ô]Text2
With Command1
[ô]set the properties for the [ô]send[ô] command button
.Caption = [Ô]&Send[Ô]
.Default = True
.TabIndex = 1
End With [ô]Command1
End Sub
Private Sub Form_Resize()
Dim sngWidth As Single, sngHeight As Single
Dim sngDisplayHeight As Single
Dim sngTxtWidth As Single
Dim sngCmdWidth As Single, sngCmdHeight As Single
[ô]calculate the inner size of the form
sngWidth = ScaleWidth
sngHeight = ScaleHeight
With Command1
[ô]resize and reposition the command button
sngCmdHeight = .Height
sngCmdWidth = .Width
sngDisplayHeight = sngHeight - sngCmdHeight
sngTxtWidth = sngWidth - sngCmdWidth
.Move sngTxtWidth, sngDisplayHeight, sngCmdWidth, sngCmdHeight
End With [ô]Command1
[ô]resize and reposition the label
Text1.Move 0, 0, sngWidth, sngDisplayHeight
[ô]resize and reposition the textbox
Text2.Move 0, sngDisplayHeight, sngTxtWidth, sngCmdHeight
End Sub
Private Sub MSComm1_OnComm()
Dim strInput As String
With MSComm1
[ô]test for incoming event
Select Case .CommEvent
Case comEvReceive
[ô]display incoming event data to displaying textbox
strInput = .Input
Text1.SelText = strInput
End Select
End With [ô]MSComm1
End Sub
Boa Sorte
Você precisa pelo menos das instr~uções de como fazer o input pata obter o output pela serial..
Um exemplo básico:
Objeto Microsoft Common Control : MSComm (MSCOMM32.OCX)
[ô]Utilize o Option Explicit
Option Explicit
Private Sub Command1_Click() [ô]ao clicar no botão
With MSComm1 [ô]abre o MScomm
[ô]make sure the serial port is open
If .PortOpen = False Then .PortOpen = True [ô]abre a porta
[ô]send the data (including a tailing carriage return as often needed)
.Output = Text2.Text & vbCr [ô]envia o conteudo de Text2 concatrenado com vb Cr
End With [ô]MSComm1 [ô]finaliza o mscomm
[ô]não sei o que é agora =D
With Text2
[ô]place the focus back to the textbox
.SetFocus
[ô]select the current text to be overwritten
.SelStart = 0
.SelLength = Len(.Text)
End With [ô]Text1
End Sub
Private Sub Form_Load()
With MSComm1 [ô]Usa a API ou o MScom. Qual que é?
[ô]make sure the serial port is not open (by this program)
If .PortOpen Then .PortOpen = False [ô]se a porta estiver aberta .PortOpen é falso (o que é isso?)
[ô]set the active serial port
.CommPort = 2 [ô]Faz ele se comunicar pela com2
[ô]set the badurate,parity,databits,stopbits for the connection
.Settings = [Ô]9600,N,8,1[Ô] [ô]abre a conexão em 9600bps, Com o parãmetro N que não sei o que é(vocês sabem?) modo de 8bits e 1 algo que também não sei o que é :cap_feceiro:
[ô]set the DRT and RTS flags
.DTREnable = True [ô]liga o DTR [ô]isso pro PIC fica desligado...
.RTSEnable = True [ô]liga o RTS
[ô]enable the oncomm event for every reveived character
.RThreshold = 1 [ô]não sei o que é!
[ô]disable the oncomm event for send characters
.SThreshold = 0 [ô]tambén não sei
[ô]open the serial port
.PortOpen = True [ô]abre a porta, isso?
End With [ô]MSComm1 [ô]Finaliza o MSComm1.
With Text1
[ô]aqui coisas de aparência que não tem haver com a comunicação
[ô]set the properties for the displaying textbox
.BackColor = vbCyan
.Locked = True
.Text = [Ô][Ô]
End With [ô]Text1
With Text2
[ô]set the properties for the [ô]send[ô] textbox
.TabIndex = 0
.Text = [Ô][Ô]
End With [ô]Text2
With Command1
[ô]set the properties for the [ô]send[ô] command button
.Caption = [Ô]&Send[Ô]
.Default = True
.TabIndex = 1
End With [ô]Command1
End Sub
Private Sub Form_Resize()
Dim sngWidth As Single, sngHeight As Single
Dim sngDisplayHeight As Single
Dim sngTxtWidth As Single
Dim sngCmdWidth As Single, sngCmdHeight As Single
[ô]calculate the inner size of the form
sngWidth = ScaleWidth
sngHeight = ScaleHeight
With Command1
[ô]resize and reposition the command button
sngCmdHeight = .Height
sngCmdWidth = .Width
sngDisplayHeight = sngHeight - sngCmdHeight
sngTxtWidth = sngWidth - sngCmdWidth
.Move sngTxtWidth, sngDisplayHeight, sngCmdWidth, sngCmdHeight
End With [ô]Command1
[ô]resize and reposition the label
Text1.Move 0, 0, sngWidth, sngDisplayHeight
[ô]resize and reposition the textbox
Text2.Move 0, sngDisplayHeight, sngTxtWidth, sngCmdHeight
End Sub
Private Sub MSComm1_OnComm()
Dim strInput As String
With MSComm1
[ô]test for incoming event
Select Case .CommEvent
Case comEvReceive
[ô]display incoming event data to displaying textbox
strInput = .Input
Text1.SelText = strInput
End Select
End With [ô]MSComm1
End Sub
Boa Sorte
Caro amigo. O suporte me passou algumas coordenadas.
RS242
Velocidade 9600
E transmissao continua.
Ele disse que com essas informações consigo obter isso. Porem vou ter q me virar com isso.
RS242
Velocidade 9600
E transmissao continua.
Ele disse que com essas informações consigo obter isso. Porem vou ter q me virar com isso.
Caro FBGSYSTEMS
Acho que vai ter que ser por tentativa e erro
Não sei se é a melhor notÃcia mas como extrair informações de um hardware sem os comandos e ainda mais por RS-242 de fato eu não conheço.
Conheço apenas RS-232, RS-485, RS-460 até RS-422(velho e antigo!!!! mas ainda em uso por algumas empresas de equipamento) e Rs-423(mesmo que RS-422) mais RS-242 não sei se existe.......................
Se tiver mais informações ou um manual de configuração ai podemos ajudar...................
Boa sorte.
Citação::
Caro amigo. O suporte me passou algumas coordenadas.
RS242
Velocidade 9600
E transmissao continua.
Ele disse que com essas informações consigo obter isso. Porem vou ter q me virar com isso.
Acho que vai ter que ser por tentativa e erro
Não sei se é a melhor notÃcia mas como extrair informações de um hardware sem os comandos e ainda mais por RS-242 de fato eu não conheço.
Conheço apenas RS-232, RS-485, RS-460 até RS-422(velho e antigo!!!! mas ainda em uso por algumas empresas de equipamento) e Rs-423(mesmo que RS-422) mais RS-242 não sei se existe.......................
Se tiver mais informações ou um manual de configuração ai podemos ajudar...................
Boa sorte.
Amigo. digitei errado.
Era RS 232 mesmo.. tem tambem a 485. Isso foi oque passaram a uma funcionaria da empresa. Vou levantar mais informaçoes e posto aqui
Era RS 232 mesmo.. tem tambem a 485. Isso foi oque passaram a uma funcionaria da empresa. Vou levantar mais informaçoes e posto aqui
Bom dia amigo.
As informações sao as seguintes
rs232
9600 de velocidade
Com base nesse exemplo acha que conseguirei algo ? Procurei algumas coisas sobre o mscom e nao parece ser dificil a utilização mesmo.
As informações sao as seguintes
rs232
9600 de velocidade
Com base nesse exemplo acha que conseguirei algo ? Procurei algumas coisas sobre o mscom e nao parece ser dificil a utilização mesmo.
Caro FBGSYSTEMS
Ainda não é sufuciente pois o que você tem de informação é apenas para compor o objeto de abertura da porta serial na seting do objeto MSCOMM32 que passei como exemplo
.Settings = [Ô]9600,N,8,1[Ô] [ô]abre a conexão em 9600bps, Com o parãmetro N que não sei o que é(vocês sabem?) modo de 8bits e 1 algo que também não sei o que é :cap_feceiro:
O que de fato eles te passaram é o Baud rate = 9600 que é basicamente a velocidade de comunicação
O que é necessãrio para o prenchimentop de extração da balança são comandos de Input e Output que são primordial para inclusão e extração de dados do hardware pela serial
Olhe este exemplo isto é parte de um código onde faço ligações apartir do PC até uma central PABX
[ô] Envia um comando AT
Private Sub Command1_Click()
MSComm1.PortOpen = True
MSComm1.Output = [Ô]ATDT 5555-5555[Ô]
End Sub
Comandos: AT e DT
AT diz ao modem que um comando esta chegando
DT informa para discar o número usando a discagem de tom.
Esta balança possui um manual de operação pois nele tem o protocolo de acesso e configuração de sua porta serial , paralela etc......
Se tiver o manual de operação seria possivel disponibilizar para podermos analizar os possiveis comandos para acesso do hardware............
Boa Sorte
Citação::
Bom dia amigo.
As informações sao as seguintes
rs232
9600 de velocidade
Com base nesse exemplo acha que conseguirei algo ? Procurei algumas coisas sobre o mscom e nao parece ser dificil a utilização mesmo.
Ainda não é sufuciente pois o que você tem de informação é apenas para compor o objeto de abertura da porta serial na seting do objeto MSCOMM32 que passei como exemplo
.Settings = [Ô]9600,N,8,1[Ô] [ô]abre a conexão em 9600bps, Com o parãmetro N que não sei o que é(vocês sabem?) modo de 8bits e 1 algo que também não sei o que é :cap_feceiro:
O que de fato eles te passaram é o Baud rate = 9600 que é basicamente a velocidade de comunicação
O que é necessãrio para o prenchimentop de extração da balança são comandos de Input e Output que são primordial para inclusão e extração de dados do hardware pela serial
Olhe este exemplo isto é parte de um código onde faço ligações apartir do PC até uma central PABX
[ô] Envia um comando AT
Private Sub Command1_Click()
MSComm1.PortOpen = True
MSComm1.Output = [Ô]ATDT 5555-5555[Ô]
End Sub
Comandos: AT e DT
AT diz ao modem que um comando esta chegando
DT informa para discar o número usando a discagem de tom.
Esta balança possui um manual de operação pois nele tem o protocolo de acesso e configuração de sua porta serial , paralela etc......
Se tiver o manual de operação seria possivel disponibilizar para podermos analizar os possiveis comandos para acesso do hardware............
Boa Sorte
Estou aguardando um arquivo com essas informa~çoes deste meu cliente. Assim que conseguir posto aqui. Nele está mais completo. Obrigado mais uma vez
Acabei de pegar as instruções completas do fornecedor da balança.
Segue em anexo. Se puder dar uma olhada.
Segue em anexo. Se puder dar uma olhada.
Caro FBGSYSTEMS
Ok vou analizae este manual e retorno
Boa sorte
Ok vou analizae este manual e retorno
Boa sorte
Caro FBGSYSTEMS
Fiz um teste aqui de forma geral para receber qq coisa pela MSCOMM ao abrir ele lê em uma Label Label3.caption
Faça o teste e vê se ocorre a leitura da serial e os dados da balança
esta teste esta em anexo num projeto
Boa sorte
Fiz um teste aqui de forma geral para receber qq coisa pela MSCOMM ao abrir ele lê em uma Label Label3.caption
Faça o teste e vê se ocorre a leitura da serial e os dados da balança
esta teste esta em anexo num projeto
Boa sorte
Tópico encerrado , respostas não são mais permitidas