?? frmfx.frm

?? vb與fx系列可編程序控制器（plc)的通信原碼
?? FRM
?? 第 1 頁(yè) / 共 2 頁(yè)
字號(hào):
上一頁(yè)12
            CommFX.Output = Chr(5) + DevDat + SumChk(DevDat)
            Tim = Timer
            If DevType = "XYM" Then '監(jiān)控類(lèi)型為位元件
                Do
                    If Timer > Tim + 1 Then: GoTo FirstLoop
                Loop Until CommFX.InBufferCount > 8
                SetIn = CommFX.Input
                If Left$(SetIn, 7) = Chr(2) + cboStation.Text + "FF0" + Chr(3) Then
                    SETRST.Caption = "SET"
                ElseIf Left$(SetIn, 7) = Chr(2) + cboStation.Text + "FF1" + Chr(3) Then
                    SETRST.Caption = "RESET"
                Else
                    Text2.Text = "ONLINE ERROR"
                End If
            
            ElseIf DevType = "D" Then '監(jiān)控類(lèi)型為單字節(jié)D,T,C(16BIT)
                Do
                    If Timer > Tim + 1 Then: GoTo FirstLoop
                Loop Until CommFX.InBufferCount = 12
                SetIn = CommFX.Input
                If OptionD.Value Then
                    DevDData = Val("&H" + Mid(SetIn, 6, 4))
                    Text2.Text = CStr(DevDData)
                Else
                    Text2.Text = Mid(SetIn, 6, 4)
                End If
            ElseIf DevType = "2D" Then '監(jiān)控類(lèi)型為雙字節(jié)D,C(32BIT)
                Do
                    If Timer > Tim + 1 Then: GoTo FirstLoop
                Loop Until CommFX.InBufferCount = 16
                SetIn = CommFX.Input
                If Device = "C" Then
                    DevDataStr = Mid(SetIn, 6, 8)
                Else
                    DevDataStr = Mid(SetIn, 10, 4) + Mid(SetIn, 6, 4)
                End If
                If OptionD.Value Then
                    If Left(DevDataStr, 4) = "0000" And Mid(DevDataStr, 5, 1) <> "0" Then
                        Text2.Text = CStr(Val("&H" + DevDataStr + "0") / 16)
                    Else
                        Text2.Text = CStr(Val("&H" + DevDataStr))
                    End If
                Else
                    Text2.Text = DevDataStr
                End If
            End If
            
            If Device = "C" Or Device = "T" Then '是計(jì)數(shù)器或計(jì)時(shí)器線圈
                CommFX.InBufferCount = 0
                CommFX.OutBufferCount = 0
                CommFX.Output = Chr(5) + DevDatTC + SumChk(DevDatTC)
                Tim = Timer
                Do
                    If Timer > Tim + 1 Then: GoTo FirstLoop
                Loop Until CommFX.InBufferCount > 8
                SetIn = CommFX.Input
                If Left$(SetIn, 7) = Chr(2) & cboStation.Text & "FF0" & Chr(3) Then
                    SETRST.Caption = "SET"
                ElseIf Left$(SetIn, 7) = Chr(2) & cboStation.Text & "FF1" & Chr(3) Then
                    SETRST.Caption = "RESET"
                Else
                    Text2.Text = "ONLINE ERROR"
                End If
            End If
        End If
    Loop
End Sub



Private Sub Form_Unload(Cancel As Integer)
    start = False
    blnExit = True
    Set frmfx = Nothing
End Sub


Private Sub fraComm2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
        lblTopic = "設(shè)置連接PLC的通信端口以及PLC的站號(hào)(應(yīng)與D8121相同)"
End Sub

Private Sub Frame1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
        lblTopic = "實(shí)時(shí)監(jiān)控/設(shè)置PLC的XYMTCD設(shè)備值"
End Sub

Private Sub OptionD_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
        lblTopic = "數(shù)據(jù)以十進(jìn)制方式返回或設(shè)置"
