おそらくUSB型の環境センサーを接続すると、その値が取得できるものと思われる（まだ試したことがないので何とも言えない）。取得できない場合EMPTYを返す。
- 構文
- SENSOR( 取得項目 )
- 引数
- 取得項目
- 取得項目：以下の定数
- SNSR_Biometric_HumanPresense
- 人が存在した場合に True
- SNSR_Biometric_HumanProximity
- 人との距離(メートル)
- SNSR_Electrical_Capacitance
- 静電容量(ファラド)
- SNSR_Electrical_Resistance
- 電気抵抗(オーム)
- SNSR_Electrical_Inductance
- 誘導係数(ヘンリー)
- SNSR_Electrical_Current
- 電流(アンペア)
- SNSR_Electrical_Voltage
- 電圧(ボルト)
- SNSR_Electrical_Power
- 電力(ワット)
- SNSR_Environmental_Temperature
- 気温(セ氏)
- SNSR_Environmental_Pressure
- 気圧(バール)
- SNSR_Environmental_Humidity
- 湿度(パーセンテージ)
- SNSR_Environmental_WindDirection
- 風向(度数)
- SNSR_Environmental_WindSpeed
- 風速(メートル毎秒)
- SNSR_Light_Lux
- 照度(ルクス)
- SNSR_Light_Temperature
- 光色温度(ケルビン)
- SNSR_Mechanical_Force
- 力(ニュートン)
- SNSR_Mechanical_AbsPressure
- 絶対圧(パスカル)
- SNSR_Mechanical_GaugePressure
- ゲージ圧(パスカル)
- SNSR_Mechanical_Weight
- 重量(キログラム)
- SNSR_Motion_AccelerationX, Y, Z
- X/Y/Z軸 加速度(ガル)
- SNSR_Motion_AngleAccelX, Y, Z
- X/Y/Z軸 角加速度(度毎秒毎秒)
- SNSR_Motion_Speed
- 速度(メートル毎秒)
- SNSR_Scanner_RFIDTag
- RFIDタグの40ビット値
- SNSR_Scanner_BarcodeData
- バーコードデータを表す文字列
- SNSR_Orientation_TiltX, Y, Z
- X/Y/Z 軸角(度)
- SNSR_Orientation_DistanceX, Y, Z
- X/Y/Z 距離(メートル)
- SNSR_Orientation_MagHeading
- 磁北基準未補正コンパス方位
- SNSR_Orientation_TrueHeading
- 真北基準未補正コンパス方位
- SNSR_Orientation_CompMagHeading
- 磁北基準補正済みコンパス方位
- SNSR_Orientation_CompTrueHeading
- 真北基準補正済みコンパス方位
- SNSR_Location_Altitude
- 海抜(メートル)
- SNSR_Location_Latitude
- 緯度(度数)
- SNSR_Location_Longitude
- 経度(度数)
- SNSR_Location_Speed
- スピード(メートル毎秒)
- 戻値
- 取得したセンサー値
プログラム実行例
環境センサーから位置情報を取得し、Googleマップで表示
DIM IE = CREATEOLEOBJ("InternetExplorer.Application")
IE.Visible = TRUE
DIM latitude = SENSOR(SNSR_Location_Latitude)
DIM longitude = SENSOR(SNSR_Location_Longitude)
IE.Navigate("https://www.google.co.jp/maps/@" + latitude + "," + longitude + ",15z?hl=ja")
BusyWait(IE)
// 終了する
// IE.Quit
//////////////////////////////////////////////////
// 【引数】
// IE : IEオブジェクト
// 【戻値】
//
//////////////////////////////////////////////////
PROCEDURE BusyWait(IE)
TRY
SLEEP(0.500)
REPEAT
SLEEP(0.010)
UNTIL !IE.Busy AND IE.readyState = 4
EXCEPT
SLEEP(5.000)
ENDTRY
FEND
