Weigher와 통신 (VB 6.0)

 

봉신 로드셀 인디게이터의 Data를 rs232 통신으로 읽어서 화면에 출력 하는 예제이다.

 

주요 코드를 소개 하면 …

 

<port open>

If comWeigher.PortOpen = True Then comWeigher.PortOpen = False
comWeigher.CommPort = 1
comWeigher.Settings = "9600,N,8,1"
comWeigher.PortOpen = True  '현재 포트를 연다.

 

<Weigher에서 오는 데이터를 분석 필터링한다>

Do
   DoEvents
   ComBuffer = ComBuffer & comWeigher.Input
   Position = InStr(1, ComBuffer, "#000", vbBinaryCompare)
   If Position > 0 Then
      ComBuffer = Mid(ComBuffer, Position)
      If InStr(1, ComBuffer, "Kg", vbBinaryCompare) Then
         Result1 = Mid$(ComBuffer, 10, 8)
         Result = ""
         For i = 1 To Len(Result1)
            If Mid(Result1, i, 1) >= "0" And Mid(Result1, i, 1) <= "9" Then
               Result = Result + Mid(Result1, i, 1)
            End If
         Next i
         Exit Do
      End If
   End If
   Text1.Text = ComBuffer
Loop While (Timer1.Enabled = True) ' 5 sec 이후에는 timer 가 중지 됨

Program Source

weigherdata분석.zip