안녕하세요!! 처음 오셨나요??
 
CAD ( 46 )
제어/계측/센서 ( 4 )
도금/도장 ( 1 )
업체찾기 ( 3 )
금형 ( 4 )
공학 ( 13 )
기계요소 ( 15 )
자동화(FA) ( 35 )
기술번역 ( 2 )
금속재료 ( 18 )
설계제도 ( 41 )
기계금속 ( 15 )
환경/에너지 ( 2 )
HOME > 지식카페 > 상세보기
Glofa-Gm C-net 전용 통신 VB -> VB.NET으로 바꾸는 중인데요..
자동화(FA)> 전용기
2010-08-24 08:00:36
ustoro
답변 : 0
추천 : 0
조회 : 12010
현재 VB로 된 GLOFA 전용통신을 VB.NET으로 컨버전할려고하는데요.... 아래 소스점 보시고 도와주셨으면합니다.
VB소스입니다.
Public Function Replace(bufRW As String, bufType As String, bufAddress As Integer, _
                        bufNumber As String, bufData As String)
Dim Bcc As Byte
Dim iBcc As Integer
Dim sBcc As String
Dim lRefTime As Long
Dim 길이 As String
Dim CPU_갯수 As String
Dim Buffer As String
Dim length As Long
Dim Data As String
Dim Cpu_Add As String
Dim Change_Add As String
Dim Org_Hex As String
Dim Org_Hex_2Bit As String
Dim Org_Hex_4Bit As String
Dim Org_Hex_Rev As String
Dim Org_Hex_Rev_4Bit As String
Dim i As Integer
Dim m As String
Dim l As Integer
On Error GoTo pass
    bufRW = UCase(bufRW)
    Select Case Len(bufNumber)
        Case Is > 2
            bufNumber = Right(bufNumber, 2)
        Case Is <= 1
            bufNumber = "0" & bufNumber
    End Select
       
    길이 = "0" & Len(bufType & bufAddress)
       
    If Plc_Port_Select = "CNET" Then
   
