VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "SC505  - TC300 VB"
   ClientHeight    =   9390
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   14385
   LinkTopic       =   "Form1"
   ScaleHeight     =   9390
   ScaleWidth      =   14385
   Begin VB.ListBox ListReceive 
      Columns         =   2
      Height          =   1380
      IntegralHeight  =   0   'False
      ItemData        =   "Form1.frx":0000
      Left            =   7200
      List            =   "Form1.frx":0002
      TabIndex        =   49
      Top             =   7680
      Width           =   6375
   End
   Begin VB.Frame Frame1 
      Caption         =   "Produtos "
      Height          =   1455
      Left            =   240
      TabIndex        =   42
      Top             =   7560
      Width           =   6375
      Begin VB.TextBox txtCodbar 
         Height          =   285
         Left            =   120
         TabIndex        =   45
         Text            =   "#7896326925577"
         Top             =   600
         Width           =   1815
      End
      Begin VB.TextBox txtProd 
         Height          =   285
         Left            =   2160
         TabIndex        =   44
         Text            =   "Batata frita"
         Top             =   600
         Width           =   2535
      End
      Begin VB.TextBox txtPreco 
         Height          =   285
         Left            =   4920
         TabIndex        =   43
         Text            =   "2,50"
         Top             =   600
         Width           =   1335
      End
      Begin VB.Label Label20 
         AutoSize        =   -1  'True
         Caption         =   "Código de barras"
         Height          =   195
         Index           =   0
         Left            =   120
         TabIndex        =   48
         Top             =   360
         Width           =   1200
      End
      Begin VB.Label Label17 
         AutoSize        =   -1  'True
         Caption         =   "Produto"
         Height          =   195
         Left            =   2160
         TabIndex        =   47
         Top             =   360
         Width           =   555
      End
      Begin VB.Label Label18 
         AutoSize        =   -1  'True
         Caption         =   "Preço"
         Height          =   195
         Left            =   4920
         TabIndex        =   46
         Top             =   360
         Width           =   420
      End
   End
   Begin VB.Timer Timer4 
      Enabled         =   0   'False
      Interval        =   3000
      Left            =   1320
      Top             =   1080
   End
   Begin VB.CommandButton Command1 
      Caption         =   "Mostrar IP do Terminal"
      Height          =   615
      Left            =   3840
      TabIndex        =   40
      Top             =   600
      Width           =   1575
   End
   Begin VB.ListBox List1 
      Height          =   5910
      ItemData        =   "Form1.frx":0004
      Left            =   240
      List            =   "Form1.frx":0006
      TabIndex        =   39
      Top             =   840
      Width           =   2895
   End
   Begin VB.Timer Timer3 
      Enabled         =   0   'False
      Interval        =   10
      Left            =   4680
      Top             =   6120
   End
   Begin VB.Timer Timer2 
      Enabled         =   0   'False
      Interval        =   10
      Left            =   5040
      Top             =   5520
   End
   Begin VB.CommandButton Command8 
      Caption         =   "Recebe Parametros"
      Height          =   495
      Left            =   11640
      TabIndex        =   38
      Top             =   1080
      Width           =   1575
   End
   Begin VB.TextBox Text7 
      Height          =   285
      Left            =   11640
      TabIndex        =   31
      Text            =   "192.168.0.1"
      Top             =   2280
      Width           =   1695
   End
   Begin VB.TextBox Text6 
      Height          =   285
      Left            =   11640
      TabIndex        =   30
      Text            =   "192.168.0.1"
      Top             =   3000
      Width           =   1695
   End
   Begin VB.TextBox Text5 
      Height          =   285
      Left            =   11640
      TabIndex        =   29
      Text            =   "Mauricio"
      Top             =   3720
      Width           =   1695
   End
   Begin VB.TextBox Text4 
      Height          =   285
      Left            =   11640
      TabIndex        =   28
      Text            =   "192.168.0.1"
      Top             =   4440
      Width           =   1695
   End
   Begin VB.TextBox Text3 
      Height          =   285
      Left            =   11640
      TabIndex        =   27
      Text            =   "Mauricio"
      Top             =   5160
      Width           =   1695
   End
   Begin VB.TextBox Text2 
      Height          =   285
      Left            =   11640
      TabIndex        =   26
      Text            =   "gertec"
      Top             =   5880
      Width           =   1695
   End
   Begin VB.CommandButton Command7 
      Caption         =   "Atualiza Parametros"
      Height          =   495
      Left            =   11640
      TabIndex        =   25
      Top             =   600
      Width           =   1575
   End
   Begin VB.TextBox Text1 
      Height          =   285
      Left            =   9600
      TabIndex        =   24
      Text            =   "C:\"
      Top             =   1800
      Width           =   1575
   End
   Begin VB.CommandButton Command6 
      Caption         =   "Recebe Configuração"
      Height          =   495
      Left            =   7680
      TabIndex        =   23
      Top             =   1080
      Width           =   1455
   End
   Begin VB.CommandButton Command5 
      Caption         =   "Enviar Imagem"
      Height          =   495
      Left            =   9720
      TabIndex        =   22
      Top             =   720
      Width           =   1335
   End
   Begin VB.TextBox T7B 
      Height          =   285
      Left            =   7680
      TabIndex        =   19
      Text            =   "VB"
      Top             =   6600
      Width           =   1455
   End
   Begin VB.TextBox T6B 
      Height          =   285
      Left            =   7680
      TabIndex        =   17
      Text            =   "Exemplo"
      Top             =   5880
      Width           =   1455
   End
   Begin VB.TextBox T5B 
      Height          =   285
      Left            =   7680
      TabIndex        =   15
      Text            =   "TC 501/TC 502"
      Top             =   5160
      Width           =   1455
   End
   Begin VB.TextBox T4B 
      Height          =   285
      Left            =   7680
      TabIndex        =   13
      Text            =   "Gertec"
      Top             =   4440
      Width           =   1455
   End
   Begin VB.TextBox T3B 
      Height          =   285
      Left            =   7680
      TabIndex        =   11
      Text            =   "255.255.255.0"
      Top             =   3720
      Width           =   1455
   End
   Begin VB.TextBox T2B 
      Height          =   285
      Left            =   7680
      TabIndex        =   9
      Text            =   "192.168.0.145"
      Top             =   3000
      Width           =   1455
   End
   Begin VB.TextBox T2A 
      Height          =   285
      Left            =   5880
      TabIndex        =   7
      Text            =   "Mensagem2"
      Top             =   2520
      Width           =   1335
   End
   Begin VB.TextBox T1B 
      Height          =   285
      Left            =   7680
      TabIndex        =   5
      Text            =   "192.168.0.12"
      Top             =   2280
      Width           =   1455
   End
   Begin VB.TextBox T1A 
      Height          =   285
      Left            =   5880
      TabIndex        =   3
      Text            =   "Mensagem1"
      Top             =   1800
      Width           =   1335
   End
   Begin VB.CommandButton Command4 
      Caption         =   "Enviar Mensagem "
      Height          =   615
      Left            =   5880
      TabIndex        =   2
      Top             =   600
      Width           =   1335
   End
   Begin VB.CommandButton Command3 
      Caption         =   "Alterar Configuração"
      Height          =   495
      Left            =   7680
      TabIndex        =   1
      Top             =   600
      Width           =   1455
   End
   Begin VB.CommandButton Command2 
      Caption         =   "Fechar Servidor"
      Height          =   615
      Left            =   3840
      TabIndex        =   0
      Top             =   1440
      Width           =   1575
   End
   Begin VB.Timer Timer1 
      Interval        =   3000
      Left            =   4320
      Top             =   5520
   End
   Begin VB.Label Label21 
      AutoSize        =   -1  'True
      Caption         =   "Lista de código de barras consultados"
      Height          =   195
      Index           =   1
      Left            =   7320
      TabIndex        =   50
      Top             =   7320
      Width           =   2685
   End
   Begin VB.Label Label16 
      AutoSize        =   -1  'True
      Caption         =   "Lista de terminais conectados"
      Height          =   195
      Left            =   360
      TabIndex        =   41
      Tag             =   "Li"
      Top             =   480
      Width           =   2100
   End
   Begin VB.Line Line8 
      X1              =   3600
      X2              =   13560
      Y1              =   480
      Y2              =   480
   End
   Begin VB.Line Line7 
      X1              =   3600
      X2              =   13560
      Y1              =   6960
      Y2              =   6960
   End
   Begin VB.Line Line6 
      X1              =   3600
      X2              =   3600
      Y1              =   480
      Y2              =   6960
   End
   Begin VB.Line Line5 
      X1              =   13560
      X2              =   13560
      Y1              =   480
      Y2              =   6960
   End
   Begin VB.Line Line4 
      X1              =   11400
      X2              =   11400
      Y1              =   480
      Y2              =   6960
   End
   Begin VB.Label Label15 
      Caption         =   "Gateway"
      Height          =   255
      Left            =   11640
      TabIndex        =   37
      Top             =   2040
      Width           =   1215
   End
   Begin VB.Label Label14 
      Caption         =   "Servidor de nomes"
      Height          =   255
      Left            =   11640
      TabIndex        =   36
      Top             =   2760
      Width           =   1455
   End
   Begin VB.Label Label13 
      Caption         =   "Nome do terminal"
      Height          =   255
      Left            =   11640
      TabIndex        =   35
      Top             =   3480
      Width           =   1695
   End
   Begin VB.Label Label12 
      Caption         =   "Servidor de atualização"
      Height          =   255
      Left            =   11640
      TabIndex        =   34
      Top             =   4200
      Width           =   2535
   End
   Begin VB.Label Label11 
      Caption         =   "Usuário"
      Height          =   255
      Left            =   11640
      TabIndex        =   33
      Top             =   4920
      Width           =   1215
   End
   Begin VB.Label Label10 
      Caption         =   "Senha"
      Height          =   255
      Left            =   11640
      TabIndex        =   32
      Top             =   5640
      Width           =   1215
   End
   Begin VB.Label A 
      Caption         =   "O programa deve estar sendo executado para o terminal se conectar.      "
      Height          =   1935
      Left            =   3720
      TabIndex        =   21
      Top             =   3000
      Width           =   1695
   End
   Begin VB.Label Label9 
      Caption         =   "Texto4"
      Height          =   255
      Left            =   7680
      TabIndex        =   20
      Top             =   6360
      Width           =   1215
   End
   Begin VB.Line Line3 
      X1              =   9360
      X2              =   9360
      Y1              =   480
      Y2              =   6960
   End
   Begin VB.Line Line2 
      X1              =   7440
      X2              =   7440
      Y1              =   480
      Y2              =   6960
   End
   Begin VB.Line Line1 
      X1              =   5640
      X2              =   5640
      Y1              =   480
      Y2              =   6960
   End
   Begin VB.Label Label8 
      Caption         =   "Texto3"
      Height          =   255
      Left            =   7680
      TabIndex        =   18
      Top             =   5640
      Width           =   1215
   End
   Begin VB.Label Label7 
      Caption         =   "Texto2"
      Height          =   255
      Left            =   7680
      TabIndex        =   16
      Top             =   4920
      Width           =   1215
   End
   Begin VB.Label Label6 
      Caption         =   "Texto1"
      Height          =   255
      Left            =   7680
      TabIndex        =   14
      Top             =   4200
      Width           =   1215
   End
   Begin VB.Label Label5 
      Caption         =   "Mascara Rede"
      Height          =   255
      Left            =   7680
      TabIndex        =   12
      Top             =   3480
      Width           =   1215
   End
   Begin VB.Label Label4 
      Caption         =   "IP Terminal"
      Height          =   255
      Left            =   7680
      TabIndex        =   10
      Top             =   2760
      Width           =   1215
   End
   Begin VB.Label Label3 
      Caption         =   "Mensagem2"
      Height          =   255
      Left            =   5880
      TabIndex        =   8
      Top             =   2280
      Width           =   1215
   End
   Begin VB.Label Label2 
      Caption         =   "IP Servidor"
      Height          =   255
      Left            =   7680
      TabIndex        =   6
      Top             =   2040
      Width           =   1215
   End
   Begin VB.Label Label1 
      Caption         =   "Mensagem1"
      Height          =   255
      Left            =   5880
      TabIndex        =   4
      Top             =   1560
      Width           =   1215
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim tabconec As TTABSOCK
Dim Numconec As Integer
Dim SelectedTermSock As Integer

