Sorry your browser is not supported!

Im having a error with my arrays; arrays must have at least one subscript
im using a string variable with a operation stored like + or * and using it to operate on two values in an array (variable is operation$) it will let me if i type just the * but not with the vairable any help?


sync on
sync rate 30
print "Enter Amount of variable values"
input values
varcounter2 = 0
dim vars(values)
counter = values
Print "Enter operation to be exacuted (in computer symbol form)"
input operation$
varcounter = 0
repeat
print "Enter a value to" + operation$
input vars(varcounter)
varcounter = varcounter + 1
counter = counter - 1
until counter = 0 or varcounter = values
repeat
print vars(varcounter2)
varcounter2 = varcounter2 + 1
until varcounter2 = values
varcounter3 = 0
r = 0
r = vars(varcounter3) operation$ vars(varcounter3 + 1)
varcounter3 = 1
repeat
r = r operation$ vars(varcounter3)
values = values - 1
until values = 0
print r
wait key

its not your array that is going wrong but your use of operation$ as a command.Here is some code for you to look at.Rem Project: Dark Basic Pro Project
Rem Created: Wednesday, August 04, 2010

Rem ***** Main Source File *****
sync on
sync rate 30
print "Enter Amount of variable values"
input values
varcounter2 = 0
dim vars(values)
counter = values
Print "Enter operation to be exacuted (in computer symbol form)"
input operation$
varcounter = 0
repeat
print "Enter a value to" + operation$
input vars(varcounter)
varcounter = varcounter + 1
counter = counter - 1
until counter = 0 or varcounter = values
repeat
print vars(varcounter2)
varcounter2 = varcounter2 + 1
until varcounter2 = values
varcounter3 = 0
r = 0
if operation$="+"
r = vars(varcounter3) + vars(varcounter3 + 1)
endif
if operation$="*"
r = vars(varcounter3) * vars(varcounter3 + 1)
endif
if operation$="-"
r = vars(varcounter3) - vars(varcounter3 + 1)
endif
if operation$="/"
r = vars(varcounter3) / vars(varcounter3 + 1)
endif
varcounter3 = 1
repeat
if operation$="+"
r = r + vars(varcounter3)
endif
if operation$="*"
r = r * vars(varcounter3)
endif
if operation$="-"
r = r - vars(varcounter3)
endif
if operation$="/"
r = r / vars(varcounter3)
endif
`r = r operation$ vars(varcounter3)
values = values - 1
until values = 0
print r
wait key

Thanks I figured I'd have to do something like that

now it has no build errors but at the end it just shoots out 3 0s