ev3basic gebruikers gezocht

Op 25 juni 2018 12:32:56 schreef bluatigro:
ik zoek contact met andere[n] die gebruik maken van
ev3basic om ervaringen uit te wisselen.

Ik werk er niet mee, maar het lijkt veel op de normale basic taal.

ik heb al wat simpele code geschreven :
n lijn volger en een schaduw zoeker
ik zit echter met het probleem dat de motoren
niet reageren op de code maar de led op de ev3brick wel

Dus plaats de code eens als je wel thuis bent.

weet iemand hoe ik de code letters kan vergroten ?
ik zie maar 30%

De code letters waarvan.

@ lambiek :
zie voor code de bijlage

als iets niet duidelijk is vraag

ik ken al coderen zie :

www.libertybasiccom.proboards.com [ bluatigro ]
www.justbasiccom.proboards.com [ bluatigro ]
www.freebasic.net/forum [ bluatigro ]
www.helpmij.nl [ dutch ][ blua tigro ]
www.vbforums.com [ bluatigro ]
www.ai.hcc.nl [ dutch ][ titus ]

Sorry, maar hier kan ik niets mee. Kun je de code niet gewoon hier plaatsen.

De code zet je hier tussen "code=picbasic" tussen deze haakjes [ ] en aan het einde zet je dit "/code" ook weer tussen haakjes[ ].

Dan wordt je code zichtbaar in zo'n veld.

Maar weten ze dat bij de HCC niet dan, want ik denk dat je daar komt. Weet Zeno dat niet, of Rien, of Henk?

ik ben lid van HCC robotica
ik zal het daar eens vragen

de volgende code werkt wel op de LED
maar niet op de motoren

ik doe wat fout maar wat ?

''  bluatigro 27 apr 2018
''  dark line follow
''  volg donkere lijn

''  robot wil follow a dark line
''  robot vlogt een donkere lijn

''  const's init
''  constanten init
colport = 1
colreflect = 0  ''readpercent
colambient = 1  ''readpercent
colcolor = 2    ''readrawvalue
rgbraw = 4      ''readraw
irport = 4
irproc = 0      ''readpercent = cm
irseek = 1      ''readraw = angle , dist
irremote = 2    ''readraw[ 0 ... 3 ] = channel[ 1 ... 4 ]
Sensor.SetMode( colport , colreflect )
Sensor.SetMode( irport , irremote )

EV3.SetLEDColor( "ORANGE" , "PULSE" )
irkey = Sensor.ReadRaw( irport )
While irkey( 0 ) <> 3 And irkey( 0 ) <> 4
  irkey = Sensor.ReadRaw( irport )
EndWhile 
ev3.SetLEDColor( "GREEN" , "PULSE" )

'  main lus | loop
While irkey( 0 ) <> 1 And irkey( 0 ) <> 2
  light = Sensor.ReadPercent( colport )
  irkey = Sensor.ReadRaw( irport )
  If light < 50 Then
    Motor.MoveSteer( "bc" , -15 , 75 , 30 , "false" )
  Else 
    Motor.MoveSteer( "bc" , 75 , -15 , 30 , "false" )
  EndIf 
EndWhile

Wat gebruik je als hardware om je motor aan te sturen?
En wat voor motor is het?

@ lambiek :
standaart ev3 mindstorms spul natuurlijk

Oké, dan houd het hier helaas op voor mij. Ik ging er vanuit dat het om een ander type controller ging.

Ik denk dat je het eens aan Zeno Otten moet vragen, die is nogal veel met Lego-Mindstorms bezig.

Misschien dat iemand anders hier je nog verder kan helpen.

Succes in ieder geval.

EDIT:
Gebeurt dit ook daadwerkelijk? Dus wordt die waarde kleiner dan 50?

If light < 50 Then

50 is een gok
ik moet nog uitzoeken wat t wel moet zijn
maar zelfs als dat fout is
zou de robot wat moeten doen

Volgende week Zaterdag is er weer een HCC dag geloof ik, dus ga eens langs. We horen het hier wel hoe het afgelopen is.

Heb geen ervaring met ev3basic (wel ev3's in bezit), maar kan het niet iets te maken hebben met deze opmerking:
'This command is only available in versions 1.2 and later of the EV3 extension.'

Probeer anders de motor.movesteer te vervangen door een andere motor functie, bv Motor.Move (ports, speed, degrees, brake).

ik zit bij HCC AI op za 7 juli

de tank robot heeft een schuine ir sensor
zodat hij ook de rand van een tavel moet kunnen zien

de volgende code geeft 1 erg vreemde error :
then expected on line 22

'' blua tigro 30 jun 2018
'' tank remote sb

''consts
'  constanten init
colport = 1
colreflect = 0  ''readpercent
colambient = 1  ''readpercent
colcolor = 2    ''readrawvalue
colorrgb = 4    ''readraw
irport = 4
irproc = 0      ''readpercent = cm
irseek = 1      ''readraw = angle , dist
irremote = 2    ''readraw[ 0 ... 3 ] = channel[ 1 ... 4 ]
Sensor.SetMode( colport , colreflect )
Sensor.SetMode( irport , irremote )
btn = Buttons.Current
while btn = ""
  ''do until a button on brick is pressed
  btn = Buttons.Current
  irkey = Sensor.ReadRaw 
  If irkey( 0 ) = 1 Then
    ''turn left
    Motor.MoveSteer( "bc" , -75 , 75 , 10 , "false' )
  EndIf
  If irkey( 0 ) = 2 Then
    ''turn right
    Motor.MoveSteer( "bc" , 75 , -75 , 10 , "false" )
  EndIf
  If inkey( 0 ) = 3 Then
    ''go forwart if save
    Sensor.SetMode( irport , irproc )
    dist = Sensor.ReadPercent( irport )
    If dist > 10 and dist < 30 then
      Motor.MoveSteer( "bc" , 75 , 75 , 10 , "false" )
    EndIf
  EndIf
  If irkey( 0 ) = 4 Then
    ''go back
    Motor.MoveSteer( "bc" , -75 , -75 , 10 , "false" )
  EndIf
EndWhile