Private Sub Command1_Click()
Dim tabcon As TTABSOCK
Dim ptr(0 To 20) As Byte
Dim oip As String
Dim ci As Integer
Dim num As Integer


    
    'variavel tabcon recebe os valores da função GetTabConectados
    tabcon = GetTabConectados(0)
    
  
    x = tabcon.TabIP
    'MsgBox tabcon.TabSock
    
    'converte endereço de rede para formato ASC, e armazena na variável ptr
    TCinet_ntoa tabcon.TabIP(0), ptr(0)
    
    'exibe o endereço de rede armazenado na variável oip
    oip = ""
    For ci = 0 To 20
        oip = oip & Chr(ptr(ci))
    Next
    MsgBox (oip)
    
    
    
End Sub

Private Sub Command2_Click()
vFinalize
End
End Sub

Private Sub Command3_Click()

Dim tabcon As TTABSOCK
Dim conf As TCCONFIG
Dim host(0 To 100) As Byte
Dim endereco(0 To 100) As Byte
Dim msknet(0 To 100) As Byte
Dim texto1(0 To 100) As Byte
Dim texto2(0 To 100) As Byte
Dim texto3(0 To 100) As Byte
Dim texto4(0 To 100) As Byte
Dim str As String
Dim str2 As String
Dim ci As Long
        
 If SelectedTermSock = 0 Then
  MsgBox "Escolha primeiramente um terminal", vbInformation, "SC505/Busca-Preço"
