ايران ويج

با سلام
دوستان من يه مدت بود از برنامه نويسي وبيسكام دور بودم

حالا ميخواستم يه يه برنامه با بسكام بنويسم همون اول كار گير كردم نميدونم چيرا اينطوري ميشه چند بارم نرم افزار بسكام رو ژاك كردم دوباره نصب كردم عيب بر طرف نشد واقعا خنده داره ها دوستوره به اين ساده گي منو داره بازي ميده

لطفا شما هم اين برنامرو ببينيد اگه زحمتي نباشه توپرتيوس تست كنيد من كه ديگه خسته شدم داره ديونم ميكنه


Config Kbd = Portd
Dim A As Byte
Dim B As Byte
Main:
Do
A = Getkbd()
If A > 15 Then
Goto Main
Else
Locate 1 , 1
Lcd A
If A < 16 Then
Goto Pp
End If
End If
Loop
Pp:
Do

A = Getkbd()
If A > 15 Then
Goto Pp
End If
Locate 1 , 2
Lcd A
goto ttt
Loop
وبقيه برنامه
........
اضافه ميكنم من نام ميكرو و lcdوپايه هاشو از طريق برنامه بيسكام برنامه ريزي كردم (m16--16*2 lcd)
اينجا در حلقه اول برنامه منتظر عددي ميمونه مثلا 8 فشار داده ميشه
وبايد در محل 1و1 نوشته بشه و وارد حلقه دوم بشه منتظر عدد دوم بشه ولي

اينطور نيست

خيلي عجيبه

كي بورد كه فشار داده شد مثلا 5 عوض اينكه بژره به حلقه بعدي منتظر بمونه

دوتا 5 رو منويسه 5 دوم رو هم تو جاي تعين شده در حلقه دوم مينويسه
چرااااااااااااااااااااااااااااااااااااااااااااااااا
دارم ديونه ميشممممممممممممممممممخواهش ميكنم كمك كنيد لطفا خودتون آزمايش كنيد بعد نظر بدين چون هركي نگاه بكنه ميگه درسته ولي تو عمل اينطور نيست
ببينيد

http://up.iranblog.com/images/0kfa7o4us75aoye7682e.bmp
مثلا من نميخوام عدد دوم رو وارد كنم ولي اين عدد اوا رو كه ميزن دومي رو هم خودش از روي اولي وارد ميكنه اصلا هم حلقه برنامه رو حساب نميكنه

سلام
این برنامه داره درست عمل میکنه چون شما هیچ نگهدارنده ای بهش ندادین بیاید با هم برنامرو مرور کنیم
1- در حلقه اول گفتید اگر >15 شد بره اول برنامه در غیر اینصورت عدد رو بنویسه و در غیری اینصورت باید یا =15 یا =16 یا <16 که اگر بزرگتر از 16 باشه بدون مکث میره به ساب روتین چندش آور pp در اون موقعهنوز سما دستتون رو کلید چون این خطوط در کسری از ثانیه اجرا شدن حالا دقیقا همون اتفاق قبلی میوفته و در همون سطر اما در ستون دوم بازم همون عدد نوشته میشه.
برای خودتونم شده از واژه های با مسما استفاده کنید. آخه pp و ttt هم شد اسم؟