'        ' BCC를 계산합니다.
'        iBcc = 5 + ByteCheckSum(Data) + 4
'        If iBcc > 255 Then iBcc = iBcc - 256
'        Bcc = CByte(iBcc)
'        sBcc = ByteToHexStr(Bcc)
       
        If bufRW = "R" Then
            frmMain.MSComm1.Output = Chr$(5) + "00" & bufRW & "SB" & 길이 & bufType & bufAddress & bufNumber + Chr$(4) & sBcc
        Else
            frmMain.MSComm1.Output = Chr$(5) + "00" & bufRW & "SB" & 길이 & bufType & bufAddress & bufNumber & bufData + Chr$(4)
        End If
    Else
        Select Case bufType
            Case Is = "%MB"
                Cpu_Add = Hex(bufAddress)
                CPU_갯수 = Hex(Val(bufNumber))
            Case Is = "%MW"
                Cpu_Add = Hex(bufAddress * 2)
                CPU_갯수 = Hex(Val(bufNumber) * 2)
            Case Is = "%MD"
                Cpu_Add = Hex(bufAddress * 4)
                CPU_갯수 = Hex(Val(bufNumber) * 4)
        End Select
       
        Select Case Len(CPU_갯수)
            Case Is > 2
                CPU_갯수 = Right(CPU_갯수, 2)
            Case Is <= 1
                CPU_갯수 = "0" & CPU_갯수
        End Select
       
        For i = 1 To (6 - Len(Cpu_Add))
            Cpu_Add = "0" & Cpu_Add
        Next
       
        If bufRW = "R" Then
       
            Change_Add = "rZ" & Right(Cpu_Add, 2) & Mid(Cpu_Add, 3, 2) & Left(Cpu_Add, 2) & CPU_갯수
           
            iBcc = ByteCheckSum(Change_Add)     ' BCC를 계산합니다.
            If iBcc > 255 Then iBcc = iBcc - 256
            Bcc = CByte(iBcc)
            sBcc = ByteToHexStr(Bcc)
           
            frmMain.MSComm1.Output = Chr$(2) + Change_Add + sBcc + Chr$(3)
           
        Else
       
            Change_Add = "wZ" & Right(Cpu_Add, 2) & Mid(Cpu_Add, 3, 2) & Left(Cpu_Add, 2) & CPU_갯수 & bufData
           
            iBcc = ByteCheckSum(Change_Add)     ' BCC를 계산합니다.
            If iBcc > 255 Then iBcc = iBcc - 256
            Bcc = CByte(iBcc)
            sBcc = ByteToHexStr(Bcc)
           
            frmMain.MSComm1.Output = Chr$(2) + Change_Add + sBcc + Chr$(3)
           
        End If
       
    End If
       
        ' Time Out을 계산하기 위해 데이터를 Send한 시간을 기록합니다.
        lRefTime = GetTickCount()
        ' ETX가 수신되거나 Time Out이 발생할 때까지 Loop를 돕니다.
        Do
            DoEvents
            Buffer$ = Buffer$ & frmMain.MSComm1.Input
            ' ETX가 수신되었는지를 Check 합니다.
            If Plc_Port_Select = "CNET" Then
                length = InStr(Buffer$, Chr$(3))
            Else
                length = InStr(Buffer$, Chr$(4))
            End If
           
            ' Time Out을 Check 합니다. (여기에서는 1000 msec로 설정하였습니다.)
            If ((GetTickCount() - lRefTime) > 1000) Then
           
                frmMain.Label1.Caption = "연결이 끊겼습니다."
                Exit Function
               
            End If
                                   
        Loop Until (length)
       
            Buffer$ = Buffer$ & frmMain.MSComm1.Input
           
        If Plc_Port_Select = "CNET" Then
       
            Replace = Mid(Buffer$, 2, length - 2)
            Data = Mid(Buffer$, 2, length - 2)
       
        Else
            If bufRW = "R" Then
            Org_Hex = Mid(Buffer$, 3, length - 5)
                Select Case bufType
                    Case Is = "%MB"
                        Replace = Org_Hex
                    Case Is = "%MW"
                        Do
                            Org_Hex_2Bit = Left(Org_Hex, 4)
                            m = Right(Org_Hex_2Bit, 2) & Left(Org_Hex_2Bit, 2)
                            Org_Hex = Mid(Org_Hex, 5)
                            Org_Hex_Rev = Org_Hex_Rev & m
                            Replace = Org_Hex_Rev
                        Loop Until Org_Hex = ""
                    Case Is = "%MD"
                        Do
                            Org_Hex_2Bit = Left(Org_Hex, 4)
                            m = Right(Org_Hex_2Bit, 2) & Left(Org_Hex_2Bit, 2)
                            Org_Hex = Mid(Org_Hex, 5)
                            Org_Hex_Rev = Org_Hex_Rev & m
                            Replace = Org_Hex_Rev
                        Loop Until Org_Hex = ""
                        Do
                            Org_Hex_4Bit = Left(Org_Hex_Rev, 8)
                            m = Right(Org_Hex_4Bit, 4) & Left(Org_Hex_4Bit, 4)
                            Org_Hex_Rev = Mid(Org_Hex_Rev, 9)
                            Org_Hex_Rev_4Bit = Org_Hex_Rev_4Bit & m
                            Replace = Org_Hex_Rev_4Bit
                        Loop Until Org_Hex_Rev = ""
                End Select
               
                For l = 1 To 9
                    Replace = "0" & Replace
                Next
            Else
                Replace = "00WSB"
            End If
        End If
       
        PgrBar = PgrBar + 1
        If PgrBar > 100 Then PgrBar = 0
        frmMain.PgrBar1 = PgrBar
       
    Exit Function
   
pass:
       
End Function
 
