Добрый день!
Как точно задать длительность импульса? надо на выходе сформировать циклический 48-битный сигнал, на каждый бит дается 0,05сек
пробовал через waitms, но вряд ли это верное решение, да и в отладчике получается ерунда какая-то с неверными задержками...
кстати, температура окружающей среды в пределах допуска МК будет влиять на скорость работы и соответственно задержки?
Полная версия этой страницы: Задание длительности импульса на Atmega8 и Bascom AVR
Форум разработчиков электроники ELECTRONIX.ru > Сайт и форум > В помощь начинающему > Программирование
Если тактировать от внутреннего генератора, то температура влиять будет.
а на сколько сильно она будет влиять? лучше использовать внешний кварц?
Цитата(YoYo7 @ Mar 26 2012, 11:04) 
а на сколько сильно она будет влиять? лучше использовать внешний кварц?
Графики зависимости частоты внутреннего RC - генератора МК от температуры приводятся в даташите на МК. Используйте внешний кварц ...
хорошо, спасибо )
более насущный вопрос все таки - как реализовать точные по длительности сигналы?
более насущный вопрос все таки - как реализовать точные по длительности сигналы?
Цитата(YoYo7 @ Mar 26 2012, 12:46)
более насущный вопрос все таки - как реализовать точные по длительности сигналы?
Таймер используйте. При совпадении показаний таймера с заранее запрограммированным числом (режим "compare match") меняйте состояние ножки ("toggle").
P.S. А ссылку на литературу по AVR я для кого дал ?
по таймеру отслеживать 48 бит? это единственно возможный способ?
За ссылку спасибо, изучаю, но надо знать в каком направлении копать )
За ссылку спасибо, изучаю, но надо знать в каком направлении копать )
Цитата(YoYo7 @ Mar 26 2012, 13:15)
по таймеру отслеживать 48 бит? это единственно возможный способ?
За ссылку спасибо, изучаю, но надо знать в каком направлении копать )
За ссылку спасибо, изучаю, но надо знать в каком направлении копать )
Способов масса - от использования чисто программной задержки до использования таймерного прерывания.
Но самый лучший из все возможных способов - это изучить литературу, даташит на МК, а затем решить свою задачу, точно зная ее специфику.
поэтому и прошу совета у опытных людей какой способ лучше применить в данном случае, ведь для того и нужен форум и конкретно этот раздел, иначе его можно закрыть и повесить шапку RTFM ))
Цитата(YoYo7 @ Mar 26 2012, 14:34)
поэтому и прошу совета у опытных людей какой способ лучше применить в данном случае, ведь для того и нужен форум и конкретно этот раздел, иначе его можно закрыть и повесить шапку RTFM ))
Таймер в режиме Compare Match даст самую высокую точность. Очень советую реализовать все три указанные мной способа, благо это совсем несложно, и выбрать наилучший - исключительно в учебных целях.
P.S. Форум не отменяет необходимости чтения книг. Вам тут помогут решить какие-то частные вопросы, это да. Но вот учиться за вас никто не обязан и не будет.
с таймерами более менее разобрался... вопрос... как из двоичного числа длиной в 48 бит получить определенный разряд? есть какой либо нормальный способ, кроме как обращение как к строке через mid ?
Вы на АСМ пишете? Насколько я понимаю Вам нужно что-то типа SPI/I2C ?
пишу на bascom avr - некое подобие basic'а )
вообще мне надо сделать эмулятор сигнала датчика, без какой либо синхронизации и обратной связи, похоже на 1-wire - тупо передает сигнал на линию
вот как сделал сейчас, в эмуляторе в принципе работает, но пока не загонишь в МК не поймешь на сколько точно выдает импульсы... и все же меня терзают сомнения - написано как то через....
смысл такой - каждые 50мс срабатывает таймер0 и увеличивает счетчик, по счетчику мы получаем нужный бит из строки и загоняем его в порт, при срабатывании таймера1 проверяем состояние входящих сигналов, изменяем сигнал только при 2-м повторении, для исключения кратковременных переключений
вообще мне надо сделать эмулятор сигнала датчика, без какой либо синхронизации и обратной связи, похоже на 1-wire - тупо передает сигнал на линию
вот как сделал сейчас, в эмуляторе в принципе работает, но пока не загонишь в МК не поймешь на сколько точно выдает импульсы... и все же меня терзают сомнения - написано как то через....
смысл такой - каждые 50мс срабатывает таймер0 и увеличивает счетчик, по счетчику мы получаем нужный бит из строки и загоняем его в порт, при срабатывании таймера1 проверяем состояние входящих сигналов, изменяем сигнал только при 2-м повторении, для исключения кратковременных переключений
Код
$regfile = "m8def.dat"
$crystal = 4000000
$hwstack = 40
$swstack = 16
$framesize = 32
Config Portb.1 = Output
Config Portd.2 = Input
Config Portd.3 = Input
Config Timer0 = Timer , Prescale = 1024
Config Timer1 = Timer , Prescale = 256
Dim Timercnt As Byte
Dim Timerstart As Byte
Dim Signal As String * 48
Dim Status_check_bit As Bit
Enable Interrupts
Enable Timer0
Enable Timer1
On Timer0 Pulse
On Timer1 Status_check
Reset Portb
Timercnt = 1
Status_check_bit = 0
Timerstart = 60
Signal = "000000111111111111111000000000011111111111111001"
Do
If Mid(signal , Timercnt , 1) = "1" Then
Set Portb.1
Else
Reset Portb.1
End If
Loop
Pulse:
Stop Timer0
Timer0 = Timerstart
If Timercnt < 48 Then
Timercnt = Timercnt + 1
Else
Timercnt = 1
End If
Start Timer0
Return
Status_check:
If Portd.3 = 0 Then
If Status_check_bit = 1 Then
Signal = "000111111111111110000000101111111111111110010001"
Status_check_bit = 0
Else
Status_check_bit = 1
End If
Elseif Portd.2 = 0 Then
If Status_check_bit = 1 Then
Signal = "000001111111111111100000000001111111111111100101"
Status_check_bit = 0
Else
Status_check_bit = 1
End If
Else
If Status_check_bit = 1 Then
Signal = "000000111111111111111000000000011111111111111001"
Status_check_bit = 0
Else
Status_check_bit = 1
End If
End If
Return
End
$crystal = 4000000
$hwstack = 40
$swstack = 16
$framesize = 32
Config Portb.1 = Output
Config Portd.2 = Input
Config Portd.3 = Input
Config Timer0 = Timer , Prescale = 1024
Config Timer1 = Timer , Prescale = 256
Dim Timercnt As Byte
Dim Timerstart As Byte
Dim Signal As String * 48
Dim Status_check_bit As Bit
Enable Interrupts
Enable Timer0
Enable Timer1
On Timer0 Pulse
On Timer1 Status_check
Reset Portb
Timercnt = 1
Status_check_bit = 0
Timerstart = 60
Signal = "000000111111111111111000000000011111111111111001"
Do
If Mid(signal , Timercnt , 1) = "1" Then
Set Portb.1
Else
Reset Portb.1
End If
Loop
Pulse:
Stop Timer0
Timer0 = Timerstart
If Timercnt < 48 Then
Timercnt = Timercnt + 1
Else
Timercnt = 1
End If
Start Timer0
Return
Status_check:
If Portd.3 = 0 Then
If Status_check_bit = 1 Then
Signal = "000111111111111110000000101111111111111110010001"
Status_check_bit = 0
Else
Status_check_bit = 1
End If
Elseif Portd.2 = 0 Then
If Status_check_bit = 1 Then
Signal = "000001111111111111100000000001111111111111100101"
Status_check_bit = 0
Else
Status_check_bit = 1
End If
Else
If Status_check_bit = 1 Then
Signal = "000000111111111111111000000000011111111111111001"
Status_check_bit = 0
Else
Status_check_bit = 1
End If
End If
Return
End
Да, сильно изменился бейсик с того времени как я его учил. Заливайте в железо и пробуйте. То, что работает в симуляторе может легко не работать в железе.
Для просмотра полной версии этой страницы, пожалуйста, пройдите по ссылке.