need help! to beginner

[emilhs]

Hello I want to write code to imitate siren sounds li Air horn pulsar wait yelp .
i have used freqout to make first 2. but others do not stop when i unpress button lease advise what to do?

If PORTB.7 =0 THEN
Freqout PORTB.0,4,1700 ;------------- air horn
Freqout PORTB.0,4,850
Freqout PORTB.0,4,1250
Freqout PORTB.0,4,425
Endif
If PORTB.6 =0 THEN
Freqout PORTB.0,8,366 ;------------- pulsar
Freqout PORTB.0,8,483
Freqout PORTB.0,8,591
Freqout PORTB.0,8,664
Freqout PORTB.0,8,760
Freqout PORTB.0,8,886
Freqout PORTB.0,8,967
Freqout PORTB.0,8,1070
Freqout PORTB.0,8,1182
Freqout PORTB.0,8,1330
endif

for this too freqout is ok because they are short what to do with longer ones?

[mister_e]

Well, post your whole code, and schematic, we could help further.

[emilhs]

TRISB = %11111111
OPTION_REG.7 = 0


loop:

If PORTB.7 =0 THEN
Freqout PORTB.0,4,1700 ;------------- air horn
Freqout PORTB.0,4,850
Freqout PORTB.0,4,1250
Freqout PORTB.0,4,425
Endif




If PORTB.6 = 0 Then
Freqout PORTB.0,8,366 ;------------- pulsar
Freqout PORTB.0,8,483 ;
Freqout PORTB.0,8,591
Freqout PORTB.0,8,664
Freqout PORTB.0,8,760
Freqout PORTB.0,8,886
Freqout PORTB.0,8,967
Freqout PORTB.0,8,1070
Freqout PORTB.0,8,1182
Freqout PORTB.0,8,1330
Endif

If PORTB.5 = 0 Then
Freqout PORTB.0,10,366 ;------------- yelp
Freqout PORTB.0,10,483
Freqout PORTB.0,10,591
Freqout PORTB.0,10,664
Freqout PORTB.0,10,760
Freqout PORTB.0,10,886
Freqout PORTB.0,10,967
Freqout PORTB.0,10,1070
Freqout PORTB.0,10,1182
Freqout PORTB.0,10,1330 ---------- how to check? just to say if in this point button is unpressed and stop running
Freqout PORTB.0,10,1182
Freqout PORTB.0,10,1070
Freqout PORTB.0,10,967
Freqout PORTB.0,10,886
Freqout PORTB.0,10,760
Freqout PORTB.0,10,664
Freqout PORTB.0,10,591
Freqout PORTB.0,10,483
Freqout PORTB.0,10,366
endif


goto loop
end

[mister_e]

One of the several way to do it, untested though

Frequency var word
CounterA var Byte

If PORTB.5 = 0 Then
CounterA = 0
Yelp:
Lookup2 CounterA,[366,483,591,664,760,886,967,1070,1182,1330,1182,10 70,967,886,_
760,664,591,483,366],Frequency
Freqout PORTB.0,10,Frequency
if PORTB.5=0 then
CounterA = CounterA + 1
if Countera < 19 then goto Yelp
endif
endif

[emilhs]

thank you wery much

[emilhs]

Can anybody show different way of doing the same???

[mister_e]

Well yes, but why? It doesn't work or what?

[emilhs]

But if just to say I want to add pause i cannot.
I added a coulpe of 0 to get silence but it gives whistle.
so i need something with supporting pause command
thanks in advance

[mister_e]

where do you want to add pause? between some FREQOUT?

[emilhs]

yes I do. is it possible?

[emilhs]

Stieve is it possible to put as duration in sound command figure beetween 0-1

for examle

sound portb.0[0.2 ,115]

because when you put 1 sound comes out nearly 12 milliseconds but i need less

[mister_e]

Sure, easy way is to break the LOOKUP2 in few different tables, or add a second one, the second one will hold the PAUSE value.

I could disgress and say use a variant of "embedded string in your code space". This build a huge table in which you store, the frequency & the PAUSE values. Later you just read it, and apply it.

[mister_e]

PBP don't allow float point values.

You could use HPWM out and PAUSEUS/PAUSE, or a variant of it.

Some
High pin
PAUSE(us) HalfPeriodDelay
LOW pin
PAUSE(us) HalfPeriodDelay

would replace Sound, Freqout, PWM etc etc hapilly here

[emilhs]

Steve is there any way by any comant get figures like 0.2 point two point tree?

[mister_e]

Nope, not as far as I'm aware of.

[emilhs]

Hi steve.
how can i devide the table into two parts and put pause between them?

Emil

[emilhs]

Yelp3:
Lookup2 CounterA,[366,425,483,591,664,760,886,967,1070,1182,1330],Frequency
pause 10
lookup2 countera,[1330,1182,1070,967,886,760,664,591,483,425,366],Frequency

Freqout PORTB.0,16,Frequency
if PORTB.5=0 then
CounterA = CounterA + 1
if Countera < 22 then goto Yelp3
endif

[emilhs]

anybody can help?

[mister_e]

I would like to know all your delays and all your frequency, you could also build 2 lookup, one for the delays, one for the frequency.

[emilhs]

Is it wright that lookup can get only 85 figures?
if yes how can i write 3 lookup comands but i need like after one finishing it must count second and then third table. if button pressed.
Thanks in advance.

Emil

[Dave]

emilhs, The lookup command can have upto 255 results. I have used it with upto 128 in a lookup table for a serial/dotmatrix display system...

Dave Purola,
N8NTA

[emilhs]

Thanks Dave

[emilhs]

Steve can you please show me how to buld 2 lookups? and I will work it out

Emil

[Dave]

emilhs, I think he means something like this:

--------------------------------------------------------------------------------
Yelp3:
Lookup2 CounterA,366,425,483,591,664,760,886,967,1070,1182 ,1330,1330,1182_
1070,967,886,760,664,591,483,425,366],Frequency
Lookup2 CounterA,366,425,483,591,664,760,886,967,1070,1182 ,1330,1330,1182_
1070,967,886,760,664,591,483,425,366],Delay

Then use the "Frequency" and the "Delay" variables together to make a sound (multiple ways) then do it again,

Yelp4:
Lookup2 CounterA,366,425,483,591,664,760,886,967,1070,1182 ,1330,1330,1182_
1070,967,886,760,664,591,483,425,366],Frequency
Lookup2 CounterA,366,425,483,591,664,760,886,967,1070,1182 ,1330,1330,1182_
1070,967,886,760,664,591,483,425,366],Delay

Dave Purola,
N8NTA

[emilhs]

but i need function like when the button is unpressed counting stops

[Dave]

emilhs, Just place a test for the appropriate input bit between calls to the lookup table...

Dave Purola,
N8NTA

[emilhs]

Thanks Dave i will try and let you know

[emilhs]

PBP don't allow float point values.

You could use HPWM out and PAUSEUS/PAUSE, or a variant of it.

Some
High pin
PAUSE(us) HalfPeriodDelay
LOW pin
PAUSE(us) HalfPeriodDelay

would replace Sound, Freqout, PWM etc etc hapilly here

Hi Steve,

This is the best way I try but again I got problem and now i can not calculate the perods for Frequencies can you help me please ?
is there any formula or software for it?