آقا بجای اینکه بنویسم a=fix(rnd*(99-10)) l نوشتم a=fix(rnd*(99-0) l که زود درستش کردم . شرمنده دوست عزیزم.
عزیزم همینکه خواسته شمارا دیدم رفتم سراغ ویژوال و یه چیزایی نوشتم که همون کاری که میخوای را میکنه:
لوازم م ورد نیاز : 2 عدد command یکی برای اجرای برنامه و یکی برای خروج
یک عدد textbox
و دو عدد list box . سعی کن لیست باشه . با نام پیشفرض
در رویداد Text1_LostFocus این دستور را بنویس :
کد:
برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
در رویداد دکمه برای اجرای برنامه این کدهارو قرار بده :
کد:
برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
و در آخر در رویداد دکمه خروج این کد را بنویس:
کد:
برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
توجه : آقا بجای اینکه بنویسم a=fix(rnd*(99-10)) l نوشتم a=fix(rnd*(99-0) l که زود درستش کردم . شرمنده دوست عزیزم
نکته : اندازه دو لیست باکس را کوچک کن و اندازه قلم را 12 یا 24 و نوع قلم را BOLD کن.
توضیح برنامه :
اول از همه در رویداد lost_focus از شی text1 کدی نوشتم که اگه عدد وارد شده کمتر از 10 یا بیشتر از 99 بود اخطار بده .( عدد دو رقمی ) در رویداد lost_focus نوشتم که نگام خارج شدن از از درون text1 شرط نوشته شده را تست کنه .
یک عدد تصادفی بین 10 تا 99 ( دو رقمی) تولید میکنیم و در حافظه a قرار دادیم. با دستور if شرط گذاشتم که اگه مساوی بودن رنگ داخلی دو لیست قرمز بشه و ستاره را add کنه و تا ...
از دو دستور Right و left تست کردم اگه دو عدد مساوی نبودن حالا ببینه ایا چپ یا راست مساوی هستند یا خیر .
فاضل نصیری همیشه در خدمت شما .
****************برنامه اورژانسی *********هر کسی می تونه زحمت این برنام رو واسه من بکشه ؟؟
جواب بصورت نقل قول
دوست عزیزم سلام
