Unterprogramme aufrufen mit case

    Diese Seite verwendet Cookies. Durch die Nutzung unserer Seite erklären Sie sich damit einverstanden, dass wir Cookies setzen. Weitere Informationen

    Aufgrund technischer Veränderungen ist der Mailverkehr innerhalb des Forums (Private Nachrichten) nur noch eingeschränkt möglich. Die Einschränkung ist notwendig, um zusätzliche Betriebskosten für das Forum zu vermeiden. Näheres zu den Hintergründen im Thread "Aktuelles zum Forum".Wir bitten um Verständnis.

    Hinweis kann nach Kenntnisnahme deaktiviert werden!

    • Das wird es ja auch. In den Fuses steht bei Dir:

      Takt = 8 MHz interner Oszillator
      DIV8 = 1

      d.h. die Frequenz des internen Oszillators wird durch den aktivierten Teiler DIV8 auf 1MHz heruntergeteilt.
      Diese Frequenz mußt Du dem Compiler per $crystal=1000000 mitteilen, damit er bei freuenzabhängigen Befehlen wie zum Beipsiel wait, waitms oder waitus die richtigen internen Berechnungen ausführt.
      Wem ich nicht ausdrücklich widerspreche, der darf das bis auf Widerruf als "Gefällt mir" verstehen.
    • @Thomas1964
      Ich empfehle Dir dringend mal 2 Bücher zu studieren
      1. Grundlagen zum AVR, z.Bsp. stefanfrings.de/mikrocontroller_buch/ (ist sogar kostenlos zum Download)
      2. Bascom, z.Bp. "Einfacher Einstieg in die Elektronik mit AVR-Mikrocontrollern und BASCOM" von Stefan Hofmann, ist zwar nicht billig aber jeden Cent wert :)


      oder auch andere Literatur. Mir scheint mit dem Englischen bist Du nicht auf gutem Fuß sodaß Dir die Datenblätter und Bascomhilfe nicht besonders zugetan sind.

      Ist ein gut gemeinter Rat, denn Deine Lücken sind ziemlich groß.

      Wem ich nicht ausdrücklich widerspreche, der darf das bis auf Widerruf als "Gefällt mir" verstehen.
    • Hallo six1,

      beim Aufbau der Baugruppe ist mir aufgefallen,
      das die LED´s immer ein und ausgeschaltet werden.
      Ist ja anscheinend so, das das Programm in das Unterprogramm
      springt, die LED an macht, und dann wieder zurückspringt usw.

      Kann man in dem Unterprogramm auch abfragen , ob der Zustand der if Anweisung sich noch nicht geändert hat.
      Oder kann man in dem Unterprogramm bleiben solange sich der Zustand sich nicht geändert hat.

      Gruß Thomas
    • Ich weiß nicht, was du da genau vorhast, aber ich denke, der Debounce Befehl könnte dir vielleicht weiter helfen.

      Beispielhafter Code:

      BASCOM-Quellcode

      1. 'Eingang 1
      2. Config Portd.2 = Input
      3. Portd.2 = 1 'Pullup
      4. Eingang_taster1 Alias Pind.2
      5. do
      6. Debounce Eingang_taster1 , 0 , Taster1 , Sub
      7. ...
      8. loop
      9. end
      10. Taster1:
      11. ' hier die Anweisungen einfügen
      12. Return
      Alles anzeigen
      Code first, think later - Natural programmer :D
    • @Thomas1964
      Insgesamt hast du ja 8 mögliche Eingangskombinationen, auswerten tust Du nur 7, was passiert wenn die 8. Kombination eingegeben wird? Jetzt wird dadurch die komplette If-Struktur übersprungen und alle einstellten Zustände bleiben wie sie sind. Ist das so gewollt? Deshalb ist es sinnvoll den Else-Zweig auch zu belegen, damit alle nicht aufgeführten Kombinationen zu einem definierten Zustand führen (z.Bsp. alle LEDs AUS).

      @sixt1
      Debounce ist immer Gut, aber hier werden die Eingänge wohl externe Signale oder Schalter sein, sonst müßte Thomas ja 3 Daumen haben. a_42_02cc30b2
      Wem ich nicht ausdrücklich widerspreche, der darf das bis auf Widerruf als "Gefällt mir" verstehen.
    • Hallo hasta, Hallo six1,

      wie gesagt, der fehlende Zustand aller 3 Eingänge = 0 hat gefehlt.
      Jetzt läuft es rund.
      Die Leiterplatte ist für unseren Bestückungsautomaten zur Anzeige ob
      die Maschine in Ordung ist, oder Teile fehlen.
      Die alte Signalsäule ist defekt, und als Ersatzteil viel zu teuer.

      Anbei der Code:

      Quellcode

      1. '****************************
      2. ' RGB MB
      3. '****************************
      4. $regfile = "m88def.dat"
      5. $hwstack = 40
      6. $swstack = 16
      7. $framesize = 32
      8. $crystal =1000000
      9. Config PortD = Output
      10. Config PortB = Output
      11. Config PINC.0 = Input
      12. Config PINc.1 = Input
      13. Config Pinc.2 = Input
      14. RMOD1 Alias Portd.0
      15. BMOD1 Alias Portd.1
      16. GMOD1 Alias Portd.2
      17. RMOD2 Alias Portd.3
      18. BMOD2 Alias Portd.4
      19. GMOD2 Alias Portd.5
      20. RMOD3 Alias Portd.7
      21. BMOD3 Alias Portd.6
      22. GMOD3 Alias Portb.0
      23. Eingang1 Alias PINC.0
      24. Eingang2 Alias PINC.1
      25. Eingang3 Alias PINC.2
      26. RMOD1 = 0
      27. RMOD2 = 0
      28. RMOD3 = 0
      29. GMOD1 = 0
      30. GMOD2 = 0
      31. GMOD3 = 0
      32. BMOD1 = 0
      33. BMOD2 = 0
      34. BMOD3 = 0
      35. Do
      36. If Eingang1 = 1 and Eingang2 = 0 and Eingang3 = 0 then:gosub LED1
      37. elseIf Eingang1 = 0 and Eingang2 = 1 and Eingang3 = 0 then:gosub LED2
      38. elseIf Eingang1 = 1 and Eingang2 = 1 and Eingang3 = 0 then:gosub LED3
      39. elseIf Eingang1 = 1 and Eingang2 = 0 and Eingang3 = 1 then:gosub LED4
      40. elseIf Eingang1 = 0 and Eingang2 = 1 and Eingang3 = 1 then:gosub LED5
      41. elseIf Eingang1 = 1 and Eingang2 = 1 and Eingang3 = 1 then:gosub LED6
      42. elseIf Eingang1 = 0 and Eingang2 = 0 and Eingang3 = 0 then:gosub LED7
      43. end if
      44. loop
      45. end
      46. LED1:
      47. RMOD3 = 1
      48. RMOD1 = 1
      49. RMOD2 = 1
      50. GMOD1 = 0
      51. GMOD2 = 0
      52. GMOD3 = 0
      53. BMOD1 = 0
      54. BMOD2 = 0
      55. BMOD3 = 0
      56. Return
      57. LED2:
      58. GMOD2 = 1
      59. RMOD1 = 1
      60. RMOD2 = 1
      61. RMOD3 = 1
      62. GMOD1 = 1
      63. GMOD3 = 1
      64. BMOD1 = 0
      65. BMOD2 = 0
      66. BMOD3 = 0
      67. waitms 1
      68. GMOD2 = 0
      69. RMOD1 = 1
      70. RMOD2 = 1
      71. RMOD3 = 1
      72. GMOD1 = 0
      73. GMOD3 = 0
      74. BMOD1 = 0
      75. BMOD2 = 0
      76. BMOD3 = 0
      77. waitms 2
      78. Return
      79. LED3:
      80. GMOD3 = 0
      81. RMOD1 = 0
      82. RMOD2 = 0
      83. RMOD3 = 0
      84. GMOD1 = 1
      85. GMOD2 = 1
      86. GMOD3 = 1
      87. BMOD1 = 0
      88. BMOD2 = 0
      89. BMOD3 = 0
      90. Return
      91. LED4:
      92. RMOD1 = 1
      93. RMOD2 = 1
      94. RMOD3 = 1
      95. GMOD1 = 0
      96. GMOD2 = 0
      97. GMOD3 = 0
      98. BMOD1 = 0
      99. BMOD2 = 0
      100. BMOD3 = 0
      101. waitms 500
      102. RMOD1 = 0
      103. RMOD2 = 0
      104. RMOD3 = 0
      105. GMOD1 = 0
      106. GMOD2 = 0
      107. GMOD3 = 0
      108. BMOD1 = 0
      109. BMOD2 = 0
      110. BMOD3 = 0
      111. waitms 300
      112. Return
      113. LED5:
      114. GMOD2 = 1
      115. RMOD1 = 1
      116. RMOD2 = 1
      117. RMOD3 = 1
      118. GMOD1 = 1
      119. GMOD3 = 1
      120. BMOD1 = 0
      121. BMOD2 = 0
      122. BMOD3 = 0
      123. waitms 500
      124. GMOD2 = 0
      125. RMOD1 = 0
      126. RMOD2 = 0
      127. RMOD3 = 0
      128. GMOD1 = 0
      129. GMOD3 = 0
      130. BMOD1 = 0
      131. BMOD2 = 0
      132. BMOD3 = 0
      133. waitms 300
      134. Return
      135. LED6:
      136. GMOD2 = 1
      137. RMOD1 = 0
      138. RMOD2 = 0
      139. RMOD3 = 0
      140. GMOD1 = 1
      141. GMOD3 = 1
      142. BMOD1 = 0
      143. BMOD2 = 0
      144. BMOD3 = 0
      145. waitms 500
      146. GMOD2 = 0
      147. RMOD1 = 0
      148. RMOD2 = 0
      149. RMOD3 = 0
      150. GMOD1 = 0
      151. GMOD3 = 0
      152. BMOD1 = 0
      153. BMOD2 = 0
      154. BMOD3 = 0
      155. waitms 300
      156. Return
      157. LED7:
      158. GMOD2 = 0
      159. RMOD1 = 0
      160. RMOD2 = 0
      161. RMOD3 = 0
      162. GMOD1 = 0
      163. GMOD3 = 0
      164. BMOD1 = 0
      165. BMOD2 = 0
      166. BMOD3 = 0
      167. Return
      Alles anzeigen
      Dateien
    • Die Abfrage ob sich was geändert hat würde ich so machen

      dim Eingang_alt as Byte
      dim Eingang as byte


      Eingang.0 alias Pinc.0
      Eingang.1 alias Pinc.1
      Eingang.2 alias Pinc.2

      eingang_alt = 0



      do
      ...

      if eingang_alt <> Eingang then
      eingang_alt = eingang
      ... 'Deine Abfrage mit Aufruf der UP oder ganz rauswerfen und die select case - Anweisung wie in Post#17 von Dieter einbauen
      end if

      loop

      Noch was zur Vereinfachung des Codes:
      Zu Beginn der Do-Loop- Schleife setzt Du alle Variablen =0 --> OK
      In den UP setzt Du alle Neu, egal ob =0 oder =1 --> Du brauchst aber nur die zu setzen die 1 werden sollen, die anderen ändern sich ja nicht. Es wird einfach übersichtlicher.
      Wem ich nicht ausdrücklich widerspreche, der darf das bis auf Widerruf als "Gefällt mir" verstehen.
    • Meinst du so ?

      Quellcode

      1. '****************************
      2. ' RGB MB
      3. '****************************
      4. $regfile = "m88def.dat"
      5. $hwstack = 40
      6. $swstack = 16
      7. $framesize = 32
      8. $crystal =1000000
      9. Config PortD = Output
      10. Config PortB = Output
      11. Config PINC.0 = Input
      12. Config PINc.1 = Input
      13. Config Pinc.2 = Input
      14. RMOD1 Alias Portd.0
      15. BMOD1 Alias Portd.1
      16. GMOD1 Alias Portd.2
      17. RMOD2 Alias Portd.3
      18. BMOD2 Alias Portd.4
      19. GMOD2 Alias Portd.5
      20. RMOD3 Alias Portd.7
      21. BMOD3 Alias Portd.6
      22. GMOD3 Alias Portb.0
      23. dim Eingang_alt as Byte
      24. dim Eingang as byte
      25. Eingang.0 alias Pinc.0
      26. Eingang.1 alias Pinc.1
      27. Eingang.2 alias Pinc.2
      28. eingang_alt = 0
      29. Do
      30. if eingang_alt <> Eingang then eingang_alt = eingang
      31. If Eingang.0 = 1 and Eingang.1 = 0 and Eingang.2 = 0 then:gosub LED1
      32. elseIf Eingang.0 = 0 and Eingang.1 = 1 and Eingang.2 = 0 then:gosub LED2
      33. elseIf Eingang.0 = 1 and Eingang.1 = 1 and Eingang.2 = 0 then:gosub LED3
      34. elseIf Eingang.0 = 1 and Eingang.1 = 0 and Eingang.2 = 1 then:gosub LED4
      35. elseIf Eingang.0 = 0 and Eingang.1 = 1 and Eingang.2 = 1 then:gosub LED5
      36. elseIf Eingang.0 = 1 and Eingang.1 = 1 and Eingang.2 = 1 then:gosub LED6
      37. elseIf Eingang.0 = 0 and Eingang.1 = 0 and Eingang.2 = 0 then:gosub LED7
      38. end if
      39. loop
      40. end
      41. LED1:
      42. RMOD3 = 1
      43. RMOD1 = 1
      44. RMOD2 = 1
      45. GMOD1 = 0
      46. GMOD2 = 0
      47. GMOD3 = 0
      48. BMOD1 = 0
      49. BMOD2 = 0
      50. BMOD3 = 0
      51. Return
      52. LED2:
      53. GMOD2 = 1
      54. RMOD1 = 1
      55. RMOD2 = 1
      56. RMOD3 = 1
      57. GMOD1 = 1
      58. GMOD3 = 1
      59. BMOD1 = 0
      60. BMOD2 = 0
      61. BMOD3 = 0
      62. 'waitms 1
      63. GMOD2 = 0
      64. RMOD1 = 1
      65. RMOD2 = 1
      66. RMOD3 = 1
      67. GMOD1 = 0
      68. GMOD3 = 0
      69. BMOD1 = 0
      70. BMOD2 = 0
      71. BMOD3 = 0
      72. 'waitms 2
      73. Return
      74. LED3:
      75. GMOD3 = 0
      76. RMOD1 = 0
      77. RMOD2 = 0
      78. RMOD3 = 0
      79. GMOD1 = 1
      80. GMOD2 = 1
      81. GMOD3 = 1
      82. BMOD1 = 0
      83. BMOD2 = 0
      84. BMOD3 = 0
      85. Return
      86. LED4:
      87. RMOD1 = 1
      88. RMOD2 = 1
      89. RMOD3 = 1
      90. GMOD1 = 0
      91. GMOD2 = 0
      92. GMOD3 = 0
      93. BMOD1 = 0
      94. BMOD2 = 0
      95. BMOD3 = 0
      96. waitms 500
      97. RMOD1 = 0
      98. RMOD2 = 0
      99. RMOD3 = 0
      100. GMOD1 = 0
      101. GMOD2 = 0
      102. GMOD3 = 0
      103. BMOD1 = 0
      104. BMOD2 = 0
      105. BMOD3 = 0
      106. waitms 300
      107. Return
      108. LED5:
      109. GMOD2 = 1
      110. RMOD1 = 1
      111. RMOD2 = 1
      112. RMOD3 = 1
      113. GMOD1 = 1
      114. GMOD3 = 1
      115. BMOD1 = 0
      116. BMOD2 = 0
      117. BMOD3 = 0
      118. waitms 500
      119. GMOD2 = 0
      120. RMOD1 = 0
      121. RMOD2 = 0
      122. RMOD3 = 0
      123. GMOD1 = 0
      124. GMOD3 = 0
      125. BMOD1 = 0
      126. BMOD2 = 0
      127. BMOD3 = 0
      128. waitms 300
      129. Return
      130. LED6:
      131. GMOD2 = 1
      132. RMOD1 = 0
      133. RMOD2 = 0
      134. RMOD3 = 0
      135. GMOD1 = 1
      136. GMOD3 = 1
      137. BMOD1 = 0
      138. BMOD2 = 0
      139. BMOD3 = 0
      140. waitms 500
      141. GMOD2 = 0
      142. RMOD1 = 0
      143. RMOD2 = 0
      144. RMOD3 = 0
      145. GMOD1 = 0
      146. GMOD3 = 0
      147. BMOD1 = 0
      148. BMOD2 = 0
      149. BMOD3 = 0
      150. waitms 300
      151. Return
      152. LED7:
      153. GMOD2 = 0
      154. RMOD1 = 0
      155. RMOD2 = 0
      156. RMOD3 = 0
      157. GMOD1 = 0
      158. GMOD3 = 0
      159. BMOD1 = 0
      160. BMOD2 = 0
      161. BMOD3 = 0
      162. Return
      Alles anzeigen
    • Thomas1964 schrieb:

      if eingang_alt <> Eingang then eingang_alt = eingang


      If Eingang.0 = 1 and Eingang.1 = 0 and Eingang.2 = 0 then:gosub LED1
      elseIf Eingang.0 = 0 and Eingang.1 = 1 and Eingang.2 = 0 then:gosub LED2
      elseIf Eingang.0 = 1 and Eingang.1 = 1 and Eingang.2 = 0 then:gosub LED3
      elseIf Eingang.0 = 1 and Eingang.1 = 0 and Eingang.2 = 1 then:gosub LED4
      elseIf Eingang.0 = 0 and Eingang.1 = 1 and Eingang.2 = 1 then:gosub LED5
      elseIf Eingang.0 = 1 and Eingang.1 = 1 and Eingang.2 = 1 then:gosub LED6
      elseIf Eingang.0 = 0 and Eingang.1 = 0 and Eingang.2 = 0 then:gosub LED7

      end if

      Hallo Thomas,

      ich glaube Du hast die If- Anweisung immer noch nicht richtig verstanden. Du verwendest immer die verkürzte Schreibweise beachtest dabei aber nicht
      1. das das bei Mehrfachabfragen unübersichtlich ist
      2. Bei verschachtelten If-Konstrukten gar nicht funktioniert.

      Quellcode

      1. if eingang_alt <> Eingang then
      2. eingang_alt = eingang
      3. If Eingang.0 = 1 and Eingang.1 = 0 and Eingang.2 = 0 then
      4. gosub LED1
      5. elseIf Eingang.0 = 0 and Eingang.1 = 1 and Eingang.2 = 0 then
      6. gosub LED2
      7. elseIf Eingang.0 = 1 and Eingang.1 = 1 and Eingang.2 = 0 then
      8. gosub LED3
      9. elseIf Eingang.0 = 1 and Eingang.1 = 0 and Eingang.2 = 1 then
      10. gosub LED4
      11. elseIf Eingang.0 = 0 and Eingang.1 = 1 and Eingang.2 = 1 then
      12. gosub LED5
      13. elseIf Eingang.0 = 1 and Eingang.1 = 1 and Eingang.2 = 1 then
      14. gosub LED6
      15. elseIf Eingang.0 = 0 and Eingang.1 = 0 and Eingang.2 = 0 then
      16. gosub LED7
      17. end if
      18. end if
      Alles anzeigen
      Wenn Du jetzt mal deinen Code mit vorstehendem vergleichst wirst Du sehen das es übersichtlicher ist und viel wichtiger anders funktioniert.
      Wieso das?
      Als erstes wird kontrolliert ob sich die Eingänge geändert haben, wenn JA wird die Eingabe gespeichert und dann die Bedingungen ausgewertet. Danach werden beide Abfragekonstrukte verlassen. Wenn NEIN wird die Bedingungsabfrage garnicht ausgeführt.

      Bei Deinem Code wird geprüft ob sich die Eingänge geändert haben, wenn ja wird die Eingabe gespeichert. Abfrage beendet.
      Egal was bei der If-Anweisung herauskam werden nun die Bedingungen ausgewertet, auch wenn gar nichts neues eingegeben wurde.
      Bei Dir sind die beiden Abfragen völlig unabhängig von einander.
      Verstanden?

      Schalte Dir in der IDE von Bascom unter Optionen-Environment-Editor die Funktion "Draw Intention Lines" ein. Dann siehst Du welche Befehle zusammengehören. Und rücke bei Schleifen und anderen geschlossenen Konstrukten wie If-Konstrukten, select case-Anweisungen die innerhalb des Konstruktes auszuführenden Anweisungen konsequent ein (siehe z.Bsp. Bascom-Hilfe while-wend). Das macht den Code übersichtlich und zeigt schnell vergessene Abschlußbefehle an (z.B. vergessenes End if).
      Wem ich nicht ausdrücklich widerspreche, der darf das bis auf Widerruf als "Gefällt mir" verstehen.
    • Habe den Code so abgeändert, aber leider funktioniert der nicht.
      Habe ich irgendeine Anweisung vergessen ?

      Quellcode

      1. '****************************
      2. ' RGB MB
      3. '****************************
      4. $regfile = "m88def.dat"
      5. $hwstack = 40
      6. $swstack = 16
      7. $framesize = 32
      8. $crystal =1000000
      9. Config PortD = Output
      10. Config PortB = Output
      11. Config PINC.0 = Input
      12. Config PINc.1 = Input
      13. Config Pinc.2 = Input
      14. RMOD1 Alias Portd.0
      15. BMOD1 Alias Portd.1
      16. GMOD1 Alias Portd.2
      17. RMOD2 Alias Portd.3
      18. BMOD2 Alias Portd.4
      19. GMOD2 Alias Portd.5
      20. RMOD3 Alias Portd.7
      21. BMOD3 Alias Portd.6
      22. GMOD3 Alias Portb.0
      23. Dim Eingang_alt as Byte
      24. Dim Eingang as byte
      25. Eingang.0 Alias Pinc.0
      26. Eingang.1 Alias Pinc.1
      27. Eingang.2 Alias Pinc.2
      28. Eingang_alt = 0
      29. Do
      30. if Eingang_alt <> Eingang then Eingang_alt = Eingang
      31. If Eingang.0 = 1 and Eingang.1 = 0 and Eingang.2 = 0 then:gosub LED1
      32. elseIf Eingang.0 = 0 and Eingang.1 = 1 and Eingang.2 = 0 then:gosub LED2
      33. elseIf Eingang.0 = 1 and Eingang.1 = 1 and Eingang.2 = 0 then:gosub LED3
      34. elseIf Eingang.0 = 1 and Eingang.1 = 0 and Eingang.2 = 1 then:gosub LED4
      35. elseIf Eingang.0 = 0 and Eingang.1 = 1 and Eingang.2 = 1 then:gosub LED5
      36. elseIf Eingang.0 = 1 and Eingang.1 = 1 and Eingang.2 = 1 then:gosub LED6
      37. elseIf Eingang.0 = 0 and Eingang.1 = 0 and Eingang.2 = 0 then:gosub LED7
      38. end if
      39. loop
      40. end
      41. LED1:
      42. RMOD3 = 1
      43. RMOD1 = 1
      44. RMOD2 = 1
      45. GMOD1 = 0
      46. GMOD2 = 0
      47. GMOD3 = 0
      48. BMOD1 = 0
      49. BMOD2 = 0
      50. BMOD3 = 0
      51. Return
      52. LED2:
      53. GMOD2 = 1
      54. RMOD1 = 1
      55. RMOD2 = 1
      56. RMOD3 = 1
      57. GMOD1 = 1
      58. GMOD3 = 1
      59. BMOD1 = 0
      60. BMOD2 = 0
      61. BMOD3 = 0
      62. Return
      63. LED3:
      64. GMOD3 = 0
      65. RMOD1 = 0
      66. RMOD2 = 0
      67. RMOD3 = 0
      68. GMOD1 = 1
      69. GMOD2 = 1
      70. GMOD3 = 1
      71. BMOD1 = 0
      72. BMOD2 = 0
      73. BMOD3 = 0
      74. Return
      75. LED4:
      76. RMOD1 = 1
      77. RMOD2 = 1
      78. RMOD3 = 1
      79. GMOD1 = 0
      80. GMOD2 = 0
      81. GMOD3 = 0
      82. BMOD1 = 0
      83. BMOD2 = 0
      84. BMOD3 = 0
      85. waitms 500
      86. RMOD1 = 0
      87. RMOD2 = 0
      88. RMOD3 = 0
      89. GMOD1 = 0
      90. GMOD2 = 0
      91. GMOD3 = 0
      92. BMOD1 = 0
      93. BMOD2 = 0
      94. BMOD3 = 0
      95. waitms 300
      96. Return
      97. LED5:
      98. GMOD2 = 1
      99. RMOD1 = 1
      100. RMOD2 = 1
      101. RMOD3 = 1
      102. GMOD1 = 1
      103. GMOD3 = 1
      104. BMOD1 = 0
      105. BMOD2 = 0
      106. BMOD3 = 0
      107. waitms 500
      108. GMOD2 = 0
      109. RMOD1 = 0
      110. RMOD2 = 0
      111. RMOD3 = 0
      112. GMOD1 = 0
      113. GMOD3 = 0
      114. BMOD1 = 0
      115. BMOD2 = 0
      116. BMOD3 = 0
      117. waitms 300
      118. Return
      119. LED6:
      120. GMOD2 = 1
      121. RMOD1 = 0
      122. RMOD2 = 0
      123. RMOD3 = 0
      124. GMOD1 = 1
      125. GMOD3 = 1
      126. BMOD1 = 0
      127. BMOD2 = 0
      128. BMOD3 = 0
      129. waitms 500
      130. GMOD2 = 0
      131. RMOD1 = 0
      132. RMOD2 = 0
      133. RMOD3 = 0
      134. GMOD1 = 0
      135. GMOD3 = 0
      136. BMOD1 = 0
      137. BMOD2 = 0
      138. BMOD3 = 0
      139. waitms 300
      140. Return
      141. LED7:
      142. GMOD2 = 0
      143. RMOD1 = 0
      144. RMOD2 = 0
      145. RMOD3 = 0
      146. GMOD1 = 0
      147. GMOD3 = 0
      148. BMOD1 = 0
      149. BMOD2 = 0
      150. BMOD3 = 0
      151. Return
      Alles anzeigen