[QBasic] heeft moeite met variabele :(

[Krankenstein]

Ik heb een programmatje gemaakt met de volgende Sub erin:

code:

SUB vooruit
b = 0
c = 0
outvar = 7

inp16 = (INP(ba + 1) AND 16)

DO

OUT (ba), outvar

IF (INP(ba + 1) AND 16) <> inp16 THEN
blokkade = 1
GOTO 1
END IF

IF (INP(ba + 1) AND 64) <> inp64 THEN
b = b + 1
END IF
inp64 = (INP(ba + 1) AND 64)
IF b = 16 THEN
PRINT "1"
b = 0
outvar -3 = outvar
END IF

IF (INP(ba + 1) AND 128) <> inp128 THEN
c = c + 1
END IF
inp128 = (INP(ba + 1) AND 128)
IF c = 16 THEN
PRINT "2"
c = 0
outvar -4 = outvar
END IF

LOOP UNTIL (outvar = 0)

1 OUT (ba), 0

SELECT CASE richting
CASE IS = 1: ypos = ypos - 1
CASE IS = 2: xpos = xpos + 1
CASE IS = 3: ypos = ypos + 1
CASE IS = 4: xpos = xpos - 1
END SELECT

END SUB

Maar als ik het proggie wil uitvoeren zegt 'ie bij "outvar" (bovenin) "Duplicate defenition". Verder heb ik de variabele nergens gebruikt. Het ligt ook niet aan de naam vd variabele (andere namen werken ook niet), en hij doet het bij "b" en "c" wel, met een soortgelijke variabele. Weet iemand wat er dan fout is aan deze code?

Het is trouwens deel van een programmatje om een zelfgemaakte robot mee te besturen.

[Krankenstein]

Niemand?

Basic is toch zo'n beetje waar iedereen mee begonnen is en wat dus bijna iedereen op dit forum wel kan d8 ik zo .

[Verwijderd]

Op zondag 16 december 2001 00:21 schreef Krankenstein het volgende:
Niemand?

Wow wel 33 hele minuten geduld kunnen hebben?

[Verwijderd]

Ik heb hier niet genoeg info over, heb je ergens met dim dat gedefenieerd of met const?...

[brammetje]

als je nou eerst eens wat inspringt..

[marcusk]

outvar -3 = outvar

ik weet niet of het er mee te maken heeft, maar das best vaag

[Verwijderd]

Op zondag 16 december 2001 00:54 schreef marcusk het volgende:
ik weet niet of het er mee te maken heeft, maar das best vaag

Dat is 'm inderdaad (k had 't al getest), 'k wou 'm alleen nog even laten wachten om 'm te belonen voor z'n ongeduldigheid.

[tomato]

Yarvieh: Dat is 'm inderdaad (k had 't al getest), 'k wou 'm alleen nog even laten wachten om 'm te belonen voor z'n ongeduldigheid.

He wat gek, ik zat met precies hetzelfde idee in mijn hoofd

Kijk alleen wel uit met dat soort dingen, voor je het weet vinden mensen dat geen goed idee...

[Verwijderd]

Op zondag 16 december 2001 00:59 schreef tomato het volgende:
Kijk alleen wel uit met dat soort dingen, voor je het weet vinden mensen dat geen goed idee...

Maar dat soort gevallen kan je gemakkelijk met de Faq om hun oren slaan.

Policy mbt het omhoogschoppen van threads. Wacht minstens 24 uur voor je je topic omhoog schopt. Doe dit dan ook alleen met een zinnige opmerking en dus niet met "Waarom antwoord er nou niemand" nadat je 5 minuten geen antwoord hebt gehad. Sommigen van ons hebben een leven

[wasigh]

idd

en als je dan ff een modje roept en de thread niet helemaal off-topic laat gaan komt alles goed

[.oisyn]

schop

maar even serieus, ik vind dit ook best vaag

code:

SELECT CASE richting
CASE IS = 1: ypos = ypos - 1
CASE IS = 2: xpos = xpos + 1
CASE IS = 3: ypos = ypos + 1
CASE IS = 4: xpos = xpos - 1
END SELECT

nou is het lang geleden dat ik in basic heb gespaghetti'd, maar volgens mij is "CASE IS = " toch echt niet goed

.edit: heej blijkt dat ik de VB docs ook geinstalleerd heb staan
Het moet idd gewoon zijn
[code]
CASE IS 1
bladiebladiebla
[code]

(of een : na 1 en bladiebladiebla op dezelfde regel )

[roelio]

Ja die CASE IS = is wel okee, deze twee doen et em:
outvar -4 = outvar
outvar -3 = outvar

[Verwijderd]

nou is het lang geleden dat ik in basic heb gespaghetti'd, maar volgens mij is "CASE IS = " toch echt niet goed

Bizar genoeg mag het wel en werkt het ook nog.

[.oisyn]

Op zondag 16 december 2001 01:10 schreef limoentje het volgende:
Ja die CASE IS = is wel okee, deze twee doen et em:
outvar -4 = outvar
outvar -3 = outvar

ik heb het ook niet over zijn originele probleem

[wasigh]

offtopic:
OiSyN:

ik heb me geregd op gameskool maar ik kan niet inloggen met het wachtwoord wat mij gemaild is

[.oisyn]

Op zondag 16 december 2001 01:12 schreef Yarvieh het volgende:

[..]

Bizar genoeg mag het wel en werkt het ook nog.

en werkt het ook wel zoals het hoort te werken?

[Verwijderd]

Op zondag 16 december 2001 01:14 schreef OiSyN het volgende:
en werkt het ook wel zoals het hoort te werken?

Jah bizar he? ik ging er in 1e instantie vanuit dat ie een nieuwe variable IS zou aanmaken (op 0 geinitaliseerd standaard) en vervolgens die IS =1 zou herevalueren naar een boolean. Maar Qbasic weer es uit de kast geslingerd en

code:

a=1
select case a
   case is=0: print "0"
   case is=1: print "1"
   case is=2: print "2"
end select

kakt hier netjes 1 uit. Bizar he!?

[roelio]

Oisyn: Ik denk dat Stevey Balmer bedacht heeft dat het CASE IS = en CASE IS > etc. moet zijn, tsja dat is dan twee keer "is", fijne syntaxmannen hebben ze daar

[Onno]

Op zondag 16 december 2001 01:12 schreef Yarvieh het volgende:
Bizar genoeg mag het wel en werkt het ook nog.

Niet echt bizar.

De syntax is "CASE <expressie>" of "CASE IS <operator> <expressie>". Dat was in QB al zo.

[Verwijderd]

Op zondag 16 december 2001 01:22 schreef Onno het volgende:
Dat was in QB al zo.

Ik had 'n retro bui en heb zelfs QB gebruikt

[tomato]

Onno: De syntax is "CASE <expressie>" of "CASE IS <operator> <expressie>". Dat was in QB al zo.

En zo is het ook in VB.NET nog

[roelio]

Blijft leuk dat QB hier nog steeds langskomt

[.oisyn]

ja ik lees het ook net

en, behalve dat het erin zit, er ook nog mensen zijn die het helemaal in gaan typen....

[Verwijderd]

Als je nog verdere hulp nodig bent zie ik je wel op mijn icq

[Krankenstein]

Thnx allemaal

Ik was denk ik teveel in Ti83 basic aan het denken
Daar is het namelijk min of meer a+1=a ipv a=a+1 als je begrijpt wat ik bedoel