bcook65
03-15-2010, 04:46 AM
Hello,
I am currently working on a BS2 project to flash LEDs at specific frequencies. Currently I am using the FREQOUT to accomplish this, but without a Oscope I cannot verify this. Otherwise it does seem to work. As I need to control frequencies from 1 to 1000Hz this also seems the easiest way to do this.
The next part of my project involves flashing a Laser diode at the same frequencies as mentioned above.. I am using a red· laser at 635nm with built in driver, and the same program. THe laser runs on from 3-5Vdc. The BS2 is powering the laser, however, very dimly. I am measuring approx 1.23Vdc across the Leds above. Obviously not enough to run the laser diode.
Is there a means of telling the BS2 to increase voltage out? Or do I need to build some sort of voltage amp?
I am assuming from memory that there will be some sort of voltage drop as the frequency increases, if so how do I negate this?
Any Ideas?
Any help would be greatly appreciated as this has taken me quite a while to get to this point from having had to learn some of the programming for the BS2 and other stamps.
When I am finished, ultimately the goal is to flash either an array of leds and or Laser diodes at specific·frequencies and durations.
Below is the code for one of the projects. pretty simple and straight forward.
Thanks
Bill
'{$STAMP BS2}
'{$PBASIC 2.5}
'debug "this section tests each led"
DEBUG "Program Abscess", CR
DEBUG "Total Run Time = 15 minutes", CR
PAUSE 3000
x VAR Byte
· HIGH 15
· PAUSE 2000
· LOW 15
· HIGH 14
· PAUSE 2000
· LOW 14
· HIGH 9
· PAUSE 2000
· LOW 9
· PAUSE 2000
· 'DEBUG "LED TEST", CR
· 'FOR x = 1 TO 5
· 'DEBUG ? x
· 'HIGH 9
· 'PAUSE 100
· 'LOW 9
· 'PAUSE 500
· 'NEXT
· 'DEBUG "LED TEST Complete", CR
· 'PAUSE 3000
· 'debug "this section displays sequence frequncies"
· DEBUG "Frequency Display", CR
· HIGH 15
· PAUSE 2000
· DEBUG "Abscess - 802 Hz", CR
· FREQOUT 9, 3000, 802
· DEBUG "Lymphatics - 42 Hz", CR
· FREQOUT 9, 3000, 42
· DEBUG "Thymus - 73 Hz", CR
· FREQOUT 9, 3000, 73
· DEBUG "Pancreas - 66 Hz", CR
· FREQOUT 9, 3000, 66
· DEBUG "Skin - 363 Hz", CR
· FREQOUT 9, 3000, 363
· PAUSE 3000
· DEBUG "Starting Sequence", CR
· HIGH 14
· 'DEBUG "Section 1"
· DEBUG "(Sequence 1 - Abscess and Lymphatics)60 Sec 802hz and 42Hz)", CR
· FREQOUT 9, 60000, 802, 42
· DEBUG "(Sequence 2 - Abscess and Lymphatics)30 Sec 802hz and 42Hz)", CR
· FREQOUT 9, 30000, 802, 42
· DEBUG "(Sequence 3 - Thymus and Pancreas)60 Sec 73hz and 66Hz)", CR
· FREQOUT 9, 60000, 73, 66
· DEBUG "(Sequence 4 - Thymus and Pancreas)60 Sec 73hz and 66Hz)", CR
· FREQOUT 9, 30000, 73, 66
· DEBUG "(Sequence 5 - Skin)60 Sec 363Hz)", CR
· FREQOUT 9, 60000, 363
· DEBUG "(Sequence 6 - Skin)30 Sec 363Hz)", CR
· FREQOUT 9, 30000, 363
· 'DEBUG "Section 2"
· DEBUG "(Sequence 1 - Abscess and Lymphatics)60 Sec 802hz and 42Hz)", CR
· FREQOUT 9, 60000, 802, 42
· DEBUG "(Sequence 2 - Abscess and Lymphatics)30 Sec 802hz and 42Hz)", CR
· FREQOUT 9, 30000, 802, 42
· DEBUG "(Sequence 3 - Thymus and Pancreas)60 Sec 73hz and 66Hz)", CR
· FREQOUT 9, 60000, 73, 66
· DEBUG "(Sequence 4 - Thymus and Pancreas)60 Sec 73hz and 66Hz)", CR
· FREQOUT 9, 30000, 73, 66
· DEBUG "(Sequence 5 - Skin)60 Sec 363Hz)", CR
· FREQOUT 9, 60000, 363
· DEBUG "(Sequence 6 - Skin)30 Sec 363Hz)", CR
· FREQOUT 9, 30000, 363
· 'DEBUG "Section 3"
· DEBUG "(Sequence 7 - Abscess)60 Sec 802Hz)", CR
· FREQOUT 9, 60000, 802
· DEBUG "(Sequence 8 - Lymphatic)60 Sec 42Hz)", CR
· FREQOUT 9, 60000, 42
· DEBUG "(Sequence 9 - Thymus)60 Sec 73Hz)", CR
· FREQOUT 9, 60000, 73
· DEBUG "(Sequence 10 - Pancreas)60 Sec 66Hz)", CR
· FREQOUT 9, 60000, 66
· DEBUG "(Sequence 11 - Skin)60 Sec 363Hz)", CR
· FREQOUT 9, 60000, 363
· LOW 14
· PAUSE 500
· LOW 15
DEBUG "END"
END
I am currently working on a BS2 project to flash LEDs at specific frequencies. Currently I am using the FREQOUT to accomplish this, but without a Oscope I cannot verify this. Otherwise it does seem to work. As I need to control frequencies from 1 to 1000Hz this also seems the easiest way to do this.
The next part of my project involves flashing a Laser diode at the same frequencies as mentioned above.. I am using a red· laser at 635nm with built in driver, and the same program. THe laser runs on from 3-5Vdc. The BS2 is powering the laser, however, very dimly. I am measuring approx 1.23Vdc across the Leds above. Obviously not enough to run the laser diode.
Is there a means of telling the BS2 to increase voltage out? Or do I need to build some sort of voltage amp?
I am assuming from memory that there will be some sort of voltage drop as the frequency increases, if so how do I negate this?
Any Ideas?
Any help would be greatly appreciated as this has taken me quite a while to get to this point from having had to learn some of the programming for the BS2 and other stamps.
When I am finished, ultimately the goal is to flash either an array of leds and or Laser diodes at specific·frequencies and durations.
Below is the code for one of the projects. pretty simple and straight forward.
Thanks
Bill
'{$STAMP BS2}
'{$PBASIC 2.5}
'debug "this section tests each led"
DEBUG "Program Abscess", CR
DEBUG "Total Run Time = 15 minutes", CR
PAUSE 3000
x VAR Byte
· HIGH 15
· PAUSE 2000
· LOW 15
· HIGH 14
· PAUSE 2000
· LOW 14
· HIGH 9
· PAUSE 2000
· LOW 9
· PAUSE 2000
· 'DEBUG "LED TEST", CR
· 'FOR x = 1 TO 5
· 'DEBUG ? x
· 'HIGH 9
· 'PAUSE 100
· 'LOW 9
· 'PAUSE 500
· 'NEXT
· 'DEBUG "LED TEST Complete", CR
· 'PAUSE 3000
· 'debug "this section displays sequence frequncies"
· DEBUG "Frequency Display", CR
· HIGH 15
· PAUSE 2000
· DEBUG "Abscess - 802 Hz", CR
· FREQOUT 9, 3000, 802
· DEBUG "Lymphatics - 42 Hz", CR
· FREQOUT 9, 3000, 42
· DEBUG "Thymus - 73 Hz", CR
· FREQOUT 9, 3000, 73
· DEBUG "Pancreas - 66 Hz", CR
· FREQOUT 9, 3000, 66
· DEBUG "Skin - 363 Hz", CR
· FREQOUT 9, 3000, 363
· PAUSE 3000
· DEBUG "Starting Sequence", CR
· HIGH 14
· 'DEBUG "Section 1"
· DEBUG "(Sequence 1 - Abscess and Lymphatics)60 Sec 802hz and 42Hz)", CR
· FREQOUT 9, 60000, 802, 42
· DEBUG "(Sequence 2 - Abscess and Lymphatics)30 Sec 802hz and 42Hz)", CR
· FREQOUT 9, 30000, 802, 42
· DEBUG "(Sequence 3 - Thymus and Pancreas)60 Sec 73hz and 66Hz)", CR
· FREQOUT 9, 60000, 73, 66
· DEBUG "(Sequence 4 - Thymus and Pancreas)60 Sec 73hz and 66Hz)", CR
· FREQOUT 9, 30000, 73, 66
· DEBUG "(Sequence 5 - Skin)60 Sec 363Hz)", CR
· FREQOUT 9, 60000, 363
· DEBUG "(Sequence 6 - Skin)30 Sec 363Hz)", CR
· FREQOUT 9, 30000, 363
· 'DEBUG "Section 2"
· DEBUG "(Sequence 1 - Abscess and Lymphatics)60 Sec 802hz and 42Hz)", CR
· FREQOUT 9, 60000, 802, 42
· DEBUG "(Sequence 2 - Abscess and Lymphatics)30 Sec 802hz and 42Hz)", CR
· FREQOUT 9, 30000, 802, 42
· DEBUG "(Sequence 3 - Thymus and Pancreas)60 Sec 73hz and 66Hz)", CR
· FREQOUT 9, 60000, 73, 66
· DEBUG "(Sequence 4 - Thymus and Pancreas)60 Sec 73hz and 66Hz)", CR
· FREQOUT 9, 30000, 73, 66
· DEBUG "(Sequence 5 - Skin)60 Sec 363Hz)", CR
· FREQOUT 9, 60000, 363
· DEBUG "(Sequence 6 - Skin)30 Sec 363Hz)", CR
· FREQOUT 9, 30000, 363
· 'DEBUG "Section 3"
· DEBUG "(Sequence 7 - Abscess)60 Sec 802Hz)", CR
· FREQOUT 9, 60000, 802
· DEBUG "(Sequence 8 - Lymphatic)60 Sec 42Hz)", CR
· FREQOUT 9, 60000, 42
· DEBUG "(Sequence 9 - Thymus)60 Sec 73Hz)", CR
· FREQOUT 9, 60000, 73
· DEBUG "(Sequence 10 - Pancreas)60 Sec 66Hz)", CR
· FREQOUT 9, 60000, 66
· DEBUG "(Sequence 11 - Skin)60 Sec 363Hz)", CR
· FREQOUT 9, 60000, 363
· LOW 14
· PAUSE 500
· LOW 15
DEBUG "END"
END