Need Help- Programmers wanted
Benbo231
Posts: 26
I cannot get this program to work-neither btn does anything
please proofread...
··········
▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔
Someday Monkeys will rule the world. Then you'll be the first to go!
please proofread...
··········▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔
Someday Monkeys will rule the world. Then you'll be the first to go!
Comments
[color=#000000]' {$STAMP BS2} [/color] OUTPUT 0 btn1 VAR Byte cnt VAR Byte loop PULSOUT 12, 1000 PULSOUT 13, 500 PAUSE 15 BUTTON 1,0,255,250,btn1,0,noSwitch OUT0=btn1 FOR cnt=1 TO 50 PULSOUT 12, 500 PULSOUT 13, 1000 PULSOUT 12, 1000 PULSOUT 13, 1000 NEXT OUT0 =0 noSwitch: GOTO loopI see many things wrong with your listing but without knowing more on what you are trying to do, it might not make sense to post.
I have also attached a working 10 button program. There are better ways to press buttons but this works to take 4 push button presses and total them into a 4 digit number.
' 10_ButtonTest.BS2 ' Written by Timothy Gilmore ' March 4th, 2006 ' {$STAMP BS2} ' {$PBASIC 2.5} Btn0 PIN 0 Btn1 PIN 1 Btn2 PIN 2 Btn3 PIN 3 Btn4 PIN 4 Btn5 PIN 5 Btn6 PIN 6 Btn7 PIN 7 Btn8 PIN 8 Btn9 PIN 9 ' ------------------------------------------------------------------------------ ' Constants ' ------------------------------------------------------------------------------ ' ------------------------------------------------------------------------------ ' Variables ' ------------------------------------------------------------------------------ btnWrk0 VAR Byte btnWrk1 VAR Byte btnWrk2 VAR Byte btnWrk3 VAR Byte btnWrk4 VAR Byte btnWrk5 VAR Byte btnWrk6 VAR Byte btnWrk7 VAR Byte btnWrk8 VAR Byte btnWrk9 VAR Byte Value VAR Byte Digit1000s VAR Byte Digit100s VAR Byte Digit10s VAR Byte Digit1s VAR Byte Total VAR Word ' ------------------------------------------------------------------------------ ' Initialization ' ------------------------------------------------------------------------------ Initialize: ' ------------------------------------------------------------------------------ ' Program Code ' ------------------------------------------------------------------------------ Main: GOSUB Get4Buttons 'Get all 4 digits from pushbuttons PAUSE 1000 'Display 4 digit code for 1 second Total = (Digit1000s * 1000) + (Digit100s * 100) + (Digit10s * 10) + Digit1s DEBUG DEC Total GOTO Main 'Repeat process '----- Subroutines Get4Buttons: Value = 255 GOSUB GetButtons Digit1000s = Value Value = 255 GOSUB GetButtons Digit100s = Value Value = 255 GOSUB GetButtons Digit10s = Value Value = 255 GOSUB GetButtons Digit1s = Value RETURN GetButtons: ' Try changing the Delay value (255) in BUTTON to see the effect of ' its modes: 0 = no delay; 1-254 = varying delays before auto-repeat; ' 255 = no auto-repeat (only one action per button press) ' ' The BUTTON instruction will cause the program to branch to the next pushbutton Button0: PAUSE 5 BUTTON Btn0, 0, 200, 20, btnWrk0, 0, Button1 Value = 0 Button1: PAUSE 5 BUTTON Btn1, 0, 200, 20, btnWrk1, 0, Button2 Value = 1 BUTTON2: PAUSE 5 BUTTON Btn2, 0, 200, 20, btnWrk2, 0, Button3 Value = 2 BUTTON3: PAUSE 5 BUTTON Btn3, 0, 200, 20, btnWrk3, 0, Button4 Value = 3 BUTTON4: PAUSE 5 BUTTON Btn4, 0, 200, 20, btnWrk4, 0, Button5 Value = 4 BUTTON5: PAUSE 5 BUTTON Btn5, 0, 200, 20, btnWrk5, 0, Button6 Value = 5 BUTTON6: PAUSE 5 BUTTON Btn6, 0, 200, 20, btnWrk6, 0, Button7 Value = 6 BUTTON7: PAUSE 5 BUTTON Btn7, 0, 200, 20, btnWrk7, 0, Button8 Value = 7 BUTTON8: PAUSE 5 BUTTON Btn8, 0, 200, 20, btnWrk8, 0, Button9 Value = 8 BUTTON9: PAUSE 5 BUTTON Btn9, 0, 200, 20, btnWrk9, 0, No_Press Value = 9 No_Press: IF Value = 255 THEN GOTO Button0 ENDIF RETURNthne it backs up and turns, then starts over. It's a modified version of the robot in the end of Electronics for dummies
▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔
Someday Monkeys will rule the world. Then you'll be the first to go!
btn1· VAR Byte
btn2· VAR Byte
cnt· VAR Byte
loop
PULSOUT 12, 1000
PULSOUT 13, 500
PAUSE 15
BUTTON 1,0,255,250,btn1,0,noSwitch
BUTTON 2,0,255,250,btn2,0,noSwitch
OUT0=btn1
FOR cnt=1 TO 50
· PULSOUT 12, 500
· PULSOUT 13, 1000
· PULSOUT 12, 1000
· PULSOUT 13, 1000
· NEXT
OUT0=btn2
FOR cnt=1 TO 50
· PULSOUT 12, 500
· PULSOUT 13, 1000
· PULSOUT 12,·500
· PULSOUT 13,·500
· NEXT
· OUT0 =0
·noSwitch: GOTO loop
▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔
Someday Monkeys will rule the world. Then you'll be the first to go!
' BTN_TEST2.BS2 ' Written by Timothy Gilmore ' January 18, 2009 ' {$STAMP BS2} ' {$PBASIC 2.5} ' Connect an active-low circuit to pin P0 of the BS2. When you press the ' button, the servos will cause movement, then DELAy approximately one second ' (200 x 5 ms PAUSE) before auto-repeating at a rate of approximately 100 ms (5 x 20 ms). Btn0 PIN 0 ' ------------------------------------------------------------------------------ ' Constants ' ------------------------------------------------------------------------------ ' ------------------------------------------------------------------------------ ' Variables ' ------------------------------------------------------------------------------ btnWrk0 VAR Byte cnt VAR Byte ' ------------------------------------------------------------------------------ ' Initialization ' ------------------------------------------------------------------------------ Initialize: ' ------------------------------------------------------------------------------ ' Program Code ' ------------------------------------------------------------------------------ Main: 'Button is not pushed here PULSOUT 12, 1000 PULSOUT 13, 500 ' Try changing the Delay value (255) in BUTTON to see the effect of ' its modes: 0 = no delay; 1-254 = varying delays before auto-repeat; ' 255 = no auto-repeat (only one action per button press) PAUSE 5 BUTTON Btn0, 0, 200, 20, btnWrk0, 0, No_Press 'Button is pushed so do something here FOR cnt=1 TO 50 PULSOUT 12, 500 PULSOUT 13, 1000 PULSOUT 12, 1000 PULSOUT 13, 1000 NEXT No_Press: GOTO Main 'Repeat process▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔
Someday Monkeys will rule the world. Then you'll be the first to go!