connexion avec le pointeuse VB.NET

Question

Public Class Form1

    Public axCZKEM1 As New zkemkeeper.CZKEM

#Region "Communication"
    Private bIsConnected = False 
    Private iMachineNumber As Integer 
   
    Private Sub btnRsConnect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRsConnect.Click    // CONNEXION rs32
        If cbPort.Text.Trim() "" Or cbBaudRate.Text.Trim() "" Or txtMachineSN.Text.Trim() = "" Then
            MsgBox("Port, BaudRate et MachineSN peuvent pas être null", MsgBoxStyle.Exclamation, "Error")
            Return
        End If
        Dim idwErrorCode As Integer

       
        Dim iPort As Integer
        'Dim sPort = cbPort.Text.Trim()
        Dim sPort As String = cbPort.Text.Trim()
        For iPort = 1 To 9
            If sPort.IndexOf(iPort.ToString()) > -1 Then
                Exit For
            End If
        Next

        Cursor = Cursors.WaitCursor
        If btnRsConnect.Text = "Disconnect" Then
            axCZKEM1.Disconnect()
            bIsConnected = False
            btnRsConnect.Text = "Connexion"
            lblState.Text = "État actuel: Déconnecté"
            Cursor = Cursors.Default
            Return
        End If

        iMachineNumber = Convert.ToInt32(txtMachineSN.Text.Trim()) 
        bIsConnected = axCZKEM1.Connect_Com(iPort, iMachineNumber, Convert.ToInt32(cbBaudRate.Text.Trim()))

        If bIsConnected = True Then
            btnRsConnect.Text = "Disconnect"
            btnRsConnect.Refresh()
            lblState.Text = "État actuel: Connecté"
            axCZKEM1.RegEvent(iMachineNumber, 65535) 
        Else
            axCZKEM1.GetLastError(idwErrorCode)
            MsgBox("Impossible de connecter le périphérique, ErrorCode=" & idwErrorCode, MsgBoxStyle.Exclamation, "Error")
        End If
        Cursor = Cursors.Default
    End Sub

    Private Sub btnConnect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConnect.Click  // CONNEXION TCP/IP
        If txtIP.Text.Trim() "" Or txtPort.Text.Trim() "" Then
            MsgBox("IP et le port ne peut pas être nulle", MsgBoxStyle.Exclamation, "Error")
            Return
        End If
        Dim idwErrorCode As Integer
        Cursor = Cursors.WaitCursor
        If btnConnect.Text = "Disconnect" Then
            axCZKEM1.Disconnect()
            bIsConnected = False
            btnConnect.Text = "Connect"
            lblState.Text = "État actuel: deConnecté"
            Cursor = Cursors.Default
            Return
        End If

        bIsConnected = axCZKEM1.Connect_Net(txtIP.Text.Trim(), Convert.ToInt32(txtPort.Text.Trim()))
        If bIsConnected = True Then
            btnConnect.Text = "Disconnect"
            btnConnect.Refresh()
            lblState.Text = "Current State:Connected"
            iMachineNumber = 1 
            axCZKEM1.RegEvent(iMachineNumber, 65535) 
        Else
            axCZKEM1.GetLastError(idwErrorCode)
            MsgBox("Impossible de connecter le périphérique, ErrorCode =" & idwErrorCode, MsgBoxStyle.Exclamation, "Error")
        End If
        Cursor = Cursors.Default


    End Sub
    
#End Region
End Class
      erreur TYPE 'zkemkeer.czmem non defini  je besoin de vous s'aide merci :)

ucfoutu · Answer

Bonjour,
Ta question est à poser ici :
[ Tapez le texte de l'url ici.]
Il semblerait que tu n'aies pas lu attentivement le manuel d'utilisation et/ou que tu n'aies pas installé le SDK nécessaire. 


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

ucfoutu · Answer

Pardon ===>>>
Tapez le texte de l'url ici.
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

Connexion avec le pointeuse VB.NET

2 réponses

Votre réponse

Discussions similaires