BasicMicro - Forums

main
;*****declaration*****

;generate initpulse @10hertz
;senser return echo is 0.9 ms per foot
;adjust deadband up to 20" via potentiometer
;adjust span 20" via potentiometer
;use deadband and span to scale the pwm output duty cycle
init_signal var bit
insignal var bit
analog1 var word
analog2 var word
outsignal var word
distance var word
deadband var word
span var word
spaninches var word
deadbandinches var word
dutyadj var word
dutypercentage var byte
dutyrange var word
duration var word
duty var byte
deadband_distance var word
span_distance var word
deadband_inches var word
span_inches var word
;setup sensor distance resolution with adc adjustment

adin,p8,deadband ;minimum deadband 6"
adin,p9,span ;max span 20"
init_signal = P0 ;setup after to generate every 10 hertz
high init_signal
count=(count+1)
insignal = irq1int,high
enable insignal
oninterrupt,calcdistance

gosub calcspan
gosub dutycalc
duration=5000
pwm p12,duty,duration

calcdistance
distance = count\0.075 ;0.9 ms/ft=0.075 ms/inch
return



calcdeadband ;pot starts at 6" to 20" 14" range analog scale
deadband_inches =deadband\16
return

calcspan ; pot starts at 6" to 20"
span_inches =span\16
return


dutycalc

dutyrange = span_inches - deadband_inches
if span<=deadband then
dutypercentage = 0
elseif
dutypercentage = (distance\dutyrange)*100
duty=(255*(dutypercentage\100))
endsub
end


programming this code when I click build so I can get an error check nothing happens???
same with debug or build????
Checked to see if the program can see the processor it can.
Any idea????????

Well, first you have a comma right after your adin commands:

adin,p8,deadband ;minimum deadband 6"

should be

adin p8,deadband ;minimum deadband 6"

Also what processor are you using?

Also you have this statement:

1. you don't define count
2. count is a reserved word.

So you need to change the variable name count to something else(I recommend counter) and you need to define what type of variable it is:

Then there is this:



What are you trying to do here. This isn't even remoetly valid in our Basic. Let me know what you are trying to do and I can show you how(if it's possible).

In Studio the PWM command has been changed to give more functionality. The old syntax:

has been replaced with the new syntax:


pwm pin,period,duty,cycles

This line and several others is using the wrong symbold for divide:

should be


You have a typo in this line and the divide symbol is incorrect:

should be


This line:

should be


This line

should be


My guess is you are coming from a different Basic language.

When you installed 1.0.0.32 did you uninstall any previous versions first? Also I suggest you get the latest release from the news section in these forums.

_________________
Nathan Scherdin
Basic Micro - Robotic Technology Evolved

the version we have is a single instalation no previous version.

I corrected the code with the corrections you mentioned then realized I culd simplify several of the steps. So re-wrote the code from scratch.

Currently at the stage of building the circuitry to test the code parameters and timing out.
The one instruction you mentioned with the insignal = irq1int etc was an example I had pulled from another micro processor. Thanks for pointing out that interupts cannot be directly handled on the nano18 processor. I sent the email to you for further information on handling interupts.

Ok. I replied to the email. Ya, have to be carefull not to confuse different versions of basic for different processors.

_________________
Nathan Scherdin
Basic Micro - Robotic Technology Evolved