End Sub

Private Sub OptionH_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
        lblTopic = "數(shù)據(jù)以十六進(jìn)制方式返回或設(shè)置"
End Sub

Private Sub SETRST_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
        lblTopic = "對(duì)位元件(X,Y,M,T,C)線圈置位與復(fù)位"
End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
    SETRST.Enabled = False
    start = False
    fraComm1.Visible = True
    fraComm2.Visible = True
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
    char = Chr(KeyAscii)
    setaddr = Text1.Text
    If Len(setaddr) > 1 Then: setad = Right(setaddr, Len(setaddr) - 1)
    KeyAscii = Asc(UCase(char)) '轉(zhuǎn)換為大寫(xiě)
    
    If KeyAscii = 13 Then '按回車(chē)鍵
        Device = Left(setaddr, 1)
        Text1.SelStart = 0
        Text1.SelLength = Len(setaddr)
        Text2.Enabled = True
        If (Device = "X" Or Device = "Y" And Oct(Val("&o" + setad)) = setad And Val(setad) < 178) Or (Device = "M" And CStr(Val(setad)) = setad And (Val(setad) < 1536 Or Val(setad) > 7999 And Val(setad) < 8256)) Then
            DevAdd = Right(("0000" + setad), 4)
            DevDat = cboStation.Text + "FFBR0" + Device + DevAdd + "01"
            DevType = "XYM"
            Text2.Enabled = False
            SETRST.Enabled = True
            start = True
        End If
        If Device = "D" And CStr(Val(setad)) = setad And (Val(setad) < 1000 Or Val(setad) > 7999 And Val(setad) < 8256) Then
            DevAdd = Right(("0000" + setad), 4)
            If Check1.Value = 0 Then
                DevDat = cboStation.Text + "FFWR0" + Device + DevAdd + "01" '使用WR命令讀16bit數(shù)據(jù)
                DevType = "D"
            Else
                DevDat = cboStation.Text + "FFWR0" + Device + DevAdd + "02" '使用WR命令讀32bit數(shù)據(jù)
                DevType = "2D"
            End If
            SETRST.Enabled = False
            start = True
        End If
        If Device = "T" And CStr(Val(setad)) = setad And Val(setad) < 256 Then
            DevAdd = Right(("000" + setad), 3)
            DevDatTC = cboStation.Text + "FFBR0" + Device + "S" + DevAdd + "01" 'T的線圈狀態(tài)
            DevDat = cboStation.Text + "FFWR0" + Device + "N" + DevAdd + "01" 'T的數(shù)據(jù)值
            DevType = "D"
            SETRST.Enabled = True
            start = True
        End If
        If Device = "C" And CStr(Val(setad)) = setad And Val(setad) < 256 Then
            DevAdd = Right(("000" + setad), 3)
            DevDatTC = cboStation.Text + "FFBR0" + Device + "S" + DevAdd + "01" 'C的線圈狀態(tài)
            If Val(setad) > 199 Then
                DevDat = cboStation.Text + "FFWR0" + Device + "N" + DevAdd + "01" 'C200以上的數(shù)據(jù)值
                DevType = "2D"
            Else
                DevDat = cboStation.Text + "FFWR0" + Device + "N" + DevAdd + "01" 'C200以下的數(shù)據(jù)值
                DevType = "D"
            End If
            SETRST.Enabled = True
            start = True
        End If
        fraComm1.Visible = False
        fraComm2.Visible = False
    Else
        start = False
        fraComm1.Visible = True
        fraComm2.Visible = True

    End If
End Sub
    
Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
        lblTopic = "輸入要監(jiān)控或設(shè)置的地址回車(chē)確定，如D0,T10,Y7等"
