Программный шим

[ Новые сообщения · Участники · Правила форума · Поиск · 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