Bascom - Unser Einsteigerkurs » [BEK07] Programm strukturieren

Hallo,

entschuldigt bitte, daß ich Euch so lang hab warten lassen. Leider passieren Dinge, die man nicht beeinflußen kann. Jetzt hat´s mich (mal wieder) erwischt gehabt, für solche Sachen hier war leider keine Zeit mehr übrig. Aber mittlerweile hat sich die Lage wieder gebessert und wir können weiter machen.

Bevor wir ans Thema "Timer" gehen, sollten wir dieses Thema unbedingt noch durchkauen.

In Bascom hat man paar Möglichkeiten, ein bischen Struktur in den Code zu bringen. Das erleichtert einem das Leben ungemein. Z.B. bei der Fehlersuche, oder wenn man bestimmte Programmteile wiederverwenden möchte, empfiehlt es sich, das Programm modular aufzubauen.

Die schlechteste Möglichkeit ist hierbei der Befehl "Goto". Mit diesem Befehl wird der Programmablauf auf eine feste Sprungmarke umgeleitet.
Der Code wird aber dadurch sehr verschachtelt, eine Wartung oder spätere Änderung wird dadurch sehr schwer bis unmöglich. Bitte verwendet diesen Befehl am Besten gar nicht, oder nur sehr sehr sparsam.

Ein besserer Stil ist, das Programm in mehrere Unterprogramme aufzubauen. Das Programm wird dadurch viel leichter zu lesen und verstehen. In diese Unterprogramme, kann man z.B. wiederkehrende Befehlsfolgen oder auch ganze Programmteile schreiben.
Hier mal ein Beispiel:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
 
$regfile = "m8def.dat"                                      'Mikrocontroller ist Atmega 8
$crystal = 8000000                                          'Arbeitsfrequenz 8 MHz
$hwstack = 40                                               'Hardware-Stack
$swstack = 32                                               'Software-Stack
$framesize = 60                                             'Frame
$baud = 19200                                               'serielle Übertragungsgeschwindigkeit
 
'*** Ein/Ausgänge deklarieren **************************************************
Config Portb = Output                                       'PortB als Ausgang
Led1 Alias Portb.0                                          'Ausgang PortB.0 heitßt ab jetzt "Led1"
Led2 Alias Portb.1                                          'Ausgang PortB.1 heitßt ab jetzt "Led2"
Led3 Alias Portb.2                                          'Ausgang PortB.2 heitßt ab jetzt "Led3"
 
'*** Variablen definieren ******************************************************
Dim Zaehler As Byte
 
'*** Hauptschleife *************************************************************
Portb.3 = 1                                                 'LED an PB3 aus
 
Do                                                          'Beginn Hauptschleife
 
For Zaehler = 1 To 5
   Gosub Ausgaenge_setzen
Next Zaehler
 
Loop                                                        'Ende Hauptschleife
 
End
 

'*** Subs **********************************************************************
Ausgaenge_setzen:
 
   Led1 = 1
   Led2 = 1
   Led3 = 1
 
   If Zaehler = 1 Then
      Led1 = 0
   Elseif Zaehler = 2 Then
      Led2 = 0
   Else
      Led3 = 0
   End If
 
   Wait 1
 
Return
 

ist zwar ein relativ sinnfreies Beispiel, aber ihr solltet sehen, wie es abläuft:
Durch das "Gosub Ausgaenge_setzen" leiten wir den Programmablauf um. Damit wird direkt auf die Sprungmarke "Ausgaenge_setzen" gesprungen. (Achtet auf den Doppelpunkt hinter der Sprungmarke, beim Gosub darf es nicht dabeistehen.)
Jetzt wird der Code zwischen der Sprungmarke und dem "Return" abgearbeitet. Hier gibt´s nichts weiter zu beachten, alle Variablen die oben gegolten haben, gibt´s auch hier. Sie gelten also "global".
Nach dem "Return" wird wieder direkt hinter dem Gosub weitergemacht, in unserem Beispiel das "Next Zaehler".

Noch einen neuen Befehl hab ich Euch untergejubelt. Bei der Definition der Ein/Ausgänge habe ich das "Alias" verwendet:

1
 
Led1 Alias Portb.0

Wir geben dadurch dem Ausgang PortB.0 einen Namen. Wir können diesen im Code genauso verwenden, als würden wir PortB.0 schreiben. Für uns wird´s dadurch aber viel leserlicher. Ein späteres Ändern, z.B. wenn LED1 mal einen anderen Ausgang kommen soll, wird viel einfacher, weil es nur einmal geändert werden muß.

Bascom bietet noch 2 weitere Möglichkeiten, den Code zu strukturieren: "Sub" und "Function". Darauf geh ich mal später drauf ein, sind jetzt noch nicht passend.

Gruß
Gerhard

-------------------------------------------------------------------------------------------
hier mein aktueller TinyKatalog

Bitte geben Sie einen Grund für die Verwarnung an