[BASCOM] "IF" Abfrage "verkürzen" mit mehreren Definitionen

[Denis I. (prytek)]

Guten Abend

Ich habe ein Problem mit einer einfachen IF Abfrage:

Ich habe ein "Byte" an Zahlen, welche ich in 4 IF-Abfragen auswerten 
möchte.

z.B. die Zahlen 1, 5, 9, 13, 17, .... usw..

Für einen Zahlenwert von 255 wären das in einer Viertelung mindestens 63 
Werte.

Ich möchte jetzt aber nicht 63 IF-Abfragen machen, sondern die vier 
Zahlenstränge in je einer Abfrage unterbringen.

Derzeit war DAS mein letzter Versuch:

If Rotary =(1 | 5| 9 | 13 | 17 | 21 | 25 | 29 | 33 | 37 | 41 | 45 | 49 | 53 | 57| ...) Then
...
End If

Ich habe es mit Kommata versucht und diversen anderen 
Trennmöglichkeiten.


Entweder sehe ich den "Wald" derzeit nicht mehr, oder ich habe ein 
Syntax Problem....


Kann mir bitte einer helfen bei dem Problem?

Danke und Grüße

[Marc H. (marchorby)]

Select Case Rotary

  Case 1 : Print "1"

  Case 2 : Print "2"

  Case 3 To 5 : Print "3-5"

  Case Is >= 10 : Print ">= 10"

  Case Else : Print "Not in Case statement"

End Select

[Rufus Τ. F. (rufus)]

Bascom bietet dafür das select case -Statement.

Das aber ist gar nicht nötig; Dich interessiert der MOD -Operator 
(modulo).

http://avrhelp.mcselec.com/index.html?mod.htm

[google (Gast)]

Was soll nach der IF-Abfrage kommen? Anders gefragt, was willst Du 
erreichen?

[Karl M. (Gast)]

if ((Rotary and 0b11) = 0b01) then
else
endif

[Denis I. (prytek)]

Danke für diese schnellen Antworten!

Nach der Abfrage, also dem "Then" wird einfach ein Pin auf H gesetzt.


Ich lese mich jetzt mal in die Case bzw. Mod Befehl ein.

Vlt. fällt einem noch was anderes ein :)

Danke

[MWS (Gast)]

Denis I. schrieb:
> Vlt. fällt einem noch was anderes ein :)

Das war bereits der optimale Einfall, solange die Reihe einer Regel 
gehorcht, hier durch 4 teilbar und Rest immer 1.

Wär's nicht so, so könnte man eine Reihe "Data"-Anweisungen nehmen und 
per Schleife alles durchprobieren. Aber viel zuviel Aufwand, wenn's 
durch Modulo zu lösen ist.

[Paul B. (paul_baumann)]

Versuche es mal mit Select-Käse, äh Case

Dim Eingabe As Byte
Input "Gib einen Wert ein! (0-255) " , Eingabe

Select Case Eingabe

 Case 0 To 63 :    Print "Liegt zwischen 0 und 63"
 Case 64 To 127 :  Print "Liegt zwischen 64 und 127"
 Case 128 To 192 : Print "Liegt zwischen 128 und 192"
 Case 193 To 255 : Print "Liegt zwischen 192 und 255"
 Case Else :       Print "Eingabe war Käse!"

End Select

Print "MfG Paul"

Edith sagt: So schnell kann ich nicht tippen...

[Denis I. (prytek)]

Ich habe mich gerade auf Lookup() eingeschossen.

So wie es aussieht bekomme ich es aber nicht in eine "IF" Abfrage rein.

Mein Gedanke war:

gedankenspielan
Wenn "Rotary" einen Wert entspricht der in "Lookup(taba , A1l)" Tabelle 
zu finden ist, dann schalte ggf. PIN XY auf H.
gedankenspielaus

Also ungefähr so:

If Rotary = Lookup(taba , A1l) Then
...
End If

A1l:
Data 1 , 5 , 9 , 13 , 17 , ...

"Taba" habe ich als Byte bestimmt.

Ich habe insgesamt ja 4 DATA Tabellen, mit je unterschiedlichen Werten 
der 255, welche in vier "IF" Abfragen ausgewertet werden sollen.

