Parallelput problem

[NEOS]

loop
mousewhere (xmouse, ymouse, button)
locate (21, 20)
put " To go to the MAIN SCREEN"
put " click on box ."
drawbox (550, 30, 600, 80, 10)
if xmouse >= 75 and xmouse <= 105 and ymouse >= 270 and ymouse <= 300 and button = 1 then
drawfilloval (89, 240, 15, 15, 4)
a := 1
m := a + m
parallelput (m)
elsif xmouse >= 141 and xmouse <= 171 and ymouse >= 270 and ymouse <= 300 and button = 1 then
drawfilloval (155, 240, 15, 15, 4)
b := 2
m := m + b
parallelput (m)
elsif xmouse >= 207 and xmouse <= 242 and ymouse >= 270 and ymouse <= 300 and button = 1 then
drawfilloval (221, 240, 15, 15, 4)
c := 4
m := m + c
parallelput (m)
elsif xmouse >= 273 and xmouse <= 308 and ymouse >= 270 and ymouse <= 300 and button = 1 then
drawfilloval (287, 240, 15, 15, 4)
d := 8
m := m + d
parallelput (m)
elsif xmouse >= 339 and xmouse <= 374 and ymouse >= 270 and ymouse <= 300 and button = 1 then
drawfilloval (353, 240, 15, 15, 4)
e := 16
m := m + e
parallelput (m)
elsif xmouse >= 405 and xmouse <= 440 and ymouse >= 270 and ymouse <= 300 and button = 1 then
drawfilloval (419, 240, 15, 15, 4)
f := 32
m := m + f
parallelput (m)
elsif xmouse >= 471 and xmouse <= 506 and ymouse >= 270 and ymouse <= 300 and button = 1 then
drawfilloval (485, 240, 15, 15, 4)
g := 64
m := m + g
parallelput (m)
elsif xmouse >= 537 and xmouse <= 572 and ymouse >= 270 and ymouse <= 300 and button = 1 then
drawfilloval (551, 240, 15, 15, 4)
h := 128
m := m + h
parallelput (m)
elsif xmouse >= 550 and xmouse <= 600 and ymouse >= 30 and ymouse <= 80 and button = 1 then
cls
title
end if
end loop

that's a part my project and whenever I plug it in to the breadboard the lights are supposed to flash according to the buttons pressed but for some reason whenever I click a button it'll mess up and turn a bunch of other buttons on to so I need to make it turn on the button I pressed and when I press another button they both stay on.

[Insectoid]

First, use code tags.

Second, we need a circuit diagram to be able to help you. This is probably a problem with your wiring.

[Euphoracle]

You're not resetting m... after a while it will always be outputting >255 and your circuit will glow bright. At least, that's what it looks like the problem is.

[NEOS]

ok here's how the output window looks like.

[NEOS]

So how do I reset "m"

Turing:

loop         mousewhere (xmouse, ymouse, button)          locate (21, 20)     put "        To go to the MAIN SCREEN"     put "                                click on box ."     drawbox (550, 30, 600, 80, 10)         if xmouse >= 75 and xmouse <= 105 and ymouse >= 270 and ymouse <= 300 and button = 1 then             drawfilloval (89, 240, 15, 15, 4)             a := 1             m := a + m             parallelput (m)         elsif xmouse >= 141 and xmouse <= 171 and ymouse >= 270 and ymouse <= 300 and button = 1 then             drawfilloval (155, 240, 15, 15, 4)             b := 2             m := m + b             parallelput (m)         elsif xmouse >= 207 and xmouse <= 242 and ymouse >= 270 and ymouse <= 300 and button = 1 then             drawfilloval (221, 240, 15, 15, 4)             c := 4             m := m + c             parallelput (m)         elsif xmouse >= 273 and xmouse <= 308 and ymouse >= 270 and ymouse <= 300 and button = 1 then             drawfilloval (287, 240, 15, 15, 4)             d := 8             m := m + d             parallelput (m)         elsif xmouse >= 339 and xmouse <= 374 and ymouse >= 270 and ymouse <= 300 and button = 1 then             drawfilloval (353, 240, 15, 15, 4)             e := 16             m := m + e             parallelput (m)         elsif xmouse >= 405 and xmouse <= 440 and ymouse >= 270 and ymouse <= 300 and button = 1 then             drawfilloval (419, 240, 15, 15, 4)             f := 32             m := m + f             parallelput (m)         elsif xmouse >= 471 and xmouse <= 506 and ymouse >= 270 and ymouse <= 300 and button = 1 then             drawfilloval (485, 240, 15, 15, 4)             g := 64             m := m + g             parallelput (m)         elsif xmouse >= 537 and xmouse <= 572 and ymouse >= 270 and ymouse <= 300 and button = 1 then             drawfilloval (551, 240, 15, 15, 4)             h := 128             m := m + h             parallelput (m)         elsif xmouse >= 550 and xmouse <= 600 and ymouse >= 30 and ymouse <= 80 and button = 1 then             cls             title             end if     end loop

[Insectoid]

m := 0

The way I would do this is I would assign a boolean variable to every light to represent on/off (true/false). Then I would use a for loop to check if that light is supposed to be on and add it's value to a running total, then send it all through the parallel port.

[NEOS]

how do you use a for loop to check? Is it like this?

Turing:

for A : true..false put false end for

[Euphoracle]

No, you just do

Turing:

if (not A) then      % Do whatever, A is false. end if

[Insectoid]

An array of boolean variables.

code:

for i: 1..upper(array1)     if array1 (i) = true then         %add to total     end if end for parallelput (total)

[NEOS]

insectoid @ Sun Nov 09, 2008 10:59 am wrote:

An array of boolean variables.

code:

for i: 1..upper(array1)     if array1 (i) = true then         %add to total     end if end for parallelput (total)

So I put that under each "elsif"? and an erroe comes up because of "true" the error states "Operands of comparison operators must be of the same type." What does that mean I tried changing it to "false" but the same thing happens

[Insectoid]

You don't need any other 'ifs' at all. This does the whole thing. 'array1' must be an array of boolean. I suggest looking through the Turing Walkthrough.

'Operands of comparison...' means that you are trying to compare different types of variables. Something like 'if string = int' or 'if int = boolean'

[NEOS]

insectoid @ Sun Nov 09, 2008 1:08 pm wrote:

You don't need any other 'ifs' at all. This does the whole thing. 'array1' must be an array of boolean. I suggest looking through the Turing Walkthrough.

'Operands of comparison...' means that you are trying to compare different types of variables. Something like 'if string = int' or 'if int = boolean'

so I delete all of those "ifs"

[andrew.]

Yes. Delete the other ifs. Insectoid's code keeps track of whatever is on and off and if it is true, it will automatically add the numbers.