tut mir leid ich habs ned verstanden , kanste des ned für ein AT90s2313
modifizieren?
hab dir hier mal mein multiplex code:
Code:
$regfile = "2313def.dat"
$crystal = 10000000
Config Portb = Output
Config Portd = Output
Dim A As Byte
Dim S As String * 5
Dim X As Byte
Dim Pos As Byte
Dim Z As String * 1
Dim L As Byte
Dim W As Word

Do

    S = Str(w)
    L = Len(s)

For A = 0 To 10
For X = 1 To L

      S = Str(w)
      Pos = L - X
      Pos = Pos + 1
      Z = Mid(s , Pos , 1)

    If Z = "0" Then Portb = 63
    If Z = "1" Then Portb = 34
    If Z = "2" Then Portb = 94
    If Z = "3" Then Portb = 118
    If Z = "4" Then Portb = 99
    If Z = "5" Then Portb = 117
    If Z = "6" Then Portb = 125
    If Z = "7" Then Portb = 38
    If Z = "8" Then Portb = 127
    If Z = "9" Then Portb = 119

    If X = 1 Then Portd = 1
    If X = 2 Then Portd = 2
    If X = 3 Then Portd = 4
    If X = 4 Then Portd = 8
    If X = 5 Then Portd = 16

    If L = 1 Then Waitus 9996
    If L = 2 Then Waitus 4996
    If L = 3 Then Waitus 3327
    If L = 4 Then Waitus 2496
    If L = 5 Then Waitus 1996

Next X
Next A
W = W + 1
Loop
Schon mal danke für dein bemühen!!
Grüßle