Die vorangeführte Tabelle und diese 3:

B1l:
Data 2 , 6 , 10 , 14 , 18 , ...

A2l:
Data 3 , 7 , 11 , 15 , 19 , ...

B2l:
Data 4 , 8 , 12 , 16 , 20 , ...


Wo ist mein Fehler?

[Rufus Τ. F. (rufus)]

Denis I. schrieb:
> Ich habe mich gerade auf Lookup() eingeschossen.

Das erscheint mir unnötig umständlich.

Wenn ich es recht verstanden habe, möchtest Du folgendes erreichen:

- für die Werte 0, 4, 8, 12, 16 etc. bis 252
  soll Funktion A aufgerufen werden

- für die Werte 1, 5, 9, 13, 17 etc. bis 253
  soll Funktion B aufgerufen werden

- für die Werte 2, 6, 10, 14, 18 etc. bis 254
  soll Funktion C aufgerufen werden

- für die Werte 3, 7, 11, 15, 19 etc. bis 255
  soll Funktion D aufgerufen werden


Dann wird Dein Code mit MOD (Modulo) recht überschaubar:

DIM Wert AS BYTE
DIM Eingedampft AS BYTE

...

Eingedampft = Wert MOD 4

SELECT CASE Eingedampft

  CASE 0 : CALL Funktion_A

  CASE 1 : CALL Funktion_B

  CASE 2 : CALL Funktion_C

  CASE 3 : CALL Funktion_D

END SELECT

[Kurt B. (kurt-b)]

Rufus Τ. F. schrieb:

>
> Eingedampft = Wert MOD 4
>

Vill liegst am (nicht)Verstehen vom MOD 4

 Kurt

[Denis I. (prytek)]

$regfile = "attiny2313.dat"
$crystal = 8000000

Config Portb.2 = Output
Config Portb.3 = Output
Config Portb.4 = Output
Config Portb.5 = Output

A1 Alias Portb.2
B1 Alias Portb.3
A2 Alias Portb.4
B2 Alias Portb.5

Dim Rotary As Byte                                          'der wird in 255 Schritten übergeben von anderer Stelle
Dim Machwas As Byte

Declare Sub Funktion_a()
Declare Sub Funktion_b()
Declare Sub Funktion_c()
Declare Sub Funktion_d()

Do

   Machwas = Rotary Mod 4

If Machwas = 0 Then
      Call Funktion_a
   Elseif Machwas = 1 Then
      Call Funktion_b
   Elseif Machwas = 2 Then
      Call Funktion_c
   Elseif Machwas = 3 Then
      Call Funktion_d
   End If
Loop
End



Funktion_a:
A2 = 0
B1 = 0
B2 = 0
A1 = 1
Return

Funktion_b:
A2 = 0
B2 = 0
A1 = 0
B1 = 1
Return

Funktion_c:
B2 = 0
A1 = 0
B1 = 0
A2 = 1
Return

Funktion_d:
A1 = 0
B1 = 0
A2 = 0
B2 = 1
Return

@ Kurt:

Ja das kann sein, aber habe inzwischen eine kleine Ahnung was Mod macht.


Ich habe jetzt einen Dummy Code eingefügt mit den hier besprochenen 
Parametern.

Nur mir wird gerade nicht klar wie der Code im richtigen Syntax zusammen 
gebracht wird.
Ich sitze anscheinend schon zu lange heute vor dem PC...


*Was ich verstanden habe:*

"Modu" macht bei einem "4" Zahlenwerte von 0 bis 3 aus dem "Rotary".
Damit rufe ich dann meine Unterprogramme auf und springe danach wieder 
zurück.

Die "Call Case" Funktion wird in der Hauptschleife ausgeführt.
Ähnlich wie Gosub XY?

Der Schlauch auf dem ich gerade stehe ist groß..... Mist

EDIT:

Der Code macht jetzt das was ich möchte bzw. nur jeden 4ten Wert macht 
er das..., aber ich kann mir doch nicht Modu zusammen reimen.

Kann mir das bitte einer erklären?
Aus der Bascom hilfe werde ich nicht ganz schlau draus....