سوال در مورد فیوزبیت ها

[milad15m]

سلام robo
خوب وقتی pwm را تعریف کردیم میخوایم روی یک پین مثل pa.0 یک پالس ایجاد کنیم که هر یک ثانیه صفر و یک بشه .
باید چه دستوری بنویسیم؟
با سپاس فراوان.

[omid_phoenix]

سلام
pwm پین های مختص خودش و داره
یعنی وقتی pwm1 رو پیکربندی کردید بر روی پین OCR1 این پالس ایجاد میشه
ولی واسه اینکه بخواهید رو پین دلخواه این پالس رو ایجاد کنید میتونید از TOGGLE کردن پین استفاده کنید

کد:

config porta.0 = output
.
.
.
do
set porta.0
waitms 100
toggle porta.0
waitms 100
loop

[milad15m]

با سلام به robo
می خواستم بدونم ocr1 چیه؟
با تشکر.

[omid_phoenix]

سلام توضیح دادم

یعنی وقتی pwm1 رو پیکربندی کردید بر روی پین OCR1 این پالس ایجاد میشه

یکی از پین های میکروکنترلر که پالسی که طی نرم افزار تعریف کردید، بر روی این پین ایجاد میشه

[milad15m]

سلام
ببخشید مفهمیدم میتونید یک مثال بزنید .
با سپاس .

[omid_phoenix]

سلام
نمیدونم کجاش و متوجه نشدید
از این واضح تر نمیشد توضیح بدم
نمونه کد هم که گذاشته شده
شما هدف کلی تون رو بگید و درخصوص کارتون توضیح بدید تا بشه بیشتر کمکتون کرد

[milad15m]

سلام
نمیدونم کجاش و متوجه نشدید
از این واضح تر نمیشد توضیح بدم
نمونه کد هم که گذاشته شده
شما هدف کلی تون رو بگید و درخصوص کارتون توضیح بدید تا بشه بیشتر کمکتون کرد

با سلام عصبی نشید.
خوب اگه میشه یه برنامه مدار چشمک زن با استفاده از پین ocr بنویسید.
با سپاس

[omid_phoenix]

با سلام عصبی نشید.
خوب اگه میشه یه برنامه مدار چشمک زن با استفاده از پین ocr بنویسید.
با سپاس

سلام
عصبانی چرا!

همین برنامه که بالا گذاشتم چشمک زنه

کد:

config porta.0 = output
.
.
.
do
set porta.0
waitms 100
toggle porta.0
waitms 100
loop

یه led به پین porta.0 میکرو وصل کنید چشمک میزنه
موفق باشید.

[milad15m]

اونو فهمیدم من می خوام به پین ocr وصل بشه .
با تشکر.

[omid_phoenix]

سلام
این یه برنامه ساده واسه مسیریاب 5 سنسور
هرجاش و متوجه نشید بگید توضیح بدم.

کد:

$regfile = "m16def.dat"
$crystal = 1000000
'==============================================================================
Config Timer1 = Pwm , Pwm = 10 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down , Prescale = 64
Config Portd = Output
Config Porta = Input
'==============================================================================
Dim A As Word
Dim B As Word
'==============================================================================
A = 0
B = 0
Do
Pwm1a = A
Pwm1b = B
'============================= jolo ===========================================
If Pina.2 = 1 And Pina.4 = 0 And Pina.0 = 0 Then
Portd = &B00000101
A = 1023
B = 1023
Elseif Pina.0 = 0 And Pina.2 = 0 And Pina.1 = 0 And Pina.3 = 0 And Pina.4 = 0 Then
Portd = &B00000000
End If

If Pina.1 = 1 And Pina.4 = 0 And Pina.0 = 0 Then
Portd = &B00000101
A = 1023
B = 1023
Elseif Pina.0 = 0 And Pina.1 = 0 And Pina.2 = 0 And Pina.3 = 0 And Pina.4 = 0 Then
Portd = &B00000000
End If

If Pina.3 = 1 And Pina.4 = 0 And Pina.0 = 0 Then
Portd = &B00000101
A = 1023
B = 1023
Elseif Pina.0 = 0 And Pina.1 = 0 And Pina.2 = 0 And Pina.3 = 0 And Pina.4 = 0 Then
Portd = &B00000000
End If

If Pina.2 = 1 And Pina.1 = 1 And Pina.4 = 0 And Pina.0 = 0 Then
Portd = &B00000101
A = 1023
B = 1023
Elseif Pina.0 = 0 And Pina.1 = 0 And Pina.2 = 0 And Pina.3 = 0 And Pina.4 = 0 Then
Portd = &B00000000
End If

If Pina.2 = 1 And Pina.3 = 1 And Pina.4 = 0 And Pina.0 = 0 Then
Portd = &B00000101
A = 1023
B = 1023
Elseif Pina.0 = 0 And Pina.1 = 0 And Pina.2 = 0 And Pina.3 = 0 And Pina.4 = 0 Then
Portd = &B00000000
End If

'=============================enheraf b chap===================================

If Pina.0 = 1 And Pina.1 = 1 Then
Portd = &B00000001
Elseif Pina.0 = 0 And Pina.1 = 0 And Pina.2 = 0 And Pina.3 = 0 And Pina.4 = 0 Then
Portd = &B00000000
End If

If Pina.0 = 1 Then
Portd = &B00000001
Elseif Pina.0 = 0 And Pina.1 = 0 And Pina.2 = 0 And Pina.3 = 0 And Pina.4 = 0 Then
Portd = &B00000000
End If

'=============================enheraf b rast===================================

If Pina.4 = 1 And Pina.3 = 1 Then
Portd = &B00000100
Elseif Pina.0 = 0 And Pina.1 = 0 And Pina.2 = 0 And Pina.3 = 0 And Pina.4 = 0 Then
Portd = &B00000000
End If

If Pina.4 = 1 Then
Portd = &B00000100
Elseif Pina.0 = 0 And Pina.1 = 0 And Pina.2 = 0 And Pina.3 = 0 And Pina.4 = 0 Then
Portd = &B00000000
End If

Loop