Was mache ich falsch. Ich weis keine Rat hab schon viel gelesen aber weis nicht was falsch ist, oder wie ich dem klar mach nachdem er die ersten Data reihe ausgelsen hat soll er die nächste nehmen. Kann mir einer helfen? Das ist bascom (^^)
$regfile = "m32def.dat"
$crystal = 16000000
Ddrd = &B10110111
E1 Alias Portd.5
E2 Alias Portd.4
E3 Alias Portd.7
Rck Alias Portd.0
Sck Alias Portd.1
Seri Alias Portd.2
Dim S As Bit
Dim R As Bit
Dim T As Word
Dim A1 As Word
Dim B1 As Word
Dim C1 As Word
Dim D1 As Word
Dim E0 As Word
Dim F1 As Word
Dim G1 As Word
Dim H1 As Word
Dim I1 As Word
Dim J1 As Word
Dim K1 As Word
Dim L1 As Word
If S = 1 Then
Sck = 0
Sck = 1
S = 0
End If
If R = 1 Then
Rck = 0
Rck = 1
R = 0
End If
Do
B1 = Lookup(0 , Muster)
A1 = Lookup(1 , Muster)
I1 = Lookup(2 , Muster)
F1 = Lookup(3 , Muster)
G1 = Lookup(4 , Muster)
H1 = Lookup(5 , Muster)
C1 = Lookup(6 , Muster)
D1 = Lookup(7 , Muster)
E0 = Lookup(8 , Muster)
J1 = Lookup(9 , Muster)
K1 = Lookup(10 , Muster)
L1 = Lookup(11 , Muster)
T = Lookup(13 , Muster)
E1 = J1
E2 = K1
E3 = L1
Seri = A1
S = 1
Seri = B1
S = 1
Seri = C1
S = 1
Seri = D1
S = 1
Seri = E0
S = 1
Seri = F1
S = 1
Seri = G1
S = 1
Seri = H1
S = 1
Seri = I1
S = 1
R = 1
Waitms T
Loop
End
Muster:
'-----0---1---2---3---4---5---6---7---8--E1--E2--E3--Time
'----vl--vm--vr--ml--mm--mr--hl--hm--hr--E1--E2--E3--Time
'----vm--vl--hl--hm--hr--ml--mm--mr--vr--E1--E2--E3--Time
'-----A---B---C---D---E---F---G---H---I--E1--E2--E3--Time
'----vl--vm--vr--ml--mm--mr--hl--hm--hr--E1--E2--E3--Time
Data 0 , 0 , 0 , 0 , 0 , 1 , 0 , 0 , 0 , 0 , 1 , 0 , 1000
Data 0 , 0 , 0 , 0 , 0 , 1 , 0 , 0 , 0 , 1 , 0 , 0 , 1000
Data 0 , 0 , 0 , 0 , 0 , 1 , 0 , 0 , 0 , 0 , 0 , 1 , 1000
Alles anzeigen
Ich weis nicht wie ich das blöder machn kann^^.
Vielleicht kann mir einer sagen wie das mit dem DATA geht und ob das mit Waitms T funktionieren könnte.
Thx