国产一区二区三区毛片_亚洲乱码AV中文一区二区_亚洲精品无码专区在线播放_日韩欧美一二_咪咪av影院_欧久久av一区二区

dujiang100
我是一只小小鳥
級別: 家園常客
精華主題: 0
發(fā)帖數(shù)量: 440 個
工控威望: 642 點
下載積分: 1895 分
在線時間: 243(小時)
注冊時間: 2011-03-11
最后登錄: 2024-05-22
查看dujiang100的 主題 / 回貼
樓主  發(fā)表于: 2016-03-23 17:29
   最近在研究VB跟歐姆龍CP1H的通信.了解到可以用串口進(jìn)行HOSTLINK通信,還可以用以太網(wǎng)進(jìn)行FANS通信.CP1H沒有網(wǎng)口所以不可以用FANS通信嗎?串口通信情況下,PLC處于運行時寫入不了數(shù)據(jù),只有當(dāng)PLC是監(jiān)控狀態(tài)時才能寫入.這怎么能達(dá)到隨時寫入的目的呢?
本帖最近評分記錄:
  • 下載積分:+1(56071988)
    shuangyu
    工控行業(yè)呆的越久越迷茫.......懂得多?少?......
    級別: 家園常客
    精華主題: 0
    發(fā)帖數(shù)量: 344 個
    工控威望: 891 點
    下載積分: 1083 分
    在線時間: 115(小時)
    注冊時間: 2009-08-04
    最后登錄: 2024-07-12
    查看shuangyu的 主題 / 回貼
    1樓  發(fā)表于: 2016-04-13 18:17
    Public Class OmronFins
        Dim WithEvents OmronPLC As New System.IO.Ports.SerialPort
        Dim WithEvents T1 As New Timer
        Dim MLog As New MyFB.RunErrLog


        ''' <summary>
        ''' PLC返回字符
        ''' </summary>
        ''' <remarks></remarks>
        Dim PLCRtString As String

        ''' <summary>
        ''' =True 等待RS返回信息
        ''' </summary>
        ''' <remarks></remarks>
        Dim PLCBusyBit As Boolean = False
        Dim PLCCommd As Integer = 0

        Dim RtValue(19) As String
        Dim RtErrValue(19) As String


        Sub RS232PortSet(ByVal PortNum As Integer)

            Try
                With OmronPLC
                    .BaudRate = 38400
                    .StopBits = 2
                    .DataBits = 7
                    .Parity = IO.Ports.Parity.Even
                    .PortName = "COM" & PortNum
                    .ReceivedBytesThreshold = 1
                End With

                If OmronPLC.IsOpen = False Then
                    OmronPLC.Open()
                End If
            Catch ex As Exception
                MLog.LogErrWrite(ex.ToString)
            End Try



        End Sub

        Sub RS232PortClose()
            If OmronPLC.IsOpen = True Then
                OmronPLC.Close()
            End If
        End Sub

        Sub RS232SendMsg(ByVal SendString As String)
            Dim LenNum As Integer
            LenNum = SendString.Length
            If OmronPLC.IsOpen = True Then
                OmronPLC.Write(SendString)
            Else
                PLCBusyBit = False
            End If

        End Sub



        ''' <summary>
        ''' 20150525
        ''' Fins通訊計算校驗碼
        ''' </summary>
        ''' <param name="Value">傳入需要校驗內(nèi)容</param>
        ''' <returns>返回Fins校驗值</returns>
        ''' <remarks></remarks>
        Public Function FinsFcsCheck(ByVal Value As String) As String

            Dim CheckValue As Integer
            Dim CheckHex As String

            For i As Integer = 1 To Value.Length
                CheckValue = Asc(Mid(Value, i, 1)) Xor CheckValue
            Next
            CheckHex = Hex(CheckValue)
            If CheckHex.Length < 2 Then
                CheckHex = "0" & CheckHex
            End If

        
            Return CheckHex


        End Function
        ''' <summary>
        ''' 20150526
        ''' 寫單個PLC值函數(shù)
        '''
        ''' </summary>
        ''' <param name="AddName"></param>
        ''' <param name="Value"></param>
        ''' <returns></returns>
        ''' <remarks></remarks>
        Public Function SetValue(ByVal AddName As String, ByVal AddNum As Integer, ByVal Value As Integer) As Integer

            Dim AddNumHexLen As Integer '地址16進(jìn)制長度
            Dim HexAddNum As String     '地址值轉(zhuǎn)到16進(jìn)制
            Dim HCode As String = "@00FA000000000" '通訊表頭
            Dim CommandCode As String = "0102"    '通訊命令代碼
            Dim MemoryAreaCode As String          'PLC內(nèi)存功能碼
            Dim BitNum As String = "00"           '位寫入需要寫數(shù)值 0-15;字寫如=0
            Dim WriteNum As String = "0001"        '寫PLC地址個數(shù);單個寫入=0001
            Dim HexValue As String                '寫入數(shù)值轉(zhuǎn)換為16進(jìn)制
            Dim FCSString As String               '需要校驗的字符串
            Dim FCSValue As String                '命令校驗碼
            Dim EndCode As String = "*" & vbCr    '結(jié)束碼
            Dim SenCode As String                 '發(fā)送到PLC字符串
            '*************************************************************************
            '修改版本20150526 新建
            '寫入數(shù)值到D
            '通訊發(fā)送命令
            'HCode & CommandCode & MemoryAreaCode  & HEXADDNum & BitNum & WriteNum & Value & FCS & EndCode
            '*************************************************************************


            Try
                If PLCBusyBit = False And OmronPLC.IsOpen Then
                    PLCCommd = 1
                    PLCBusyBit = True
                    '選擇寫入PLC地址類型
                    Select Case AddName
                        Case "D"
                            MemoryAreaCode = "82"
                        Case Else
                            Return 1000
                            Exit Function
                    End Select


                    '寫入地址轉(zhuǎn)換為HEX,計算長度是否=4;長度不夠補滿
                    HexAddNum = Hex(AddNum)
                    AddNumHexLen = HexAddNum.Length
                    Select Case AddNumHexLen
                        Case 1
                            HexAddNum = "000" & HexAddNum
                        Case 2
                            HexAddNum = "00" & HexAddNum
                        Case 3
                            HexAddNum = "0" & HexAddNum
                        Case 4
                            HexAddNum = HexAddNum
                        Case Else
                            Return 1001
                            Exit Function
                    End Select

                    '寫入數(shù)值轉(zhuǎn)換位16進(jìn)制,計算長度=4;長度不夠布滿
                    HexValue = Hex(Value)
                    Select Case HexValue.Length
                        Case 1
                            HexValue = "000" & HexValue
                        Case 2
                            HexValue = "00" & HexValue
                        Case 3
                            HexValue = "0" & HexValue
                        Case 4
                            HexValue = HexValue
                        Case Else
                            Return 1002
                            Exit Function
                    End Select

                    FCSString = HCode & CommandCode & MemoryAreaCode & HexAddNum & BitNum & WriteNum & HexValue

                    FCSValue = FinsFcsCheck(FCSString)

                    SenCode = FCSString & FCSValue & EndCode
                    RS232SendMsg(SenCode)
                    ' Threading.Thread.Sleep(10)
                    '***************************************************
                    '20150608 返回結(jié)果處理

                    Dim StartTick As Integer
                    StartTick = Environment.TickCount
                    Do
                        If (Environment.TickCount - StartTick) > 1500 Then
                            '超時報警
                            PLCBusyBit = False
                            Return 9001
                            Exit Do
                        End If

                        If PLCBusyBit = False Then

                            Exit Do
                        End If
                        Application.DoEvents()
                    Loop

                    If RtErrValue(0) = "1" Then
                        Return 1
                    Else
                        '未知錯誤報警
                        Return 9002
                    End If
                Else

                    '通訊BUSY
                    Return 9003
                End If
            Catch ex As Exception
                ' MsgBox(ex.Message)
                MLog.LogErrWrite(ex.ToString)
            End Try




        End Function

        Public Function GetValue(ByVal AddName As String, ByVal AddNum As Integer, ByRef RtV As Integer) As Integer

            Dim AddNumHexLen As Integer '地址16進(jìn)制長度
            Dim HexAddNum As String     '地址值轉(zhuǎn)到16進(jìn)制
            Dim HCode As String = "@00FA000000000" '通訊表頭
            Dim CommandCode As String = "0101"    '通訊命令代碼
            Dim MemoryAreaCode As String          'PLC內(nèi)存功能碼
            Dim BitNum As String = "00"           '位讀取需要寫數(shù)值 0-15;字讀入=0
            Dim ReadNum As String = "0001"        '讀PLC地址個數(shù);單個寫入=0001
            'Dim HexValue As String                '寫入數(shù)值轉(zhuǎn)換為16進(jìn)制
            Dim FCSString As String               '需要校驗的字符串
            Dim FCSValue As String                '命令校驗碼
            Dim EndCode As String = "*" & vbCr    '結(jié)束碼
            Dim SenCode As String                 '發(fā)送到PLC字符串
            '*************************************************************************
            '修改版本2015703 新建
            '讀D數(shù)值
            '通訊發(fā)送命令
            'HCode & CommandCode & MemoryAreaCode  & HEXADDNum & BitNum & ReadNum  & FCS & EndCode
            '*************************************************************************


            Try
                If PLCBusyBit = False And OmronPLC.IsOpen Then
                    PLCCommd = 1
                    PLCBusyBit = True
                    '選擇讀PLC地址類型
                    Select Case AddName
                        Case "D"
                            MemoryAreaCode = "82"
                        Case Else
                            Return 1000
                            Exit Function
                    End Select


                    '讀地址轉(zhuǎn)換為HEX,計算長度是否=4;長度不夠補滿
                    HexAddNum = Hex(AddNum)
                    AddNumHexLen = HexAddNum.Length
                    Select Case AddNumHexLen
                        Case 1
                            HexAddNum = "000" & HexAddNum
                        Case 2
                            HexAddNum = "00" & HexAddNum
                        Case 3
                            HexAddNum = "0" & HexAddNum
                        Case 4
                            HexAddNum = HexAddNum
                        Case Else
                            Return 1001
                            Exit Function
                    End Select



                    FCSString = HCode & CommandCode & MemoryAreaCode & HexAddNum & BitNum & ReadNum

                    FCSValue = FinsFcsCheck(FCSString)

                    SenCode = FCSString & FCSValue & EndCode
                    RS232SendMsg(SenCode)
                    ' Threading.Thread.Sleep(10)
                    '***************************************************
                    '20150608 返回結(jié)果處理

                    Dim StartTick As Integer
                    StartTick = Environment.TickCount
                    Do
                        If (Environment.TickCount - StartTick) > 1500 Then
                            '超時報警
                            PLCBusyBit = False
                            Return 9001
                            Exit Do
                        End If

                        If PLCBusyBit = False Then

                            Exit Do
                        End If
                        Application.DoEvents()
                    Loop

                    If RtErrValue(0) = "1" Then
                        RtV = Convert.ToInt32(RtValue(0), 16)
                        Return 1
                    Else
                        '未知錯誤報警
                        Return 9002
                    End If
                Else

                    '通訊BUSY
                    Return 9003
                End If
            Catch ex As Exception
                ' MsgBox(ex.Message)
                MLog.LogErrWrite(ex.ToString)
            End Try




        End Function

        Private Sub OmronPLC_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles OmronPLC.DataReceived
            Threading.Thread.Sleep(100)

            Dim ReadString As String
            If OmronPLC.IsOpen = True Then
                ReadString = OmronPLC.ReadExisting
                Call ReslutCount(ReadString)
            End If


            PLCBusyBit = False

        End Sub

        Sub ReslutCount(ByVal InputS As String)
            Dim FcsRead As String = String.Empty  '返回校驗碼
            Dim FcsCount As String = String.Empty '計算出校驗碼
            Dim RtCommand As String = String.Empty '返回命令
            Dim RtMsg As String = String.Empty '返回報警代碼
            Dim OKMsg As String = "0000"        '返回正確代碼
            Try
                If InputS.Length >= 25 Then
                    If Mid(Microsoft.VisualBasic.Right(InputS, 2), 1, 1) = "*" Then
                        PLCRtString = Mid(InputS, 1, InputS.Length - 4)
                        FcsRead = Mid(InputS, InputS.Length - 3, 2)
                        FcsCount = FinsFcsCheck(PLCRtString)
                        RtCommand = Microsoft.VisualBasic.Mid(PLCRtString, 16, 4)
                    End If

                    If FcsCount = FcsRead Then

                        Select Case RtCommand
                            Case "0101"
                                RtMsg = Microsoft.VisualBasic.Mid(PLCRtString, 20, 4)
                                If RtMsg = OKMsg Then
                                    '=1寫入PLC值正常
                                    RtValue(0) = Microsoft.VisualBasic.Mid(PLCRtString, 24, 4)
                                    RtErrValue(0) = "1"
                                    Exit Sub
                                End If

                            Case "0102"
                                RtMsg = Microsoft.VisualBasic.Mid(PLCRtString, 20, 4)
                                If RtMsg = OKMsg Then
                                    '=1寫入PLC值正常
                                    RtErrValue(0) = "1"
                                    Exit Sub
                                End If
                            Case Else
                                '不能識別通訊命令
                                RtErrValue(0) = "9002"
                                Exit Sub

                        End Select






                    Else
                        '返回校驗碼不對報警
                        RtErrValue(0) = "9001"
                    End If




                Else
                    '返回字符串長度不夠報警
                    RtErrValue(0) = "9000"

                End If
            Catch ex As Exception
                MLog.LogErrWrite(ex.ToString)
            End Try
          



        End Sub

        Sub ResetErr()
            Try
                If OmronPLC.IsOpen = True Then
                    OmronPLC.Close()
                End If


                If OmronPLC.IsOpen = False Then
                    OmronPLC.Open()
                End If

                PLCBusyBit = False
            Catch ex As Exception
                MLog.LogErrWrite(ex.ToString)
                MsgBox(ex.Message)
            End Try

        End Sub


    End Class
    本帖最近評分記錄:
  • 下載積分:+1(吃個鴨梨) 熱心助人!
  • 下載積分:+5(dujiang100) 熱心助人!
    shuangyu
    工控行業(yè)呆的越久越迷茫.......懂得多?少?......
    級別: 家園常客
    精華主題: 0
    發(fā)帖數(shù)量: 344 個
    工控威望: 891 點
    下載積分: 1083 分
    在線時間: 115(小時)
    注冊時間: 2009-08-04
    最后登錄: 2024-07-12
    查看shuangyu的 主題 / 回貼
    2樓  發(fā)表于: 2016-04-13 18:20
    2015年一個項目寫的 工控機 與OMRON CP1H串口通訊, 使用FAINS 能夠穩(wěn)定的讀寫數(shù)據(jù);
    本帖最近評分記錄:
  • 下載積分:+1(oahz55) 熱心助人!
  • 下載積分:+1(靜水磐石) 厲害
    shuangyu
    工控行業(yè)呆的越久越迷茫.......懂得多?少?......
    級別: 家園常客
    精華主題: 0
    發(fā)帖數(shù)量: 344 個
    工控威望: 891 點
    下載積分: 1083 分
    在線時間: 115(小時)
    注冊時間: 2009-08-04
    最后登錄: 2024-07-12
    查看shuangyu的 主題 / 回貼
    3樓  發(fā)表于: 2016-04-14 23:20
    線程 批量讀取

    主站蜘蛛池模板: 91播放_4hu在线_丹麦一级毛片_国产乱子伦免费视频观看_操操av_国产裸体裸拍免费观看_一级二级黄色大片_www.五月婷婷.com | 久久天天东北熟女毛茸茸_久久久久久免费_久久国产午夜精品理论片最新版本_亚洲无马在线观看_一个人看的免费高清视频www_亚洲精品国产suv一区88_特及毛片_日本成人午夜 | 亚洲成年在线观看_久草网在线_美女日韩一区_久久香蕉影视_日韩精品a在线观看91_不卡一区综合视频_barazza欧美dh_夜色综合 | 丁香婷婷六月综合交清_素人视频在线观看免费_亚洲精品国精品久久99热一_亚洲AV无码无在线观看_亚洲AV无码片一区二区三区_任你操免费视频_亚洲av日韩av天堂久久_色欲天天婬色婬香视频综合网 | 国产精品va无码免费_水野优香在线一区二区88_操你av_www久久久久_久草视频在线资源站_日本19禁啪啪无遮挡_18禁美女无遮挡裸身网站一区二区_成人a毛片 | www.日本高清_国产美女高潮视频_青青草伊人_亚洲第一a亚洲_久久人人妻人人做人人爽_午夜免费影视_av一片_精品国产乱码久久久久久蜜臂 | 人妻免费久久久久久久了_办公丝袜av一区二区三区_2019日韩中文字幕mv_国产黄频免费无数次看_国产精品国产成人国产三级_动漫久久_午夜男女XX00视频福利_日韩高清在线不卡一区二区 | 品色堂永远免费_俄罗斯大荫蒂女人毛茸茸_国产精品一级在线_亚洲人精品午夜射精日韩_日日网站_成人福利视频网_日韩一区二区三区网站_濑亚美莉av番号大全 | 中日韩VA无码中文字幕_久久一本热_少妇熟女久久综合网色欲_国产剧情亚洲福利_老色鬼在线精品视频在线观看_456成人网_亚洲国产精品久久久久婷爱影_精品午夜影院 | 亚洲一区AV在线观看_欧美熟妇zozozo_热久久精品国产_日本丰满少妇XXXX_97超碰香蕉_国产日韩欧美视频在线观看_草草视频在线播放_欧美成人午夜免费全部完 | 一级大片免费观看_中出在线观看_中文亚洲AV片在线观看不卡_国产一区在线观看免费_不卡日本视频_国产69精品久久久久999天美_99夜色_蜜桃视频在线观看免费视频网站WWW | 午夜毛片视频_美女裸身裸乳视频网站_av成人永久免费看片本色_第一福利网站_xxxav在线_免费看男人操女人_国产精品麻豆99久久久久久_亚洲国产视 | 国语对白爽死我了_成人免费观看网址_欧美一级片_色aⅴ性欧美_人妻少妇邻居少妇好多水在线_粉嫩小泬BBBB免费看_日韩中文字幕专区_极品粉嫩饱满一线天在线 | 51免费看成人啪啪片_亚洲国产二区三区_亚洲精品乱码_亚洲AV无码国产成人_免费观看一二区视频网站_伊人av成人_人妻精品动漫h无码中字_久久极品视频 | 国产免费成人在线视频_色网视频_激情综合网五月_日韩国产一_一及片在线观看_特级无码毛片免费视频_久久精品这里精品_欧美午夜精品一区二区 | 密室大逃脱第三季免费观看高清_久久国产亚洲中文字幕_欧美成人gv在线观看_国产一级淫片91aaa激情_一区国产传媒国产精品_日本一区二区三区在线免费_亚洲欧美国产日韩中文字幕_亚洲成av片人久久久 | 国产精品久久久久一区二区三区共_国产视频1_国产97在线播放_国产一区二区在线观_久久伊人网站_大地资源网第二页免费观看_久久女人被添全过程A片_国产做爰xxx18在线观看网站 | 国产免费观看一区二区三区_狼人视频国产在线视频WWW色_色欧美与xxxxx_日韩欧美一区二区免费_亚洲国产aⅴ精品一区二区三区_日本黄色一级视频_精品成人一区二区三区_国产精品合集久久久久青苹果 | av免费在线网址_国产成人片一区在线观看_久久久久免费看黄a毛片肥婆_色婷婷色综合激情国产日韩_在线欧美小视频_丁香少妇激情啪啪_午夜激情在线视频_美女和帅哥在床上 | 日本人浓密BBW_www.爱久久.com_国产高清精品一区_久久久久久久久久久福利观看_国产超碰在线播放_系列国产精品综合在线_翘臀后进少妇大白嫩屁股_国产无码不卡一区二区 | 国产亚洲精_国产精品久久久久影院亚瑟_亚洲人成欧美中文字幕_石原莉奈在线观看视频_久久综合99re88久久爱小说_亚洲香蕉视频天天爽_午夜时刻免费入口_中国极品少妇xxxxx69 | 国产成人高清啪免费观看软件_久久婷婷五月综合中文字幕_午夜成人性爽爽免费视频_中文字幕日韩在线视频_韩国理论视频_69xx免费观看_亚洲日韩国产av中文字幕_视频精品国内 | 亚洲最大成人av_国产精品一品二区三区在线观看_免费看a毛片_终极斗罗4第三季免费播放_国产乱码精品一区二区三区中文_四虎影院4hu_91精品国产综合久_国产男女视频在线 | 久久久久久99精品_成年美女黄的视频网站_国产一区二区三区四区区_亚洲欧美日韩在线播放_国产三区四区视频_四虎永久在线精品免费看_wwwxxx日韩_一级黄色毛片视频 | 国产成人一区二区三区影院动漫_国产成人在线视频免费观看_久久99女女久久99久久_www.久久爱.com狼人_国产又爽又刺激的视频_日韩中文在线观看_天天草天天爱_狠狠爱天天操 | 一级黄片毛片免费看_色又黄又爽18禁免费网站现观看_一区二区三区四区五区精品_视频一区在线视频_欧美一级黄色录像片_亚洲黄色片视频_国产免费av大片在线观看_麻豆精品免费 | 新香蕉少妇视频网站_多男同时插一个女人8p_国产综合网址_国产盗摄一区二区_亚洲一级影视_日本一区中文字幕_无码AV片AV片AV无码_国产做a爱免费视频 | 亚洲三区在线播放_小视频一区_国产亚洲精品视频中文字幕_色美av_中文字幕在线网址_亚洲欧洲精品视频在线观看_日韩欧美一区二区三区在线播放_国产无遮挡AAA片爽爽 | 精品国产18久久久久久怡红_国产一区二区三区久久99_夜夜操夜夜爽_久久天堂视频_日本人妻巨大乳挤奶水_热久久最新_色一情一乱一伦一区二区三欧美_亚洲第一页在线观看 | 第一福利导航导航_国产激情久久久久久熟女老人AV_丁香五月七月综合激情_久草毛片_91亚色视频在线观看_日本女优一区_日日躁夜夜躁狠狠躁av麻豆_国产精品乱码久久久久久久久 | 国产亚洲精品无码拍拍拍色欲_国产成年视频_永久免费的网站_韩国禁欲贪婪之岛中文版_一级片免费在线_国产一级影片_欧美日韩亚洲国产综合乱_日韩在线视频网 | 国产精品久久久久影院嫩草_91免费小视频在线观看_jj视频在线播放_97人摸人人澡人人人超一碰_久久精品无码专区免费_黄色av网址大全_亚洲乱色伦图片区小说_97免费人妻无码视频 | 亚洲AV无码乱码精品国产_日韩亚射吧_四虎影视国产精品久久_最近好看中文字幕日产_欧美jjzz_精品无码人妻一区二区免费蜜桃_xxxx69在线观看_青草草在线视频 | 麻豆TV入口在线看_国产一区在线导航_青草视频在线免费观看_性色av无码专区一ⅴa亚洲_国产精品com_国产a三级久久精品_久久一区国产_精品国产日韩欧美一区二区 | se69色成人网wwwsex_午夜av免费_亚洲高清av_久久久久免费毛A片免费_四虎影院永久_男人一边吃奶一边弄下边好爽_国产91对白刺激露脸在线观看_欧产日产国产精品精品 | 日韩免费无码专区精品观看_久久久久久久久久久久久久免费看_18av千部免费影片与您_日本天堂在线视频_空姐毛片_香蕉私人影院_黑人巨茎大战白人美女_国产成人av免费观看 | 国产91对白在线播放九色_欧美精品久久久久久久_国产男女爽爽爽免费视频_H无码精品动漫在线观看免费_国产一级毛片网站_国产免费乱淫av_四虎影视大全_中文字幕av一区二区三区高 | 国产亚洲精品久久19p_肉人妻丰满av无码久久不卡_色综合久久久久久久粉嫩_好男人www在线社区_深夜A级毛片免费无码视频_久久91精品_精品国产91aⅴ一区二区三区_国产精品永久免费 | 久草视频中文_aiai久久_日韩精品一区二区三区免费_av网站一区二区_精品视频久久久久久久_亚州av网站大全_国产单亲乱视频_国产成人a区在线观看视频 | 亚洲激情综合视频_一本之道加勒比在线观看_丰满的年轻搜子在线观看_亚洲国产成人精品女人_精品国产aⅴ一区二区三区_久久777国产线看观看精品_成人a级免费视频_av天天干 | 麻豆一二三专区入口_免费h网站在线观看的_国产成人亚洲精品青草_欧美顶级METART裸体全部_日韩在线观看网址_A级免费黄色视频_久久久免费看_国产真人无码作爱视频免费 |