Vorheriges Thema anzeigen :: Nächstes Thema anzeigen |
Autor |
Nachricht |
Eastler_dart
Anmeldungsdatum: 25.09.2005 Beiträge: 177 Wohnort: Baden-Würtemberg + Sachsen
|
Verfasst am: 09.10.2005, 00:39 Titel: Call/Goto/Gosub aus nem Array-Eintrag? |
|
|
glaub, ich habs schonmal gelesen, weiß nur nicht mehr,
wie die das dort angekeilt hatten
Mal bildlich hier gesprochen:
DIM Farbsub$(2)
Farbsub$(0)="RotMalen"
Farbsub$(1)="BlauMalen"
Farbsub$(2)="GruenMalen"
Beispielhaft vereinfachte Anwenderabfrage:
input "Sie sehen drei nummerierte Beispiele, welches nehmen Sie?", B%
und nun das Problem:
CALL inhaltvon(Farbsub$(B%)) ' wirklich bildlich, nicht so abtippen
zur Vollständigkeit noch:
SUB RotMalen()
........
END SUB
SUB BlauMalen()
........
END SUB
SUB GruenMalen()
........
END SUB
Ihr wißt doch bestimmt, wie das geht, oder? _________________ Kaum macht mans richtig, schon geht's |
|
Nach oben |
|
|
mjs
Anmeldungsdatum: 26.09.2005 Beiträge: 75 Wohnort: Adelheidsdorf
|
Verfasst am: 09.10.2005, 00:47 Titel: |
|
|
Für so etwas sind Funktions-Zeiger geeignet.
Beispiel:
Code: | type PaintFn as sub()
dim PaintFunctions(0 to 2) as PaintFn
sub MaleRot
print "MaleRot"
end sub
sub MaleGruen
print "MaleGruen"
end sub
sub MaleBlau
print "MaleBlau"
end sub
PaintFunctions(0) = @MaleRot
PaintFunctions(1) = @MaleGruen
PaintFunctions(2) = @MaleBlau
input "Welche Funktion: ",b%
PaintFunctions(b%)() |
Gruß,
Mark |
|
Nach oben |
|
|
Eastler_dart
Anmeldungsdatum: 25.09.2005 Beiträge: 177 Wohnort: Baden-Würtemberg + Sachsen
|
Verfasst am: 09.10.2005, 00:58 Titel: |
|
|
na is ja super, und super schnell, dann kanns ja weiter gehen
Geht sowas eigenlich auch mit Goto/Gosub?
SUB MaleAlleFarben(uebergabe)
GOSUB InhaltVon(uebergabe)
maleGruen:
Print "Gruen"
Return
maleBlau:
Print "Blau"
Return
END SUB
das wird wohl kaum funzen, oder? _________________ Kaum macht mans richtig, schon geht's |
|
Nach oben |
|
|
d.j.peters Gast
|
Verfasst am: 09.10.2005, 02:14 Titel: |
|
|
Eastler_dart hat Folgendes geschrieben: | ...Geht sowas eigenlich auch mit Goto/Gosub?... |
Ja mit On GOTO/GOSUB aber mit func ptr is es eleganter und vielseitiger.
Hier ist ein Beispiel.
ON GOSUB
Grüsse Joshy |
|
Nach oben |
|
|
Eastler_dart
Anmeldungsdatum: 25.09.2005 Beiträge: 177 Wohnort: Baden-Würtemberg + Sachsen
|
Verfasst am: 09.10.2005, 10:49 Titel: |
|
|
Is ja Irre
jetzt wo ichs lese, merk ich, das hatte ich früher schon mal so verwendet (on gosub)
Wenn ich so weitermach, kann ich Basic bald wieder auswendig
bei Freebasic gibts scheinbar gar nichts, was es nicht gibt.
merci beaucoup für eure Hilfen, streng mich an, daß ne Belohnung bald hier reinkommt
euer Eastler _________________ Kaum macht mans richtig, schon geht's |
|
Nach oben |
|
|
Mecki Igel
Anmeldungsdatum: 10.09.2004 Beiträge: 985 Wohnort: Niederbayern
|
|
Nach oben |
|
|
|