DLL COMPANYTEC

Option Base 1

Declare Function InicializaSerial Lib [Ô]companytec.dll[Ô] (ByVal Porta As Byte) As Boolean
Declare Function FechaSerial Lib [Ô]companytec.dll[Ô] () As Integer

Declare Function STRefAltPreco Lib [Ô]companytec.dll[Ô] (ByVal Bico As String) As Integer
Declare Function SetClock Lib [Ô]companytec.dll[Ô] (ByVal Modo As String) As Boolean
Declare Function STVisualizacao Lib [Ô]companytec.dll[Ô] (ByRef str As String) As String
Declare Function LeStringAb Lib [Ô]companytec.dll[Ô] (ByRef strref As String) As String
Declare Sub Incrementa Lib [Ô]companytec.dll[Ô] ()
Declare Function LeStatus Lib [Ô]companytec.dll[Ô] () As MultiStatus
Declare Function RefEncerrante Lib [Ô]companytec.dll[Ô] (ByVal Bico As String, ByVal Tipo As String, ByRef retorno As String) As String
Declare Function LeAbastecimento Lib [Ô]companytec.dll[Ô] () As Abast
Declare Function SetAlteraPreco Lib [Ô]companytec.dll[Ô] (ByVal Bico As String) As Boolean
Declare Function VBLePPL Lib [Ô]companytec.dll[Ô] (ByRef Bico As String) As String
Declare Function Comunica Lib [Ô]companytec.dll[Ô] () As Boolean
Declare Function SetBloqueiaBico Lib [Ô]companytec.dll[Ô] (ByVal Bico As String) As Boolean
Declare Function SetAutoLibera Lib [Ô]companytec.dll[Ô] (ByVal Bico As String) As Boolean
Declare Function LePPL Lib [Ô]companytec.dll[Ô] (ByVal Bico As String) As Double
Declare Function LeStStatus Lib [Ô]companytec.dll[Ô] () As StStatus
Declare Function LeSTEncerrante Lib [Ô]companytec.dll[Ô] (ByVal Modo As String, ByVal Bico As String) As String

Public Type StStatus
  stfull(100) As String
  Value(100) As String
End Type

Public Type StOptions
  TipoAbas As Byte
End Type

Public Type MultiStatus
  Status(48) As StOptions
End Type

Public Type Abast
  Value As Boolean
  total_dinheiro As Currency
  total_litros As Double
  PU As Currency
  Tempo As String * 8
  canal As String * 2
  Data As String * 10
  hora As String * 5
  st_full As String * 55
  registro As Integer
  encerrante As Double
  integridade As Boolean
  checksum As Boolean
End Type

Public Type Abast2
  Value As String * 1
  total_dinheiro As String * 6
  total_litros As String * 6
  PU As String * 4
  Tempo As String * 8
  canal As String * 2
  Data As String * 10
  hora As String * 5
  st_full As String * 55
  registro As String * 4
  encerrante As String * 10
  integridade As String * 1
  checksum As String * 1
End Type

Public Type Error2
  DescricaoErro As Byte
End Type 

Citação:

Retornar status do bico

Dim StatusBico As MultiStatus

StatusBico = LeStatus

Select Case StatusBico.Status(Bico).TipoAbas
  Case 0
    lblStatus.ForeColor = &HFF0000
    lblStatus.Caption = [Ô]Livre[Ô]
    lblStatus.ToolTipText = [Ô]Bico encontra-se livre para abastecer[Ô]
  Case 1
    lblStatus.ForeColor = &H800000
    lblStatus.Caption = [Ô]Pronta[Ô]
    lblStatus.ToolTipText = [Ô]Bico está pronto para abastecer[Ô]
  Case 2
    lblStatus.ForeColor = &HC0&
    lblStatus.Caption = [Ô]Falha[Ô]
    lblStatus.ToolTipText = [Ô]Bico não presente ou em falha[Ô]
  Case 3
    lblStatus.ForeColor = &H8080&
    lblStatus.Caption = [Ô]Concluiu[Ô]
    lblStatus.ToolTipText = [Ô]Bico concluiu abastecimento[Ô]
  Case 4
    lblStatus.ForeColor = &H3AAE1E
    lblStatus.Caption = [Ô]Abastecendo[Ô]
    lblStatus.ToolTipText = [Ô]Bico está em processo de abastecimento[Ô]
  Case 5
    lblStatus.ForeColor = &H40C0&
    lblStatus.Caption = [Ô]Bloqueada[Ô]
    lblStatus.ToolTipText = [Ô]Bico bloqueado para realizar abastecimentos[Ô]
  Case 6
    lblStatus.ForeColor = &H400040
    lblStatus.Caption = [Ô]Solicita liberação[Ô]
    lblStatus.ToolTipText = [Ô]Bico está aguardando liberação da automação para iniciar o processo de abastecimento[Ô]
End Select

Citação:

Retorna encerrantes de cada bico

Dim strEncerrante As String
  
If Comunica Then
  strEncerrante = LeSTEncerrante([Ô]L[Ô], Bico)
  If strEncerrante <> [Ô]FALHA[Ô] Then
    .lblEncerrante.Caption = strEncerrante
  Else
    Call MsgBox([Ô]Falha ao ler o encerrante deste bico.[Ô], vbCritical, [Ô]Atenção[Ô])
  End If
Else
  Call MsgBox([Ô]Falha na comunicação.[Ô], vbCritical, [Ô]Atenção[Ô])
End If

Dim bolConectado As Boolean
Dim bolAlterouRelogio As Boolean
Dim intPorta As Integer

Select Case Configuracoes!CnfgPortaAutomacao
  Case [Ô]COM1[Ô]
    intPorta = 1
  Case [Ô]COM2[Ô]
    intPorta = 2
  Case [Ô]COM3[Ô]
    intPorta = 3
  Case [Ô]COM4[Ô]
    intPorta = 4
End Select
 
bolConectado = InicializaSerial(intPorta)

If bolConectado Then
  bolAlterouRelogio = SetClock(Format(Day(Date), [Ô]00[Ô]) & Format(Hour(Time), [Ô]00[Ô]) & Format(Minute(Time), [Ô]00[Ô]))
  If bolAlterouRelogio = False Then MsgBox [Ô]Não foi possível ajustar o relógio na automação.[Ô], vbExclamation, [Ô]Atenção[Ô]
Else
  Call MsgBox([Ô]Não foi possível conectar-se ao concentrador das bombas.[Ô], vbExclamation, [Ô]Atenção[Ô])
  Unload Me
End If

FechaSerial