BASCOM-Code eleganter/kürzer formulieren

[neuling (Gast)]

Hallo,

folgender Code:

Gouz:
Uzvar = 1
   If Rot(1) = 0 Then
   Toggle 1r
   End If
   If Rot(2) = 0 Then
   Toggle 2r
   End If
   If Rot(3) = 0 Then
   Toggle 3r
   End If
   If Rot(4) = 0 Then
   Toggle 4r
   End If
   If Rot(5) = 0 Then
   Toggle 5r
   End If
   If Rot(6) = 0 Then
   Toggle 6r
   End If
   If Rot(7) = 0 Then
   Toggle 7r
   End If
   If Gruen(1) = 0 Then
   Toggle 1g
   End If
   If Gruen(2) = 0 Then
   Toggle 2g
   End If
   If Gruen(3) = 0 Then
   Toggle 3g
   End If
   If Gruen(4) = 0 Then
   Toggle 4g
   End If
   If Gruen(5) = 0 Then
   Toggle 5g
   End If
   If Gruen(6) = 0 Then
   Toggle 6g
   End If
   If Gruen(7) = 0 Then
   Toggle 7g
   End If
   If Blau(1) = 0 Then
   Toggle 1b
   End If
   If Blau(2) = 0 Then
   Toggle 2b
   End If
   If Blau(3) = 0 Then
   Toggle 3b
   End If
   If Blau(4) = 0 Then
   Toggle 4b
   End If
   If Blau(5) = 0 Then
   Toggle 5b
   End If
   If Blau(6) = 0 Then
   Toggle 6b
   End If
   If Blau(7) = 0 Then
   Toggle 7b
   End If
For Uzvar = 1 To 7
   Decr Rot(uzvar)
   Decr Gruen(uzvar)
   Decr Blau(uzvar)
Next Uzvar
Incr Uz_zyklen
If Uz_zyklen = 99 Then
   Uz_zyklen = 0
   Gosub Gooz
End If
Return

Gooz:
Uzvar = 1
For Uzvar = 1 To 7
Rotkopie(uzvar) = Rot(uzvar) - X
If Rotkopie(uzvar) < 0 Then
Rotkopie(uzvar) = 0
End If
Gruenkopie(uzvar) = Gruen(uzvar) - X
If Gruenkopie(uzvar) < 0 Then
Gruenkopie(uzvar) = 0
End If
Blaukopie(uzvar) = Blau(uzvar) - X
If Blaukopie(uzvar) < 0 Then
Blaukopie(uzvar) = 0
End If
Next Uzvar
Incr Oz_zyklen
1r = 0
1b = 0
1g = 0

2r = 0
2g = 0
2b = 0

3r = 0
3g = 0
3b = 0

4r = 1
4g = 1
4b = 1

5r = 1
5g = 1
5b = 1

6r = 1
6g = 1
6b = 1

7r = 1
7g = 1
7b = 1
Return

Aus meiner main-Loop bzw. anderen gosubs werden die drei Arrays für 7 
rote, grüne und blaue LEDs befüllt mit Werten zwischen 0 und 100. Je 
nach Zahlenwert sollen die LEDs unterschiedlich hell leuchten.
Ich möchte dabei das dargestellte "Bild" alle 10 ms refreshen um 
Flackern zu vermeiden, sprich das Array wird mit gooz (go Oberzyklus) 
neu geladen. Zwischen jedem Oberzyklus sollen 100 Unterzyklen 
stattfinden und je nach Helligkeitswert sollen die LED unterschiedlich 
lange leuchten (PWM). Dazu zählt eine for-Schleife das Array runter und 
danach prüft eine if-Abfrage ob der Wert der jeweiligen LED 0 ist und 
schaltet die LED ggf. ab.
Ich muss das leider mit toggle machen, denn die LEDs sind zum Teil 
common-cathode und common-anode.

Fällt jemandem was ein wie ich den Code im Interrupt gouz und dem davon 
kontrollierten gooz eindampfen könnte bei selber Funktion?

Nochmal die Anforderungen: Ein Array mit Werten zwischen 0 und 100 wird 
ausgelesen und dementsprechend sollen die LEDs gedimmt werden. Dazu soll 
ein ADC-Wert die Gesamthelligkeit steuern (wird nicht laufend 
ausgelesen), indem er vom Array jeweils bis maximal 100 abzieht.

