کمک در مورد برنامه نویسی بسکام

[reza_shushtar44]

با سلام . به برنامه زیر نگاه کنید :

$regfile = "m16def.dat"
$crystal = 8000000
Config Porta = 0
Config Portc = 1
Dim Raghs As Byte , Ch As Bit
Main:
Raghs = &H01
Ch = Pina.0
While Ch = 1
Portc = Raghs
Waitms 300
Rotate Raghs , Right 
Ch = Pina.0
Wend
Portc = 0


jmp Main
End

این برنامه باید وقتی پین a.0 یک شد به فاصله 300 میلی ثانیه پایه های پورت سی رو یکی یکی روشن کنه . ولی در عمل فقط LED ای که به پین 0 از پورت C وصل هست روشن میشه و وقتی نوبت بقیه پین ها میرسه با اینکه یک میشوند ولی LED را روشن نمیکنند .
یعنی ولتاژ picc.0 رو گرفتم ( وقتی یک بود) 2.8 ولت بود ، ولی وقتی بقیه پین ها یک میشن ولتاژشون 2.2ولت هست . چرا اینجوریه ؟؟

[reza_shushtar44]

پاسخ : کمک در مورد برنامه نویسی بسکام

ببخشید جمیعا
خودم فهمیدم . باید مینوشتم
config portc=output
تا همه پایه ها رو خروجی کنه . اونجوری فقط بیت اول رو خروجی کردم .
آبروم رفت

[milad_arm]

پاسخ : کمک در مورد برنامه نویسی بسکام

سلام
می خواهی درست یاد بگیری مقاله ی آقای1nafarرا مطالعه کن

من یه برنامه می نویسم

$regfile = "m161def.dat"
$crystal = 12000000
Config Porta = Input 'porta.x mitune bashe'
Config Portc = Output
Dim A As Byte
A = &B00000001
Do
If Pina.0 = 1 Then
Portc = A
Waitms 300
Rotate A , Right
End If
Loop

:applause: :nice: :job: