- 1
- 커피콩
- 조회 수 6838
간단한 내장 프레임 프로토콜을 사용하여 연결 시험한 VB소스가 있어 올려놓습니다.
'폼을 읽어서 화면에 나타낼때 화면 한가운데다 떡하니 가져다 놓습니다
Private Sub Form_Load()
Top = Screen.Height / 2 - Height / 2
Left = Screen.Width / 2 - Width / 2
End Sub
'닫기 버튼은 누르면 타이머 비활성화 하고 컴포트를 닫습니다.
Private Sub cmd_close_Click()
cmd_start.Enabled = ture
Timer1.Enabled = False
MSComm1.PortOpen = False
End
End Sub
' 시작 버튼을 누르면 컴포트 설정후 포트를 열고 설정된 프로토콜을 보냅니다. (쓰기명령)
변경된 값을 읽어 드리기 위해 타이머 활성화 하고 100ms 단위로 읽어 옵니다.
Private Sub cmd_start_Click()
'd0에 값을 집어넣는다
Q = Chr(5) + "00WSS0106%DW000" + Text1 + Chr(4)
MSComm1.CommPort = 1
MSComm1.Settings = "19200,N,8,1"
MSComm1.PortOpen = True
MSComm1.Output = Q
Timer1.Enabled = True
Timer1.Interval = 100
cmd_start.Enabled = False
End Sub
'타이머가 활성화 되면 해당 주소를 읽어서 텍스트에 나타냅니다. (읽기명령)
Private Sub Timer1_Timer()
Label4.Caption = " PLC와 통신중"
Q = Chr(5) + "00RSS0106%DW004" + Chr(4)
MSComm1.Output = Q
InString = MSComm1.Input
rx = rx & InString
Text2.Text = rx
End Sub
공유
