1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
| // Read GP2D12 Sensor output and displays
// raw value on RCX display (requires RCX 2 firmware)
int value;
task main()
{
SetUserDisplay(value,0); // Display "value" on LCD
SetSensor(SENSOR_1,SENSOR_LIGHT); // Active mode: starts charging sensor
Wait(100); // Wait for full charge on startup
until (false)
{
SetSensor(SENSOR_1,SENSOR_TOUCH); // Passive mode: starts measure
Wait(6); // Wait for GP2D12 conversion time (50ms)
SetSensorMode(SENSOR_1,SENSOR_MODE_RAW);
value=SENSOR_1; // reads and display value
SetSensor(SENSOR_1,SENSOR_LIGHT); // Recharge sensor
Wait(40); // for 250 ms
}
} |
Partager