[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Форум » форумы » Общие вопросы по Bascom-AVR » Atiny13 (Помогите оптимизировать код)
Atiny13
301992Дата: Четверг, 11.04.2013, 19:40 | Сообщение # 1
Группа: Проверенные
Сообщений: 47

Статус: Offline
Код
$regfile = "attiny13.dat"
$crystal = 9600000

Config Timer0 = Pwm , Compare A Pwm = Clear Up , Compare B Pwm = Clear Up , Prescale = 8

Config Portb.0 = Output
Config Portb.1 = Output
Config Pinb.3 = Input
Config Pinb.4 = Input
Config Pinb.2 = Input
Dim A As Byte
Config Debounce = 50

Stop Timer0
A = 0
Do
  Debounce Pinb.3 , 0 , Minuti , Sub
  If A = 2 Then Start Timer0
  If A = 1 Then Stop Timer0
  If Pinb.4 = 0 Then
  Do
    Decr Pwm0a : If Pwm0a > 253 Then Pwm0a = 253
    Waitms 10
  Loop Until Pinb.4 = 1
  End If

  If Pinb.2 = 0 Then
  Do
    Incr Pwm0a : If Pwm0a < 2 Then Pwm0a = 2
    Waitms 10
  Loop Until Pinb.2 = 1
  End If

Loop

End

Minuti:
Incr A
If A = 3 Then A = 1
Return

В железе криво работает, а в протеусе нормально


 
KoSS_89Дата: Четверг, 11.04.2013, 20:13 | Сообщение # 2
Группа: Проверенные
Сообщений: 53

Статус: Offline
Значит в железе криво собрано, антидребезг на кнопках сделали, входы мк болтаются в воздухе или имеют подтяжку. Причин много поточнее проблему!



Сообщение отредактировал KoSS_89 - Четверг, 11.04.2013, 20:17
 
301992Дата: Пятница, 12.04.2013, 17:51 | Сообщение # 3
Группа: Проверенные
Сообщений: 47

Статус: Offline
порты не в воздухе. Подтяжка 4.7к. Кнопками шим гоняется по кругу, а должны иметь крайние положения.

 
spaceДата: Пятница, 12.04.2013, 17:59 | Сообщение # 4
Группа: Проверенные
Сообщений: 42

Статус: Offline
Код
$regfile = "attiny13.dat"    
$crystal = 9600000    

$hwstack = 30
$swstack = 30
$framesize = 30

Config Timer0 = Pwm , Compare A Pwm = Clear Up , Compare B Pwm = Clear Up , Prescale = 8    

Config Portb.0 = Output    
Config Portb.1 = Output    
Set Portb.3 : on0 Alias Pinb.3
Set Portb.4 : on1 Alias Pinb.4      
Set Portb.2 : on2 Alias Pinb.2    
Dim A As Byte    
Config Debounce = 50    

Stop Timer0    
A = 0    
Do    
     Debounce on0 , 0 , Minuti , Sub    
     If A = 2 Then Start Timer0    
     If A = 1 Then Stop Timer0    
     If on1 = 0 Then    
     Do    
       Decr Pwm0a : If Pwm0a > 253 Then Pwm0a = 253    
       Waitms 10    
     Loop Until on1 = 1    
     End If    

     If on2 = 0 Then    
     Do    
       Incr Pwm0a : If Pwm0a < 2 Then Pwm0a = 2    
       Waitms 10    
     Loop Until on2 = 1    
     End If    

Loop    

End    

Minuti:    
Incr A    
If A = 3 Then A = 1    
Return

Попробуй так




Сообщение отредактировал space - Пятница, 12.04.2013, 18:01
 
301992Дата: Вторник, 18.06.2013, 16:32 | Сообщение # 5
Группа: Проверенные
Сообщений: 47

Статус: Offline
К вопросу о данном контроллере.
Уважаемые форумчане, 
В очередной раз купил в магазине Tiny 13. Так он не определяется программатором. В наличае програматор  USBAsp, USBBit и AVR910. Так ни один из них его не видит. Таких контроллеров набралось 7 шт. Почему сразу магазинский контроллер неопределяется и как это исправить. Програмирую в переходнике из SMD в DIP. Было 10 контроллеров и только 3 успешно используються. 
Может кто с подобным сталкивался и знает как решить данную проблему.
Контролеры 2313 и М8 из этого магазина успешно определяються.


 
exersizzeДата: Вторник, 18.06.2013, 19:24 | Сообщение # 6
Группа: Администраторы
Сообщений: 723

Статус: Offline
301992, если микросхемы еще не паяные - неси туда где купил, должны заменить. Брак налицо.

 
Форум » форумы » Общие вопросы по Bascom-AVR » Atiny13 (Помогите оптимизировать код)
  • Страница 1 из 1
  • 1
Поиск: