دستور inkey در بسکام کارش چیه ؟

[علیدلی]

سلام
دوستان دستور inkey در بسکام کارش چیه .
البته در اموزش بسکام اینو خوندم ولی منظورشو متوجه نشدم

این دستور مقدار اسکی کاراکتر دریافت شده از پورت سریال را بر میگرداند

var=inkey()

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

[morteza_rk]

سلام

مقدار اسکی درواقع کد اصلی کارکترها در کامپیوتر هستن. مثلا کد اسکی حرف A (حروف بزرگ) میشه 65 و کد اسکی B (حروف بزرگ) میشه 66 و الی آخر...

دستور inkey این کدهارو دونه دونه از بافر سریال می خونه و در یک متغیر از نوع بایت قرار میده. وقتی هم که هیچ کاراکتری در بافر پورت سریال نباشه مقدار 0 برگردونده میشه که درواقع کد اسکی کاراکتر null (هیچی) هست.

[علیدلی]

سلام
دوستان من ارتباط بین میکرو و کامپیوتر ایجاد کردم و اطلاعات ارسالی و دریافتی رو از طریق برنامه TERMINAL EMULITOR بسکام تست میکنم .اطلاعاتی که از طریق میکرو میفرستم به درستی در کامپیوتر دریافت میکنم ولی متن های که در برنامه TERMINAL EMULITOR بسکام مینویسم بصورت کد اسکی در میاد و در میکرو کدهای اسکی رونمایش میده .مثلا در TERMINAL EMULITOR ،، میزنم A در میکرو 65 رو نشون میده .از چه دستوری استفاده کنم که دقیقا همان متن یا حروف مورد نظر رو نشون بده .این یه برنامه ساده که دارم تست میکنم .

$regfile = "m8def.dat"
$crystal = 8000000
$baud = 9600
Config Lcdpin = Pin , Rs = Pinc.0 , E = Pinc.1 , Db4 = Pinc.2 , Db5 = Pinc.3 , Db6 = Pinc.4 , Db7 = Pinc.5
Config Lcd = 16 * 2
Cursor Off
Enable Interrupts
Enable Urxc
On Urxc Ff

Dim Receive As Byte
Print "HELLO"
Wait 1
Cls
Print "mohammad"
 Wait 1

 Do

 Loop
  End

Ff:
Receive = Inkey()
Locate 2 , 1
Lcd Receive
Print Receive
Wait 1
Cls
Return

[morteza_rk]

سلام

از کد زیر استفاده کنید ، ببنید چی میشه :

dim string1 as string*10

string1=string1+chr(Receive)

[علیدلی]

سلام

از کد زیر استفاده کنید ، ببنید چی میشه :

dim string1 as string*10

string1=string1+chr(receive)

سلام
ممنونم .اره درست شد .یه سوال؟
من جهت اشنا شدن با max232 و دستورات سریال ؛این مدارو بستم .این دستوری که شما دادید برای دریافت حروف و متن بود .
بهترین دستور برای دریافت اطلاعات در ارتباط سریال چیه ؟

مثلا از چه دستوری برای دریافت عدد استفاده کنم ؟ مثلا میخام در گیرنده یه دستور شرطی بذارم که اگر از فرستنده عدد 20 رو دریافت کرد یه خروجی رو فعال کنه .

[علیدلی]

سلام
من میخام با استفاده از برنامه TERMINAL EMULITOR مثلا بزنم 8 ویه خروجی در گیرنده فعال بشه و مثلا اگر زدم 5 غیر فعال .ولی الان هرکاری میکنم جواب نمیده .یعنی خروجی رو فعال نمیکنه .
باید چیکار کنم ؟

Do
Loop
End

Ff:
Receive = Inkey()
String1 = Chr(receive)
Locate 1 , 1
Lcd String1
Print String1

Waitms 200
If String1 = 8 Then
Set Portd.2
Else
If String1 = 5 Then
Reset Portd.2
End If
End If
Cls
Return

[mahdi74]

سلام
فکر کنم اگر اینجوری بنویسی درست میشه
[PHP]
.
.
If String1 = "8" Then
Set Portd.2
.
.
.
[/PHP]