Else
        
    'variavel tabcon recebe os valores da função GetTabConectados
    tabcon = GetTabConectados(0)
    
    
    'IP do Servidor
    'converte a expressão abaixo para Byte e salva na variavel texto1
    str = T1B.Text
    For ci = 0 To Len(str) - 1
    conf.host(ci) = CByte(Asc(Mid(str, ci + 1, 1)))
    Next
    conf.host(Len(str)) = 0
        
    'IP do Terminal
    'converte a expressão abaixo para Byte e salva na variavel texto1
    str = T2B.Text
    For ci = 0 To Len(str) - 1
    conf.endereco(ci) = CByte(Asc(Mid(str, ci + 1, 1)))
    Next
    conf.endereco(Len(str)) = 0
    
    'mascara de rede
    'converte a expressão abaixo para Byte e salva na variavel texto1
    str = T3B.Text
    For ci = 0 To Len(str) - 1
    conf.msknet(ci) = CByte(Asc(Mid(str, ci + 1, 1)))
    Next
    conf.msknet(Len(str)) = 0
        
    'Texto1
    'converte a expressão abaixo para Byte e salva na variavel texto1
    str = T4B.Text
    For ci = 0 To Len(str) - 1
    conf.texto1(ci) = CByte(Asc(Mid(str, ci + 1, 1)))
    Next
    conf.texto1(Len(str)) = 0
        
    'Texto2
    'converte a expressão abaixo para Byte e salva na variavel texto1
    str = T5B.Text
    For ci = 0 To Len(str) - 1
    conf.texto2(ci) = CByte(Asc(Mid(str, ci + 1, 1)))
    Next
    conf.texto2(Len(str)) = 0
    
    'Texto3
    'converte a expressão abaixo para Byte e salva na variavel texto1
    str = T6B.Text
    For ci = 0 To Len(str) - 1
    conf.texto3(ci) = CByte(Asc(Mid(str, ci + 1, 1)))
    Next
    conf.texto3(Len(str)) = 0
    
    'Texto4
    'converte a expressão abaixo para Byte e salva na variavel texto1
    str = T7B.Text
    For ci = 0 To Len(str) - 1
    conf.texto4(ci) = CByte(Asc(Mid(str, ci + 1, 1)))
    Next
    conf.texto4(Len(str)) = 0
    
    'Sock e tempo de exibição
    'conf.ID = tabcon.TabSock(0)
    conf.ID = SelectedTermSock
    conf.tempoexib = 5
        
    'envia configuração ao terminal através do arquivo conf
    bMandaConfig conf

