form1.vb

wince平台 modbus通讯 modbus tcp master vb.net的一个例子程序

        Me.Label5.Size = New System.Drawing.Size(88, 20)
        Me.Label5.Text = "Write Address"
        '
        'Label6
        '
        Me.Label6.Location = New System.Drawing.Point(152, 216)
        Me.Label6.Size = New System.Drawing.Size(32, 20)
        Me.Label6.Text = "Value"
        '
        'TextBox15
        '
        Me.TextBox15.Location = New System.Drawing.Point(96, 216)
        Me.TextBox15.Size = New System.Drawing.Size(24, 22)
        Me.TextBox15.Text = "16"
        '
        'TextBox16
        '
        Me.TextBox16.Location = New System.Drawing.Point(192, 216)
        Me.TextBox16.Size = New System.Drawing.Size(56, 22)
        Me.TextBox16.Text = "12345"
        '
        'ListBox1
        '
        Me.ListBox1.Items.Add("2")
        Me.ListBox1.Items.Add("3")
        Me.ListBox1.Location = New System.Drawing.Point(72, 8)
        Me.ListBox1.Size = New System.Drawing.Size(32, 26)
        '
        'ListBox2
        '
        Me.ListBox2.Items.Add("19200")
        Me.ListBox2.Items.Add("9600")
        Me.ListBox2.Location = New System.Drawing.Point(168, 8)
        Me.ListBox2.Size = New System.Drawing.Size(100, 26)
        '
        'Label7
        '
        Me.Label7.Location = New System.Drawing.Point(8, 104)
        Me.Label7.Size = New System.Drawing.Size(96, 20)
        Me.Label7.Text = "Address 16~20"
        '
        'Label8
        '
        Me.Label8.Location = New System.Drawing.Point(8, 40)
        Me.Label8.Size = New System.Drawing.Size(88, 20)
        Me.Label8.Text = "Address 6~10"
        '
        'Form1
        '
        Me.ClientSize = New System.Drawing.Size(370, 248)
        Me.Controls.Add(Me.ListBox2)
        Me.Controls.Add(Me.ListBox1)
        Me.Controls.Add(Me.TextBox16)
        Me.Controls.Add(Me.TextBox15)
        Me.Controls.Add(Me.TextBox14)
        Me.Controls.Add(Me.Label4)
        Me.Controls.Add(Me.TextBox13)
        Me.Controls.Add(Me.Label3)
        Me.Controls.Add(Me.TextBox10)
        Me.Controls.Add(Me.TextBox9)
        Me.Controls.Add(Me.TextBox8)
        Me.Controls.Add(Me.TextBox7)
        Me.Controls.Add(Me.TextBox6)
        Me.Controls.Add(Me.Label1)
        Me.Controls.Add(Me.TextBox5)
        Me.Controls.Add(Me.TextBox4)
        Me.Controls.Add(Me.TextBox3)
        Me.Controls.Add(Me.TextBox2)
        Me.Controls.Add(Me.TextBox1)
        Me.Controls.Add(Me.Button5)
        Me.Controls.Add(Me.Button4)
        Me.Controls.Add(Me.Button3)
        Me.Controls.Add(Me.Button2)
        Me.Controls.Add(Me.Button1)
        Me.Controls.Add(Me.Label2)
        Me.Controls.Add(Me.Label5)
        Me.Controls.Add(Me.Label6)
        Me.Controls.Add(Me.Label7)
        Me.Controls.Add(Me.Label8)
        Me.Text = "Form1"

    End Sub

    Public Shared Sub Main()
        Application.Run(New Form1)
    End Sub

#End Region

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim c, d, e1, f, Rtn1 As Integer
        c = 0
        d = 8
        e1 = 1
        f = 2000
        Rtn1 = Wincon.ModbusRTU.MBRTUInit(m_list1, m_list2, c, d, e1, f)
        If Rtn1 = 0 Then
            MessageBox.Show("Initial Success")
        Else
            MessageBox.Show("Initial Fail")
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        m_list1 = 2
        m_list2 = 19200
        m_WCoilAd = 7
        m_WRegAd = 16
        m_WCoilVal = 1
        m_WRegVal = 12345
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim r1, r2, r3, r4, r6, Rtn2 As Integer
        Dim RC5(4) As Byte
        r1 = m_list1
        r2 = 1
        r3 = 6
        r4 = 5
        r6 = 1
        Rtn2 = Wincon.ModbusRTU.MBRTU_R_Coils(r1, r2, r3, r4, RC5, r6)
        If Rtn2 = 0 Then
            MessageBox.Show("RCoils Success")
            TextBox1.Text = RC5(0)
            TextBox2.Text = RC5(1)
            TextBox3.Text = RC5(2)
            TextBox4.Text = RC5(3)
            TextBox5.Text = RC5(4)
        Else
            MessageBox.Show("RCoils Fail")
        End If
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim Rtn3 As Integer
        Dim w1, w2, w3, w4 As Integer
        w1 = m_list1
        w2 = 1
        w3 = m_WCoilAd
        w4 = m_WCoilVal
        Rtn3 = Wincon.ModbusRTU.MBRTU_W_Coil(w1, w2, w3, w4)
        If Rtn3 = 0 Then
            MessageBox.Show("WCoil Success")
        Else
            MessageBox.Show("WCoil Fail")
        End If
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim rr1, rr2, rr3, rr4, rr6, RRtn5 As Integer
        Dim RRC5(4) As Short
        rr1 = m_list1
        rr2 = 1
        rr3 = 16
        rr4 = 5
        rr6 = 3
        RRtn5 = Wincon.ModbusRTU.MBRTU_R_Registers(rr1, rr2, rr3, rr4, RRC5, rr6)
        If RRtn5 = 0 Then
            MessageBox.Show("RRegs Success")
            TextBox6.Text = RRC5(0)
            TextBox7.Text = RRC5(1)
            TextBox8.Text = RRC5(2)
            TextBox9.Text = RRC5(3)
            TextBox10.Text = RRC5(4)
        Else
            MessageBox.Show("RRegs Fail")
        End If
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Dim Rtn3 As Integer
        Dim w1, w2, w3, w4 As Integer
        w1 = m_list1
        w2 = 1
        w3 = m_WRegAd
        w4 = m_WRegVal
        Rtn3 = Wincon.ModbusRTU.MBRTU_W_Register(w1, w2, w3, w4)
        If Rtn3 = 0 Then
            MessageBox.Show("WReg Success")
        Else
            MessageBox.Show("WReg Fail")
        End If
    End Sub

    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        m_list1 = ListBox1.SelectedItem
    End Sub

    Private Sub ListBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox2.SelectedIndexChanged
        m_list2 = ListBox2.SelectedItem
    End Sub

    Private Sub TextBox13_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox13.TextChanged
        m_WCoilAd = TextBox13.Text

    End Sub

    Private Sub TextBox14_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox14.TextChanged
        m_WCoilVal = TextBox14.Text

    End Sub

    Private Sub TextBox15_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox15.TextChanged
        m_WRegAd = TextBox15.Text

    End Sub

    Private Sub TextBox16_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox16.TextChanged
        m_WRegVal = TextBox16.Text

    End Sub
End Class