Unterzyklus (gouz) ist interruptgesteuert und wird alle 100 µs 
ausgelöst, Oberzyklus (gooz) alle 100 Unterzyklen ausgeführt, also alle 
10 ms.
Oder schafft das ein ATmega8 @ 16 Hz auch so?

Gruß

[neuling (Gast)]

ach ja: incr oz_zyklen brauche ich als zeitgeber für meine main-schleife 
bzw. andere gosubs, die muss also drin bleiben.

[neuling (Gast)]

Und falls es irgendwie von Belang sein sollte:
Das hier ist der aktuelle Code.

$regfile = "m8def.dat"
$crystal = 8000000
$hwstack = 100
$swstack = 100
$framesize = 100

'setzt alle Ports/Pins für LEDs

Config Portb = Output
Config Portd = Output

'1. LED (CC)
Config Portc.2 = Output
1r Alias Portc.2

Config Portc.4 = Output
1g Alias Portc.4

Config Portc.5 = Output
1b Alias Portc.5

'2. LED (CC)
2r Alias Portb.5

Config Portc.1 = Output
2g Alias Portc.1

Config Portc.0 = Output
2b Alias Portc.0

'3. LED (CC)
3r Alias Portb.2
3g Alias Portb.4
3b Alias Portb.3

'4. LED (CA)
4r Alias Portd.7
4g Alias Portb.1
4b Alias Portb.0

'5. LED (CA)
5r Alias Portb.7
5g Alias Portd.6
5b Alias Portd.5

'6. LED (CA)
6r Alias Portd.3
6g Alias Portb.6
6b Alias Portd.4

'7. LED (CA)
7r Alias Portd.0
7g Alias Portd.2
7b Alias Portd.1

'Konfiguriert Schalter und Trimmer
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Start Adc

Config Pinc.1 = Input
Taster Alias Pinc.1
Taster = 1


'erzeugt alle nötigen Variablen und Arrays
Dim Messwert As Word
Dim Zz As Word
Dim Uz_zyklen As Byte
Dim Oz_zyklen As Dword
Dim Rotkopie(7) As Byte
Dim Gruenkopie(7) As Byte
Dim Blaukopie(7) As Byte
Dim Rot(7)as Byte
Dim Gruen(7) As Byte
Dim Blau(7) As Byte
Dim Newprog As Bit
Dim Prog As Byte
Dim Uzvar As Byte
Dim X As Word
Dim Y As Byte

'aktiviert Unterzyklus
Const Timer1_Preload = 64736

Config Timer1 = Timer, Prescale = 1
Enable Timer1
Timer1 = Timer1_Preload
On Timer1 Gouz
Enable Interrupts


'Schaltet alle LEDs aus (wichtig fürs spätere toggeln)
1r = 1
1b = 1
1g = 1

2r = 1
2g = 1
2b = 1

3r = 1
3g = 1
3b = 1

4r = 0
4g = 0
4b = 0

5r = 0
5g = 0
5b = 0

6r = 0
6g = 0
6b = 0

7r = 0
7g = 0
7b = 0



Do
If Taster = 1 Then
Disable Interrupts
Waitms 50
Oz_zyklen = 0
Enable Interrupts
Bitwait Taster , Reset
   If Oz_zyklen >= 600 Then
   Gosub Messen
   Else
      If Prog > 15 Then
      Prog = 0
      Else
      Incr Prog
      End If
   End If
Newprog = 1
End If

Select Case Prog
Case 1 : Gosub Goweiss
Case 2 : Gosub Gorot
End Select
Loop

End

Messen:
Disable Interrupts                                          'erfasst über ADC die Stellung des Poti
Messwert = Getadc(3)
Enable Interrupts
Messwert = Messwert / 10
X = Messwert
Return

Zufallszahl:
Zz = Rnd(100)
Return