End If
    
End Sub

Private Sub Command4_Click()
Dim tabcon As TTABSOCK
Dim texto1(0 To 100) As Byte
Dim texto2(0 To 100) As Byte
Dim str1 As String
Dim str2 As String
Dim ci As Long

If SelectedTermSock = 0 Then
  MsgBox "Escolha primeiramente um terminal", vbInformation, "SC505/Busca-Preço"
Else

        
    'variavel tabcon recebe os valores da função GetTabConectados
    tabcon = GetTabConectados(0)
    
    'converte a expresão abaixo para Byte e salva na variavel texto1
    str1 = T1A.Text
    For ci = 0 To Len(str1) - 1
    texto1(ci) = CByte(Asc(Mid(str1, ci + 1, 1)))
    Next
    texto1(Len(str1)) = 0
        
    'converte a expresão abaixo para Byte e salva na variavel texto1
    str2 = T2A.Text
    For ci = 0 To Len(str2) - 1
    texto2(ci) = CByte(Asc(Mid(str2, ci + 1, 1)))
    Next
    texto2(Len(str2)) = 0
        
    'envia mensagem ao display com 5 segundos de duração
    bSendDisplayMsg SelectedTermSock, texto1(0), texto2(0), 5, 0
 
 End If
 

End Sub

Private Sub Command5_Click()

Dim tabcon As TTABSOCK
Dim texto1(0 To 100) As Byte
Dim str1 As String
Dim ci As Long

If SelectedTermSock = 0 Then
  MsgBox "Escolha primeiramente um terminal", vbInformation, "SC505/Busca-Preço"
Else
        
    'variavel tabcon recebe os valores da função GetTabConectados
    tabcon = GetTabConectados(0)
    
    'Verifica a existencia de um arquivo
    'If FileExist("c:\tng.jpg") = False Then
    '    MsgBox "Arquivo não encontrado"
    '    End
    'Else
    '    MsgBox "Arquivo encontrado"
    'End If
        
    'converte a expresão abaixo para Byte e salva na variavel texto1
    str1 = Text1.Text
    
    For ci = 0 To Len(str1) - 1
        texto1(ci) = CByte(Asc(Mid(str1, ci + 1, 1)))
    Next
    
    texto1(Len(str1)) = 0
        
    'envia imagem ao display
    bSendImageFromFile SelectedTermSock, texto1(0), 128, 64, 1, 4, 5, 1
    
End If
            
    
End Sub

Private Sub Command6_Click()
If SelectedTermSock = 0 Then
  MsgBox "Escolha primeiramente um terminal", vbInformation, "SC505/Busca-Preço"
Else
  Timer2.Enabled = True
End If

End Sub

Private Sub Command7_Click()

Dim tabcon As TTABSOCK
Dim conf As TCUPDCONFIG
Dim str As String
Dim str2 As String
Dim ci As Long

If SelectedTermSock = 0 Then
  MsgBox "Escolha primeiramente um terminal", vbInformation, "SC505/Busca-Preço"
