Select Case
This site uses cookies. By continuing to browse this site, you are agreeing to our Cookie Policy.
-
-
If Wert.0 = 1 Then
....
Else
....
End if
Was willst du denn einfacher machen? -
Verstehe Deine Frage nicht so ganz. Ich nehme oft
Select Case AA
Case 4: AA = 0 'Taste 0
Case 3: AA = 1 'Taste 1
Case 7: AA = 2 'Taste 2
Case 11: AA = 3 'Taste 3
Case 2: AA = 4 'Taste 4
Case 6: AA = 5 'Taste 5
Case 10: AA = 6 'Taste 6
Case 1: AA = 7 'Taste 7
Case 5: AA = 8 'Taste 8
Case 9: AA = 9 'Taste 9
Case 15: AA = 10 'Taste A
Case 14: AA = 11 'Taste B
Case 13: AA = 12 'Taste C
Case 12: AA = 13 'Taste D
Case 0: AA = 14 'Taste *
Case 8: AA = 15 'Taste #
End Select
Hier weise ich zum Beispiel der Variable entsprechend ihrem
Wert einen neuen Wert zu bei meinem Tastaturencoder. -
HJH-MD wrote:
Verstehe Deine Frage nicht so ganz.
Er möchte bei verschiedenen Fällen die gleich Case-Anweisungen ausführen.
katipefendi wrote:
gibt es in BASCOM auch so eine Vereinfachung wie in VB.NET?
Man kann Bereiche abdecken wie
Case 100 to 200
oder
Case Is <= 50
aber solche verstreuten Einzelwerte wie
Case 1,3,5,7 geht so nicht.
Was du tun kannst ist folgendes.
Du lagerst die Anweisungsliste, die für Case 1, 3, 5, 7 ausgeführt werden sollen in eine Sub aus und rufst die Sub dann auf.
BASCOM Source Code
- Sub ImFall_1_3_5_7()
- 'Hier die Anweisungen rein, die im Fall 1,3,5,7 ausgeführt werden sollen.
- End Sub
- Sub ImFall_2_4_6_8()
- ' Hier die Anweisungen rein, die für 2, 4, 6, 8 ausgeführt werden sollen
- End Sub
- ' Dann
- Select Case Wert
- Case 1
- Call ImFall_1_3_5_7()
- Case 3
- Call ImFall_1_3_5_7()
- Case 5
- Call ImFall_1_3_5_7()
- Case 7
- Call ImFall_1_3_5_7()
- Case 2
- Call ImFall_2_4_6_8()
- Case 4
- Call ImFall_2_4_6_8()
- Case 6
- Call ImFall_2_4_6_8()
- Case 8
- Call ImFall_2_4_6_8()
- End Select
Wenn dir diese Lösung nicht gefällt, kannst du auch mit If-Anweisungen Arbeiten.
Wenn du was anderes im Sinn hast, solltest du vielleicht deine Frage Präziser formulieren und darstellen, was du eigentlich erreichen willst. -
Mitch64 wrote:
If Wert Mod 2 = 1 then ' ungerade Zahlen
-
Michael wrote:
Wert.0 zu betrachten reicht doch?
-
Du hast recht, wenn er gerade und ungerade Zahlen unterscheiden will.
Das kann man alternativ zu Mod machen und ist vermutlich auch schneller.
Aber den Zweck, was er jetzt genau erreichen will, hat er ja nicht geschildert. -
Hallo Zusammen,
genau so habe ich es gemacht.
BASCOM Source Code
Ok, danke trotzdem an alle
Katip -