Help With Script Again

Question

Very simple logic, just don't know the commands in ARC... Just added a maxbotics analog distance sensor. It works in ARC. What I would like is when the distance is equal to or less than 50 speak out the ezb. I set up an analog port and I'm trying to use the adc wait command, from there? Thanks Chris

DJ Sures · Answer

It does help to provide existing code that you have written so we can help build off of it. Could you paste your current code please? Thanks!

kamaroman68 · Answer

All I have so far is adc_wait(adc7,lower,50) Im not sure how to add an if command say something out ezb speaker.

kamaroman68 · Answer

OK so I tried again.... how do I copy and paste what ive done? My code is this...

IF(ADC7,lower,50) SayEZB " I have detected something in my path " EndIf

It comes up with an error on line 1. Says missing quotes or invalid expression.

                                       Thanks   Chris

Dunning-Kruger · Answer

Your syntax is incorrect... The code doesn't make sense , but it should run... The if statement is redundant... meaning the if statement isn't needed because the code will continue only if the ADC_Wait returns above 50 ...
 ADC_Wait(ADC7, HIGHER, 50) $x=getadc(adc7) IF($x>50) SayEZB (" I have detected something in my path ") EndIf

Dunning-Kruger · Answer

This is all you really need....
 ADC_Wait(ADC7, HIGHER, 50) #the script stops here until the value exceeds 50 SayEZB (" I have detected something in my path ")

kamaroman68 · Answer

I agree with you to a certain extent... as we move closer to the sensor the number goes down not up. So what I am looking for is when something is detected closer. But I think I can modify what you did as an example. I will try , and then post back. Thanks Richard R

Dunning-Kruger · Answer

So modify it then...
 ADC_Wait(ADC7, Lower, 50) #value lower than 50 or whatever value you want SayEZB (" I have detected something in my path ")

kamaroman68 · Answer

Sorry Richard R , not working. I need to make sure i'm doing it right though. I just pulled out a script control and scripted inside it.

kamaroman68 · Answer

Is there a way to make it loop? To make it work I have to sit and push start script. I would like to have it sense an object and say it automatically, not just once. If I walk in front of the robot I want to say it, then when I get out of its path , and return to its path say it again. I will build upon this with eventually stopping the robot.

Dunning-Kruger · Answer

Does it give an error?.... the code works for me

kamaroman68 · Answer

it works only when I push the start script button for me. The script runs only once.

Dunning-Kruger · Answer

Check my syntax as I am doing this from memory.. you need to check what values the sensor is feeding back before you can use it in a script...
 $x=0 $quit=1 RepeatUntil($quit=0) $x=getadc(adc7) print($x) #see what values the sensor is giving sleep(50) endrepeatuntil

Dunning-Kruger · Answer

I changed the code above to repeat forever so you can use it to see what values the sensor is continuing to put out... Once you figure out what the sensor is reading and value you need you can then modify the code to actually use in your project...

kamaroman68 · Answer

Hey Richard the above code does run forever like you said. But when I add an If statement ($x) < 50) I get an error, Something about nesting. Ive had enough for tonight. Thanks for your help

asherphil · Answer

Hey Kamaroman68 sorry to disturb but the reason why your getting an error message about nesting is because ($x)<50) is because you only have one pair of parentheses and a leftover one. When they say "nesting" they're saying your parentheses do not match up. I 'll give an example: (5+(3+2) if this was in a code I would get a nesting error because my parenthesis don't match up. I suggest reviewing Richard's previous example. Happy building, Asher

Dunning-Kruger · Answer

This code should work... again, check my syntax before running....
 $x=0 $quit=1 RepeatUntil($quit=0) $x=getadc(adc7) if($x<50) #This part will only run if $x is less than 50 SayWait("Object near") endif print($x) #see what values the sensor is giving sleep(50) EndRepeatUntil

This simpler version should work too...
 :top ADC_Wait(ADC7,LOWER,50,50) SayWait("Object near") goto(top)

Rich · Answer

Simply use a repeatwhile(1 > 0) for a forever loop So; # Loop forever RepeatWhile(1 > 0) # Wait until ADC value is lower than 50 ADC_Wait(ADC0, lower, 50) # Speak through the EZ-B V4 SayEZB("I have detected something in my path") # Wait until ADC value is higher than 50 to avoid constant repeats ACD_Wait(ADC0, higher, 50) # Loop back EndRepeatWhile You can click the stop button or run a ControlCommand to stop a script so there's no need for an escape variable. Or, if you wanted the value displayed; # Loop forever RepeatWhile(1 > 0) # Get the ADC Value $Distance = GetADC(ADC0) # Print the ADC Value Print("Distance: "+$Distance) # Or output to an LCD Display (Code may vary) I2CWrite(0,0x27,"TP","2","0") I2CWrite(0,0x27,"TT") I2CWrite(0,0x27,"Distance: "+$Distance) I2CWrite(0,0x27,0) # Check the value is lower than 50 IF($Distance < 50) # If it is then speak warning SayEZB("I have detected something in my path") EndIf # Reduce processing load and comms Sleep(200) EndRepeatWhile In the above example you could replace the repeat with a simple :label and Goto() :begin # Get the ADC Value $Distance = GetADC(ADC0) # Print the ADC Value Print("Distance: "+$Distance) # Or output to an LCD Display (Code may vary) I2CWrite(0,0x27,"TP","2","0") I2CWrite(0,0x27,"TT") I2CWrite(0,0x27,"Distance: "+$Distance) I2CWrite(0,0x27,0) # Check the value is lower than 50 IF($Distance < 50) # If it is then speak warning SayEZB("I have detected something in my path") EndIf # Reduce processing load and comms Sleep(200) # Loop back Goto(begin)

kamaroman68 · Answer

OK so my saga continues..... at first all I wanted was to speak when an object was detected in its path. But after thinking about this, and already having the movement of the robot scripting in place (sort of) I would like to add to the complications. I looked at Rich's Ping roam script on the cloud but it didn't help much. What I have is one controller ezb4 in the robots head and one down at the drive base. The head board will need to interact with the base board as the head sensors are being used to determine distance to object. So..... I would like the robot to move on voice command, when approaching an object in path stop, say "I have detected an object in my path" Sleep(1000) then ask if it should proceed moving. An answer of yes will allow it to proceed while an answer of no well that's obvious... Any help is appreciated... Chris

Rich · Answer

That's pretty simple. Do you want to be spoon fed or do you want the menu? When using 2 boards you will need to tell the script commands which board to use (where applicable). This is denoted by the board number before the port i.e. Servo(0.D0, 60) or Servo(1.D0, 60) The scripts provided so far should be a good base. but change the commands within the IF or after the ADC_Wait. You want to use WaitForSpeech() Quote:WaitForSpeech( timeOut Seconds, phrases ) Pauses and waits for one of the specified phrases to be spoken. Returns the phrase that was spoken. Will return timeout if no word is detected in the specified timeout length. Example: WaitForSpeech(30, Yes, No) Example: $value = WaitForSpeech(30, Yes, No) and an IF to determine what to do. Check both out in the script manual.

kamaroman68

Upgrade to ARC Pro