مشکل در ارتباط با میکرو

[soshyan]

سلام من میخوام بین کامپیوتر و میکرو اتباط برقرار کنم به این صورت که مقدار 3 تا پین A رو بخونه و اگه یک بودن به واسم a b c پرینت کنن تا اینجاش مشکلی ندارم اما وقتی میخوام نتیجه اینارو به صورت یه رشته سه تای مثل 101 یا 001 که برای فعال کردن 3 تا از پینهای پورت b هست مشکل دارم
Config Porta = Input : Config Portb = Output
Do

A = Pina.0
If A = 1 Then
Print "a"
Waitms 100
Elseif A = 0 Then
Reset Portb.0
End If

B = Pina.1
If B = 1 Then
Print "b"
Waitms 100
End If

C = Pina.2
If C = 1 Then
Print "c"
Waitms 100
End If

Input , D
Z = Mid(d , 1 , 1)
If Z = "1" Then
Set Portb.0
End If
S = Mid(d , 1 , 1)
If S = "1" Then
Set Portb.1
End If
N = Mid(d , 1 , 1)
If N = "1" Then
Set Portb.2
End If
با این برنامه جواب نگرفتم مشکلش کجاست؟
اینم امتحان کردم نشد
E = Inkey()

If E = "001" Then
Set Portb.0
End If

If E = "010" Then
Set Portb.1
End If

If E = "100" Then
Set Portb.2
End If

[sharin]

سلام.

دقيقا مشكلتون با كدوم بخش از برنامه هست ؟
روند پيچيده اي نداره ... ، فقط بايد برنامه رو قسمت قسمت كنيد ...
ببينيد كدوم بخش كار نمي كنه ... ، اونوقت فقط همون رو ، رو ميكرو بريزيد و تست كنيد تا اشكال كار مشخص بشه ...
اون موقع مي تونيد برنامه ي تركيبي بنويسيد.

مثال help بسكام هم ببينيد.

موفق باشيد.
يا علي.

[soshyan]

سلام.

دقيقا مشكلتون با كدوم بخش از برنامه هست ؟
روند پيچيده اي نداره ... ، فقط بايد برنامه رو قسمت قسمت كنيد ...
ببينيد كدوم بخش كار نمي كنه ... ، اونوقت فقط همون رو ، رو ميكرو بريزيد و تست كنيد تا اشكال كار مشخص بشه ...
اون موقع مي تونيد برنامه ي تركيبي بنويسيد.

مثال help بسكام هم ببينيد.

موفق باشيد.
يا علي.

مشکل من این که میخوام از طریق کامپیوتر 3 تا پین میکرو رو 0 و 1 (set , reset)کنم حالا به هر طریقی
من خودم در نظر داشتم یه رشته 3 تای بفرستم وبا میکرو با دستور mid وسط خوانی کنم و واسه هر کدوم شرط بزارم اما برنامه هام جواب نداد
هم input و inkey استفاده کردم جواب نداد برنامم
قبلا ارتباطام چک کردم درسته مثلا با ای کد ها جواب گرفتم
A = Inkey()
If A = "a" Then
Set Portb.0
Elseif A = "b" Then
Reset Portb.0
end IF
وقتی "a" میفرستادم پینم 1 میشد وقتی "b" میفرستادم پینم 0 میشد
اما وقتی تعداد خروجی بالا باشه به اینصورت جالب نیست
من همه help هم برای این دستورا خوندم اما نتونستم جواب بگیرم

[sharin]

شما از طريق terminal emulator با ميكرو ارتباط برقرار مي كنيد ؟
اين محيط براي ارتباط خيلي محدود هست ...
اگر مي خوايد اين ارتباط رو بسط بديد بايد VB يا C# يا ... ، ياد بگيري كه يه اينترفيس كاربري مختص سخت افزارت بسازي و بهش قابليت بدي ...
اينطوري دستت باز تر هست و ...

موفق باشي.
يا علي.

[parviz2012]

پیشنهاد این حقیر این است که یکبار دیگه بخش ارتباطات serial و USART&UART رو کاملتر بخونید.حتما موفق میشوید.

[soshyan]

شما از طريق terminal emulator با ميكرو ارتباط برقرار مي كنيد ؟
اين محيط براي ارتباط خيلي محدود هست ...
اگر مي خوايد اين ارتباط رو بسط بديد بايد VB يا C# يا ... ، ياد بگيري كه يه اينترفيس كاربري مختص سخت افزارت بسازي و بهش قابليت بدي ...
اينطوري دستت باز تر هست و ...

موفق باشي.
يا علي.

نه من از متلب استفاده میکنم
چه فرقی داره من از چه نرم افزاری استفاده کنم؟!!!
مسله رو پیچیده میکنید
من میخوام یه رشته مثل 101
رو بگیرم و به سه پین میکرو بدم تمام!
دستور خودم نوشتم جواب نداد

Input , D
Z = Mid(d , 1 , 1)
If Z = "1" Then
Set Portb.0
End If
S = Mid(d , 1 , 1)
If S = "1" Then
Set Portb.1
End If
N = Mid(d , 1 , 1)
If N = "1" Then
Set Portb.2
End If

پیشنهاد این حقیر این است که یکبار دیگه بخش ارتباطات serial و USART&UART رو کاملتر بخونید.حتما موفق میشوید.

من بالا هم گفتم دستورای هلپ رو چند بارخوندم نتیجه نگرفتم
inkey,input,inputhex,inputbin,waitkey
اگه همه میتونستن مشکلاتشون با نگاه کردن هلپ حل بشه دیگه اینقد سایت و کتاب در موردش نبود !

[sharin]

آهان ...
خوب همون اول بايد مي گفتي ... !

چه فرقی داره من از چه نرم افزاری استفاده کنم؟!!!
مسله رو پیچیده میکنید Biggrin

از نظر فرق كردن كه خيلي فرق مي كنه ... !

وقتي شما دارين از پروتكل هاي ارتباطي استفاده مي كنيد ، بايد بدونيد دو طرف دارن چيكار ميكنن ... !
يعني فرستنده ، چي رو چطور مي فرسته و گيرنده چي رو چطور مي گيرهه ... !

در حال حاضر شما بايد ببينيد كه MATLAB داده ها رو چطوري مي فرستده ، كه متناسب با همون در ورودي ( كد ميكرو ) دريافت كنيد.

حالا شما گفتي با MATLAB مي خواي ارتباط برقرار كني ، كه من ارتباط با MATLAB رو تا حالا امتحان نكردم اما يه مقاله آقاي 2nafar توي پرتال همين سايت گذاشته كه ممكنه بتونه بهتون كمك كنه ...

در هر صورت پيشنهاد من استفاده از دستور waitkey هست. اطلاعات بيشتر در مورد اين دستور در help بسكام .

موفق باشيد.
يا علي.

[soshyan]

سلام من گفتم به صورت رشته میفرستم از متلب

A = Inkey()
If E = 97 Then
Set Portb.0
End If
اگه من تو متلب a پرینت کنم Portb.0 ست میشه اینو تست کردم جواب گرفتم

حالا من میخوام به صورت 0001 و 0010 و ... بفرستم واسه 4 تا پین
یعنی چند تا پین رو کنترل کنم با متلب
من اطلاعاتم زیاد نیست در این مورد اما فکر کنم داده های که از متلب یا VB يا C# يا ... بفرستم فرقی واسه میکرو نداره و فقط مهم نوع داده میباشد و همه این نرم افزارها میتونن داده رو به صورتهای مختلف بفرستن
مثلا من از متلب به صورت رشته بفرستم فرقی داره با زمانی که با یک نرم افزار دیگه به صورت رشته بفرستم؟؟؟؟
مهم میکرو هست که وقتی میاد پورت سریال میخونه رشته دریافت میکنه و باید دستور مناسب با اون استفاده کرد
امیدوارم متوجه مشکل من شده باشید

[sharin]

شما اگر يه رشته ي 4 كاراكتري بفرستي ، سمت ميكرو 4 بار بايد از دستور گرفتن پشت سر هم استفاده كني ، يا از حلقه استفادي كني ... ( مي توني هر كردوم رو در متغيير هاي جدا يا خانه هاي يك آرايه بريزي ... )
بعد دونه دونه مقادير 4 متغيير رو check كني ...
اين كار رو مي كني ؟
دستوري مثل inkey همونطور كه help بسكام گفته تنها 1 كاراكتر رو بر مي گردونهه ...

موفق باشي.
يا علي.

[soshyan]

شما اگر يه رشته ي 4 كاراكتري بفرستي ، سمت ميكرو 4 بار بايد از دستور گرفتن پشت سر هم استفاده كني ، يا از حلقه استفادي كني ... ( مي توني هر كردوم رو در متغيير هاي جدا يا خانه هاي يك آرايه بريزي ... )

سلام من مشکلم همینه این دستوری که بشه 4 بار پشت سر هم گرفت چیه؟
من از اینپوت استفاده کردم جواب نداد!

---

[sharin]

خوب سادست ديگه ...
البته كار با رشته ها و ... كمي خلاقيت مي طلبه ، اما يه نمونه ي سادهه اينطوريه :

کد:

recv1=waitkey()
recv2=waitkey()
num1=string(1,recv1)
num2=string(1,recv2)
num=num1+num2
cls
lcd num

موفق باشي.
يا علي.