Gouz:
Uzvar = 1
   If Rot(1) = 0 Then
   Toggle 1r
   End If
   If Rot(2) = 0 Then
   Toggle 2r
   End If
   If Rot(3) = 0 Then
   Toggle 3r
   End If
   If Rot(4) = 0 Then
   Toggle 4r
   End If
   If Rot(5) = 0 Then
   Toggle 5r
   End If
   If Rot(6) = 0 Then
   Toggle 6r
   End If
   If Rot(7) = 0 Then
   Toggle 7r
   End If
   If Gruen(1) = 0 Then
   Toggle 1g
   End If
   If Gruen(2) = 0 Then
   Toggle 2g
   End If
   If Gruen(3) = 0 Then
   Toggle 3g
   End If
   If Gruen(4) = 0 Then
   Toggle 4g
   End If
   If Gruen(5) = 0 Then
   Toggle 5g
   End If
   If Gruen(6) = 0 Then
   Toggle 6g
   End If
   If Gruen(7) = 0 Then
   Toggle 7g
   End If
   If Blau(1) = 0 Then
   Toggle 1b
   End If
   If Blau(2) = 0 Then
   Toggle 2b
   End If
   If Blau(3) = 0 Then
   Toggle 3b
   End If
   If Blau(4) = 0 Then
   Toggle 4b
   End If
   If Blau(5) = 0 Then
   Toggle 5b
   End If
   If Blau(6) = 0 Then
   Toggle 6b
   End If
   If Blau(7) = 0 Then
   Toggle 7b
   End If
For Uzvar = 1 To 7
   Decr Rot(uzvar)
   Decr Gruen(uzvar)
   Decr Blau(uzvar)
Next Uzvar
Incr Uz_zyklen
If Uz_zyklen = 99 Then
   Uz_zyklen = 0
   Gosub Gooz
End If
Return

Gooz:
Uzvar = 1
For Uzvar = 1 To 7
Rotkopie(uzvar) = Rot(uzvar) - X
If Rotkopie(uzvar) < 0 Then
Rotkopie(uzvar) = 0
End If
Gruenkopie(uzvar) = Gruen(uzvar) - X
If Gruenkopie(uzvar) < 0 Then
Gruenkopie(uzvar) = 0
End If
Blaukopie(uzvar) = Blau(uzvar) - X
If Blaukopie(uzvar) < 0 Then
Blaukopie(uzvar) = 0
End If
Next Uzvar
Incr Oz_zyklen
1r = 0
1b = 0
1g = 0

2r = 0
2g = 0
2b = 0

3r = 0
3g = 0
3b = 0

4r = 1
4g = 1
4b = 1

5r = 1
5g = 1
5b = 1

6r = 1
6g = 1
6b = 1

7r = 1
7g = 1
7b = 1
Return


Goweiss:
Newprog = 0
For Y = 1 To 7
Rot(y) = 100
Gruen(y) = 100
Blau(y) = 100
Next Y
Y = 0
Return

Gorot:
For Y = 1 To 7
Rot(y) = 100
Next Y
Y = 0
Return

Es fehlen noch ein paar gosub-Programme, die von Select case aufgerufen 
werden.

[Steckpointer (Gast)]

If Else case sind nicht deine Freunde?

[Rainer U. (r-u)]

Kürzer wirst Du sicher, wenn Du in dem Fall auf Aliase verzichtest, 
sondern direkt auf den Ports arbeitest - dann kannst Du mit 
Bitmaskenoperationen mehrere resp. alle Bits auf einmal schalten oder 
negieren.

PortB = &B01000100 ist kürzer als

PortB.0=0
PortB.1=0
PortB.2=1
usw.

[neuling (Gast)]

if-else-cases sind schonmal gut, die habe ich ggleich eingebaut, frisst 
der Compiler ohne zu meckern.

@Rainer Unsinn: Sehe ich ein, das kann ich aber nicht bei Port C machen, 
da ich dort zwei Pins habe - beim Googeln habe ich keine Möglichkeit 
gefunden zwei Pins auszuschließen aus einer Bitmaskenoperation.

[neuling (Gast)]

So, diese beiden Schnipsel sind geändert:

Gouz:
Uzvar = 1
   If Rot(1) = 0 Then
   Toggle 1r
   Elseif Rot(2) = 0 Then
   Toggle 2r
   Elseif Rot(3) = 0 Then
   Toggle 3r
   elseIf Rot(4) = 0 Then
   Toggle 4r
   elseIf Rot(5) = 0 Then
   Toggle 5r
   elseIf Rot(6) = 0 Then
   Toggle 6r
   elseIf Rot(7) = 0 Then
   Toggle 7r
   elseIf Gruen(1) = 0 Then
   Toggle 1g
   elseIf Gruen(2) = 0 Then
   Toggle 2g
   elseIf Gruen(3) = 0 Then
   Toggle 3g
   elseIf Gruen(4) = 0 Then
   Toggle 4g
   elseIf Gruen(5) = 0 Then
   Toggle 5g
   elseIf Gruen(6) = 0 Then
   Toggle 6g
   elseIf Gruen(7) = 0 Then
   Toggle 7g
   elseIf Blau(1) = 0 Then
   Toggle 1b
   elseIf Blau(2) = 0 Then
   Toggle 2b
   elseIf Blau(3) = 0 Then
   Toggle 3b
   elseIf Blau(4) = 0 Then
   Toggle 4b
   elseIf Blau(5) = 0 Then
   Toggle 5b
   elseIf Blau(6) = 0 Then
   Toggle 6b
   elseIf Blau(7) = 0 Then
   Toggle 7b
   End If
For Uzvar = 1 To 7
   Decr Rot(uzvar)
   Decr Gruen(uzvar)
   Decr Blau(uzvar)
Next Uzvar
Incr Uz_zyklen
If Uz_zyklen = 99 Then
   Uz_zyklen = 0
   Gosub Gooz
End If
Return

Gooz:
Uzvar = 1
For Uzvar = 1 To 7
Rotkopie(uzvar) = Rot(uzvar) - X
If Rotkopie(uzvar) < 0 Then
Rotkopie(uzvar) = 0
End If
Gruenkopie(uzvar) = Gruen(uzvar) - X
If Gruenkopie(uzvar) < 0 Then
Gruenkopie(uzvar) = 0
End If
Blaukopie(uzvar) = Blau(uzvar) - X
If Blaukopie(uzvar) < 0 Then
Blaukopie(uzvar) = 0
End If
Next Uzvar
Incr Oz_zyklen

Portb = &B11111100                                          'setzt alle LEDs an Port B und D auf ein
Portd = &B00000001
1r = 1
1g = 1
1b = 1
2g = 1
2b = 1
Return

[Rainer U. (r-u)]

Doch das geht prinzipiell so:



Variable = PortC

zum setzen auf 1:
Variable = Variable OR Bitmaske, zu setzende Bits=1, unveränderliche=0

zum setzen auf 0:
Variable = Variable UND Bitmaske, zu löschende Bits=0, unveränderliche=1

PortC = Variable



Ich hoffe, ich hab mich nicht vertan.. :-)

[Paul P. (paul_p792)]

Dass du jetzt aber eine generelle Funktionsänderung hast ist gewollt?

Vorher:
   If Rot(1) = 0 Then
   Toggle 1r
   End If
   If Rot(2) = 0 Then
   Toggle 2r
   End If
Also egal welchen Wert Rot(1) hatte, der zweite Vergleich wird trotzdem 
ausgeführt.

Jetzt:
   If Rot(1) = 0 Then
   Toggle 1r
   Elseif Rot(2) = 0 Then
   Toggle 2r
Also werden die weiteren Vergleiche nur ausgeführt wenn Rot(1)<>0 ist, 
ansonsten wird alles hinter elseif ignoriert. Gilt dann natürlich analog 
für Rot(2)<>0 usw.

Die erste Version kannst du auch kompakter und damit übersichtlicher 
schreiben:
   If Rot(1) = 0 Then Toggle 1r
   If Rot(2) = 0 Then Toggle 2r
   If Rot(3) = 0 Then Toggle 3r

[Simpel (Gast)]

Wenn du Elseif statt If verwendest, wird nur die erste erfüllte 
Bedingung ausgeführt und dann der Rest der If-Else-Reihe übersprungen. 
Ich denke nicht, dass das in deinem Sinne ist...

[Simpel (Gast)]

Paul Pahl war schneller... :)

[tested? (Gast)]

neuling schrieb:
> So, diese beiden Schnipsel sind geändert:

> .
> Rotkopie(uzvar) = Rot(uzvar) - X
> If Rotkopie(uzvar) < 0 Then
>     Rotkopie(uzvar) = 0
> End If
> .

Rotkopie hat laut "Dim Rotkopie(7) As Byte" Byteelemente. Die Inhalte 
können also nicht kleiner 0 werden, oder. Geht das? Wird 
"Rotkopie(uzvar) = 0" (und gleich aufgebaute Codestücke) irgendwann 
ausgeführt?

[Eric B. (beric)]

neuling schrieb:
> beim Googeln habe ich keine Möglichkeit
> gefunden zwei Pins auszuschließen aus einer Bitmaskenoperation.

var = PortC              ' read port C

' single pin operations using bitmasks and logic operators
var = var AND &b11110111 ' clear  bit 3
var = var OR  &b00000100 ' set    bit 2
var = var XOR &b00000010 ' toggle bit 1

PortC = var              ' write back portC

EDIT: Also wenn du bits 0, 1, und 5 "löschen "möchtest:

var = var AND &b11011100

[tested? (Gast)]

Eric B. schrieb:
>

> var = PortC              ' read port C
> 
> ' single pin operations using bitmasks and logic operators
> var = var AND &b11110111 ' clear  bit 3
> var = var OR  &b00000100 ' set    bit 2
> var = var XOR &b00000010 ' toggle bit 1
> 
> PortC = var              ' write back portC
>

Warum mit var und nicht gleich

PORTC = PORTC and &b11110111 ' clear  bit 3

etc

[Eric B. (beric)]

tested? schrieb:
> Warum mit var und nicht gleich
>
> PORTC = PORTC and &b11110111 ' clear  bit 3
>
> etc

Damit erst das Endergebnis von allen Operationen auf dem Port sichbar 
ist und nicht alle Zwischenschritte. Das wäre in diesem Fall 
wahrscheinlich nicht so relevant, aber tut auch nicht weh :-)

Edit: Man könnte natürlich auch alles in einem Schritt machen. Etwa so:

clearBits  = &b11110111
setBits    = &b00000100
toggleBits = &b11110000

PortC = ((PortC AND clearBits) OR setBits ) XOR toggleBits

[neuling (Gast)]

Danke @paul pahl und simpel.
@paul pahl
Brauche ich da kein end if?

@port auf einmal:
Geht das tatsächlich schneller?
Port B und D habe ich jetzt als Register zum Auf-Einmal-setzen, C noch 
manuell.

Kann ich eigentlich auch direkt das Ergebnis einer logischen Aussage wie 
(rot(1)>0) bzw. NOT (rot(4)>0) auf einen Port geben?

Also so:
Portxyz = (rot(1)>0)?

Würde sehr viele if-Abfragen und Codezeilen sparen. Außerdem fällt die 
Toggelei weg und ich schreibe den Wert sauber direkt auf die LEDs statt 
sie zwischendurch kurz anzuschalten.

[greg (Gast)]

Ich will ja nicht trollen, aber wenn ich mir diesen Code anschaue, dann 
verstehe ich die ab und zu auftauchenden Kommentare nach dem Schema 
"nimm BASCOM, das ist nicht so kryptisch wie C" immer weniger.

[Bastler (Gast)]

greg schrieb:
> Ich will ja nicht trollen, aber wenn ich mir diesen Code anschaue, dann
> verstehe ich die ab und zu auftauchenden Kommentare nach dem Schema
> "nimm BASCOM, das ist nicht so kryptisch wie C" immer weniger.

Das könnte ein C Anfänger genau so Zeile für Zeile geschrieben haben. 
Dabei wäre dann C auch nicht besser.

Nein - ich programmiere nicht mit BASCOM.

[Paul P. (paul_p792)]

> Brauche ich da kein end if?
Nicht wenn alles in einer Zeile steht, erst wenn ein ganzer 
Anweisungsblock folgt muss dieser mit endif abgeschlossen werden.

> verstehe ich die ab und zu auftauchenden Kommentare nach dem Schema
> "nimm BASCOM, das ist nicht so kryptisch wie C" immer weniger.
Sehr witzig. Obigen Code versteht sogar mein Kater, bei C würde er nur 
einen Buckel machen und fauchen...