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
'컴퓨터 이야기 > 내가 만든 소프트웨어' 카테고리의 다른 글
Excel Addin gUtil Ver 0.1 (0) | 2009.06.26 |
---|---|
텍스트 암호화 프로그램 (0) | 2009.03.22 |
패스워드 암호화 관리 프로그램을 만들다. (0) | 2008.10.19 |
sic assembler (0) | 2008.10.08 |
goldic (200lx용 사전) (0) | 2008.09.28 |
VB로 RS232 제어 하기 예제
다음은 중량을 측정하는 저울의 무게를 RS-232 통신으로 일정 시간 마다 읽어 Display하는 소스의 핵심 부분이다.
If comWeigher.PortOpen = True Then comWeigher.PortOpen = False
comWeigher.CommPort = 1
comWeigher.Settings = "9600,N,8,1"
comWeigher.PortOpen = True '현재 포트를 연다.
Text2.Text = comWeigher.PortOpen
Timer1.Enabled = True
Timer1.Interval = 5000 ' 5 sec
buffer$ = ""
Do
DoEvents
buffer$ = buffer$ & comWeigher.Input
Position = InStr(1, buffer$, "#0001 ", vbBinaryCompare)
If Position > 0 Then
buffer$ = Mid(buffer$, Position)
If InStr(1, buffer$, "Kg", vbBinaryCompare) Then
result1 = Mid$(buffer$, 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 = buffer$
Loop While (Timer1.Enabled = True) ' 5 sec 이후에는 timer 가 중지 됨
comWeigher.PortOpen = False ' 포트를 닫는다.
Text2.Text = comWeigher.PortOpen
Text1.Text = Val(result)
Timer1.Enabled = False
'자동화 이야기 > 지멘스' 카테고리의 다른 글
Simatic manager에서 언어 문제로 프로젝트가 열리지 않을 때.. (0) | 2016.03.15 |
---|---|
libnodave - Simatic s7 PLC Comunication Library (1) | 2008.11.30 |
옛날 PLC (0) | 2008.10.05 |
SIMATIC S7 Fun Part 1 (0) | 2008.09.21 |
The S7 Architecture (0) | 2008.03.06 |