ZitierenHallo zusammen,
lang lang ist es her, dass ich mich um dieses Thema gekümmert hab,
aber jetzt will ich es endgültig abschließen!!!
und zwar hab ich hier den Slave- und den Master-Code,
wär klasse, wenn ihr mir sagen könntet, warum es nicht geht!!!
Zur Funktion, der Master soll im Sekundentakt, abwechselnd 100 und 10 an den Slave senden. Bei 10 soll die StatusLED am Slave aus- und bei 100 eingeschlalten werden.
Aber es geht nichts!!!
Mastercode:
Code:$regfile = "m88def.dat" $crystal = 16000000 Declare Sub Twi_send_byte(byval Slave As Byte , Zeichen As Byte) Dim Twi_control As Byte ' Controlregister lokale kopie Dim Twi_status As Byte Dim Twi_data As Byte Dim B As Byte ' Zeichen von UART Dim Error As Byte ' Fehlermerker Dim Wert As Byte 'Wertvariable ' TWI init Twcr = &B00000100 ' erstmal nur TWI aktivieren Twsr = 0 ' Status und Prescaler Register Twbr = 72 ' Bit Rate Register, 100kHz ' Hauptschleife Do Wert = 100 Call Twi_send_byte(&Hc0 , Wert) Waitms 1000 Wert = 10 Call Twi_send_byte(&Hc0 , Wert) Waitms 1000 Loop End ' Unterprogramme ' TWI send_byte ' sendet ein Byte und schliesst die Übertragung ab Sub Twi_send_byte(byval Slave As Byte , Zeichen As Byte) Error = 0 ' Fehler zurücksetzen ' Startbedingung Twcr = &B10100100 ' TWINT ' warten bis TWINT gesetzt ist Gosub Twi_wait_int ' wenn Zugriff auf den Bus erlaubt, Slaveadresse ausgeben If Twi_status = &H08 Or Twi_status = &H10 Then Twdr = Slave And &HFE ' slave adresse + Write Twcr = &B10000100 ' TWINT löschen, Byte senden ' warten bis TWINT gesetzt ist Gosub Twi_wait_int ' Slave hat sich gemeldet If Twi_status = &H18 Or Twi_status = &H20 Then Twdr = Zeichen ' Daten Twcr = &B10000100 ' TWINT löschen, Byte senden ' warten bis TWINT gesetzt ist Gosub Twi_wait_int ' Zeichen wurden gesendet If Twi_status = &H28 Or Twi_status = &H30 Then Error = 0 ' kein Fehler Else Error = Twi_status ' Fehler End If Else ' kein slave Error = Twi_status ' Fehler End If ' STOPbedingung kommt hier immer im Ablauf, egal welcher Status Twcr = &B10010100 ' TWINT löschen, STOP senden ' nach einem STOP wird TWINT nicht mehr gesetzt, ' man darf/kann also nicht darauf warten ! Else ' Bus belegt, wird er wieder freigegeben Twcr = &B10000100 ' TWINT löschen, Bus freigeben Error = Twi_status ' Fehler End If End Sub ' warten bis TWINT gesetzt ist, status auslesen Twi_wait_int: Do Twi_control = Twcr And &H80 Loop Until Twi_control = &H80 Twi_status = Twsr And &HF8 ' status ' status nur zu Debugzwecken ausgeben, weil Bus sehr langsam wird ! ' Print "Err " ; Hex(twi_status) Return
Slavecode:
Habt ihr eine Idee???Code:$regfile = "m88def.dat" $crystal = 16000000 ! Dim Twi_control As Byte ' Controlregister lokale kopie Dim Twi_status As Byte Dim Twi_data As Byte Dim Neuesbyte As Byte ' Bytemerker Declare Sub Twi_init_slave Twi_data = 0 Call Twi_init_slave ' TWI aktivieren Config Portd.7 = Output 'StatusLED Statusled Alias Portd.7 Statusled = 1 ' Hauptschleife Do ' hier könnte ihr Code stehen ' Merker zurücksetzen Neuesbyte = 0 ' schauen ob TWINT gesetzt ist Twi_control = Twcr And &H80 ' Bit7 von Controlregister If Twi_control = &H80 Then Twi_status = Twsr And &HF8 ' Status ' wurde ein Byte geschickt If Twi_status = &H80 Or Twi_status = &H88 Then Twi_data = Twdr ' neue Daten merken Neuesbyte = 1 ' merken das ein neues Byte da ist End If ' TWINT muss immer gelöscht werden, damit es auf dem Bus weiter geht Twcr = &B11000100 ' TWINT löschen, erzeugt ACK End If 'wenn Wert 100 gesendet, dann StatusLED anschalten If Twi_data = 100 Then Statusled = 0 ' StatusLED anschalten End If 'wenn Wert 10 gesendet, dann StatusLED ausschalten If Twi_data = 10 Then Statusled = 1 ' StatusLED ausschalten End If Loop End ' Unterprogramme ' TWI als slave aktivieren Sub Twi_init_slave Twsr = 0 ' status und Prescaler auf 0 Twdr = &HFF ' default Twar = &HC0 ' Slaveadresse setzen Twcr = &B01000100 ' TWI aktivieren, ACK einschalten End Sub
Grüße High Light
Lesezeichen