Hallo zusammen!
Um meinen Programmcode übersichtlicher zu gestalten, habe ich einige Subroutinen in separate Dateien ausgelagert.
Diese Dateien binde ich dann nur mit einem $include ein.
Diese Maßnahme spart natürlich keinen Programmcode ein, nur das Hauptprogramm wird um einiges übersichtlicher.
Meine Versuche in diese Richtung haben auch ein positives Ergebnis zu Tage gebracht.....
Siehe hier:
Allerdings bin ich mir nicht sicher, ob ich das Aufrufen der Routinen nicht auch anders lösen kann.
Hier mal ein Beispiel dazu:
Im Programm gibt es nun die Anwsieung zur Subroutine "Rahmen" zu springen.
Code:
Position = "17,37,110,118,1"
Farbe = Schwarz
Gosub Rahmen
Die Subroutine "Rahmen" sieht nun wie folgt aus:
Code:
Rahmen:
'Box oder Rahmen in RGB
Gosub Farben
Gosub Positionen
$include "_rahmen.bas"
Return
Die Datei "_rahmen.bas" enthält dann folgendes:
Code:
$nocompile
'Box oder Rahmen in RGB
Print #1 , "_Rahmen"
'$include "_farben.bas"
'$include "_positionen.bas"
Bitwait Display_busy , Set
Reset Display_cs ' Chipselect Display Module
Waitus 2
I = &H21 ' DrawRectRGB
Spiout I , 1
Bitwait Display_busy , Reset
Spiout X1 , 1 ' Send Parameter
Spiout Y1 , 1
Spiout X2 , 1
Spiout Y2 , 1
Spiout Red , 1
Spiout Green , 1
Spiout Blue , 1
Spiout Fillmode , 1
Bitwait Display_busy , Set
Set Display_cs ' Chipselect Display Module
Waitus 1
Soweit klappt das auch alles bestens.
Noch ein Beispiel:
Wie ihr oben aber sehen könnt, würde ich gern "_farben.bas" und "_positionen.bas" innerhalb der "_rahmen.bas" gleich mit aufrufen.
In einigen Tests mit $include hat auch das auch funktioniert, leider geht es bei meinem Programm nicht.
Muss ich ggf. innerhalb der Dateien (_farben.bas & _positionen.bas) ein "Return" einsetzen, damit ich zur Ausgangsdatei zurück komme?
Irgendwie bleibt mein Programm sonst hängen.
Gruß,
Cassio