基本信息

---

下载

   友情提示：（无需注册或充值，赞助后即可获取资源下载链接）

---

     嘿，亲！知识可是无价之宝呢，但咱这精心整理的资料也耗费了不少心血呀。小小地破费一下，绝对物超所值哦！如有下载和支付问题，请联系我们QQ(微信同号)：78630559

本次赞助数额为： 4 元　

支付宝支付

微信支付

   源码介绍

---

profibus调试源代码 PROFUBUS DPV0 主站从站调试代码

Private Sub LblScan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LblScan.Click
        LblScan.Text = "...."
        '10 13 02 49 5E 16
        RS232.ReceivedBytesThreshold = 10
        Dim i As Byte
        Dim sendtel() As Byte = {&H10, &H13, 2, &H49, &H5E, &H16}
        Dim rectemp(6) As Byte
        Dim sum As Integer
        For i = 0 To 6
            RS232.Write(sendtel, 0, 6)
            While RS232.BytesToWrite
            End While
        Next
        For i = 0 To 125
            sendtel(1) = i
            sum = 0
            sum = sendtel(1)
            sum = sendtel(2)
            sum = sendtel(3)
            sendtel(4) = CByte(sum And &HFF)
            txtReceive.Text = ">"
            RS232.Write(sendtel, 0, 6)
            RS232.DiscardInBuffer()
            TimeDelay(60)
            Dim RecCount As Integer
            RecCount = RS232.BytesToRead
            If RecCount < 6 Then Continue For
            RS232.Read(rectemp, 0, 6)
            If rectemp(0) <> SD1 Or rectemp(5) <> ED Then Continue For
            sum = rectemp(1)
            sum = rectemp(2)
            sum = rectemp(3)
            If rectemp(4) <> CByte(sum And &HFF) Then Continue For
            txtReceive.Text = vbCrLf "检测到从站：" i.ToString vbCrLf
        Next
        txtReceive.Text = vbCrLf "查找结束！" vbCrLf
        RS232.ReceivedBytesThreshold = 1
        LblScan.Text = "Scan"
    End Sub

  

   
    Private Sub txtReceive_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtReceive.TextChanged
        If txtReceive.TextLength > 5000 Then
            txtReceive.Text = ""
        End If
    End Sub

   
  
    Private Sub txtoutput_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtoutput.KeyPress
        If e.KeyChar = " " Then Exit Sub
        If e.KeyChar = vbBack Then Exit Sub
        If IsHexDigit(e.KeyChar) Then Exit Sub
        e.KeyChar = ""
    End Sub

 
   
    Private Sub TxtRecMenu_Opening(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles TxtRecMenu.Opening

    End Sub
End Class