W&T connects
Interfaces for TCP/IP, Ethernet, RS-232, RS-485, USB, 20mA, glass and plastic fiber optic cable, http, SNMP, OPC, Modbus TCP, I/O digital, I/O analog, ISA, PCI

Application for the Web-IO Digital:

Control and monitor Web-IO Digital with Visual Basic

Visualizing, checking and controlling


As an easy to learn higher language Visual Basic offers everything you need for programming TCP/IP applications. This also makes Visual Basic a favorite tool for creating applications that communicate with the Web-IO Digital. Additional drivers or DLLs are not required.

Control with Visual Basic

Using the following program example you can represent your Web-IO Digital with its inputs and outputs in a Windows application. You can also switch the Web-IO outputs.

You don’t have a Web-IO yet but would like to try the example out sometime?

No problem: We will be glad to send you the Web-IO Digital 2xInput, 2xOutput at no charge for 30 days. Simply fill out a sample ordering form, and we will ship the Web-IO for testing on an open invoice. If you return the unit within 30 days, we will simply mark the invoice as paid.

To sample orders

Preparations

You have already provided your Web-IO Digital

Combining the various operating elements and display objects in the VB form

Visual Basic operating elements

When naming the individual objects it is helpful to use logical names. In this example the first part of the name describes the type of object and the second part the function.

1. Starting the program

Setting up the operating elements

At first the group with the operating elements for the Web-IO is blocked from use. The status line indicates that there is not yet a connection.

							 Private Sub Form_Load()
							fr_io.Enabled = False
							bt_disconnect.Enabled = False
							StatusBar1.SimpleText = "No Connection"
							End Sub
						

2. Connection control

Establishing the connection

The connection is opened by entering the IP address of the Web-IO in the text field ed_ip and clicking on the bt_connect button.

							 Private Sub bt_connect_Click()
							If ed_ip.Text <> "" Then
							winsock1.RemoteHost = ed_ip.Text
							winsock1.RemotePort = Val(ed_port.Text)
							winsock1.Connect
							End If
							End Sub
						
Opening the connection

The Winsock control of Visual Basic is used for TCP/IP handling. This control allows procedures to be specified and started when various connection states occur.

Connection is made

As soon as a connection is made with the Web-IO, the Winsock control carries out the corresponding procedure. The status line indicates that the connection has been established, the operating elements are enabled for use and the Disconnect button becomes operable again. The Connect button is disabled.

							 Private Sub winsock1_Connect()
							fr_io.Enabled = True
							bt_disconnect.Enabled = True
							bt_connect.Enabled = False
							StatusBar1.SimpleText = "Connected to " + ed_ip.Text
							End Sub
						
Disconnecting

The connection remains open until it is ended by the user clicking on the Disconnect button, or the Web-IO ends the connection.

							 Private Sub bt_disconnect_Click()
							winsock1.Close
							fr_io.Enabled = False
							bt_disconnect.Enabled = False
							bt_connect.Enabled = True
							StatusBar1.SimpleText = "No Connection"
							End Sub
						

Here again the Winsock control invokes a corresponding procedure

							 Private Sub winsock1_Close()
							fr_io.Enabled = False
							bt_disconnect.Enabled = False
							bt_connect.Enabled = True
							StatusBar1.SimpleText = "No Connection"
							winsock1.Close
							End Sub
						
Connection error

Also in case of a connection error the Winsock control carries out a corresponding procedure which is essentially like the Disconnect procedure. The status line also indicates the Winsock error number.

							 Private Sub winsock1_Error(ByVal Number As Integer, Description
							As String, _
							ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String,
							_
							
						
							ByVal HelpContext As Long, CancelDisplay As Boolean)
							fr_io.Enabled = False
							bt_disconnect.Enabled = False
							bt_connect.Enabled = True
							StatusBar1.SimpleText = "ERROR " + Str(Number) + " : " + Description
							winsock1.Close
							End Sub
						

3. Operation and communication from the client side

As soon as a connection is made with the Web-IO, the user can use the corresponding program elements to send commands to the Web-IO

Setting the outputs
The user sets the outputs by using the two check boxes cb_outputx. The program uses the MouseUP event of this object. If a Mouse Up, i.e. releasing the output check box, is used, the program carries out the corresponding procedure and - depending on whether the check box is set or not - passes the appropriate command to the Web-IO.

						 Private Sub cb_output_MouseUp(Index As Integer, Button As Integer, _
						
					
						Shift As Integer, X As Single, Y As Single)
						If cb_output(Index).Value Then
							winsock1.SendData ("GET /outputaccess" + Trim(Str(Index)) + _
							"?PW=" + ed_password.Text + "&State=ON&")
							Else
							winsock1.SendData ("GET /outputaccess" + Trim(Str(Index)) + _
							"?PW=" + ed_password.Text + "&State=OFF&")
						End If
						End Sub
					

Querying output/input status
The user can request the status of the outputs and inputs by clicking on the corresponding button.

						
							Private Sub bt_outputs_read_Click()
								winsock1.SendData ("GET /output?PW=" + ed_password.Text + "&")
							End Sub
						
					
						
						Private Sub bt_inputs_read_Click()
							winsock1.SendData ("GET /input?PW=" + ed_password.Text + "&")
						End Sub
					

