Ledmodul med 18 st led, hur koppla inviduell strömbegr.?

[sodjan]

Får du något fel nu ?

[whynot]

Det som hänt nu är att det blev en ny rad först och det ska det bli automatiskt har jag sett där står:
DECLARE SUB DELAY () sen när jag försöker göra en EXE fil kommer det upp Duplicate definition och markering på DELAY i raden SUB DELAY

[perra_e]

Jag hade skrivigt så här:

Kod: Markera allt

DO
OUT &H378, 1 : DELAY:OUT &H378,0:DELAY 
OUT &H378, 0 : DELAY:OUT &H378,0:DELAY
OUT &H378, 0 : DELAY:OUT &H378,0:DELAY
OUT &H378, 1 : DELAY:OUT &H378,0:DELAY
OUT &H378, 0 : DELAY:OUT &H378,0:DELAY
OUT &H378, 0 : DELAY:OUT &H378,0:DELAY
OUT &H378, 1 : DELAY:OUT &H378,0:DELAY
OUT &H378, 0 : DELAY:OUT &H378,0:DELAY
OUT &H378, 0 : DELAY:OUT &H378,0:DELAY
OUT &H378, 0 : DELAY:OUT &H378,0:DELAY

LOOP
END

Sub DELAY
FOR A=0 to 30
NEXT A
END SUB

Det borde fungera.

[whynot]

Det som händer är följande när försöker göra EXE fil:
Blir en ny rad först, DECLARE SUB DELAY ()
sen kommer det upp Duplicate definition och markering på DELAY i SUB DELAY
så något är fel fortfarande.
Har sökt på det men finer inget samband
http://support.microsoft.com/kb/32149

[perra_e]

Testa att ta bort "DECLARE SUB DELAY ()"
Jag har aldrig varit med om att man behöver deklarera en subrutin i Basic. Unikt för QBASIC i så fall.
Har du testat mitt förslag?

[whynot]

Jag har testat ditt förslag och det blir Duplicate definition så fort jag har en SUB rutin men med bara DO och out och loop END så går det verkar vara någon inställning.

Här står det att det declareras automatiskt
http://skolwebb.orebro.se/users/lasam23 ... basic6.pdf

[sodjan]

Har du en län till var du hittade QB ?

Så vitt jag förstår så ska inte DELARE vara något problem.
Det är bara för att tala om för QB att SUB'en finns (men ligger senare),
om jag fattar det rätt. Ungefär som en funktionsdefinition i en .h fil i C.

[sodjan]

Hittade en QB och körde in din kod.
Fungerar OK, men ska vara "CALL DELAY"...
Du får läsa det du själv länkade till lite nogrannare.

[whynot]

Roligt att Du får det att fungera men inte jag Du har inte lust att ändra där det är fel så CALL hamnar på rätt ställe för jag få bara Duplicate definition.

DECLARE SUB DELAY ()
Sub DELAY
FOR A=0 to 30
NEXT A
END SUB

DO
OUT &H378, 1 : DELAY:OUT &H378, 0: DELAY
OUT &H378, 0 : DELAY:OUT &H378, 0: DELAY
OUT &H378, 0 : DELAY:OUT &H378, 0: DELAY
OUT &H378, 1 : DELAY:OUT &H378, 0: DELAY
OUT &H378, 0 : DELAY:OUT &H378, 0: DELAY
OUT &H378, 0 : DELAY:OUT &H378, 0: DELAY
OUT &H378, 1 : DELAY:OUT &H378, 0: DELAY
OUT &H378, 0 : DELAY:OUT &H378, 0: DELAY
OUT &H378, 0 : DELAY:OUT &H378, 0: DELAY
OUT &H378, 0 : DELAY:OUT &H378, 0: DELAY

LOOP
END

[E85]

OUT &H378, 1 : CALL DELAY:OUT &H378, 0: CALL DELAY

och SUB, inte Sub.

[whynot]

Det blir stora bokstäver bara här det stod fel men det ska till något mer för att fungera.
Fortfarande Duplicate definition.
Skulle gärna vilja se Sodjans program eftersom det fungerar.

[E85]

edit: Ta bort DECLARE SUB-raden eller så har du missat att ändra till CALL DELAY på nåt ställe möjligtvis.

[whynot]

Något annat fel, hela tiden samma fel som kommer upp när det finns en SUB i programmet.
Någon av dom 6207 medlemmarna här hoppas jag kan säga vad felet är,, Sodjan har tydligen hittat det men inte sett hans än. Det är ju program på max 10 rader.

[E85]

Om du provar nåt enkelt, t.ex det här?

Kod: Markera allt

SUB Showtext
PRINT "Text"
END SUB

CLS
Showtext
END

Jag vet inte om det kanske är skillnader mellan versioner av QBasic som ställer till det? Vilken version har du?

[E85]

Jo nu har jag laddat ner QBasic och provat själv. Det funkade inte riktigt som jag trodde. Den lägger varje Sub i ett eget fönster så om du skriver "SUB delay" och trycker enter kommer det upp i en egen ruta där du skriver in din SUB. För att komma tillbaks till main-koden trycker du F2 och väljer den högsta i "trädet". Funkade för mig.