Using the Demo Application

Sample Visual Basic Code

'Delay routine

 

Seconds As Single)

Public Sub Delay(ByVal

'

As

Single

Dim fStartTimer

Dim fFinish

As

Single

'

 

 

fStartTimer = Timer

'

Do

DoEvents fFinish = Timer

If Abs(fFinish - fStartTimer) > Seconds Then Exit Do

End If

Loop

'

End Sub

************************************************************************

B-4

MA24106A UG

Page 56
Image 56
Anritsu 0701012, MA24106A manual Delay routine