아래처럼변경했는데요... 값이 틀리게 나오네요... 뭐가 문제인지....
VB.NET 소스입니다.
    Public Function Replace_Char(ByVal bufRW As String, ByVal bufType As String, ByVal bufAddress As Integer, ByVal bufNumber As String, ByVal bufData As String) As String
        Dim Bcc As Byte
        Dim iBcc As Integer
        Dim sBcc As String
        Dim lRefTime As Long
        Dim 길이 As String
        Dim CPU_갯수 As String
        Dim Buffer As String
        Dim length As Long
        Dim Data As String
        Dim Cpu_Add As String
        Dim Change_Add As String
        Dim Org_Hex As String
        Dim Org_Hex_2Bit As String
        Dim Org_Hex_4Bit As String
        Dim Org_Hex_Rev As String
        Dim Org_Hex_Rev_4Bit As String
        Dim i As Integer
        Dim m As String
        Dim l As Integer
        Try
            If Com_Check = False Then
                Exit Function
            End If
            bufRW = UCase(bufRW)
            Select Case Len(bufNumber)
                Case Is > 2
                    bufNumber = Right(bufNumber, 2)
                Case Is <= 1
                    bufNumber = "0" & bufNumber
            End Select
            길이 = "0" & Len(bufType & bufAddress)
            If Plc_Port_Select = "CNET" Then
                ' BCC를 계산합니다.
                iBcc = 5 + ByteCheckSum(bufData) + 4
                If iBcc > 255 Then iBcc = iBcc - 256
                Bcc = CByte(iBcc)
                sBcc = ByteToHexStr(Bcc)
                If bufRW = "R" Then
                    frmMain.MSComm1.Output = Chr(5) & "00" & bufRW & "SB" & 길이 & bufType & bufAddress & bufNumber & Chr(4) & sBcc
                Else
                    frmMain.MSComm1.Output = Chr(5) & "00" & bufRW & "SB" & 길이 & bufType & bufAddress & bufNumber & bufData & Chr(4)
                End If
            Else
                Select Case bufType
                    Case Is = "%MB"
                        Cpu_Add = Hex(bufAddress)
                        CPU_갯수 = Hex(Val(bufNumber))
                    Case Is = "%MW"
                        Cpu_Add = Hex(bufAddress * 2)
                        CPU_갯수 = Hex(Val(bufNumber) * 2)
                    Case Is = "%MD"
                        Cpu_Add = Hex(bufAddress * 4)
                        CPU_갯수 = Hex(Val(bufNumber) * 4)
                End Select
                Select Case Len(CPU_갯수)
                    Case Is > 2
                        CPU_갯수 = Right(CPU_갯수, 2)
                    Case Is <= 1
                        CPU_갯수 = "0" & CPU_갯수
                End Select
                For i = 1 To (6 - Len(Cpu_Add))
                    Cpu_Add = "0" & Cpu_Add
                Next
                If bufRW = "R" Then
                    Change_Add = "rZ" & Right(Cpu_Add, 2) & Mid(Cpu_Add, 3, 2) & Left(Cpu_Add, 2) & CPU_갯수
                    iBcc = ByteCheckSum(Change_Add) ' BCC를 계산합니다.
                    If iBcc > 255 Then iBcc = iBcc - 256
                    Bcc = CByte(iBcc)
                    sBcc = ByteToHexStr(Bcc)
                    frmMain.MSComm1.Output = Chr(2) & Change_Add & sBcc & Chr(3)
                Else
                    Change_Add = "wZ" & Right(Cpu_Add, 2) & Mid(Cpu_Add, 3, 2) & Left(Cpu_Add, 2) & CPU_갯수 & bufData
                    iBcc = ByteCheckSum(Change_Add) ' BCC를 계산합니다.
                    If iBcc > 255 Then iBcc = iBcc - 256
                    Bcc = CByte(iBcc)
                    sBcc = ByteToHexStr(Bcc)
                    frmMain.MSComm1.Output = Chr(2) & Change_Add & sBcc & Chr(3)
                End If
            End If
            ' Time Out을 계산하기 위해 데이터를 Send한 시간을 기록합니다.
            lRefTime = GetTickCount()
            ' ETX가 수신되거나 Time Out이 발생할 때까지 Loop를 돕니다.
            Do
                System.Windows.Forms.Application.DoEvents()
                Buffer = Buffer & frmMain.MSComm1.Input
                ' ETX가 수신되었는지를 Check 합니다.
                If Plc_Port_Select = "CNET" Then
                    length = InStr(Buffer, Chr(3))
                Else
                    length = InStr(Buffer, Chr(4))
                End If
                ' Time Out을 Check 합니다. (여기에서는 1000 msec로 설정하였습니다.)
                If ((GetTickCount() - lRefTime) > 1000) Then
                    frmMain.Label1.Text = "연결이 끊겼습니다."
                    Exit Function
                End If
            Loop Until (length)
            Buffer = Buffer & frmMain.MSComm1.Input
            If Plc_Port_Select = "CNET" Then
                Replace_Char = Mid(Buffer, 2, length - 2)
                Data = Mid(Buffer, 2, length - 2)
            Else
                If bufRW = "R" Then
                    Org_Hex = Mid(Buffer, 3, length - 5)
                    Select Case bufType
                        Case Is = "%MB"
                            Replace_Char = Org_Hex
                        Case Is = "%MW"
                            Do
                                Org_Hex_2Bit = Left(Org_Hex, 4)
                                m = Right(Org_Hex_2Bit, 2) & Left(Org_Hex_2Bit, 2)
                                Org_Hex = Mid(Org_Hex, 5)
                                Org_Hex_Rev = Org_Hex_Rev & m
                                Replace_Char = Org_Hex_Rev
                            Loop Until Org_Hex = ""
                        Case Is = "%MD"
                            Do
                                Org_Hex_2Bit = Left(Org_Hex, 4)
                                m = Right(Org_Hex_2Bit, 2) & Left(Org_Hex_2Bit, 2)
                                Org_Hex = Mid(Org_Hex, 5)
                                Org_Hex_Rev = Org_Hex_Rev & m
                                Replace_Char = Org_Hex_Rev
                            Loop Until Org_Hex = ""
                            Do
                                Org_Hex_4Bit = Left(Org_Hex_Rev, 8)
                                m = Right(Org_Hex_4Bit, 4) & Left(Org_Hex_4Bit, 4)
                                Org_Hex_Rev = Mid(Org_Hex_Rev, 9)
                                Org_Hex_Rev_4Bit = Org_Hex_Rev_4Bit & m
                                Replace_Char = Org_Hex_Rev_4Bit
                            Loop Until Org_Hex_Rev = ""
                    End Select
                    For l = 1 To 9
                        Replace_Char = "0" & Replace_Char
                    Next
                Else
                    Replace_Char = "00WSB"
                End If
            End If
            PgrBar = PgrBar + 1
            If PgrBar > 100 Then PgrBar = 0
            frmMain.PgrBar1.Value = PgrBar
        Catch ex As Exception
            ErrorTextWrite(ex)
        End Try
    End Function
 
고수님점 부탁드립니다.
메카피아소개제휴/광고문의개인정보 처리방침이용약관이메일주소 무단수집 거부책임의한계와 법적고지저작권침해신고고객센터
상호 : (주)메카피아(서울지점)대표이사 : 김현주사업자등록번호 : 119-85-40453통신판매업신고 : 제 2023-서울종로-1613호
개인정보보호책임자 : 김현주사업장소재지 : [03134] 서울특별시 종로구 돈화문로 88-1, 3층
대표전화: 1544-1605마케팅: 02-861-9044기술교육지원: 02-861-9044팩스: 02-6008-9111E-mail : mechapia@mechapia.com
Copyright(c)2008 Mechapia Co. All rights reserved.