PC expansion bus systems - PC Based Instrumentation and Control - page 106

tmrReadCount.Enabled = False
End Sub
Private Sub Form_Load()
ULStat% = cbErrHandling(PRINTALL, DONTSTOP)
If ULStat% <> 0 Then Stop
LoadValue% = 0
ULStat% = cbCLoad(BoardNum, RegName%, LoadValue%)
If ULStat% <> 0 Then Stop
End Sub
Private Sub tmrReadCount_Timer()
ULStat% = cbCIn32(BoardNum, CounterNum%, CBCount&)
If ULStat% <> 0 Then Stop
lblShowCountRead.Caption = Format$(CBCount&, "0")
' Reset count to zero
LoadValue% = 0
ULStat% = cbCLoad(BoardNum, RegName%, LoadValue%)
If ULStat% <> 0 Then Stop
End Sub