يعني هيچكي تا حالا با بيسكام شفت �

[Elexal]

يعني هيچكي تا حالا با بيسكام شفت انكدر راه ننداخته؟؟؟؟؟؟؟؟؟؟
اگه كسي راه انداخته با بيسكام اي وي آر بگه چه جوري ُ خواهشا

[1nafar]

سلام
شما باید خروجی شفت رو به ورودی کانتر متصل کنید و......
معمولا مشکل اغلب دوستان موراد زیر هست :
1- فرستنده و گیرنده شفت مقابل هم نیستند ، خروجی وجود نداره
2- سطح ولتاژ خروجی شفت کمتر از 1 منطقی هست .
3- شما برنامه و مدارت رو بزار تا من اصلاحش کنم

[ROBOMAN]

سلام
فكر ميكنم اين بدردت بخوره
[align=left:94d4bd9b89]
$regfile = "m8def.dat"
$crystal = 12000000
Config Timer1 = Counter , Edge = Falling
Enable Interrupts
Enable Timer1
Enable Ovf1
On Counter1 Cmplt
Counter1 = 63536
Config Lcdpin = Pin , Db4 = Portb.1 , Db5 = Portb.2 , Db6 = Portb.3 , Db7 = _
Portb.4 , E = Portb.0 , Rs = Portb.5
Config Lcd = 16 * 2
Ddrd.5 = 0
Portb.5 = 1

Cursor Off
Cls
Dim Cnt As Word
Dim Deg As Single
'Start Timer0
Cls
Lcd "rot"
Do

Cnt = Counter1 - 63536
Deg = Cnt / 2000
Deg = Deg * 360

Home Lower
Lcd " " ; Deg ; " "
Locate 2 , 11
Lcd " Deg"
Loop
End 'end program

Cmplt:
Counter1 = 63536
Return[/align:94d4bd9b89]