سلام . من ماژول em-18 رور راه اندازی کردم با کد زیر
Dim E As Byte, P As Byte
Dim C(12) As String * 1
Dim code As String * 10
Home : Lcd " EM_18 ": Wait 2 : Cls
Do
: Step1
Incr E
()C(e) = Waitkey
If E < 12 Then Goto Step1
For E = 3 To 12
Incr P
Mid(code , P , 1) = C(e)
Next
E = 0
P = 0
Locate 1 , 1 : Lcd code
Loop
مشکل اینجاست که اگر کارت را دوبار پشت سرهم روی ماژول بکشم اعداد دریافتی ماژول کلا قاطی میشه
و اگر آخر برنامه از دستور wait استفاده کنم و کارت را زودتر از مقدار wait بکشم بازم ماژول قاطی میکنه . تو چندتا تاپیک که خوندم جند نفر همین مشکلو داشتن و به نتیجه هم نرسیده بودن!!! آخه rf01d اصلا اینطوری نیست! چه راه حلی پیشنهاد میکنید؟
درضمن از اینتراپت سریال هم استفاده کردم بازم فرقی نکرد
Dim E As Byte, P As Byte
Dim C(12) As String * 1
Dim code As String * 10
Home : Lcd " EM_18 ": Wait 2 : Cls
Do
: Step1
Incr E
()C(e) = Waitkey
If E < 12 Then Goto Step1
For E = 3 To 12
Incr P
Mid(code , P , 1) = C(e)
Next
E = 0
P = 0
Locate 1 , 1 : Lcd code
Loop
مشکل اینجاست که اگر کارت را دوبار پشت سرهم روی ماژول بکشم اعداد دریافتی ماژول کلا قاطی میشه
و اگر آخر برنامه از دستور wait استفاده کنم و کارت را زودتر از مقدار wait بکشم بازم ماژول قاطی میکنه . تو چندتا تاپیک که خوندم جند نفر همین مشکلو داشتن و به نتیجه هم نرسیده بودن!!! آخه rf01d اصلا اینطوری نیست! چه راه حلی پیشنهاد میکنید؟
درضمن از اینتراپت سریال هم استفاده کردم بازم فرقی نکرد
دیدگاه