Contrôle De La Partie Module - Yoctopuce Yocto-3D-V2 Mode D'emploi

17. Utilisation du Yocto-3D-V2 en VisualBasic .NET
End
End If
End If
serial = anytilt.get_module().get_serialNumber()
tilt1 = YTilt.FindTilt(serial
tilt2 = YTilt.FindTilt(serial
compass = YCompass.FindCompass(serial
accelerometer
gyro = YGyro.FindGyro(serial
count = 0
While (True)
If (Not tilt1.isOnline()) Then
Console.WriteLine("Module
End
End If
If (count Mod
Console.WriteLine("tilt1"
End If
Console.Write(tilt1.get_currentValue().ToString() + Chr(9))
Console.Write(tilt2.get_currentValue().ToString() + Chr(9))
Console.Write(compass.get_currentValue().ToString() + Chr(9))
Console.Write(accelerometer.get_currentValue().ToString() + Chr(9))
Console.WriteLine(gyro.get_currentValue().ToString())
count = count
YAPI.Sleep(250,
End While
YAPI.FreeAPI()
End Sub
End Module
17.4. Contrôle de la partie module
Chaque module peut-être contrôlé d'une manière similaire, vous trouverez ci dessous un simple
programme d'exemple affichant les principaux paramètres d'un module et permettant d'activer la
balise de localisation.
Imports System.IO
Imports System.Environment
Module Module1
Sub usage()
Console.WriteLine("usage: demo <serial or logical name>
End
End Sub
Sub Main()
Dim argv() As
Dim errmsg As
Dim m As ymodule
If (YAPI.RegisterHub("usb",
Console.WriteLine("RegisterHub error:"
End
End If
If argv.Length
m = YModule.FindModule(argv(1)) REM
If (m.isOnline()) Then
If argv.Length
If argv(2) =
If argv(2) =
End If
Console.WriteLine("serial:
Console.WriteLine("logical name: "
Console.WriteLine("luminosity:
138
+ ".tilt1")
+ ".tilt2")
= YAccelerometer.FindAccelerometer(serial
+ ".gyro")
disconnected")
10 = 0) Then
+ Chr(9) +
+ Chr(9) + "acc"
+ 1
errmsg)
String = System.Environment.GetCommandLineArgs()
String = ""
errmsg) <> YAPI_SUCCESS) Then
< 2 Then usage()
> 2 Then
"ON" Then m.set_beacon(Y_BEACON_ON)
"OFF" Then m.set_beacon(Y_BEACON_OFF)
+ ".compass")
"tilt2" + Chr(9) +
+ Chr(9) + "gyro")
+ errmsg)
use serial or logical name
" + m.get_serialNumber())
+ m.get_logicalName())
" + Str(m.get_luminosity()))
+ ".accelerometer")
"compass" _
[ON/OFF]")
www.yoctopuce.com