Hier mein eingesetzter Code
Hier der Code meines Masters!!!
Code:
'*******************SPI-Master ************************************
$regfile = "4433def.dat"
$crystal = 4000000
Config Spi = Hard , Interrupt = Off , Data Order = Msb , Master = Yes , Polarity = Low , Phase = 0 , Clockrate = 128 , Noss = 0
sbi DDRB,5 ' SCK output
cbi DDRB,4 ' MISO input
sbi DDRB,3 ' MOSI output
Dim Richtung As Byte 'var ist die Variable die übergeben wird
Spiinit
'********************************Hauptschleife**********************************
Main:
Richtung = "r"
Spiout Richtung , 1 'ein Byte senden
Wait 3
Richtung = "v"
Spiout Richtung , 1 'ein Byte senden
Wait 3
Goto Main
'*******************************************************************************
End 'end program
Und nun der Code meines Slaves (funktioniert so leider nicht )
Code:
'*******************SPI-Slave mit Interrupt************************************
$regfile = "4433def.dat"
$crystal = 4000000
Config Spi = Hard , Interrupt = On , Data Order = Msb , Master = No , Polarity = Low , Phase = 0 , Clockrate = 128 , Noss = 0
sbi DDRB,5 ' SCK output
cbi DDRB,4 ' MISO input
sbi DDRB,3 ' MOSI output
Enable Interrupts
Dim Richtung As Byte
On Spi Daten_empfangen
Ddrb = &B11100000
Portd = &B00000000
Spiinit
'**********************************Hauptschleife********************************
Main:
Do
Portd = &B00000000
Select Case Richtung
Case "v"
Goto Vorwaerts
Case "r"
Goto Rueckwaerts
End Select
Loop
'******************************Daten_empfangen**********************************
Daten_empfangen:
Spiin Richtung , 1
Richtung = "r"
Return
'*******************************Vorwaerts***************************************
Vorwaerts:
Richtung = 0 'Zurücksetzen von Richtung
Portd = &B01100000 'Ausgabe an Motortreiber
Wait 3 'solange läuft der Motor
Goto Main
'*********************************Rueckwaerts***********************************
Rueckwaerts:
Richtung = 0 'Zurücksetzen von Richtung
Portd = &B10100000 'Ausgabe an Motortreiber
Wait 3 'solange läuft der Motor
Goto Main
End
Hat irgendwer 'ne Idee??? ](*,)