Danke für die tolle idee.
Der Compiler will aber nicht.
Was ist bei mir falsch?





Initlcd

Cls
Cursor Off

Dim Gray As Word
Dim Lobyte As Word
Dim Hibyte As Word
Config Pind.4 = Input
Umschalter Alias Pind.4
Dim Zahl As Byte
Dim Zahl1 As Byte
Dim Zahl2 As Byte
Dim Code1 As Word
Dim Code2 As Word

Do
IF umschalter=1 then
Code1
else
Code2
End If
Loop

Code1
Do

Locate 1 , 1
Lcd "P.G.Tester(GRAY)"
Locate 4 , 1
Lcd "Ausbildung EGS05"

Locate 2 , 5
Lcd "*-"
Locate 2 , 10
Lcd "-*"
Locate 3 , 3
Lcd "------------"


Do

Lobyte = Pina
Hibyte = Pinc
Hibyte = Hibyte And &B0000000000001111

Rotate Hibyte , Left , 8

Gray = Lobyte + Hibyte

Gray = Gray2bin(gray)



Locate 2 , 7
Lcd Gray

Waitms 200
Locate 2 , 7
Lcd " "




Code2

Do

Locate 1 , 1
Lcd "P.G.Tester(BCD)"
Locate 4 , 1
Lcd "Ausbildung EGS05"


Locate 2 , 5
Lcd "*-"
Locate 2 , 10
Lcd "-*"
Locate 3 , 3
Lcd "------------"

Do

Zahl = Pina
Zahl = Zahl And &B00001111
Locate 2 , 9
Lcd Zahl

Zahl1 = Pind
Zahl1 = Zahl1 And &B00001111
Locate 2 , 8
Lcd Zahl1

Zahl2 = Pinc
Zahl2 = Zahl2 And &B00001111
Locate 2 , 7
Lcd Zahl2

Waitms 150
Locate 2 , 7
Lcd " -"

Loop
Loop
End