Else
  
  '  T1B.Text = ""
   ' T2B.Text = ""
    'T3B.Text = ""
  '  T4B.Text = ""
   ' T5B.Text = ""
    'T6B.Text = ""
   ' T7B.Text = ""

        
    'variavel tabcon recebe os valores da função GetTabConectados
    tabcon = GetTabConectados(0)
    
   ' conf.ID = tabcon.TabSock(0)
   
    conf.ID = SelectedTermSock
    
    'Gateway
    'converte a expressão abaixo para Byte e salva na variavel texto1
    str = Text7.Text
    For ci = 0 To Len(str) - 1
    conf.gateway(ci) = CByte(Asc(Mid(str, ci + 1, 1)))
    Next
    conf.gateway(Len(str)) = 0
        
    'Servidor de Nomes
    'converte a expressão abaixo para Byte e salva na variavel texto1
    str = Text6.Text
    For ci = 0 To Len(str) - 1
    conf.nameserver(ci) = CByte(Asc(Mid(str, ci + 1, 1)))
    Next
    conf.nameserver(Len(str)) = 0
    
    'Nome do Terminal
    'converte a expressão abaixo para Byte e salva na variavel texto1
    str = Text5.Text
    For ci = 0 To Len(str) - 1
    conf.tcname(ci) = CByte(Asc(Mid(str, ci + 1, 1)))
    Next
    conf.tcname(Len(str)) = 0
        
    'Servidor de atualização
    'converte a expressão abaixo para Byte e salva na variavel texto1
    str = Text4.Text
    For ci = 0 To Len(str) - 1
    conf.updserv(ci) = CByte(Asc(Mid(str, ci + 1, 1)))
    Next
    conf.updserv(Len(str)) = 0
        
    'Usuário
    'converte a expressão abaixo para Byte e salva na variavel texto1
    str = Text3.Text
    For ci = 0 To Len(str) - 1
    conf.upduser(ci) = CByte(Asc(Mid(str, ci + 1, 1)))
    Next
    conf.upduser(Len(str)) = 0
    
    'Senha
    'converte a expressão abaixo para Byte e salva na variavel texto1
    str = Text2.Text
    For ci = 0 To Len(str) - 1
    conf.updpass(ci) = CByte(Asc(Mid(str, ci + 1, 1)))
    Next
    conf.updpass(Len(str)) = 0
    
    'envia configuração ao terminal através do arquivo conf
    bMandaUpdConfig conf
End If


End Sub

Private Sub Command8_Click()
If SelectedTermSock = 0 Then
  MsgBox "Escolha primeiramente um terminal", vbInformation, "SC505/Busca-Preço"
Else

 Timer3.Enabled = True
 
End If
 

End Sub

Private Sub Form_Load()

Dim ci As Integer
    'inicializa conexão do Terminal e com o Servidor
    vInitialize
    TermGertecServer
    SelectedTermSock = 0
    Timer4.Enabled = True
      
End Sub

Private Sub Form_Unload(Cancel As Integer)
vFinalize
End
End Sub



Private Sub List1_Click()
Dim ci As Integer
Dim indice As Integer
Dim texto As String
Dim strAux As String
Dim vetor As Variant
Dim i As Integer

Dim d As String

'pega o índice do item clicado
indice = List1.ListIndex
'pega o conteudo do item clicado
texto = List1.Text

vetor = Split(texto, "|")

SelectedTermSock = vetor(0)

  

End Sub

