118142-001 Rev B
Page 38 of 104
26: On Error GoTo endhere
27: Response1$ = Mid(temp2$, Start, (CommaPos - Start))
28:
29: 'With a 5v reference:
30: ODATA$ = Format(str(Response1$ * 0.0004884), "0.##0")
31:
32: txt_DACB.Text = ODATA$ + " mA"
33: frm_RAWDATA.txt_RAWDACB.Text = str(Response1$)
34: txt_DACB.BackColor = vbWhite
35: CommStatusFlag = True
36: endhere:
37:
38: If portType = "ethernet" Then
39: tmr_NETRCVTMR.Enabled = True
40: Else
41: tmr_RCVTIMER.Enabled = True
42: End If
43:
44: If AutoUpdate = True Then tmr_UPDATE.Enabled = True
46: End Sub
Содержание DXM100 Series
Страница 11: ...DXM100 MANUAL 5 118147 001 Rev D Figure 2 1 Unit Dimensions ...
Страница 16: ...DXM100 MANUAL 10 118147 001 Rev D Figure 3 3 Local Programming Via External Voltage Source ...
Страница 17: ...DXM100 MANUAL 11 118147 001 Rev D Figure 3 4 Remote Monitoring ...
Страница 18: ...DXM100 MANUAL 12 118147 001 Rev D RELAY Figure 3 5 Enable Interlock Logic Control ...
Страница 37: ...118142 001 Rev B Page 13 of 104 Figure 9 Web Page 1 Contact Information ...
