Das deutsche QBasic- und FreeBASIC-Forum

[Stueber]

Einfach const beim Datentyp mit angeben:

[nemored]

Oha, diese Verwendung von CONST kannte ich noch nicht. Werde ich mir gleich mal vormerken.
_________________
Deine Chance beträgt 1:1000. Also musst du folgendes tun: Vergiss die 1000 und konzentriere dich auf die 1.

[28398]

Ich dachte das wäre noch gar nicht implementiert? Erst vor wenigen Wochen habe ich im FBEXT Code gestöbert. Da Stand auch öfters mal ein Const an Parametern, aber immer mit dem Vermerk, dass das erst in 0.21 implementiert werden (soll).

[nemored]

Mit fbc 0.20 funktioniert es jedenfalls.
_________________
Deine Chance beträgt 1:1000. Also musst du folgendes tun: Vergiss die 1000 und konzentriere dich auf die 1.

[hunggar]

Hallo Freunde,
zu dem ursprünglichen Thema, nämlich Daten in Form von Arrays an eine SUB zu übergeben, habe ich folgendes Problem:

Test.bas(1) error 56: Illegal specification, at parameter 1 (a) of Testsub() in 'DECLARE SUB Testsub (a(1 TO 100) AS INTEGER, b AS INTEGER)'
Test.bas(5) error 56: Illegal specification, at parameter 1 (a) of Testsub() in 'SUB Testsub (a(1 TO 100) AS INTEGER, b AS INTEGER)'

Programmiert habe ich Folgendes:

1 DECLARE SUB Testsub (a(1 TO 100) AS INTEGER, b AS INTEGER)
2 DIM a(1 TO 100) AS INTEGER
3 DIM b AS INTEGER
4 End
--------------------------------------------
5 SUB Testsub (a(1 TO 100) AS INTEGER, b AS INTEGER)
6 END SUB


Mit der Variablen b gibts keine Probleme, aber mit dem Array a(1 to100)
Gibts eine einfache Lösung ?


Vielen Dank,
HungGar

[Sebastian]

Hallo!

[hunggar]

Wow, danke,
hab´s probiert und siehe da: Es klappt !!



Nun hab ich mit meiner SUB noch zwei (bzw drei) Fehlermeldungen:

Test.bas(8 ) error 159: Invalid assignment/conversion in 'a = INKEY()'
Test.bas(9) error 21: Type mismatch, found 'THEN' in 'IF a = "a" THEN PRINT "Das war die Taste a": b = 2 : GOTO Anker'
Test.bas(10) error 21: Type mismatch, found 'AND' in 'IF a = "b" AND b = 2 THEN PRINT "Das war die Taste b" : GOTO Anker2'

Geschrieben hab ich Folgendes:

DECLARE SUB Testsub (a AS INTEGER, b AS INTEGER)
DIM a AS INTEGER
DIM b AS INTEGER
b = 1
End

-------------------------------------------------
SUB Testsub (a AS INTEGER, b AS INTEGER)

Anker:
a = INKEY()
IF a = "a" THEN PRINT "Das war die Taste a": b = 2 : GOTO Anker
IF a = "b" AND b = 2 THEN PRINT "Das war die Taste b" : GOTO Anker2
GOTO Anker

Anker2:
END SUB


Wenn ich den Code zwischen "Anker:" und "GOTO Anker" im eigentlichen Programm schreibe, gibts damit keine Probleme.
In der SUB dagegen bekomme ich oben genannte Fehlermeldungen.

Ich programmiere sehr gern mit FB, bin aber weiß Gott keine große Leuchte,
und ich kann mir nicht erklären, warum das nicht funktioniert.



Bedanke mich bereits im Voraus.

HungGar

[Sebastian]

Auf das Springen mit GOTO sollte man der Übersichtlichkeit halber lieber verzichten.
Außerdem liefert INKEY eine Zeichenkette (STRING) zurück und keinen INTEGER. Schließlich kann man ja auch ein Fragezeichen oder ein y eingeben und nicht nur 0 bis 9. Das führt zu der ersten Fehlermeldung.
Mit den IF-Abfragen wird dann mit den Zeichenketten "a" und "b" verglichen, obwohl a und b ja als INTEGER auf Ganzzahlen festgelegt sind.

Mit folgendem Code funktioniert es also:

[hunggar]

räusper ... peinlich ...

ok

Danke für die ausführliche Erklärung.
Ich habe das Problem nun gelöst.

Dass ich unorthodox programmiere, weiß ich eigentlich,
liegt bestimmt daran, dass mir das niemand beigebracht hat,
sondern ich es mir selbst soweit erarbeitet habe.


Nochmals vielen Dank,
jetzt funktioniert alles.