Appendix-592 Real-time external control function
7Appendix
2) Production of form screen
On the form, 4 test boxes, 1 command button, 1 check box and 1 Winsock control are arranged.
The major change points of the properties are shown below.
3) Program (Form1.frm)
VERSION 5.00
Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
Begin VB.Form Form1 'Screen setting From here
Caption = "Data link"
ClientHeight = 3795
ClientLeft = 60
ClientTop = 345
ClientWidth = 4800
LinkTopic = "Form1"
ScaleHeight = 3795
ScaleWidth = 4800
StartUpPosition= 3 Predefined value of Windows
Begin MSWinsockLib.Winsock Winsock1
Left = 2040
Top = 2040
_ExtentX = 741
_ExtentY = 741
End
Begin VB.CommandButton Command1
Caption = "Send"
Enabled = 0 'False
Height = 375
Left = 3960
TabIndex = 6
Top = 1080
Width = 735
End
Begin VB.CheckBox Check1
Caption = "Connection"
Height = 375
Left = 3960
TabIndex = 4
Top = 360
Major changed points of properties
Object name Property Setting value
Form1 Caption Data link
Caption Send Command1
Enabled False
Text1 Text 192.168.0.1
Text2 Text 10003
Text3 Text
MultiLine
2-Vertical
Check1 Caption Connection