Dear Carl: Disillusioned

[rich357]

www.qrz.com/xtest2.html

I have become quite disillusioned with Run Basic in the past few weeks. As I have been trying various methods to duplicate the flash version of the test at the above site, into a RunBasic version, I just do not see how it can be done.

Specially not the way I want. When I try one method, something in your scheme of things causes the program to hang. When you employ a button or link, the wait statement can cause havoc simply because it is not in the exact place it should be in.

As I see it, wait, should be something similar to "onClick". But no, having a "wait" inside of a loop, causes the output of that loop to halt. here's a quick example.


for n=1 to 10

button #a,"a",[quit]
wait

next n

[quit]
end


Of course, if "wait" is after "next", then I get the 10 buttons as desired.


In my latest version of the test, I have written two functions which show two different tables. If I put the "wait" anywhere other than within the function, the program hangs.

I think we should have some better way of dealing with buttons and links. As it is now, onclick gives us the choice of a branch label or a sub routine. But that has it's drawbacks as well. The wrong placement of a branch label and the program hangs or an error message pops up and says "branch label not found".

Now you may be thinking by now that I'm giving up the ship.
Hardly. As the man once said, "I've only just begun to fight!".
As I've got nothing else better to do to keep me busy, I just may yet find a way to make this blasted test work MY WAY!

[Janet]

If a loop isn't working, try using a conditional Goto statement. I realize there are some programmers who cringe at the Goto statement, but who cares if it gets the job done?

Dim quiz$(3, 5)
For i = 1 to 3
Read q$
quiz$(i, 0) = q$
For j = 1 to 5
Read a$
quiz$(i, j) = a$
Next j
Next i
Cssid #main, "{Background: #f00; Width: 600px; Padding: 10px 10px 10px 10px;}"
Cssid #round, "{Background: #fff; Width: 575px;}"

round = 0
[mainLoop]
round = round + 1
cls
div main
print
print quiz$(round, 0)
print
div round
print
print "   ";
link #a1, "[1]", [checkAns]
print quiz$(round, 1)
print
print "   ";
link #a2, "[2]", [checkAns]
print quiz$(round, 2)
print
print "   ";
link #a3, "[3]", [checkAns]
print quiz$(round, 3)
print
print "   ";
link #a4, "[4]", [checkAns]
print quiz$(round, 4)
print
end div
end div
wait

[checkAns]
div main
userAnswer = val(right$(EventKey$, 1))
correctAnswer = val(quiz$(round, 5))
if userAnswer = correctAnswer then
print "   Correct!"
else
print "   Sorry, that is incorrect."
end if
print
if round < 3 then
print "   ";
link #n, "Next", [mainLoop]
print
else
print
print "   Go Sox!"
end
end if
end div
wait

Data "Which team is known as the 'Evil Empire?'", "Red Sox", "Yankees", "Giants", "Padres", "2"
Data "Whose dog ate the 'last out baseball' of the 2007 World Series?", "Mike Lowell", "Dustin Pedroia", "Kevin Youkallis", "Jonathan Papelbon", "4"
Data "Which pitcher 'bled' for his team during the 2004 World Series?", "Curt Schilling", "Manny Ramirez", "David Ortiz", "Johnny Damon", "1"


[Carl Gundel - admin]

From the examples I've seen, I'm not really quite sure what the desired end result is.

If the issue here is that Run BASIC doesn't do what you want exactly how you'd like it that's one thing. If it cannot do what you want, period, then that's yet another.

-Carl

[rich357]

Some times I need to vent out a little. Which helps.
I'm posting my working solution in the coding board.

[StefanPendl]

Dec 13, 2009 23:44:01 GMT -5 rich357 said:

www.qrz.com/xtest2.html

I have become quite disillusioned with Run Basic in the past few weeks. As I have been trying various methods to duplicate the flash version of the test at the above site, into a RunBasic version, I just do not see how it can be done.

RB creates pure HTML pages with some JS injected.

Anything that is done using flash is not easy to do in HTML, else it would have been done in HTML by the original author.