Private Sub Timer1_Timer()
Dim ret As Long
Dim ID As Long
Dim Porta As Long
Dim buf(0 To 255) As Byte
Dim Nbr As Long
Dim texto1(0 To 100) As Byte
Dim texto2(0 To 100) As Byte
Dim texto3(0 To 100) As Byte
Dim str As String
Dim str1 As String
Dim str2 As String
Dim ci As Long

    Timer2.Enabled = False
    Timer3.Enabled = False
    
    'o timer foi configurado para a cada 1 segundo verificar se algum dado foi lido pela serial.

    'a variavel ret recebe os valores da serial.
    ret = bReceiveBarcode(ID, Porta, buf(0), Nbr)
    
    'verifica se algum valor foi recebido pela serial
    'se (ret <> 0) significa valor recebido)
    If (ret <> 0) Then
        
        'variável str recebe os dados recebidos da serial.
        str = ""
        For ci = 0 To 13
            str = str + Chr(buf(ci))
        Next
        
        'exibe código de barras lido pela serial com # na frente.
       ' MsgBox ("Código de Barras: " & str & "    Verifique mensagem no display que foi passado o Código de Barras,após clicar em OK.")
        ListReceive.AddItem str
        
        
        'compara valor recebido pela serial com algum valor cadastrado.
        'se código de barras é igual ao marcado abaixo, exibe a mensagem definida
        If (str = txtCodbar) Then
          'converte a expresão abaixo para Byte e salva na variavel texto1
          str1 = txtProd.Text
          For ci = 0 To Len(str1) - 1
                texto1(ci) = CByte(Asc(Mid(str1, ci + 1, 1)))
            Next
            texto1(Len(str1)) = 0
            
          'converte a expresão abaixo para Byte e salva na variavel texto2
          str2 = txtPreco.Text
          For ci = 0 To Len(str2) - 1
                texto2(ci) = CByte(Asc(Mid(str2, ci + 1, 1)))
            Next
            texto2(Len(str2)) = 0
            
          'função para utilizar com o terminal TC505 com o Servidor505 estiver ligado
          'ret = bSendImagePrice(ID, texto1(0), texto2(0), 5, 128, 64)
          
          'função para utilizar com o terminal TC505 e Busca Preço
          ret = bSendProdPrice(ID, texto1(0), texto2(0))

        Else
           bSendProdNotFound ID
        End If
        

    End If

End Sub

Private Sub Timer2_Timer()
Dim tabcon As TTABSOCK
Dim conf As TCCONFIG
Dim host(0 To 100) As Byte
Dim endereco(0 To 100) As Byte
Dim msknet(0 To 100) As Byte
Dim texto1(0 To 100) As Byte
Dim texto2(0 To 100) As Byte
Dim texto3(0 To 100) As Byte
Dim texto4(0 To 100) As Byte
Dim str1 As Byte
Dim str2 As String
Dim ci As Long
        
'Timer recebe configurações do terminal
    T1B.Text = ""
    T2B.Text = ""
    T3B.Text = ""
    T4B.Text = ""
    T5B.Text = ""
    T6B.Text = ""
    T7B.Text = ""
    
    'variavel tabcon recebe os valores da função GetTabConectados
    tabcon = GetTabConectados(0)
    
   ' bPedeConfig tabcon.TabSock(0)
    
    'recebe valores de configuração do terminal selecionado
    bPedeConfig SelectedTermSock
    
    conf = bReceiveConfig
        
    'IP do Servidor
    str2 = ""
    For ci = 0 To 21
        If (conf.host(ci) >= 32) Then str2 = str2 + Chr(conf.host(ci))
    Next
    T1B.Text = str2
        
    'IP do Terminal
    str2 = ""
    For ci = 0 To 21
        If (conf.endereco(ci) >= 32) Then str2 = str2 + Chr(conf.endereco(ci))
    Next
    T2B.Text = str2
    
    'mascara de rede
    str2 = ""
    For ci = 0 To 21
        If (conf.msknet(ci) >= 32) Then str2 = str2 + Chr(conf.msknet(ci))
    Next
    T3B.Text = str2
        
    'Texto1
    str2 = ""
    For ci = 0 To 21
        If (conf.texto1(ci) >= 32) Then str2 = str2 + Chr(conf.texto1(ci))
    Next
    T4B.Text = str2
        
    'Texto2
    str2 = ""
    For ci = 0 To 21
        If (conf.texto2(ci) >= 32) Then str2 = str2 + Chr(conf.texto2(ci))
    Next
    T5B.Text = str2
    
    'Texto3
    str2 = ""
    For ci = 0 To 21
        If (conf.texto3(ci) >= 32) Then str2 = str2 + Chr(conf.texto3(ci))
    Next
    T6B.Text = str2
    
    'Texto4
    str2 = ""
    For ci = 0 To 21
        If (conf.texto4(ci) >= 32) Then str2 = str2 + Chr(conf.texto4(ci))
    Next
    T7B.Text = str2
    
    'Sock e tempo de exibição
    str2 = ""
    str2 = Chr(conf.tempoexib)
    Text1.Text = str2
    