End Sub

Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer)
        If KeyCode <> 13 Then
            start = False
        End If
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
    char = Chr(KeyAscii)
    KeyAscii = Asc(UCase(char))
    If Device = "D" And CStr(Val(setad)) = setad And Val(setad) < 1000 Then
        start = False
    End If
    If (Device = "T" Or Device = "C") And CStr(Val(setad)) = setad And Val(setad) < 256 Then
        start = False
    End If
    If KeyAscii = 13 Then
      If Val(DevAdd) > 7999 Then
         If MsgBox("改變系統(tǒng)參數(shù)可能對(duì)系統(tǒng)造成破壞，是否寫(xiě)入？", vbOKCancel + vbCritical) = vbCancel Then Exit Sub
      ElseIf MsgBox("改變當(dāng)前值可能對(duì)運(yùn)行造成危險(xiǎn)，是否寫(xiě)入？", vbOKCancel + vbExclamation) = vbCancel Then Exit Sub
      End If
            If Device = "D" And Check1.Value = 0 Then
                DevAdd = Right(("0000" + setad), 4)
            ElseIf Device = "D" And Check1.Value = 1 Then
                DevAdd = Right(("0000" + setad), 4)
            Else
                DevAdd = Right(("000" + setad), 3)
            End If
            If OptionD.Value Then '十進(jìn)制方式
                If Device = "C" And Val(setad) > 199 Then 'C200以上寫(xiě)入
                    If Val(Text2.Text) > 2847483647# Then: GoTo this
                    DevDat1 = cboStation.Text + "FFWW0" + Device + "N" + DevAdd + "01" + Right("00000000" + Hex(Val(Text2.Text)), 8)
                ElseIf Device = "D" And Check1.Value = 1 Then '雙字節(jié)D寫(xiě)入
                    If Val(Text2.Text) > 2847483647# Then: GoTo this
                    DevDat1 = Right("00000000" + Hex(Val(Text2.Text)), 8)
                    DevDat1 = Right(DevDat1, 4) + Left(DevDat1, 4)
                    DevDat1 = cboStation.Text + "FFWW0" + Device + DevAdd + "02" + DevDat1
                Else
                    If Val(Text2.Text) > 32767 Then: GoTo this
                    If Device = "D" Then '單字節(jié)D寫(xiě)入
                        DevDat1 = cboStation.Text + "FFWW0" + Device + DevAdd + "01" + Right("0000" + Hex(Val(Text2.Text)), 4)
                    Else 'C200以下寫(xiě)入
                        DevDat1 = cboStation.Text + "FFWW0" + Device + "N" + DevAdd + "01" + Right("0000" + Hex(Val(Text2.Text)), 4)
                    End If
                End If
            Else '十六進(jìn)制方式
                If Device = "C" And Val(setad) > 199 Then 'C200以上寫(xiě)入
                    If Val("&H" + Text2.Text) > 2847483647# Then: GoTo this
                    DevDat1 = cboStation.Text + "FFWW0" + Device + "N" + DevAdd + "01" + Right("00000000" + Text2.Text, 8)
                ElseIf Device = "D" And Check1.Value = 1 Then '雙字節(jié)D寫(xiě)入
                    If Val("&H" + Text2.Text) > 2847483647# Then: GoTo this
                    DevDat1 = Right("00000000" + Text2.Text, 8)
                    DevDat1 = Right(DevDat1, 4) + Left(DevDat1, 4)
                    DevDat1 = cboStation.Text + "FFWW0" + Device + DevAdd + "02" + DevDat1
                Else
                    If Val("&H" + Text2.Text) > 32767 Then: GoTo this
                    If Device = "D" Then '單字節(jié)D寫(xiě)入
                        DevDat1 = cboStation.Text + "FFWW0" + Device + DevAdd + "01" + Right("0000" + Text2.Text, 4)
                    Else 'C200以下寫(xiě)入
                        DevDat1 = cboStation.Text + "FFWW0" + Device + "N" + DevAdd + "01" + Right("0000" + Text2.Text, 4)
                    End If
                End If
            End If
            
            CommFX.Output = Chr(5) + DevDat1 + SumChk(DevDat1)
            Tim = Timer
            Do
                If Timer > Tim + 1 Then: Exit Do
            Loop Until CommFX.InBufferCount = 5
