poniżej podaje schemat i program który przestał działać poprawnie, pomimo wymiany wielu elementów wykonawczych jak i biernych (lm358, atmega8, tranzystory, diody, kondensatory itd.), problem jest szczególnie na postoju, układ generuje zakłócenia, które komputer skrzyni odczytuje jako "za wysoki sygnał" czyli pojawia się częstotliwość której być nie powinno, odłączenie układu i przerwanie wiązki czujnik- komputer nie powoduje żadnych błędów czyli na 100% problem tkwi w układzie.
[syntax=basic4gl]$regfile = "m8def.dat"
$crystal = 16000000
$baud = 9600
$hwstack = 32 ' default use 32 for the hardware stack
$swstack = 10 ' default use 10 for the SW stack
$framesize = 40
Config Timer1 = Timer , Prescale = 256 , Noise Cancel = 1 , Clear Timer = 1
Config Aci = On , Compare = Off , Trigger = Rising
Acsr = Acsr And &B01111111 'włączenie timer1, bo Bascom sobie z tym nie bardzo radzi
Config Portb.5 = Output
Config Portb.1 = Output
Config Portb.0 = Output
Dim Okresin As Long 'zmienna wejściowa z timera1
Dim Okresout As Word ' zmienna wyjściowa sterująca
Dim Out1 As Byte 'zmienna sterująca loscią powtórzeń timer0
Dim Out0 As Byte 'zmienna wpisywna do timera na koniec
Dim Outpom As Word
Dim A As Byte
Dim C As Word
Dim D As Long
Dim E As Byte
Dim Zadlugo As Byte
Dim Z As Bit
Dim Y As Bit
Dim Okresinh As Byte
Dim Okresinl As Byte
Enable Interrupts
Enable Timer1
Enable Aci
On Aci Zapal
On Ovf1 Wyzeruj
Okresin = 0
C = 0
E = 0
Start Timer1
'end program
'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Zapal:
Okresin = Timer1
Timer1 = 0
Reset Watchdog
Zadlugo = 0
Return
Wyzeruj:
E = 1
Return[/syntax]
Statystyki: Napisane przez najders — 15 sty 2015, o 13:19
]]>