End Sub

Private Sub Timer3_Timer()
Dim tabcon As TTABSOCK
Dim conf As TCUPDCONFIG
Dim str As String
Dim str2 As String
Dim ci As Long
'Timer recebe configurações do terminal
        
    Text2.Text = ""
    Text3.Text = ""
    Text4.Text = ""
    Text5.Text = ""
    Text6.Text = ""
    Text7.Text = ""
        
    'variavel tabcon recebe os valores da função GetTabConectados
    tabcon = GetTabConectados(0)
    
    'bPedeUpdConfig tabcon.TabSock(0)
    
    
    bPedeUpdConfig SelectedTermSock
      
    
    conf = bReceiveUpdConfig
        
    'IP do Servidor
    str2 = ""
    For ci = 0 To 21
        If (conf.gateway(ci) >= 32) Then str2 = str2 + Chr(conf.gateway(ci))
    Next
    Text7.Text = str2
        
    'IP do Terminal
    str2 = ""
    For ci = 0 To 21
        If (conf.nameserver(ci) >= 32) Then str2 = str2 + Chr(conf.nameserver(ci))
    Next
    Text6.Text = str2
    
    'mascara de rede
    str2 = ""
    For ci = 0 To 21
        If (conf.tcname(ci) >= 32) Then str2 = str2 + Chr(conf.tcname(ci))
    Next
    Text5.Text = str2
        
    'Texto1
    str2 = ""
    For ci = 0 To 21
        If (conf.updserv(ci) >= 32) Then str2 = str2 + Chr(conf.updserv(ci))
    Next
    Text4.Text = str2
        
    'Texto2
    str2 = ""
    For ci = 0 To 21
        If (conf.upduser(ci) >= 32) Then str2 = str2 + Chr(conf.upduser(ci))
    Next
    Text3.Text = str2
    
    'Texto3
    str2 = ""
    For ci = 0 To 21
        If (conf.updpass(ci) >= 32) Then str2 = str2 + Chr(conf.updpass(ci))
    Next
    Text2.Text = str2

End Sub

Private Sub Timer4_Timer()
Dim ci As Integer
Dim cj As Integer
Dim ptr(0 To 20) As Byte
Dim oip As String
Dim rip As String
Dim tipo As String
Dim rtipo As Long


List1.Clear

tabconec = GetTabConectados(0)
Numconec = tabconec.NumSockConec
   
ci = 0
cj = 0

For ci = 0 To 1020
   If tabconec.TabSock(ci) <> 0 Then
      'converte endereço de rede para formato ASC, e armazena na variável ptr
       TCinet_ntoa tabconec.TabIP(ci), ptr(0)
      'exibe o endereço de rede armazenado na variável oip
      oip = ""
       For cj = 0 To 20
          oip = oip & Chr(ptr(cj))
       Next
       
       rtipo = CInt(tabconec.TabSock(ci))
       
       If iTypeTerm(rtipo) = 0 Then
          tipo = "TC501"
       End If
       If iTypeTerm(rtipo) = 1 Then
          tipo = "Busca-Preço/TC502"
       End If
       If iTypeTerm(rtipo) = 2 Then
          tipo = "TC505"
       End If
       'MsgBox iTypeTerm(rtipo)
       rip = oip
       rip = tabconec.TabSock(ci) & " || " & tipo & " || " & oip
       List1.AddItem rip, ci
      
   End If
 '  ci = ci + 1
Next
    
 
End Sub
