Das Wettringer Modellbauforum

Quellcode

Config Portb.0 = Input

Config Portb.1 = Output
Config Portb.2 = Output

Config Porta.6 = Output
Config Porta.5 = Output
Config Porta.4 = Output
Config Porta.7 = Output

Config Porta.2 = Output
Config Porta.1 = Output
Config Porta.0 = Output
Config Porta.3 = Output

Dim Speed As Integer
Speed = 200

Dim Zahler As Integer
Dim Hundert As Integer
Dim Zehn As Integer
Dim Eins As Integer
Dim Rest As Integer

Do
   For Zahler = 0 To 300 Step 1

      Hundert = Zahler \ 100
      Rest = Zahler Mod 100

         Select Case Hundert
            Case 0 : Gosub Hundert_0
            Case 1 : Gosub Hundert_1
            Case 2 : Gosub Hundert_2
            Case 3 : Gosub Hundert_3
         End Select

      Zehn = Rest \ 10

         Select Case Zehn
            Case 0 : Gosub Zehn_0
            Case 1 : Gosub Zehn_1
            Case 2 : Gosub Zehn_2
            Case 3 : Gosub Zehn_3
            Case 4 : Gosub Zehn_4
            Case 5 : Gosub Zehn_5
            Case 6 : Gosub Zehn_6
            Case 7 : Gosub Zehn_7
            Case 8 : Gosub Zehn_8
            Case 9 : Gosub Zehn_9
         End Select

      Eins = Rest Mod 10

         Select Case Eins
            Case 0 : Gosub Eins_0
            Case 1 : Gosub Eins_1
            Case 2 : Gosub Eins_2
            Case 3 : Gosub Eins_3
            Case 4 : Gosub Eins_4
            Case 5 : Gosub Eins_5
            Case 6 : Gosub Eins_6
            Case 7 : Gosub Eins_7
            Case 8 : Gosub Eins_8
            Case 9 : Gosub Eins_9
         End Select

      Waitms Speed

   Next Zahler

Loop

End

Quellcode

Zehn_4:
Porta.6 = 0
Porta.5 = 1
Porta.4 = 0
Porta.7 = 0
Return