خواندن اعداد اسکی از پرت سریال

[nader875]

سلام من چه طور می تونم یه عدد 10 رقمی که هر رقمش به صورت اسکی و پشت سر هم ارسال میشه بخونم؟؟؟

البته به زبان بیسیک

[reza_agha]

پاسخ : خواندن اعداد اسکی از پرت سریال

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

[nader875]

پاسخ : خواندن اعداد اسکی از پرت سریال

من نمی تونم تو اطلاعات ورودی تغییر بدم اطلاعات مربوط به یه ماژول کارت خوان هست که 14 تا کد اسکی میده 12 تا شماره کارته !!
با دستور inkey () اطلاعاتو می خونم اما همه روهم ذخیره میشه!!!
یعنی یهو اعداد عین یه کانتر روی ال سی دی نشون میده و فقط عدد آخر می مونه!!!
چه کار کنم که اطلاعات هر عدد که میاد جدا جدا ذخیره کنم؟؟
اعداد هم به صورت اسکی هست

[nader875]

پاسخ : خواندن اعداد اسکی از پرت سریال

$regfile = "m16def.dat"
$crystal = 11059200
$baud = 9600
Config Lcdpin = Pin , Rs = Portc.0 , E = Portc.1 , Db7 = Portc.2 , Db6 = Portc.3 , Db5 = Portc.4 , Db4 = Portc.5
Cursor Off

Dim A As Byte
dim b as string*20

Do
S = Inkey()
A = Asc(s)
Home : Lcd A
Loop
این برنامه که فقط کاراکتر آخر نشون میده!!!!

اگه کسی کمک کنه یه شرینی ناقابل تقدیمش می کنم!!!!!!

[nader875]

پاسخ : خواندن اعداد اسکی از پرت سریال

32تا بازدید یه نفر یعنی نیست کمک کنه؟؟؟؟؟؟؟؟؟؟

[reza_agha]

پاسخ : خواندن اعداد اسکی از پرت سریال

من بیسیک کار نیستم. غیر از اون دیابت دارم. شیرینی برام خوب نیست!!!
:mrgreen: :mrgreen:

[nader875]

پاسخ : خواندن اعداد اسکی از پرت سریال

اینم از شانس ماست!!!!!!!!!!!!!!!!!

[reza_agha]

پاسخ : خواندن اعداد اسکی از پرت سریال

$regfile = "m16def.dat"
$crystal = 11059200
$baud = 9600

Config Lcdpin = Pin , Rs = Portc.0 , E = Portc.1 , Db7 = Portc.2 , Db6 = Portc.3 , Db5 = Portc.4 , Db4 = Portc.5

Dim A As Byte
Dim S as string*20
Dim C as Char

Cursor Off

While Inkey() <> Asc(";&quot
WEnd

S = ""
Do
C = Inkey()
IF C = Asc(";&quot
Home
Lcd S
S = ""
Else
S = S + C
EndIf
Loop

ببین این کارتو راه میندازه؟ البته رفع عیبش با خودت. رفع وجود شیرینی هم با خودت.

[nader875]

پاسخ : خواندن اعداد اسکی از پرت سریال

رضا جون دستت درد نکنه داداش وقت می زاری ولی این برنامه یه عالمه ایراد داره اوومدم درست کنم دیدم شد یه چیزه دیگه
از اوون اول که متغیر chr تعریف کردی تا اوون آخر که c+s کردی!!
ولی خب حرکتت واسمون خیلی با ارزش بود تشکر

[reza_agha]

پاسخ : خواندن اعداد اسکی از پرت سریال

طوری نیست. منطق کلی اش مهمه. و گرنه یادم رفت که Waitkey هم بذارم که بیخود کاراکتر nul ته رشته اضافه نکنه.

[nader875]

پاسخ : خواندن اعداد اسکی از پرت سریال

نه رضا جون با خورده تغییرات هم به جایی نمیرسه

[reza_agha]

پاسخ : خواندن اعداد اسکی از پرت سریال

ببخشید من گیج بازی درآوردم حواسم اصلا به اون قضیه 14 تا یی نبود. میتونین با هایپر ترمینال یه چند تا رکورد پشت سرهم از اطلاعات دریافتی رو بگیرین و اینجا بذارین؟ شاید بشه پترنی قابل تفکیک از هم درآورد.

[nader875]

پاسخ : خواندن اعداد اسکی از پرت سریال

این برنامه نوشم
12 کد رو ال سی دی اوومد
اما 8 تاش بالا 4 تاش پایین
نمی دونم چرا؟؟؟

احتمالا این همون 12 تا کد خروجیه چون با یه کارت دیگه که تست کردم 2 کد اول که مشترک هست اومد و بقیه تفاوت داشت

$regfile = "m16def.dat"
$crystal = 11059200
$baud = 9600

Config Lcdpin = Pin , Rs = Portc.0 , E = Portc.1 , Db7 = Portc.2 , Db6 = Portc.3 , Db5 = Portc.4 , Db4 = Portc.5
Dim Eightbits As String * 12 , Rfiddata As String * 12
Dim C As Byte


Do
Incr C
Rfiddata = Waitkey()
Eightbits = Left(rfiddata , 12 )              
Lcd Eightbits
Loop