ERRATA 2009년 11월 30일자 버전( 파란글씨 부분이 수정된 사항입니다)
63~64페이지 수정사항:
<표 2.1을 다음표로 대치한다>
[표 2.1] RS-232C 통신프로그램 폼 개체의 속성
|
개 체 |
이 름 |
속 성 |
설 정 |
위치 |
|
Form |
frmMain |
Caption |
RS-232C 통신 |
|
|
Label |
Label1 |
Caption |
전송상태 |
⑦ |
|
Label2 |
Caption |
연결상태 |
||
|
Lable3 |
Caption |
Com 포트 |
||
|
lblConMessage |
Caption |
ConMessage |
||
|
AutoSize |
True |
|||
|
lblConStatus |
Caption |
lblConstatus |
||
|
AutoSize |
True |
|||
|
Line |
Line1, Line2 |
Border Color 와 위치, 두께, 길이를 적당히 |
|
|
|
Command Button |
cmdComTx |
Caption |
프레임 전송 |
④ |
|
cmdLstTxClear |
Caption |
삭제 |
⑤ |
|
|
cmdLstRxClear |
Caption |
삭제 |
⑥ |
|
|
cmdComOpen |
Caption |
포트열기 |
⑭ |
|
|
cmdComClose |
Caption |
닫기 |
⑮ |
|
|
TextBox |
txtEdit |
Text |
프레임 전송 |
① |
|
ListBox |
lstTx |
Style |
0-표준 |
② |
|
lstRx |
Style |
0-표준 |
③ |
|
|
ComboBox |
cboCOM |
Appearance |
1 - 3D |
⑨ |
|
cboBPS |
Appearance |
1 - 3D |
⑩ |
|
|
OptionButton |
optComBit(0) |
Caption |
7 bit |
⑪ |
|
Value |
False |
|||
|
optComBit(1) |
Caption |
8 bit |
||
|
Value |
True |
|||
|
optComParity(0) |
Caption |
No |
⑫ |
|
|
Value |
True |
|||
|
optComParity(1) |
Caption |
Even |
||
|
Value |
False |
|||
|
optComParity(2) |
Caption |
Odd |
||
|
Value |
False |
|||
|
optComStopBit(0) |
Caption |
1Stop |
⑬ |
|
|
Value |
True |
|||
|
optComStopBit(1) |
Caption |
1.5 |
||
|
Value |
False |
|||
|
optComStopBit(2) |
Caption |
2Stop |
||
|
Value |
False |
|||
|
MSComm |
MSComm1 |
RThreshold |
0 |
⑧ |
|
Settings |
9600,n,8,1 |
|||
|
SThreshold |
0 |
|||
________________________________________________________________________________
66페이지 수정사항:
<수정전>
Dim tempRxStrBuffer As String
<수정후 - 다음 파란글씨 부분 추가>
Dim RxStrBuffer As String
Dim RxCounter As Long
Dim TxStrBuffer As String
Dim TxStrLength As Long
Dim STX As String
Dim ETX As String
Dim tempRxStrBuffer As String
________________________________________________________________________________
66페이지 수정사항: Form_Load 프로시저 내
<수정 전>
lblCommStatus.Caption = "연결안됨“
txtMsg1.Text = ""
<수정 후>
lblConStatus.Caption = "연결안됨“
lblConMessage = ""
________________________________________________________________________________
69페이지 수정사항: cmdCOMOpen_Click 프로시저 내
<수정 전>
‘전송상태를 나타내는 텍스트 박스를 클리어 시킨다.
txtMsg1.Text = ""
. . .
txtMsg1.Text = errormsg
. . .
lblCommStatus.Caption = "[" & Str$(MyCOMport) & " ] -> " _
& ComPortProperty & " 로 연결됨"
<수정 후>
‘전송상태를 나타내는 라벨을 클리어 시킨다.
lblConMessage = ""
. . .
lblConMessage = errormsg
. . .
lblConStatus.Caption = "[" & Str$(MyCOMport) & " ] -> " _
& ComPortProperty & " 로 연결됨"
________________________________________________________________________________
<수정 전>
If optComStopBit(i).Value = True Then
ComPortProperty = ComPortProperty & ",1"
ElseIf optComStopBit(i).Value = True Then
ComPortProperty = ComPortProperty & ",1.5"
Else
ComPortProperty = ComPortProperty & ",2"
End If
<수정 후>
If optComStopBit(0).Value = True Then
ComPortProperty = ComPortProperty & ",1"
ElseIf optComStopBit(1).Value = True Then
ComPortProperty = ComPortProperty & ",1.5"
Else
ComPortProperty = ComPortProperty & ",2"
End If
________________________________________________________________________________
70 페이지 수정사항: ComPortOpen 펑션 내
<수정 전>
Private Function ComPortOpen(portno As Integer, portporoperty As String)
As String
<수정 후 - 위의 파란색 글씨 부분 한 줄로 배치>
Private Function ComPortOpen(portno As Integer, portporoperty As String) As String
________________________________________________________________________________
<수정 전>
MSComm1.Interval = 1
<수정 후 - 위의 파란색 글씨 부분 삭제>
MSComm1.Interval = 1 은 있어도 무방함 그러나 필요없는 부분이므로 삭제하는 것임
________________________________________________________________________________
71 페이지 수정사항: ComPortOpen 펑션 내
<수정 전>
CommErrorH:
ComPortOpen = "COM" & portno & "오픈 에러"
'& Chr(10) & "다른 프로그램에 의하여 사용되고 있는것 같습니다", _
vbInformation
<수정 후 - 위의 파란색 글씨 부분 삭제>
CommErrorH:
ComPortOpen = "COM" & portno & "오픈 에러"
________________________________________________________________________________
72페이지 수정사항: cmdCOMTx_Click 프로시저 내
<수정 전>
txtTx.Text = ""
<수정 후>
txtEdit.Text = ""
________________________________________________________________________________
72페이지 수정사항:
<수정 전>
Mscomm1.Output = Che$(&h41)
<수정 후>
Mscomm1.Output = Chr$(&h41)
________________________________________________________________________________
74-75페이지 수정사항: FrameTx1Plus() 프로시저 내
<수정 전>
txtMsg1.Text = ""
. . .
TxStrBuffer = STX + txtTx.Text + ETX
. . .
txtMsg1.Text = "데이터 전송중 :“ & TxCounter
. . .
txtMsg1.Text = "전송 끝 : Total " & TxCounter & " 바이트 전송됨"
<수정 후>
lblConMessage = ""
. . .
TxStrBuffer = STX + txtEdit.Text + ETX
. . .
lblConMessage = "데이터 전송중 :“ & TxCounter
. . .
lblConMessage = "전송 끝 : Total " & TxCounter & " 바이트 전송됨"
________________________________________________________________________________
83페이지 수정사항: MSComm1_OnComm() 프로시저 내
<수정 후 - 서브루틴 맨 아래에 End Sub 추가>
End Sub 추가
________________________________________________________________________________
84페이지 수정사항: cmdCOMClose_Click 프로시저 내
<수정 전>
lblCommStatus.Caption = "연결안됨"
txtMsg1.Text = ""
<수정 후>
lblConStatus.Caption = "연결안됨"
lblConMessage = ""
________________________________________________________________________________
85페이지 수정사항: mnuEnd_Click 프로시저 내
<수정 전>
UnloadAllForms
<수정 후>
Unload Me
103 페이지 수정사항:
<표 3.1을 다음표로 대치한다>
[표 3.1] RS-232C 타깃보드프로그램 폼 개체의 속성
|
개 체 |
이 름 |
속 성 |
설 정 |
위치 |
|
Form |
frmMain |
Caption |
RS-232C 타겟보드 |
|
|
Label |
Label1 |
Caption |
전송상태 |
|
|
Label2 |
Caption |
연결상태 |
||
|
Lable3 |
Caption |
Com 포트 |
||
|
lblConMessage |
Caption |
ConMessage |
||
|
AutoSize |
True |
|||
|
lblConStatus |
Caption |
lblConstatus |
||
|
AutoSize |
True |
|||
|
Line |
Line1, Line2 |
Border Color 와 위치, 두께, 길이를 적당히 |
|
|
|
Command Button |
cmdComTx |
Caption |
프레임 전송 |
⑩ |
|
cmdLstTxClear |
Caption |
삭제 |
⑪ |
|
|
cmdLstRxClear |
Caption |
삭제 |
||
|
cmdComOpen |
Caption |
포트열기 |
⑥ |
|
|
cmdComClose |
Caption |
닫기 |
⑦ |
|
|
TextBox |
txtEdit |
Text |
프레임 전송 |
⑧ |
|
txtTxData |
Text |
txtTxData |
⑨ |
|
|
txtRxData |
Text |
txtRxData |
||
|
ComboBox |
cboCOM |
Appearance |
1 - 3D |
① |
|
cboBPS |
Appearance |
1 - 3D |
② |
|
|
OptionButton |
optComBit(0) |
Caption |
7 bit |
③ |
|
Value |
False |
|||
|
optComBit(1) |
Caption |
8 bit |
||
|
Value |
True |
|||
|
optComParity(0) |
Caption |
No |
④ |
|
|
Value |
True |
|||
|
optComParity(1) |
Caption |
Even |
||
|
Value |
False |
|||
|
optComParity(2) |
Caption |
Odd |
||
|
Value |
False |
|||
|
optComStopBit(0) |
Caption |
1Stop |
⑤ |
|
|
Value |
True |
|||
|
optComStopBit(1) |
Caption |
1.5 |
||
|
Value |
False |
|||
|
optComStopBit(2) |
Caption |
2Stop |
||
|
Value |
False |
|||
|
MSComm |
MSComm1 |
RThreshold |
0 |
⑮ |
|
Settings |
9600,n,8,1 |
|||
|
SThreshold |
0 |
|||
|
Command Button |
cmdOn(0)~(4) |
Caption |
ON |
⑬ |
|
cmdOff(0)~(4) |
Caption |
OFF |
⑭ |
|
|
Image |
imgTarget(0)~(4) |
Picture |
(비트맵) |
⑫ |
________________________________________________________________________________
105페이지 수정사항: Form_Load 프로시저 내
<수정 전>
lblCommStatus.Caption = "연결안됨“
<수정 후>
lblConStatus.Caption = "연결안됨“
________________________________________________________________________________
108페이지 수정사항: cmdCOMOpen_Click 프로시저 내
<수정 전>
If optComStopBit(i).Value = True Then
ComPortProperty = ComPortProperty & ",1"
ElseIf optComStopBit(i).Value = True Then
ComPortProperty = ComPortProperty & ",1.5"
Else
ComPortProperty = ComPortProperty & ",2"
End If
<수정 후>
If optComStopBit(0).Value = True Then
ComPortProperty = ComPortProperty & ",1"
ElseIf optComStopBit(1).Value = True Then
ComPortProperty = ComPortProperty & ",1.5"
Else
ComPortProperty = ComPortProperty & ",2"
End If
________________________________________________________________________________
<수정 전>
‘전송상태를 나타내는 텍스트 박스를 클리어 시킨다.
txtMsg1.Text = ""
. . .
txtMsg1.Text = errormsg
. . .
lblCommStatus.Caption = "[" & Str$(MyCOMport) & " ] -> " _
& ComPortProperty & " 로 연결됨"
<수정 후>
‘전송상태를 나타내는 라벨을 클리어 시킨다.
lblConMessage = ""
. . .
lblConMessage = errormsg
. . .
lblConStatus.Caption = "[" & Str$(MyCOMport) & " ] -> " _
& ComPortProperty & " 로 연결됨"
________________________________________________________________________________
109 페이지 수정사항: ComPortOpen 펑션 내
<수정 전>
Private Function ComPortOpen(portno As Integer, portporoperty As
String) As String
<수정 후 - 위의 파란색 글씨 부분 한 줄로 배치>
Private Function ComPortOpen(portno As Integer, portporoperty As String) As String
________________________________________________________________________________
<수정 전>
MSComm1.Interval = 1
<수정 후 - 위의 파란색 글씨 부분 삭제>
MSComm1.Interval = 1 은 있어도 무방함 그러나 필요없는 부분이므로 삭제하는 것임
________________________________________________________________________________
111-112페이지 수정사항: FrameTx1Plus() 프로시저 내
<수정 전>
txtMsg1.Text = ""
. . .
txtMsg1.Text = "데이터 전송중 :“ & TxCounter
. . .
txtMsg1.Text = "전송 끝 : Total " & TxCounter & " 바이트 전송됨"
<수정 후>
lblConMessage = ""
. . .
lblConMessage = "데이터 전송중 :“ & TxCounter
. . .
lblConMessage = "전송 끝 : Total " & TxCounter & " 바이트 전송됨"
________________________________________________________________________________
114페이지 수정사항: MSComm1_OnComm() 프로시저 내
<수정 후 - 서브루틴 맨 아래에 End Sub 추가>
End Sub 추가
________________________________________________________________________________
116페이지 수정사항: Target_On() 프로시저 내
<수정 전>
Private Sub cmdOn_Click(Index As Integer)
<수정 후>
Private Sub Target_On(Index As Integer)
________________________________________________________________________________
118-119페이지 수정사항: cmdCOMClose_Click 프로시저 내
<수정 전>
lblCommStatus.Caption = "연결안됨"
txtMsg1.Text = ""
<수정 후>
lblConStatus.Caption = "연결안됨"
lblConMessage = ""
________________________________________________________________________________
119페이지 수정사항: cmdLstRxClear_Click 프로시저 내
<수정 전>
Private Sub cmdLstRxClear_Click()
lstRx.Clear
End Sub
<수정 후>
Private Sub cmdRxLstClear_Click()
txtRxData.Text = ""
End Sub
________________________________________________________________________________
119페이지 수정사항: cmdLstTxClear_Click 프로시저 내
<수정 전>
Private Sub cmdLstTxClear_Click()
lstTx.Clear
End Sub
<수정 후>
Private Sub cmdLstTxClear_Click()
txtTxData.Text = ""
End Sub
________________________________________________________________________________
120페이지 수정사항: mnuEnd_Click 프로시저 내
<수정 전>
UnloadAllForms “”
<수정 후>
Unload Me
________________________________________________________________________________
130 페이지 수정사항:
<표 3.2를 다음표로 대치한다>
[표 3.2] RS-232C 제어보드프로그램 폼 개체의 속성
|
개 체 |
이 름 |
속 성 |
설 정 |
위치 |
|
Shape |
Shape1(0)~(4) |
FillColor |
&H00FF8080& |
|
|
Shape |
4 - 둥근사각형 |
|||
|
Image |
Image1~Image5 |
Picture |
(비트맵) |
⑨ |
|
Command Button |
cmdLight(0)~(1) |
Caption |
전등 ON, 전등 OFF |
⑪,⑫ |
|
cmdGas(0)~(1) |
Caption |
가스 잠금, Clear |
||
|
cmdDoor(0)~(1) |
Caption |
도어 Open, Clear |
||
|
cmdAircon(0)~(1) |
Caption |
에어컨 ON, 에어컨 Off |
||
|
cmdHeat(0)~(1) |
Caption |
난방 ON, 난방 OFF |
||
|
Shape |
Shape1(5)~(14) |
FillColor |
&H00C0C0C0&, &H00FFC0C0& |
|
|
Shape |
4 - 둥근사각형 |
|||
|
Label |
Label5(0)~(4) |
Caption |
현재상태 |
|
|
lblStatus(0) |
Caption |
전등 OFF |
⑬ |
|
|
lblStatus(1) |
Caption |
동작없음 |
||
|
lblStatus(2) |
Caption |
동작없음 |
||
|
lblStatus(3) |
Caption |
에어컨 OFF |
||
|
lblStatus(4) |
Caption |
난방 OFF |
||
|
TextBox |
txtLight |
Text |
0 |
⑩ |
|
txtGas |
Text |
1 |
||
|
txtDoor |
Text |
2 |
||
|
txtAircon |
Text |
3 |
||
|
txtHeat |
Text |
4 |
|
개 체 |
이 름 |
속 성 |
설 정 |
위치 |
|
Form |
frmMain |
Caption |
RS-232C 제어보드 |
|
|
Label |
Label1 |
Caption |
전송상태 |
⑭ |
|
Label2 |
Caption |
연결상태 |
||
|
Lable3 |
Caption |
Com 포트 |
||
|
lblConMessage |
Caption |
ConMessage |
||
|
AutoSize |
True |
|||
|
lblConStatus |
Caption |
lblConstatus |
||
|
AutoSize |
True |
|||
|
Line |
Line1, Line2 |
Border Color 와 위치, 두께, 길이를 적당히 |
|
|
|
Command Button |
cmdComTx |
Caption |
프레임 전송 |
⑧ |
|
cmdLstTxClear |
Caption |
삭제 |
||
|
cmdLstRxClear |
Caption |
삭제 |
||
|
cmdComOpen |
Caption |
포트열기 |
⑥ |
|
|
cmdComClose |
Caption |
닫기 |
||
|
TextBox |
txtEdit |
Text |
프레임 전송 |
⑦ ⑨ |
|
txtTxData |
Text |
txtTxData |
||
|
txtRxData |
Text |
txtRxData |
||
|
ComboBox |
cboCOM |
Appearance |
1 - 3D |
① |
|
cboBPS |
Appearance |
1 - 3D |
② |
|
|
OptionButton |
optComBit(0) |
Caption |
7 bit |
③ |
|
Value |
False |
|||
|
optComBit(1) |
Caption |
8 bit |
||
|
Value |
True |
|||
|
optComParity(0) |
Caption |
No |
④ |
|
|
Value |
True |
|||
|
optComParity(1) |
Caption |
Even |
||
|
Value |
False |
|||
|
optComParity(2) |
Caption |
Odd |
||
|
Value |
False |
|||
|
optComStopBit(0) |
Caption |
1Stop |
⑤ |
|
|
Value |
True |
|||
|
optComStopBit(1) |
Caption |
1.5 |
||
|
Value |
False |
|||
|
optComStopBit(2) |
Caption |
2Stop |
||
|
Value |
False |
|||
|
MSComm |
MSComm1 |
RThreshold |
0 |
⑮ |
|
Settings |
9600,n,8,1 |
|||
|
SThreshold |
0 |
|||
________________________________________________________________________________
133페이지 수정사항: Form_Load 프로시저 내
<수정 전>
lblCommStatus.Caption = "연결안됨“
<수정 후>
lblConStatus.Caption = "연결안됨“
________________________________________________________________________________
135페이지 수정사항: cmdCOMOpen_Click 프로시저 내
<수정 전>
If optComStopBit(i).Value = True Then
ComPortProperty = ComPortProperty & ",1"
ElseIf optComStopBit(i).Value = True Then
ComPortProperty = ComPortProperty & ",1.5"
Else
ComPortProperty = ComPortProperty & ",2"
End If
<수정 후>
If optComStopBit(0).Value = True Then
ComPortProperty = ComPortProperty & ",1"
ElseIf optComStopBit(1).Value = True Then
ComPortProperty = ComPortProperty & ",1.5"
Else
ComPortProperty = ComPortProperty & ",2"
End If
________________________________________________________________________________
<수정 전>
‘전송상태를 나타내는 텍스트 박스를 클리어 시킨다.
txtMsg1.Text = ""
. . .
txtMsg1.Text = errormsg
. . .
lblCommStatus.Caption = "[" & Str$(MyCOMport) & " ] -> " _
& ComPortProperty & " 로 연결됨"
<수정 후>
‘전송상태를 나타내는 라벨을 클리어 시킨다.
lblConMessage = ""
. . .
lblConMessage = errormsg
. . .
lblConStatus.Caption = "[" & Str$(MyCOMport) & " ] -> " _
& ComPortProperty & " 로 연결됨"
________________________________________________________________________________
136 페이지 수정사항: ComPortOpen 펑션 내
<수정 전>
MSComm1.Interval = 1
<수정 후 - 위의 파란색 글씨 부분 삭제>
MSComm1.Interval = 1 은 있어도 무방함 그러나 필요없는 부분이므로 삭제하는 것임
________________________________________________________________________________
139-140 페이지 수정사항: FrameTx1Plus(txString as String) 프로시저 내
<수정 전>
txtMsg1.Text = ""
. . .
txtMsg1.Text = "데이터 전송중 :“ & TxCounter
. . .
txtMsg1.Text = "전송 끝 : Total " & TxCounter & " 바이트 전송됨"
<수정 후>
lblConMessage = ""
. . .
lblConMessage = "데이터 전송중 :“ & TxCounter
. . .
lblConMessage = "전송 끝 : Total " & TxCounter & " 바이트 전송됨"
________________________________________________________________________________
146페이지 수정사항: MSComm1_OnComm() 프로시저 내
<수정 후 - 서브루틴 맨 아래에 End Sub 추가>
End Sub 추가
________________________________________________________________________________
149 페이지 수정사항: cmdCOMClose_Click 프로시저 내
<수정 전>
lblCommStatus.Caption = "연결안됨"
txtMsg1.Text = ""
<수정 후>
lblConStatus.Caption = "연결안됨"
lblConMessage = ""
________________________________________________________________________________
169 페이지 수정사항:
<표 4.1을 다음표로 대치한다 - 청색부분이 기존표와 다른 것임 >
[표 4.1] 윈속서버프로그램 폼 디자인 개체의 속성
|
개 체 |
이 름 |
속 성 |
설 정 |
위치 |
|
Label |
Label1 |
Caption |
My IP 주소 |
|
|
Label2 |
Caption |
Local 포트 |
|
|
|
Label3 |
Caption |
접속상태 |
|
|
|
lblCStatus |
Caption |
접속상태 표시 |
⑨ |
|
|
Line |
Line1 |
Border Color 와 위치, 두께, 길이를 적당히 |
||
|
TextBox |
txtIP |
Text |
IP 주소 입력 요청 |
① |
|
txtPortAddr |
Text |
1001 |
② |
|
|
txtSend |
Text |
보낼메시지 |
⑧ |
|
|
txtMessage |
Text |
|
⑦ |
|
|
Multiline |
True |
|||
|
Command Button |
cmdHost |
Caption |
연결(Me Host) |
③ |
|
cmdDisconnect |
Caption |
끊기 |
④ |
|
|
cmdExit |
Caption |
종료 |
⑤ |
|
|
Winsock |
wsockServer |
Protocol |
0-sckTCPProtocol |
⑩ |
174 페이지 수정사항: txtSend_KeyDown 프로시저 내
<수정 전>
If (wsockClient.State <> sckConnected) Then
MsgBox "클라이언트가 연결되어 있지 않습니다"
Exit Sub
End If
<수정 후>
If (wsockServer.State <> sckConnected) Then
MsgBox "클라이언트가 연결되어 있지 않습니다"
Exit Sub
End If
175 페이지 수정사항: wsockServer_Close() 프로시저 내
<수정 전>
MsgBox "서버와 연결이 끊어졌습니다."
<수정 후>
MsgBox "클라이언트와 연결이 끊어졌습니다."
177 페이지 수정사항:
<표 4.2를 다음표로 대치한다>
[표 4.2] 윈속클라이언트 프로그램 폼 디자인 개체의 속성
|
개 체 |
이 름 |
속 성 |
설 정 |
|
Label |
Label1 |
Caption |
연결할 호스트 IP 주소 |
|
Label2 |
Caption |
Port |
|
|
Label3 |
Caption |
접속상태 |
|
|
lblCStatus |
Caption |
접속상태 표시 |
|
|
Line |
Line1 |
Border Color 와 위치, 두께, 길이를 적당히 |
|
|
TextBox |
txtIP |
Text |
IP 주소 입력 요청 |
|
txtPortAddr |
Text |
1001 |
|
|
txtSend |
Text |
보낼메시지 |
|
|
txtMessage |
Text |
|
|
|
Multiline |
True |
||
|
Command Button |
cmdClient |
Caption |
연결(Me Client) |
|
cmdDisconnect |
Caption |
끊기 |
|
|
cmdExit |
Caption |
종료 |
|
|
Winsock |
wsockClient |
Protocol |
0-sckTCPProtocol |
222 페이지 수정사항:
<표 5.1을 다음표로 대치한다 - 청색부분이 기존표와 다른 것임 >
[표 5.1] 윈속타겟보드프로그램 폼 디자인 개체의 속성
|
개 체 |
이 름 |
속 성 |
설 정 |
위치 |
|
Label |
Label1 |
Caption |
My IP 주소 |
|
|
Label2 |
Caption |
Local 포트 |
|
|
|
Label3 |
Caption |
접속상태 |
|
|
|
Label4 |
Caption |
통신상태 |
|
|
|
lblCStatus |
Caption |
lblCstatus |
⑦ |
|
|
lblTStatus |
Caption |
lblTStatus |
||
|
Line |
Line1 |
Border Color 와 위치, 두께, 길이를 적당히 |
||
|
TextBox |
txtIP |
Text |
IP 주소 입력 요청 |
① |
|
txtPortAddr |
Text |
1001 |
② |
|
|
txtReceive |
Text |
txtReceive |
⑥ |
|
|
txtSend |
Text |
txtSend |
||
|
Command Button |
cmdHost |
Caption |
연결(Me Host) |
③ |
|
cmdDisconnect |
Caption |
끊기 |
④ |
|
|
cmdExit |
Caption |
종료 |
⑤ |
|
|
cmdOn(0)~(4) |
Caption |
ON |
⑨ |
|
|
cmdOff(0)~(4) |
Caption |
OFF |
⑩ |
|
|
Winsock |
wsockServer |
Protocol |
0-sckTCPProtocol |
⑪ |
|
Image |
imgTarget(0)~(4) |
Picture |
(비트맵) |
⑧ |
242 페이지 수정사항:
<그림 5.10을 다음 그림으로 대치한다 - ⑪,⑫,⑬,⑭,⑮ 변경 >
243 페이지 수정사항:
<수정 전>
[표 4.2] 윈속제어보드프로그램 폼 디자인 개체의 속성
<수정 후>
[표 5.2] 윈속제어보드프로그램 폼 디자인 개체의 속성
243 페이지 수정사항:
<표 5.2를 다음표로 대치한다 - 청색부분이 기존표와 다른 것임 >
[표 5.2] 윈속제어보드프로그램 폼 디자인 개체의 속성
|
개 체 |
이 름 |
속 성 |
설 정 |
위치 |
|
Label |
Label1 |
Caption |
연결할 호스트 IP 주소 |
|
|
Label2 |
Caption |
Local 포트 |
|
|
|
Label3 |
Caption |
접속상태 |
|
|
|
Label4 |
Caption |
통신상태 |
|
|
|
lblCStatus |
Caption |
lblCStatus |
⑨ |
|
|
lblTStatus |
Caption |
lblTStatus |
||
|
Line |
Line1 |
Border Color 와 위치, 두께, 길이를 적당히 |
||
|
TextBox |
txtIP |
Text |
IP 주소 입력 요청 |
① |
|
txtPortAddr |
Text |
1001 |
② |
|
|
txtSend |
Text |
txtSend |
⑧ |
|
|
txtReceive |
Text |
txtReceive |
⑦ |
|
|
Command Button |
cmdClient |
Caption |
연결(Me Client) |
③ |
|
cmdDisconnect |
Caption |
끊기 |
④ |
|
|
cmdExit |
Caption |
종료 |
⑤ |
|
|
Winsock |
wsockClient |
Protocol |
0-sckTCPProtocol |
⑩ |
|
Shape |
Shape1(0)~(4) |
FillColor |
&H00FF8080& |
|
|
Shape |
4 - 둥근사각형 |
|
||
|
Image |
Image1~Image5 |
Picture |
(비트맵) |
⑪ |
|
Command Button |
cmdLight(0)~(1) |
Caption |
전등 ON, 전등 OFF |
⑬⑭ |
|
cmdGas(0)~(1) |
Caption |
가스 잠금, Clear |
||
|
cmdDoor(0)~(1) |
Caption |
도어 Open, Clear |
||
|
cmdAircon(0)~(1) |
Caption |
에어컨 ON, 에어컨 Off |
||
|
cmdHeat(0)~(1) |
Caption |
난방 ON, 난방 OFF |
||
|
Shape |
Shape1(5)~(14) |
FillColor |
&H00C0C0C0&, &H00FFC0C0& |
|
|
Shape |
4 - 둥근사각형 |
|
||
|
Label |
Label5(0)~(4) |
Caption |
현재상태 |
|
|
lblStatus(0) |
Caption |
전등 OFF |
⑮ |
|
|
lblStatus(1) |
Caption |
동작없음 |
||
|
lblStatus(2) |
Caption |
동작없음 |
||
|
lblStatus(3) |
Caption |
에어컨 OFF |
||
|
lblStatus(4) |
Caption |
난방 OFF |
||
|
TextBox |
txtLight |
Text |
0 |
⑫ |
|
txtGas |
Text |
1 |
||
|
txtDoor |
Text |
2 |
||
|
txtAircon |
Text |
3 |
||
|
txtHeat |
Text |
4 |
||
253 페이지 수정사항: wsockClient_DataArrival( ) 프로시저 내
<수정 전>
If str1 = ETX Then
str3 = Left(sData, 3)
txtReceive.Text = txtReceive.Text + str2
⑤ Call updateControlStatus(str3)
lblTStatus.Caption = "데이터수신 정상"
Else
<수정 후>
If str1 = ETX Then
str3 = Left(sData, 3)
txtReceive.Text = txtReceive.Text + str3
⑤ Call updateControlStatus(str3)
lblTStatus.Caption = "데이터수신 정상"
Else
부록 : API 선언 모듈(ModAPI.bas)
'wav 파일 연주하기 함수
Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" _
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Public Const SND_ASYNC = 1
Public Const SND_LOOP = &H8
Public Const SND_NODEFAULT = &H2
Public Const SND_NOSTOP = &H10
Public Const SND_NOWAIT = &H2000
'Sleep 함수
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
<<프로그램 버그>>
2장, 3장-Target 프로그램, 3장-Control 프로그램
cmdCOMOpen_Click 프로시저 내
<수정 전>
If optComStopBit(i).Value = True Then
ComPortProperty = ComPortProperty & ",1"
ElseIf optComStopBit(i).Value = True Then
ComPortProperty = ComPortProperty & ",1.5"
Else
ComPortProperty = ComPortProperty & ",2"
End If
<수정 후 - 파란색 글씨부분 수정>
If optComStopBit(0).Value = True Then
ComPortProperty = ComPortProperty & ",1"
ElseIf optComStopBit(1).Value = True Then
ComPortProperty = ComPortProperty & ",1.5"
Else
ComPortProperty = ComPortProperty & ",2"
End If
________________________________________________________________________________
3장-Target 프로그램 cmdLstRxClear_Click 프로시저 내
<수정 전>
Private Sub cmdLstRxClear_Click()
End Sub
<수정 후 - 파란글씨부분 추가>
Private Sub cmdRxLstClear_Click()
txtRxData.Text = ""
End Sub
________________________________________________________________________________
3장-Target 프로그램 cmdLstTxClear_Click 프로시저 내
<수정 전>
Private Sub cmdLstTxClear_Click()
End Sub
<수정 후 - 파란글씨부분 추가 >
Private Sub cmdLstTxClear_Click()
txtTxData.Text = ""
End Sub
________________________________________________________________________________