Программирование BASCOM
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Фонарь с ШИМ-регулировкой яркости
reanimasterДата: Воскресенье, 16.09.2012, 11:54 | Сообщение # 1
Рядовой
Группа: Пользователи
Сообщений: 1
Статус: Offline
Помогите вогнать МК после выключения в минимальное энергопотребление
Code

$regfile = "attiny13.dat"
$hwstack = 8
$swstack = 16
$framesize = 16

Dim Led As Byte
Led = 0
Dim Button As Bit
Button = 1

Config Pinb.3 = Input
Pinb.3 = 1
Config Portb.1 = Output

Config Timer0 = Pwm , Prescale = 8 , Compare B Pwm = Clear Down

Start Timer0

Do
If Led = 4 Then Led = 0
If Led = 0 Then Pwm0b = 0
If Led = 1 Then Pwm0b = 75
If Led = 2 Then Pwm0b = 160
If Led = 3 Then Pwm0b = 255
If Button = 1 Then
If Pinb.3 = 0 Then
Button = 0
Led = Led + 1
End If
End If
If Pinb.3 = 1 Then Button = 1
Loop

End


Сообщение отредактировал reanimaster - Воскресенье, 16.09.2012, 11:56
 
  • Страница 1 из 1
  • 1
Поиск:

Copyright Radan Studio © 2024