Device = 18F1320
Clock = 8 // 8MHz clock
Config OSC = INTIO2, WDT = OFF, LVP = OFF
Dim NOT_RBPU As INTCON2.7
Dim TMR1IE As PIE1.0
Dim TMR1IF As PIR1.0
Dim TMR1 As TMR1L.AsWord
Dim Speaker As PORTB.3
Dim SpeakerTris As TRISB.3
Dim Amp As PORTB.1 // turns on amp power
Dim AmpTris As TRISB.1//turns on amp pin 9
Dim DipRD As PORTB.0 // sets port as output for dip switches
Dim dipRDTris As TRISB.0//turns on dip read pin 8
Dim Speed As Word
Dim dip1 As PORTA.0 //input for 25ms
Dim dip2 As PORTA.1 // input for 50ms
Dim dip3 As PORTA.2 //input for 100ms
Dim dip4 As PORTA.3 // input for random dips sw
//global variables
Dim Seed As LongWord, Tone As Byte
Dim i As Byte
//half period delays = clock speed divided by 2*frequency
Const Tones(18) As Word = (2000000/12000,2000000/10000,2000000/8000,2000000/6000,2000000/4000,1000,
2000000/12000,2000000/10000,2000000/8000,2000000/6000,2000000/4000,1000,2000000/12000,2000000/10000,2000000/8000,2000000/6000,2000000/4000,1000)
//interrupt routine
Interrupt MyInt()
T1CON.0=0 //stop timer
TMR1=-Tones(Tone) //reset period
T1CON.0=1 //restart timer
If Tone=5 Then //if silence
Speaker=0 //speaker off
Else //otherwise
Toggle(Speaker) //make sound
EndIf
TMR1IF=0 //clear interrupt flag
End Interrupt
Function Rand(Range As Byte) As Byte
Dim i As Byte, feed As Bit, temp As Word
For i = 0 To 7 //generate 8 bits
Feed = Seed.30 Xor Seed.27 //make new bit
Seed=Seed*2+Feed //shift seed left and add new bit
Next
Temp=(Seed And 255) * Range //change Rand from 0 to 255
Rand = Temp/256 //to 0 to (Range-1)
End Function
//main code starts here
Speed = ((PORTB/2) And 7)*25+25
PORTB.0=1 // goes high to read dips
//main code starts here
OSCCON = $72 //select 8MHz internal clock
NOT_RBPU=0 //WPUs on port B
ADCON1=$7f //all digital
TRISB.0=0 //make output
PORTB.0=1 //makes pin 8 high for dip switches
T1CON = %10000001 //pre=1
T1CON = %10000001 //pre=1
Tone=5 //no sound please
TMR1IE=1 //enable timer 1 interrupt
Enable(MyInt) //set interrupt going
SpeakerTris=0 //Setup Port
Seed=$12345678 //seed random number
TRISA =%00001111 //sets your inputs on porta
While(TRUE) //repeat forever
If PORTA.0=1 Then //dip1 pin 1
Speed=25
EndIf
If PORTA.1=1 Then // dip 2 pin 2
Speed=50
EndIf
If PORTA.2=1 Then //dip3 pin 6
Speed=100
EndIf
If PORTA.3=1 Then //dip4 pin 7
Speed=Rand(10)*15+15 //Speed = 25 to 250 random select speed
EndIf
//PORTB.0=0// port goes LOW to conserve powerfinished reading dips
//leave this off for now and see what happens
If PORTB.1=0 Then //if button 1 pressed add PIR=1 here
For i = 1 To 200 //play 20 tones
Tone=Rand(5) //each tone is random frequency
DelayMS(Speed) //and for 1.00 seconds
Next //end for loop
Else //otherwise
Tone=5 //silence
i=Rand(255) //make rand more random
EndIf //end if condition
Wend //end of while loop