Корефеи подскажите как управлять аппаратным ШИМ например Тини13 или AT90PWM2_3.
В описании ничего не нашёл кроме команд Start & Stop.
Может кто с этим делом сталкивался!!!!!
аппаратный ШИМ в BasCom
Сообщений 1 страница 10 из 10
Поделиться12008-09-12 21:42:29
Поделиться22008-09-13 16:06:43
Вот кусочек кода для меги8. Тренировочной кошкой была такая платка: вывод OC1A через драйвер полевика на IRFZ44 и 7сегментный индикатор с 3мя кнопками. Мучайся 
Dim A As Word
Dim B As Word
Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Up , Compare B Pwm = Clear Down , Prescale = 8
Config Pinb.1 = Output
Do
For A = 255 To 0 Step -1
Pwm1a = A
Waitms 100
Next
For A = 0 To 255
Pwm1a = A
'Waitms 100
Next
Loop
End
Обидно только что получилось только частично. Почему-то если разрешить прерывания и по таймеру0 выводить на индикаторы светодиодный прожектор начинает подмигивать, и теряет управляемость (кнопками по debounce делал инкремент \ декремент значения PWM1A) и на флаги тоже перестает реагировать (битовые значения типа вкл\выкл) может у кого есть что-то похожее? задача такова: при подаче нуля но лапу проца плавно разжечь сетодиодный прожектор, при снятии (1) плавно же потушить. в потушенном состоянии должна регулироваться яркость и отображаться на индикаторах и на самой лампе, с запоминанием яркости. Заранее спасибо.
Отредактировано Skull (2008-09-13 16:10:23)
Поделиться32008-09-13 20:55:19
По debounce в данном случае работать нельзя. Пробуй нажатие кнопки организовывать через цикл.
Поделиться42008-09-14 22:53:12
А примерчик мона? , я туда по глупости еще и термометр влепил, что-нить можно сделать с периодическим подмаргиванием семисегментника на время чтения 18В20?????
Отредактировано Skull (2008-09-14 23:16:42)
Поделиться52008-09-30 15:45:49
С ШИМом у tiny13 пару лет назад иноземцев мучал, мож пригодицо 
Здесь
И простенький код для теста накидал тогда же 
$regfile = "attiny13.dat" $noramclear Tccr0a = &B10000001 'Set oc0a on comparematch when DOWNcounting Tccr0b = &B00000001 ' =1 for full speed(prescale=1) Dim A As Iram Byte Do For A = 255 To 1 Step -8 Ocr0a = A Waitms 100 If A = 7 Then Gosub Stp Exit Do End If Next A Loop End 'end program Stp: Tccr0a = &B00000000 Tccr0b = &B00000000
Поделиться62020-04-05 12:50:46
Всем привет! Ребят подскажите, есть ли у кого програмка регулировка шим потенциометром, с выходом на 2 канала, 1 плавно набирает, 2 плавно гаснет. Заранее спасибо.
Поделиться72020-04-05 17:08:58
Вроде програмки писать умеете.. Задача не сложная ведь. Не думаю что кто то хранит такое 
Поделиться82020-04-05 22:15:49
Чет не получается.
Поделиться92020-04-05 22:38:37
Аналогово-Цифровой Преобразователь (АЦП):
http://avrproject.ru/index/analogovo_ci … m_avr/0-51
КОНФИГУРИРУЕМ ШИМ В BASCOM:
http://avrproject.ru/publ/pwm_bascom/1-1-0-37
Поделиться102020-04-05 23:58:50
Спасибо . Почитаю.