Read clear counters
Also the counter states of the input counters can be read or cleared.

						 Private Sub bt_counter_read_Click(Index As Integer)
							winsock1.SendData ("GET /counter" + Trim(Str(Index)) + _
							"?PW=" + ed_password.Text + "&")
						End Sub
						
					
						
							Private Sub ed_counter_clear_Click(Index As Integer)
								winsock1.SendData ("GET /counterclear" + Trim(Str(Index)) + _
								"?PW=" + ed_password.Text + "&")
							End Sub
						
					

Of course all the counters can be read or cleared at the same time.

						
							Private Sub cb_counter_readall_Click()
								winsock1.SendData ("GET /counter?PW=" + ed_password.Text + "&")
							End Sub
						
					
						
							Private Sub cb_counter_clearall_Click()
								winsock1.SendData ("GET /counterclear?PW=" + ed_password.Text + "&")
							End Sub
						
					

4. Receiving data from the Web-IO

Process and display the received data
All commands and requests to the Web-IO are acknowledged with a reply string. The replies have a specific structure depending on the type.

For the outputs: output;<binary value of the output status in hexadecimal format>
For the inputs: input;<binary value of the input status in hexadecimal format>
For the counters: counterx;<decimal counter state>
or counter;<decimal counter state 0 >; <decimal counter state 0 >;.....if you want to read all counters at the same time.
All reply strings are finished off with a 0 byte.

If data are received by the Winsock control, the latter invokes the corresponding procedure

						
							Private Sub winsock1_DataArrival(ByVal bytesTotal As Long)
								Dim receivestring As String
								winsock1.GetData receivestring
								Select Case Left(receivestring, 1)
								Case "i"
								If (Val(Mid(receivestring, 7, 1)) And 1) = 1 Then
									cb_input(0).Value = 1
								Else
									cb_input(0).Value = 0
								End If
								If (Val(Mid(receivestring, 7, 1)) And 2) = 2 Then
									cb_input(1).Value = 1
								Else
									cb_input(1).Value = 0
								End If
								Case "o"
								If (Val(Mid(receivestring, 8, 1)) And 1) = 1 Then
									cb_output(0).Value = 1
								Else
									cb_output(0).Value = 0
								End If
								If (Val(Mid(receivestring, 8, 1)) And 2) = 2 Then
									cb_output(1).Value = 1
								Else
									cb_output(1).Value = 0
								End If
								Case "c"
								Dim tabpos
									If Mid(receivestring, 8, 1) = "0" Then
									ed_counter(0).Text = Mid(receivestring, 10, Len(receivestring) - 10)
									End If
									If Mid(receivestring, 8, 1) = "1" Then
									ed_counter(1).Text = Mid(receivestring, 10, Len(receivestring) - 10)
									End If
									If Mid(receivestring, 8, 1) = ";" Then
									tabpos = InStr(9,receivestring, ";")
									ed_counter(0).Text = Mid(receivestring,9, tabpos - 9)
									ed_counter(1).Text = Mid(receivestring,tabpos + 1, _
									Len(receivestring) - tabpos - 1)
								End If
								End Select
							End Sub
						
					

The receiving procedure uses the first character of the receive data to check whether this is an input, output or counter message. Depending on this it is determined for example which output has which status. In the case of the counters it is also possible to read individual counter values or to read out all the counters at once. The individual counter states are then output in decimal format in a semicolon delimited string.

5. Polling

Cyclical polling of particular values
In order to enable automatic refreshing of the display, a timer is used. Depending on the check boxes for output, input and counter polling, the corresponding information is obtained from the Web-IO at a set interval.

						
							Private Sub timer_polling_Timer()
								If winsock1.State = sckConnected Then
								If cb_output_polling.Value Then
									winsock1.SendData ("GET /output?PW="+ ed_password.Text + "&")
								End If
								If cb_input_polling.Value Then
									winsock1.SendData ("GET /input?PW="+ ed_password.Text + "&")
								End If
								If cb_counter_polling.Value Then
									winsock1.SendData ("GET /counter?PW="+ ed_password.Text + "&")
								End If
								End If
							End Sub
						
					

The desired interval can be entered in the corresponding text field. When changes are made the timer interval is automatically adjusted.

						
							Private Sub ed_interval_Change()
								timer_polling.Interval = Val(ed_interval)
							End Sub
						
					

Of course the Web-IO can also be configured to autonomously send messages from the program when something changes on one of the inputs.

The sample program supports all common functions of the Web-IO in command string mode, optimized for the Web-IO 2x Digital Input, 2x Digital Output. For the other Web-IO models you may have to adapt the program. Additional program examples for socket programming can be found on the tool pages for the Web-IO. A detailed description for the socket interface of the Web-IO Digital models can be found in the reference manual.

Download program example

You don’t have a Web-IO yet but would like to try the example out sometime?

No problem: We will be glad to send you the Web-IO Digital 2xInput, 2xOutput at no charge for 30 days. Simply fill out a sample ordering form, and we will ship the Web-IO for testing on an open invoice. If you return the unit within 30 days, we will simply mark the invoice as paid.

To sample orders