Specifications

5 - 30
Private Sub cmdMonitor_Click()
Dim i As Integer 'Variable 1 for loop
Dim j As Integer 'Variable 2 for loop
Dim k As Integer 'Variable 3 for loop
Dim szDeviceList As String 'For write device storage
Dim Devbox(12) As String 'For write device temporary storage
Dim lData(12) As Long 'Write device value storage
Dim lRet As Long 'Return value
Const lSize As Long = 13 'Number of devices to be written
'Set device to be written
Devbox(0) = "Y70"
Devbox(1) = "Y71"
Devbox(2) = "Y72"
Devbox(3) = "Y73"
Devbox(4) = "Y74"
Devbox(5) = "Y75"
Devbox(6) = "Y76"
Devbox(7) = "Y77"
Devbox(8) = "D0"
Devbox(9) = "D1"
Devbox(10) = "D2"
Devbox(11) = "D3"
Devbox(12) = "D4"
For i = 0 To lSize - 1
szDeviceList = szDeviceList + Devbox(i) 'Set device to be written
If i <> lSize Then
szDeviceList = szDeviceList + vbLf
End If
Next
'Set the value of bit devices (Y70 to Y77)
For j = 0 To 7
If lblON_OFF(j).Caption = "
" Then
lData(j) = 1 'For
, store "1"
Else
lData(j) = 0 'For , store "0"
End If
Next
'Set the value of word devices (D0 to D4)
For k = 0 To 4
lData(k + 8) = Val(txtDvalue(k).Text)
Next