Hallo
Der Code sieht, ideell, erstmal so aus:
1 | Const Led_left = 0
|
2 | Const Led_right = 1
|
3 |
|
4 | Dim Led1 As Integer
|
5 | Dim Led2 As Integer
|
6 | Dim Led3 As Integer
|
7 | Dim Led4 As Integer
|
8 |
|
9 | Led1 , Led2 , Led3 , Led4 = 0
|
10 |
|
11 | Dim Address As Byte , Command As Byte,
|
12 |
|
13 | Enable Interrupts
|
14 |
|
15 | Do
|
16 |
|
17 | Getrc5(address , Command)
|
18 |
|
19 | If Address <> 255 Then
|
20 |
|
21 | Reset Command.7
|
22 |
|
23 | Else
|
24 |
|
25 | Ring_number% = Round(command / 10)
|
26 | Direction% = Command Mod 10
|
27 |
|
28 | While(Led1 < Led2 < Led3 < Led4)
|
29 |
|
30 | select Case Direction
|
31 | Case Led_left : Decr Led(ring_number)
|
32 |
|
33 | Case Led_right : Incr Led(ring_number)
|
34 | Wend
|
35 |
|
36 | End If
|
37 |
|
38 | Loop
|
Anhand von ring_number will ich Led1, Led2 usw. auswählen.
Aber nach meiner Variante geht das natürlich nicht.
Also von mir das Anliegen an Euch, mir da ein wenig auf die Sprünge zu
helfen.
Dank Euch!