Postada em 02/11/2012 18:17 hs
Use as dlls da Toledo:
cp3240mt.dll
P05.dll
Veja se te ajuda:
' Exemplo teste em VB 6.0 - É importante lembrar que as duas
' Dlls devem estar localizadas em ..WindowsSystem
Dim Retorno As Long
Dim Peso As String * 5
Private Sub btnAbrir_Click(Index As Integer)
'O 1o. parametro e a Porta Com. O 2o. é o BaudRate
Retorno = AbrePorta(1, 0, 0, 2)
If Retorno = 1 Then
Retorno = MsgBox("Abriu!", vbOKOnly, "P05 - VB", 0, 0)
Else
Retorno = MsgBox("Erro! " & Str(Retorno), vbOKOnly, "P05 - VB", 0, 0)
End If
End Sub
Private Sub btnFechar_Click(Index As Integer)
'O parametro passado e a Porta Com
Retorno = FechaPorta()
If Retorno = 1 Then
Retorno = MsgBox("Fechou!", vbOKOnly, "P05 - VB", 0, 0)
lbPeso.Caption = ""
Else
Retorno = MsgBox("Erro! " & Str(Retorno), vbOKOnly, "P05 - VB", 0, 0)
End If
End Sub
Private Sub btnPeso_Click(Index As Integer)
'O Parametro passado e o peso lido
Retorno = PegaPeso(0, Peso, "C:")
If Retorno = 1 Then
lbPeso.Caption = Peso
Else
lbPeso.Caption = "Erro! " & Str(Retorno)
End If
End Sub
Private Sub Form_Terminate()
Retorno = FechaPorta()
End Sub
vlu//
|
