[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Программный шим
sany2Дата: Суббота, 22.03.2014, 20:22 | Сообщение # 1
Группа: Проверенные
Сообщений: 107

Статус: Offline
Ребята,расскажите как программный шим реализовать.Или где почитать.

 
KoSS_89Дата: Суббота, 22.03.2014, 21:29 | Сообщение # 2
Группа: Проверенные
Сообщений: 53

Статус: Offline
Код
$regfile = "2313def.dat"
$crystal = 4000000

Config Portd = Output

Config Timer0 = Timer , Prescale = 1
Enable Interrupts
Enable Timer0
On Timer0 Timer0isr
Start Timer0

Dim Pwm As Byte , A As Byte
Pwm = 0
Do

For A = 0 To 255
Waitms 10
Next A

For A = 255 To 0 Step - 1
Waitms 10
Next A

Loop

Timer0isr:
Incr Pwm

If Pwm > A Then Portd = 255

If Pwm = 255 Then
Pwm = 0
Portd = 0
End If
Return
Это как пример.


 
sany2Дата: Суббота, 22.03.2014, 22:41 | Сообщение # 3
Группа: Проверенные
Сообщений: 107

Статус: Offline
Спасибо

 
  • Страница 1 из 1
  • 1
Поиск: