CAPTURAR PESO BALANCA ALFA

FBGSYSTEMS 25/05/2012 15:02:31
#402793
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
AJSO 25/05/2012 20:31:56
#402836
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
FBGSYSTEMS 25/05/2012 20:41:26
#402839
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.
AJSO 25/05/2012 22:21:45
#402843
Caro FBGSYSTEMS

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.
FBGSYSTEMS 26/05/2012 03:35:34
#402851
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
FBGSYSTEMS 28/05/2012 11:26:55
#402954
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.


AJSO 28/05/2012 12:42:47
#402967
Caro FBGSYSTEMS

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

FBGSYSTEMS 28/05/2012 12:48:10
#402968
Estou aguardando um arquivo com essas informa~çoes deste meu cliente. Assim que conseguir posto aqui. Nele está mais completo. Obrigado mais uma vez
FBGSYSTEMS 28/05/2012 18:46:07
#403017
Acabei de pegar as instruções completas do fornecedor da balança.
Segue em anexo. Se puder dar uma olhada.
AJSO 29/05/2012 00:21:50
#403047
Caro FBGSYSTEMS

Ok vou analizae este manual e retorno


Boa sorte
AJSO 29/05/2012 22:27:31
#403117
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
Página 1 de 2 [12 registro(s)]
Tópico encerrado , respostas não são mais permitidas