Keskustelu: Ohjelmointikysymykset: (QB) return (VBA)

miten saan ohjelman palaamaan alkuun esim. kun ohjelma on tälläinen.

DIM passu AS STRING
PRINT "give password"
INPUT ":", passu
IF passu = "tekojalka" THEN
PRINT "correct"
ELSE
PRINT "wrong password, try again"

ja tuosta palaamaan takaisin.

en tiedä muuta keinoa kuin GOTO:n

DIM passu AS STRING
PRINT "give password"
INPUT ":", passu
IF passu = "tekojalka" THEN
  PRINT "correct"
  GOTO 20
ELSE
  PRINT "wrong password, try again"
END IF
GOTO 10
20
PRINT "Ohjelma jatkuu"

Ei mitään gotoja!

DIM passu AS STRING
DO
PRINT "give password"
INPUT ":", passu
IF passu = "tekojalka" THEN
PRINT "correct": EXIT DO
ELSE
PRINT "wrong password, try again"
LOOP

ei toiminut mdprogy tuolla koodilla
valittaa
LOOP without DO

..johtuu siitä, että koodista puuttuu END IF viimeisen PRINT:n jälkeiseltä riviltä.

DIM passu AS STRING
DO
PRINT "give password"
INPUT ":", passu
IF passu = "tekojalka" THEN
PRINT "correct": EXIT DO
ELSE
PRINT "wrong password, try again"
LOOP
END IF

ei toimi tuollakaan .... sama valitus

Ei se END IF tuohon kohtaan tule vaan PRINTtin ala puolelle EI LOOPin.

Eli siis END IF kuuluu laittaa - aivan kuten sqwiik sanoi - viimeisen PRINT-rivin jälkeen. Kannattaa sisentää koodi, niin se muuttuu paljon selkeämmäksi.

DIM passu AS STRING
DO
   PRINT "give password"
   INPUT ":", passu
   IF passu = "tekojalka" THEN
      PRINT "correct"
      EXIT DO
   ELSE
      PRINT "wrong password, try again"
   END IF
LOOP

DIM passu AS STRING
-> DO <-

valittaa tuosta... edelleen

Mitä se siitä muka valittaa?

do without loop

Kai sulla nyt on toi Laaksosen säätö?

nyt toimii.. mutta
jos kirjoittaa väärin salasanan ei sano sitä "Try again" juttua

Oletko kenties sokea kyllä se minulla tuli. Tai sitten olet taas jossain mokannut.

Kirjoititko koodin käsin vai kopioitko notepadiin? Jos kirjoittaa käsin saattaa tulla joku tommonen. Mulla ainakin pelasi.

jos DO ja LOOP on silmukka niin pitää sinne sisälle tietenkin laittaa kaikki mitä silmukka sisältää, ja esim. Select Case - ja IF - yhteyksissä kaikki end. ja muut pitää olla ennen looppia eikä jälkeen

Jos tuo ei toimi, niin sitten sun QB-kääntäjässä on jotain pahasti pielessä. Siis: Kopioi tuo teksti Notepadiin ja tallenna vaikka nimellä ohjelma.bas. Sitten voit avata sen QB:llä.

mutta jos pistän alkuun

CLS

niin ei sano

Laitoit sen varmaan DO:n jälkeen laita se enemminkin sitä ennen.

Jos CLS on DO:n jälkeen, aina silmukan mennessä alkuun ruutu tyhjennetään, ja sinun pitää olla melkoinen yli-ihminen nähdäksesi ruudulla vilahtavan tekstin.

CLS tulisi olla INPUTin jälkeen.

ok