| /roboti/Robiada/2007/SW/robot/robot.bas |
|---|
| 39,6 → 39,7 |
| Dim buttons As Byte |
| Dim leds As Byte |
| Dim count As Long |
| Dim cas As Long |
| Dim i As Long |
| 'NASTAVENI IO |
| 86,7 → 87,7 |
| Do while 1 |
| cas = 0 |
| sensors =0xFF |
| sensors = Call receive() 'prijmi stav cidel senzoru |
| 95,13 → 96,22 |
| End If |
| If (!(sensors.2)) Then |
| If cas< 400000 Then |
| cas = cas + 1 |
| End If |
| cas = 0 |
| motors = 0xF7 |
| End If |
| If (!(sensors.3)) Then |
| If cas< 400000 Then |
| cas = cas + 1 |
| End If |
| cas = 0 |
| motors = 0x7F |
| End If |
| cas = cas+1 |
| lata = sensors |
| call send(motors) |