Ok, aachtung, hier kommt er:
Code:
$regfile = "m8def.dat"
$crystal = 6000000
$hwstack 128
$swstack 128
Dim X(400) As Byte
Dim Y(300) As Byte
Dim H(27) As String * 1 'Array für Codiertes Byte und Präambel
Dim I As Byte 'For-Schleifen-Zählvariable
Dim R As Byte 'For-Schleifen-Zählvariable
Dim B As Byte '
Dim T As Byte
Dim L As Word
Dim O As Word
Dim Q(40) As Byte
Dim U As Byte
U = 0
Dim J As Byte
J = 1
Dim W As Byte
W = 1
Dim E As Byte
Dim M As String * 2
Dim P As String * 1
Dim C As Byte
C = 0
Dim Da As Byte
Da = 0
Dim Z As Byte
Z = 0
Dim K As Byte
Ddrb.1 = 1 'FET-Ausgang
Ddrb.2 = 0 'Sende-Taster-Eingang
Portb.2 = 1
Ddrb.3 = 0
Portb.3 = 1 'Up-Taster
Ddrb.4 = 0
Portb.4 = 1 'Down-Taster
Ddrb.5 = 0
Portb.5 = 1 'Enter-Taster
H(1) = " "
H(2) = "A"
H(3) = "B"
H(4) = "C"
H(5) = "D"
H(6) = "E"
H(7) = "F"
H(8) = "G"
H(9) = "H"
H(10) = "I"
H(11) = "J"
H(12) = "K"
H(13) = "L"
H(14) = "M"
H(15) = "N"
H(16) = "O"
H(17) = "P"
H(18) = "Q"
H(19) = "R"
H(20) = "S"
H(21) = "T"
H(22) = "U"
H(23) = "V"
H(24) = "W"
H(25) = "X"
H(26) = "Y"
H(27) = "Z"
X(1) = 0
X(2) = 1
X(3) = 0
X(4) = 1
X(5) = 0
X(6) = 1
X(7) = 0
X(8) = 1
Config Lcd = 20 * 2
Config Lcdpin = Pin , E = Portb.0 , Rs = Portd.4 , Db7 = Portd.3 , Db6 = Portd.2 , Db5 = Portd.1 , Db4 = Portd.0
Cursor On
Cls
Config Timer1 = Timer , Prescale = 1
Enable Interrupts
Enable Timer1
On Timer1 Senden
Stop Timer1
L = 59000 'Zuerst die Präambel mit Zeitabstand x
O = 65534 - L
O = O / 2
O = 65534 - O
T = 1
Locate 1 , 1
Lcd "Bitte Text eingeben"
Locate 2 , 1
Do
If Pinb.2 = 0 Then ' Senden-Taste
Waitms 200
Cls
Da = 0
For I = 1 To U
E = Q(i)
For R = 1 To 8
M = Bin(e)
P = Mid(m , R , 1)
C = Val(o)
Incr Da
Y(da) = C
Next R
Next I
' Jetzt wird dieses Byte per Manchester-Verfahren codiert:
' 1=01
' 0=10
B = 9
K = 8 * U
For I = 1 To K Step 1
If Y(i) = 1 Then
X(b) = 0
Incr B
X(b) = 1
Elseif Y(i) = 0 Then
X(b) = 1
Incr B
X(b) = 0
End If
Incr B
Next I
' Nun haben wir im Array x(1-24) das Manchester-Codierte Byte und die (nicht codierte) Präambel.
' Jetzt muss dieses Byte gesendet werden.
' Dazu verwenden wir Timer1
Timer1 = L
Start Timer1
End If
If T = 9 Then
L = O 'Dann das Byte mit Flankenwechsel nach Zeitabstand x/2
Timer1 = L
Portb.1 = X(t)
Incr T
End If
Z = U * 16
Z = U + 9
If T = Z Then
Stop Timer1
T = 1
L = 59000
U = 0
J = 1
W = 1
Portb.1 = 0
Locate 1 , 1
Lcd "gesendet"
Wait 3
Locate 1 , 1
Lcd "Bitte Text eingeben"
Locate 2 , 1
Lcd " "
End If
If Pinb.3 = 0 Then ' Up-Taste
Waitms 200
Incr J
If J = 28 Then
J = 1
End If
Locate 2 , W
Lcd H(j)
End If
If Pinb.4 = 0 Then ' Down-Taste
Waitms 200
Decr J
If J = 0 Then
J = 27
End If
Locate 2 , W
Lcd H(j)
End If
If Pinb.5 = 0 Then
Incr W 'Enter-Taste
Waitms 200
Incr U
Q(u) = J
Locate 2 , W
J = 1
Lcd H(j)
End If
Loop
Senden:
Timer1 = L
Portb.1 = X(t)
Incr T
Return
End
E ist ein Byte
M ist ein String *2
P ist ein String *1
da ist ein Byte
Irgendwie sollte er ja trotzdem nicht einfach so Werte zuordnen...
??
Zitieren
Berechtigungen
Lesezeichen