' This program pulses the Operate
' property of an oSonarDV
Dim A As New oSonarDV
Dim D As New oLCDSE
Sub Main()
A.IOLineE = 31
A.IOLineP = 30
A.Operate = 1
D.IOLine = 16
Do
A.Operate.Pulse(1,1,250)
D.Clear
D.VString = Str$(A/64)
Loop
End Sub | // This program pulses the Operate
// property of an oSonarDV
oSonarDV A = New oSonarDV;
oLCDSE D = New oLCDSE;
Void Main(Void){
A.IOLineE = 31;
A.IOLineP = 30;
A.Operate = 1;
D.IOLine = 16;
Do{
A.Operate.Pulse(1,1,250);
D.Clear;
D.VString = Str$(A/64);
} While (1);
} |
' This program pulses the Operate
' property of an oSonarDV
A As oSonarDV(31,30,cvOn)
D As oLCDSE(16)
Do
A.Operate.Pulse(1,1,250)
D.Clear
D.VString = Str$(A/64)
Loop | |