Keskustelu: Ohjelmointikysymykset: Ilisko mitään valikko koodia? *QB*

Löytyiskö "varastosta" mitään valikko koodia josta sais helposti valita: pelaa, help, ym ym?

Tässä on yksi, mutta sitä en ole itse tehnyt, vaan se on BootSector 4:n tuotantoa. Ihan toimiva ja yksinkertainen silti pitäisi olla:

' Perus nuolinäppäinvalikko.
' Toimii: nuolet ylös ja alas sekä enter.
' Mahdollisimman selkeä, paljoon optimointivaraa.

CLS
teksti1$ = " Nuolinäppäinvalikko "
teksti2$ = " tehnyt BootSector4, "
teksti3$ = " Suomen Parhaat Basic-ohjelmoijat "
PRINT "Paina ENTER lopettaaksesi"
ARVO = 1
ALKU:
SELECT CASE ARVO
CASE 1
COLOR 15, 1: LOCATE 10, 25: PRINT teksti1$
COLOR 7, 0: LOCATE 12, 25: PRINT teksti2$
COLOR 7, 0: LOCATE 14, 25: PRINT teksti3$

CASE 2
COLOR 7, 0: LOCATE 10, 25: PRINT teksti1$
COLOR 15, 1: LOCATE 12, 25: PRINT teksti2$
COLOR 7, 0: LOCATE 14, 25: PRINT teksti3$

CASE 3
COLOR 7, 0: LOCATE 10, 25: PRINT teksti1$
COLOR 7, 0: LOCATE 12, 25: PRINT teksti2$
COLOR 15, 1: LOCATE 14, 25: PRINT teksti3$

CASE ELSE
END SELECT

DO
X$ = INKEY$
SELECT CASE X$
CASE CHR$(13): GOTO loppu
CASE CHR$(0) + "H"
ARVO = ARVO - 1
IF ARVO = 0 THEN ARVO = 1
GOTO ALKU
CASE CHR$(0) + "P"
ARVO = ARVO + 1
IF ARVO = 4 THEN ARVO = 3
GOTO ALKU
CASE ELSE
END SELECT
LOOP

loppu:
COLOR 7, 0
CLS
PRINT "Valitsit kohdan ";
COLOR 15, 1
SELECT CASE ARVO
CASE 1
PRINT teksti1$
CASE 2
PRINT teksti2$
CASE 3
PRINT teksti3$
CASE ELSE
END SELECT

BootSector4 web osote?

Miten voi määrätä mihin se menee?

Bootsector 4 lopetti tietääkseni jo vuosia sitten, mutta MBnetistä löytyy edellinen pari zip-paketillista hyviä vinkkejä.

Millä hakusanalla niitä "hyviä vinkkejä" voi ettiä?

Tietenkin Bootsector 4!