Witam
Zauważyłem, że w momencie wyłączania komputera z podpięty zestawem EVB następuje reset pracującego układu. Używam do zasilania i komunikowania wbudowanego na płycie EVB konwertera RS232/USB na FT232RL.
Czy jest może wina zastosowania tego układu jako konwertera ? Może braku układu typu MAX232 ( FT232 jest na stałe podpięty bezpośrednio do pinów TxD i RxD procesora )?
Płytka zasilana z USB.
Podobnie się dzieje gdy otwieram okno terminala - następuje reset procesora i blokada pinów ustawionych jako wejścia.
Próbowałem też z Config Serialin = Buffered , Size = 15 , Bytematch = 13, ale efekt resetu również występuje
Może należałoby w jakiś sposób zapamiętać stany wyjść ?
Może przez $SERIALINPUT
Czy da się ustawić inny priorytet dla UART?
Zauważyłem, że w momencie wyłączania komputera z podpięty zestawem EVB następuje reset pracującego układu. Używam do zasilania i komunikowania wbudowanego na płycie EVB konwertera RS232/USB na FT232RL.
Czy jest może wina zastosowania tego układu jako konwertera ? Może braku układu typu MAX232 ( FT232 jest na stałe podpięty bezpośrednio do pinów TxD i RxD procesora )?
Płytka zasilana z USB.
Podobnie się dzieje gdy otwieram okno terminala - następuje reset procesora i blokada pinów ustawionych jako wejścia.
Próbowałem też z Config Serialin = Buffered , Size = 15 , Bytematch = 13, ale efekt resetu również występuje
Może należałoby w jakiś sposób zapamiętać stany wyjść ?
Może przez $SERIALINPUT
Czy da się ustawić inny priorytet dla UART?
$regfile = "m32def.dat"
$crystal = 8000000
$baud = 9600
$hwstack = 40
Enable Interrupts
Enable Urxc
On Urxc Odbierz_uart
Config Porta.5 = Input
Set Porta.5
Config Porta.6 = Input
Set Porta.6
Config Portd.5 = Output
Set Portd.5
Config Portd.4 = Output
Reset Portd.4
Config Portd.7 = Output
Reset Portd.7
'Config Timer1 = Pwm , Prescale = 256 , Compare A Pwm = Clear Up , Compare B Pwm = Clear Down
'Enable Timer1
Config Timer2 = Pwm , Prescale = 64 , Compare Pwm = Clear Up
Enable Timer2
Declare Sub S1
Declare Sub S2
We1 Alias Pina.5
We2 Alias Pina.6
Wy1 Alias Portd.5
Wy2 Alias Portd.4
Dim Znak As String * 8
Dim Uart As Byte
Do
Ocr2 = 100 Timer2 - jasność wyświetlacza
Debounce Pina.5 , 0 , S1 , Sub S1
Debounce Pina.6 , 0 , S2 , Sub S2
If Znak = "wlacz1" Then
Wy1 = 1
End If
If Znak = "wylacz1" Then
Wy1 = 0
End If
Loop
End
S1:
Toggle Portd.5
Return
S2:
Toggle Portd.4
Return
Odbierz_uart:
Znak = ""
Do
Uart = Inkey()
Select Case Uart
Case 0
Case 10
Case 13 : If Znak <> "" Then Exit Do
Case Else
Znak = Znak + Chr(uart)
End Select
Loop
Return