سلام
یه برنامه نوشتم که به نظر خودم مثل PWMآکار میکنه به نظر شما درسته
فایل پروتئوس برنامه رو هم گذاشتم
اگه این درست باشه بی نهایت PWM میشه با میکرو درست کرد(اغراق)
$regfile "m16def.dat"
$crystal = 4000000
Dim F As Integer
Dim G As Integer
Dim H As Integer
G = 100
H = 100
F = 0
Config Portc = Output
Config Portb = Input
Config Int0 = Low Level
Enable Interrupts
Enable Int0
On Int0 Main
Portc = 255
Do
Portc = 255
Waitms G
Portc = 0
Waitms H
Loop
Main:
F = F + 1
H = H - F
G = G + F
If H < 2 Then H = 100 : G = 100 : F = 0
Waitms 50
Return
End
اینم دانلودش
hyip.110mb.com/prj/hadi00.zip
یه برنامه نوشتم که به نظر خودم مثل PWMآکار میکنه به نظر شما درسته
فایل پروتئوس برنامه رو هم گذاشتم
اگه این درست باشه بی نهایت PWM میشه با میکرو درست کرد(اغراق)
$regfile "m16def.dat"
$crystal = 4000000
Dim F As Integer
Dim G As Integer
Dim H As Integer
G = 100
H = 100
F = 0
Config Portc = Output
Config Portb = Input
Config Int0 = Low Level
Enable Interrupts
Enable Int0
On Int0 Main
Portc = 255
Do
Portc = 255
Waitms G
Portc = 0
Waitms H
Loop
Main:
F = F + 1
H = H - F
G = G + F
If H < 2 Then H = 100 : G = 100 : F = 0
Waitms 50
Return
End
اینم دانلودش
hyip.110mb.com/prj/hadi00.zip
دیدگاه