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
}
} |
