-
TWI_BTR wird nicht 1
Hallo,
da bei meinem derzeitigen Projekt die I2C Verbindung nicht klappt, habe ich an ein paar Stellen im Code die Variablen ausgeben lassen und bin zu der Feststellung gekommen, dass TWI_BTR nie kleiner 2 wird. Ich verstehe allerdings nicht ganz warum? IMHO sollte es doch 1 sein, wenn der Master nur noch 1 Byte vom Slave haben will?! Evtl. könnte jemand ja mal drüber sehen :)
Hier der Code für den Master:
Code:
$regfile = "m328pdef.dat"
$crystal = 16000000
$framesize = 80
$hwstack = 80
$swstack = 80
Declare Sub Init_system()
Declare Function Tastatur() As Byte
Declare Sub Walze_drehen()
Declare Function Codieren(byval Codieren_in As Byte) As Byte
Declare Function Reflektor(byval Reflektor_in As Byte) As Byte
Config Timer0 = Pwm , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down , Prescale = 1
Pwm0a = 0 'rot
Pwm0b = 0 'grün
$lib "i2c_twi.lbx"
Config Scl = Portc.5
Config Sda = Portc.4
I2cinit
Config Twi = 400000
Const Slave_write = &H70
Const Slave_read = &H71
Const Gen_call = &H00
Dim Ar_out(4) As Byte
Dim Walze_1(26) As Byte
Dim Walze_1_inv(26) As Byte
Dim Pointer_1 As Byte
Dim Ar_out_old(4) As Byte
Dim Fehler As Word
Dim Durchlauefe As Word
Dim Korrekt As Word
Dim Tmp As Byte
Dim I As Byte
Dim A As Byte
Dim _out As Byte 'ascii-wert (skaliert auf 1-26)
Dim _in As Byte 'ascii-wert (skaliert auf 1-26)
Const _a = 1
Const _b = 2
Const _c = 3
Const _d = 4
Const _e = 5
Const _f = 6
Const _g = 7
Const _h = 8
Const _i = 9
Const _j = 10
Const _k = 11
Const _l = 12
Const _m = 13
Const _n = 14
Const _o = 15
Const _p = 16
Const _q = 17
Const _r = 18
Const _s = 19
Const _t = 20
Const _u = 21
Const _v = 22
Const _w = 23
Const _x = 24
Const _y = 25
Const _z = 26
Call Init_system()
For I = 1 To 5
Pwm0a = 250
Pwm0b = 0
Waitms 100
Pwm0a = 0
Pwm0b = 250
Waitms 100
Next I
Pwm0a = 0
Pwm0b = 0
Waitms 200
Do
Call Init_system()
For A = 1 To 4
Ar_out(a) = _a 'Tastatur()
Ar_out_old(a) = Ar_out(a)
'Ar_out(a) = Codieren(ar_out(a))
Next A
I2csend Slave_write , Ar_out(1) , 4
Waitms 100
I2creceive Slave_read , Ar_out(1) , 4 , 4
If Ar_out(1) = Ar_out_old(1) And Ar_out(2) = Ar_out_old(2) And Ar_out(3) = Ar_out_old(3) And Ar_out(4) = Ar_out_old(4) Then
Pwm0a = 0
Pwm0b = 250
Else
Pwm0a = 250
Pwm0b = 0
End If
Wait 1
Loop
Sub Walze_drehen()
Local Tmp2 As Byte
Tmp2 = Walze_1(1)
For Pointer_1 = 1 To 26
Tmp = Pointer_1 + 1
If Tmp = 27 Then Tmp = 1
Walze_1(pointer_1) = Walze_1(tmp)
If Pointer_1 = 26 Then
Walze_1(26) = Tmp2
End If
Walze_1_inv(walze_1(pointer_1)) = Pointer_1
Next Pointer_1
End Sub
Function Tastatur() As Byte
Tastatur = Rnd(25) + 1
End Function
Function Codieren(byval Codieren_in As Byte) As Byte
Tmp = Walze_1(codieren_in)
Tmp = Reflektor(tmp)
Codieren = Walze_1_inv(tmp)
Call Walze_drehen()
End Function
Function Reflektor(byval Reflektor_in As Byte) As Byte
If Reflektor_in.0 = 0 Then
Reflektor = Reflektor_in + 1
If Reflektor = 27 Then Reflektor = 1
Else
Reflektor = Reflektor_in - 1
If Reflektor = 0 Then Reflektor = 26
End If
End Function
Sub Init_system()
Walze_1(1) = 23
Walze_1(2) = 15
Walze_1(3) = 9
Walze_1(4) = 24
Walze_1(5) = 7
Walze_1(6) = 1
Walze_1(7) = 22
Walze_1(8) = 17
Walze_1(9) = 12
Walze_1(10) = 13
Walze_1(11) = 26
Walze_1(12) = 2
Walze_1(13) = 5
Walze_1(14) = 21
Walze_1(15) = 14
Walze_1(16) = 25
Walze_1(17) = 11
Walze_1(18) = 6
Walze_1(19) = 16
Walze_1(20) = 8
Walze_1(21) = 3
Walze_1(22) = 18
Walze_1(23) = 4
Walze_1(24) = 19
Walze_1(25) = 10
Walze_1(26) = 20
Walze_1_inv(23) = 1
Walze_1_inv(15) = 2
Walze_1_inv(9) = 3
Walze_1_inv(24) = 4
Walze_1_inv(7) = 5
Walze_1_inv(1) = 6
Walze_1_inv(22) = 7
Walze_1_inv(17) = 8
Walze_1_inv(12) = 9
Walze_1_inv(13) = 10
Walze_1_inv(26) = 11
Walze_1_inv(2) = 12
Walze_1_inv(5) = 13
Walze_1_inv(21) = 14
Walze_1_inv(14) = 15
Walze_1_inv(25) = 16
Walze_1_inv(11) = 17
Walze_1_inv(6) = 18
Walze_1_inv(16) = 19
Walze_1_inv(8) = 20
Walze_1_inv(3) = 21
Walze_1_inv(18) = 22
Walze_1_inv(4) = 23
Walze_1_inv(19) = 24
Walze_1_inv(10) = 25
Walze_1_inv(20) = 26
End Sub
End
Und der Slave:
Code:
$regfile = "m32def.dat"
$crystal = 16000000
$framesize = 80
$hwstack = 80
$swstack = 80
Declare Sub Init_system()
Declare Function Tastatur() As Byte
Declare Sub Walze_drehen()
Declare Function Codieren(byval Codieren_in As Byte) As Byte
Declare Function Reflektor(byval Reflektor_in As Byte) As Byte
$lib "i2c_twi-slave.lbx"
Config Twislave = &H70 , Btr = 4 , Bitrate = 400000 , Save = Save , Gencall = 1
Config Sda = Portc.1
Config Scl = Portc.0
I2cinit
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portb.0 , Db5 = Portb.1 , Db6 = Portb.2 , Db7 = Portb.3 , E = Portb.4 , Rs = Portb.5
Config Lcdbus = 4
Initlcd
Cls
Cursor Off Noblink
Deflcdchar 0 , 32 , 32 , 1 , 18 , 20 , 24 , 16 , 32
Dim Walze_1(26) As Byte
Dim Walze_1_inv(26) As Byte
Dim Pointer_1 As Byte
Dim Ar_out(4) As Byte
Dim Ar_out_old(4) As Byte
Dim Fehler As Word
Dim Durchlauefe As Word
Dim Korrekt As Word
Dim Dechiffriert(4) As Byte
Dim Tmp As Byte
Dim I As Byte
Dim _out As Byte 'ascii-wert (skaliert auf 1-26)
Dim _in As Byte 'ascii-wert (skaliert auf 1-26)
Const _a = 1
Const _b = 2
Const _c = 3
Const _d = 4
Const _e = 5
Const _f = 6
Const _g = 7
Const _h = 8
Const _i = 9
Const _j = 10
Const _k = 11
Const _l = 12
Const _m = 13
Const _n = 14
Const _o = 15
Const _p = 16
Const _q = 17
Const _r = 18
Const _s = 19
Const _t = 20
Const _u = 21
Const _v = 22
Const _w = 23
Const _x = 24
Const _y = 25
Const _z = 26
Call Init_system()
Dim X As Byte
Waitms 200
Enable Interrupts
Do
!nop
Loop
Sub Walze_drehen()
Local Tmp2 As Byte
Tmp2 = Walze_1(1)
For Pointer_1 = 1 To 26
Tmp = Pointer_1 + 1
If Tmp = 27 Then Tmp = 1
Walze_1(pointer_1) = Walze_1(tmp)
If Pointer_1 = 26 Then
Walze_1(26) = Tmp2
End If
Walze_1_inv(walze_1(pointer_1)) = Pointer_1
Next Pointer_1
End Sub
Function Tastatur() As Byte
Tastatur = Rnd(25) + 1
End Function
Function Codieren(byval Codieren_in As Byte) As Byte
Tmp = Walze_1(codieren_in)
Tmp = Reflektor(tmp)
Codieren = Walze_1_inv(tmp)
Call Walze_drehen()
End Function
Function Reflektor(byval Reflektor_in As Byte) As Byte
If Reflektor_in.0 = 0 Then
Reflektor = Reflektor_in + 1
If Reflektor = 27 Then Reflektor = 1
Else
Reflektor = Reflektor_in - 1
If Reflektor = 0 Then Reflektor = 26
End If
End Function
Sub Init_system()
Walze_1(1) = 23
Walze_1(2) = 15
Walze_1(3) = 9
Walze_1(4) = 24
Walze_1(5) = 7
Walze_1(6) = 1
Walze_1(7) = 22
Walze_1(8) = 17
Walze_1(9) = 12
Walze_1(10) = 13
Walze_1(11) = 26
Walze_1(12) = 2
Walze_1(13) = 5
Walze_1(14) = 21
Walze_1(15) = 14
Walze_1(16) = 25
Walze_1(17) = 11
Walze_1(18) = 6
Walze_1(19) = 16
Walze_1(20) = 8
Walze_1(21) = 3
Walze_1(22) = 18
Walze_1(23) = 4
Walze_1(24) = 19
Walze_1(25) = 10
Walze_1(26) = 20
Walze_1_inv(23) = 1
Walze_1_inv(15) = 2
Walze_1_inv(9) = 3
Walze_1_inv(24) = 4
Walze_1_inv(7) = 5
Walze_1_inv(1) = 6
Walze_1_inv(22) = 7
Walze_1_inv(17) = 8
Walze_1_inv(12) = 9
Walze_1_inv(13) = 10
Walze_1_inv(26) = 11
Walze_1_inv(2) = 12
Walze_1_inv(5) = 13
Walze_1_inv(21) = 14
Walze_1_inv(14) = 15
Walze_1_inv(25) = 16
Walze_1_inv(11) = 17
Walze_1_inv(6) = 18
Walze_1_inv(16) = 19
Walze_1_inv(8) = 20
Walze_1_inv(3) = 21
Walze_1_inv(18) = 22
Walze_1_inv(4) = 23
Walze_1_inv(19) = 24
Walze_1_inv(10) = 25
Walze_1_inv(20) = 26
End Sub
Twi_write_addressed:
Return
'***************************
Twi_gotdata:
Ar_out(twi_btw) = Twi
If Twi_btw = 1 Then Call Init_system()
'Locate 1 , 1
'Lcd Ar_out(1) ; ":" ; Ar_out(2) ; ":" ; Ar_out(3) ; ":" ; Ar_out(4) ; " "
Dechiffriert(twi_btw) = Codieren(ar_out(twi_btw))
Return
'***************************
Twi_stop_rstart_received:
Return
'***************************
Twi_read_addressed:
Return
'***************************
Twi_master_needs_more_byte:
Twi = Dechiffriert(twi_btr)
Locate 1 , Twi_btr
Lcd Twi_btr
If Twi_btr = 1 Then
Locate 2 , 1
Lcd "a"
Else
Locate 2 , 1
Lcd " "
End If
Return
'***************************
Twi_master_need_nomore_byte:
Return
'***************************
Twi_slave_error:
Return
End
Vielen Dank & Gruß
Chris
EDIT:
Habe den Fehler gefunden; Wenn der Master den Slave das erste mal über die Read-Addresse anspricht, wird das erste Byte direkt in der Twi_read_addressed verlangt und somit ist zu diesem Zeitpunkt Twi_btr = 1 .
