cyt. "BASCOM - program, który prawie działa jest gorszy od nieistniejącego. W rozpaczy może się zdarzyć, że konstruktor będzie próbował naprawić błędy bibliotek BASCOMa grzebiąc lutownicą w swoim komputerze. " (marek_Łódź http://www.elektroda.pl/rtvforum/viewtopic.php?p=2083764#2083764)
Walcze z transmisją spi w sposób odmienny niż w postach z powyższego cytatu.
Komunikacja działa ok ale tylko w przypadku gdy sygnał ss=1 na koniec procedury wysyłania spi jest wyremowany
w odwrotnym przypadku działa tylko za pierwszym wywołaniem procedury.
Zakładając, że mamy jeden układ slave działa lux (ss stale w stanie niskim)
Ja mama dwa układy slave więc muszę po zakończeniu ustawić ss w stan wysoki.
Może coś gdzieś zjadłem i to nie wina bascoma.
Tracę już cierpliwość i proszę o pomoc.
Master: [syntax=basic4gl]$regfile = "m644pdef.dat"
$crystal = 8000000
'---- LCD GRAPH ----------------------
$lib "glcdEADOGM128x6.lbx"
Config Graphlcd = 128 * 64eadogm , Cs1 = Porta.7 , A0 = Porta.5 , Si = Porta.3 , Sclk = Porta.4 , Rst = Porta.6
Cls
Config Pind.4 = Output
Config Pind.5 = Output
Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Up , Compare B Pwm = Clear Up , Prescale = 1
Pwm1a = 1 'KEY
Pwm1b = 220 'LCD
Glcdcmd 38
'---- KEY
Config Pinc.2 = Input
Config Pinc.3 = Input
Config Pinc.4 = Input
Config Pinc.5 = Input
Config Pinc.6 = Input
Set Portc.2
Set Portc.3
Set Portc.4
Set Portc.5
Set Portc.6
Dim Sme As Bit , Sexi As Bit , Sdo As Bit , Sup As Bit , Sru As Bit 'zmienne key
Dim Key_ms As Byte
Key_ms = 100
'---- SPI
Config Spi = Hard , Interrupt = Off , Data Order = Msb , Master = Yes , Polarity = Low , Phase = 1 , Clockrate = 64 , Noss = 1
Config Portb.5 = Output
Config Portb.7 = Output
Config Portb.4 = Output
Config Portb.3 = Output
'Set Portb.5
'Set Portb.7
Set Portb.4
Set Portb.3
Ss_st Alias Portb.3
Ss_ds Alias Portb.4
Dim Spi_err As Bit
Dim Spi_end As Bit
Dim Spi_rw As Bit
Dim Sdin As Byte
Dim Sdout As Byte
Dim Spi_d_in(16) As Byte
Dim Spi_key(8)as Byte
Spi_key(1) = 71
Spi_key(2) = 1
Spi_key(3) = 33
Spi_key(4) = 171
Spi_key(5) = 33
Spi_key(6) = 5
Spi_key(7) = 208
Spi_key(8) = 18
Dim St_dataw As Byte
Dim St_datar As Byte
St_dataw = &B11111111
St_datar = &B11111111
Dim Pwm_datar(7) As Byte
Dim Pwm_dataw(7) As Byte
Pwm_dataw(1) = 11 '0:off 1:off=>on 2:on 3:on=>off 4:test
Pwm_dataw(2) = 12 'Rmax
Pwm_dataw(3) = 13 'Gmax
Pwm_dataw(4) = 14 'Bmax
Pwm_dataw(5) = 15 'Wmax
Pwm_dataw(6) = 16 'Procent
Pwm_dataw(7) = 17
Dim R As Byte , N As Byte , M As Byte
Setfont My6_8
Spi_end = 0
Spi_rw = 0
St_dataw = &B11111111
Gosub Spi_write_st
Waitms 200
Do
Lcdat 1 , 1 , "SPI MASTER"
If Spi_end = 1 Then
Spi_end = 0
For N = 1 To 7
M = 1 + N
Lcdat M , 1 , N ; "r=" ; Pwm_datar(n) ; " "
Lcdat M , 64 , N ; "w=" ; Pwm_dataw(n) ; " "
Next N
'Lcdat 8 , 100 , Ss_st
End If
If Sme = 1 Then
Lcdat 1 , 64 , "sme"
Spi_rw = 0
Spi_end = 0
Gosub Spi_write_st
End If
If Sexi = 1 Then
Lcdat 1 , 64 , "sexi"
Spi_rw = 1
Spi_end = 0
Gosub Spi_write_st
End If
If Sup = 1 Then
Incr Pwm_dataw(2)
Spi_end = 1
End If
If Sdo = 1 Then
Decr Pwm_dataw(2)
Spi_end = 1
End If
Gosub Key_sme
Gosub Key_sexi
Gosub Key_sup
Gosub Key_sdo
Gosub Key_sru
Waitms 3
Loop
End
Spi_write_st:
Spiinit
Ss_st = 0
'Waitus 100
Spi_err = 1
Sdout = 123
R = 1
Do
Sdin = Spimove(sdout)
Incr R
Loop Until Sdin = 22 Or R = 150
If Sdin = 22 Then
For N = 1 To 8
M = 9 - N
Sdout = Spi_key(n)
Sdin = Spimove(sdout)
Spi_d_in(m) = Sdin
Next N
Spi_err = 0
End If
If Spi_err = 0 Then
For N = 1 To 8
If Spi_d_in(n) <> Spi_key(n) Then Spi_err = 1
Next N
End If
If Spi_err = 0 Then
Sdout = Spi_rw
Sdin = Spimove(sdout)
If Spi_rw = 0 Then 'odczyt
Sdout = 0
St_datar = Spimove(sdout)
For N = 1 To 7
Pwm_datar(n) = Spimove(n)
Next N
Else
Sdout = St_dataw
Sdin = Spimove(sdout)
For N = 1 To 7
Sdout = Pwm_dataw(n)
Sdin = Spimove(sdout)
Next N
End If
Else
Pwm_datar(1) = 0
End If
Waitms 100
Ss_st = 1
Spi_end = 1
Return
Key_sme:
If Pinc.2 = 0 Then
Waitms Key_ms
If Pinc.2 = 0 Then
Sme = 1
Waitms Key_ms
End If
Else
Sme = 0
End If
Return
Key_sexi:
If Pinc.3 = 0 Then
Waitms Key_ms
If Pinc.3 = 0 Then
Sexi = 1
Waitms Key_ms
End If
Else
Sexi = 0
End If
Return
Key_sup:
If Pinc.4 = 0 Then
Waitms Key_ms
If Pinc.4 = 0 Then
Sup = 1
Waitms Key_ms
End If
Else
Sup = 0
End If
Return
Key_sdo:
If Pinc.5 = 0 Then
Waitms Key_ms
If Pinc.5 = 0 Then
Sdo = 1
Waitms Key_ms
End If
Else
Sdo = 0
End If
Return
Key_sru:
If Pinc.6 = 0 Then
Waitms Key_ms
If Pinc.6 = 0 Then
Sru = 1
Waitms Key_ms
End If
Else
Sru = 0
End If
Return
$include "my6_8.font"[/syntax] Slave: [syntax=basic4gl]$regfile = "m16def.dat"
$crystal = 8000000
$lib "glcdEADOGM128x6.lbx"
Config Graphlcd = 128 * 64eadogm , Cs1 = Portc.1 , A0 = Portc.3 , Si = Portc.5 , Sclk = Portc.4 , Rst = Portc.2
Glcdcmd 38
Cls
'-----przyciski
Config Pinc.6 = Input
Config Pinc.7 = Input
Set Portc.6
Set Portc.7
S1 Alias Pinc.6
S2 Alias Pinc.7
Dim Pwm_renew As Bit
Dim St_data As Byte , St_datar As Byte
St_data = &B11111111
Config Portb.3 = Output 'led r
Config Portd.7 = Output 'led g
Config Portd.5 = Output 'led b
Config Portd.4 = Output 'led w
Reset Portb.3
Reset Portd.7
Reset Portd.5
Reset Portd.4
Dim Pwm_data(7) As Byte
Dim Pwm_datar(7) As Byte
Pwm_data(1) = 2 '0:off 1:off=>on 2:on 3:on=>off
Pwm_data(2) = 255 'Rmax
Pwm_data(3) = 150 'Gmax
Pwm_data(4) = 15 'Bmax
Pwm_data(5) = 0 'Wmax
Pwm_data(6) = 100 'Procent
Pwm_data(7) = 1 't[min]
'----- SPI -------------------------------
Config Spi = Hard , Interrupt = On , Data Order = Msb , Master = No , Polarity = Low , Phase = 1 , Clockrate = 64
'MISO
Config Portb.6 = Output
Config Portb.4 = Input
Ss Alias Pinb.4
Dim Spi_err As Bit
Dim Spi_end As Bit
Dim Sdin As Byte
Dim Sdout As Byte
Dim Spi_d_in(16) As Byte
Dim Spi_key(8)as Byte
Spi_key(1) = 71
Spi_key(2) = 1
Spi_key(3) = 33
Spi_key(4) = 171
Spi_key(5) = 33
Spi_key(6) = 5
Spi_key(7) = 208
Spi_key(8) = 18
' '---- ZMIENNE ------------------------------
Dim N As Byte , M As Byte , I As Byte , K As Byte
Spiinit
On Spi Read_spi Nosave
Enable Interrupts
Do
St_data = &B11111111
Setfont My6_8
Lcdat 1 , 1 , "SPI SLAVE "
If Pwm_renew = 1 Then
Pwm_renew = 0
For N = 1 To 7
M = 1 + N
Lcdat M , 1 , N ; "d=" ; Pwm_data(n) ; " "
Next N
End If
Setfont My6_8
If S1 = 0 Then
Lcdat 1 , 64 , "sme"
End If
If S2 = 0 Then
Lcdat 1 , 64 , "sexi"
End If
Waitms 3
Loop
End
Read_spi:
Config Portb.4 = Input
Spi_err = 1
Sdout = 22
N = 0
Spdr = Sdout
Do
Incr N
Spdr = Sdout
Do
Loop Until Spsr.spif = 1 Or Ss = 1
Spsr.spif = 0
Sdin = Spdr
Loop Until N = 155 Or Sdin = 123
If Sdin = 123 Then
For N = 1 To 8
M = 9 - N
Spdr = Spi_key(m)
Do
Loop Until Spsr.spif = 1 Or Ss = 1
Spsr.spif = 0
Spi_d_in(n) = Spdr
Next N
Spi_err = 0
End If
If Spi_err = 0 Then
For N = 1 To 8
If Spi_key(n) <> Spi_d_in(n) Then Spi_err = 1
Next N
End If
If Spi_err = 0 Then
Do
Loop Until Spsr.spif = 1 Or Ss = 1
Spsr.spif = 0
If Spdr = 0 Then
Spdr = St_data
Do
Loop Until Spsr.spif = 1 Or Ss = 1
Spsr.spif = 0
For N = 1 To 7
Spdr = Pwm_data(n)
Do
Loop Until Spsr.spif = 1 Or Ss = 1
Spsr.spif = 0
Next N
Else
Do
Loop Until Spsr.spif = 1 Or Ss = 1
Spsr.spif = 0
St_datar = Spdr
For N = 1 To 7
Do
Loop Until Spsr.spif = 1 Or Ss = 1
Spsr.spif = 0
Pwm_data(n) = Spdr
Next N
End If
End If
Pwm_renew = 1
Return
$include "my6_8.font"[/syntax]
schemat master:
schemat slave:
Statystyki: Napisane przez ogrodnik2ha — 7 lut 2014, o 15:55
]]>