this:
            start = True
            Exit Sub
    Else
        start = False
    End If
    If Not (KeyAscii = 8) And (KeyAscii > 57 Or KeyAscii < 48) Then: KeyAscii = 0
End Sub


'位元件置位或者復(fù)位
Private Sub SETRST_Click()
    If Val(DevAdd) > 7999 Then 'M8000以上是重要系統(tǒng)參數(shù)，小心！
        If MsgBox("改變系統(tǒng)參數(shù)可能對(duì)系統(tǒng)造成破壞，是否寫(xiě)入？", vbOKCancel + vbCritical) = vbCancel Then Exit Sub
    ElseIf MsgBox("改變當(dāng)前值可能對(duì)運(yùn)行造成危險(xiǎn)，是否寫(xiě)入？", vbOKCancel + vbExclamation) = vbCancel Then Exit Sub
    End If
    If start Then
        start = False
        CommFX.OutBufferCount = 0
        CommFX.InBufferCount = 0
        If (Device = "T" Or Device = "C") And SETRST.Caption = "SET" Then
             DevDat1 = cboStation.Text + "FFBW0" + Device + "S" + DevAdd + "011"
        ElseIf (Device = "T" Or Device = "C") And SETRST.Caption = "RESET" Then
            DevDat1 = cboStation.Text + "FFBW0" + Device + "S" + DevAdd + "010"
        ElseIf DevType = "XYM" And SETRST.Caption = "SET" Then
            DevDat1 = cboStation.Text + "FFBW0" + Device + DevAdd + "011"
        ElseIf DevType = "XYM" And SETRST.Caption = "RESET" Then
            DevDat1 = cboStation.Text + "FFBW0" + Device + DevAdd + "010"
        End If
        CommFX.Output = Chr(5) + DevDat1 + SumChk(DevDat1)
        Tim = Timer
        Do
            If Timer > Tim + 1 Then: Exit Do
        Loop Until CommFX.InBufferCount = 5
        start = True
    End If
End Sub


'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
Private Sub CommOpen()
    If CommFX.PortOpen = False Then
        CommFX.PortOpen = True
    End If
End Sub


Private Sub CommClose()
    If CommFX.PortOpen = True Then
        CommFX.PortOpen = False
    End If
End Sub


'設(shè)置電腦通信參數(shù)
Private Sub CommSet()
    On Error GoTo err1
    If CommFX.PortOpen = True Then
        CommFX.PortOpen = False
    End If
    If Not CommFX.PortOpen Then
        CommFX.CommPort = cboPort.ListIndex + 1 '通信口
        CommFX.Settings = "9600,N,8,1" '固定值即可
        CommFX.Handshaking = 0
        CommFX.InputLen = 0
        CommFX.OutBufferCount = 0
        CommFX.InBufferCount = 0
        CommFX.PortOpen = True
    End If
    Exit Sub
err1:
    MsgBox Err.Description
End Sub

Private Function SumChk(Dats$) As String
    Dim i&
    Dim CHK&
    For i = 1 To Len(Dats)
        CHK = CHK + Asc(Mid(Dats, i, 1))
    Next i
    'SumChk = Right(Hex$(CHK + 3), 2)
    SumChk = Right(Hex$(CHK), 2)
End Function

Private Sub Text2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
        lblTopic = "實(shí)時(shí)顯示監(jiān)控到的數(shù)據(jù)，或改變數(shù)據(jù)后回車(chē)確定"
End Sub
上一頁(yè)12
?? 文件大小 20 K
?? 上傳用戶 dhgagfdagfdsdgf
?? 所屬分類(lèi) 串口編程
??? 相關(guān)標(biāo)簽

#plc #可編程序控制器 #通信
?? 快捷鍵說(shuō)明

復(fù)制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號(hào) Ctrl + =
減小字號(hào) Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? frmfx.frm

?? 快捷鍵說(shuō)明
