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 |
옛날 PLC
요즘 수많은 PLC가 생산, 사용 되고 있다.
인터넷 처럼 수많은 자동화 기기도 유행에 따라 나타나고 사라지고 있다.
세계적으로 많이 사용되고 있는 기종이 미쓰비시 멜셀기종과 지멘스의 S7 씨리즈가 되지 않겠는가 생각되는데
아래 사진은 S7 씨리즈의 할아버지 뻘 되는 기계 이다.
아래 그림의 이녀석은 1970년 경에 태어나서 Line 길이만 200여 미터가 넘는 공장을 제어 하던 녀석이다.
물론 이런 판넬이 십여개 조합 되어 Line을 제어 했지만.
맨위로 파워 서플라이가 보니고 그아래 앰프 그리고 로직 제어 카드가 보인다.
아래 그림은 생산 라인의 모터를 제어 하는 앰프 회로의 예이다.
위 기계도 Simatic이라는 이름이 붙은것으로 기억되는데 Simens+Automation의 합성어로 생각된다.
학교에서 배운 기초 로직 (AND,OR,NOT)과 앰프 그리고 각종 응용 회로에 대한 이론적인 정리가 아주 깔끔하게 된 메뉴얼이 위 기계와 함께 제공되었던 것으로 봐서 이미 S7 PLC의 기초는 수십년전에 이미 만들어졌다고 볼수 있다.
그런것을 보면 한국의 PLC나 자동화기기를 보면 짧은 역사에 이정도 해낸것도 아주 훌륭하다 하지 않을 수 없다.
그만큼 빨리 뛴것이리라….
저런 기계를 보면서 한편으로는 수십년씩 준비하고 포기하지 않는 끈질김도 필요하다는것을 알게된다.
'자동화 이야기 > 지멘스' 카테고리의 다른 글
libnodave - Simatic s7 PLC Comunication Library (1) | 2008.11.30 |
---|---|
VB로 RS232 제어 하기 예제 (0) | 2008.10.05 |
SIMATIC S7 Fun Part 1 (0) | 2008.09.21 |
The S7 Architecture (0) | 2008.03.06 |
Collection of PLC Signals in STEP 7 with subsequent Excel Evaluation (1) | 2008.03.06 |
SIMATIC S7 Fun Part 1
youtube에 올려진 PLC 관련 재미 있는 동영상.
PLC를 가지고 참 재미있게 놀고 있다 ^^;
'자동화 이야기 > 지멘스' 카테고리의 다른 글
VB로 RS232 제어 하기 예제 (0) | 2008.10.05 |
---|---|
옛날 PLC (0) | 2008.10.05 |
The S7 Architecture (0) | 2008.03.06 |
Collection of PLC Signals in STEP 7 with subsequent Excel Evaluation (1) | 2008.03.06 |
Visual Basic .NET OPC Client 만들기 (0) | 2008.03.06 |
The S7 Architecture
'자동화 이야기 > 지멘스' 카테고리의 다른 글
옛날 PLC (0) | 2008.10.05 |
---|---|
SIMATIC S7 Fun Part 1 (0) | 2008.09.21 |
Collection of PLC Signals in STEP 7 with subsequent Excel Evaluation (1) | 2008.03.06 |
Visual Basic .NET OPC Client 만들기 (0) | 2008.03.06 |
What are the possible causes of F0070 on MICROMASTER 4, and how do I avoid them? (0) | 2008.01.28 |
S7 PLC로 Data를 모니터링 하고 분석 할 수 있는 방법
다음 링크 참조
http://support.automation.siemens.com/WW/llisapi.dll/21902350?func=ll&objId=21902350&objAction=csView&nodeid4=20229695&lang=en&siteid=cseus&aktprim=4&extranet=standard&viewreg=WW&load=content&start=11&subtype=136000
'자동화 이야기 > 지멘스' 카테고리의 다른 글
SIMATIC S7 Fun Part 1 (0) | 2008.09.21 |
---|---|
The S7 Architecture (0) | 2008.03.06 |
Visual Basic .NET OPC Client 만들기 (0) | 2008.03.06 |
What are the possible causes of F0070 on MICROMASTER 4, and how do I avoid them? (0) | 2008.01.28 |
What EMC precautions should be used when installing Profibus systems? (0) | 2008.01.28 |
Visual Basic .NET OPC Client 만들기
다음 링크에서 구할 수 있다.
http://support.automation.siemens.com/WW/llisapi.dll?func=cslib.csinfo&lang=en&objid=21523291&caller=view