محبوبترینها
دانلود آهنگ های برتر ایرانی و خارجی 2024
ماندگاری بیشتر محصولات باغ شما با این روش ساده!
بارش‌های سیل‌آسا در راه است! آیا خانه شما آماده است؟
بارش‌های سیل‌آسا در راه است! آیا خانه شما آماده است؟
قیمت انواع دستگاه تصفیه آب خانگی در ایران
نمایش جنگ دینامیت شو در تهران [از بیوگرافی میلاد صالح پور تا خرید بلیط]
9 روش جرم گیری ماشین لباسشویی سامسونگ برای از بین بردن بوی بد
ساندویچ پانل: بهترین گزینه برای ساخت و ساز سریع
خرید بیمه، استعلام و مقایسه انواع بیمه درمان ✅?
پروازهای مشهد به دبی چه زمانی ارزان می‌شوند؟
تجربه غذاهای فرانسوی در قلب پاریس بهترین رستوران‌ها و کافه‌ها
صفحه اول
آرشیو مطالب
ورود/عضویت
هواشناسی
قیمت طلا سکه و ارز
قیمت خودرو
مطالب در سایت شما
تبادل لینک
ارتباط با ما
مطالب سایت سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون
مطالب سایت سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون
آمار وبسایت
تعداد کل بازدیدها :
1840657829
يك مشكل عجيب هنگام ساخت rectangle -
واضح آرشیو وب فارسی:سایت ریسک: يك مشكل عجيب هنگام ساخت rectangle Amit13 09 مهر 1389, 15:13سلام اگر اين دستورات رو بنويسم و اجرا كنيم ،دوتا مستطيل ساخته ميشه: If (numberbox=0) Then numberbox=1 CreateRectangle("","label$[numberbox],10,220,190,30,192,192,192") End If (numberbox=1) Then numberbox=2 CreateRectangle("","label$[numberbox],202,220,190,30,192,192,192") End حالا اگر يك return اضافه كنيم.بورد مستطيل اول خراب ميشه. If (numberbox=0) Then numberbox=1 CreateRectangle("","label$[numberbox],10,220,190,30,192,192,192") Return() End If (numberbox=1) Then numberbox=2 CreateRectangle("","label$[numberbox],202,220,190,30,192,192,192") End چرا؟؟ ali guard 09 مهر 1389, 21:46سلام اگر اين دستورات رو بنويسم و اجرا كنيم ،دوتا مستطيل ساخته ميشه: if (numberbox=0) then numberbox=1 createrectangle("","label$[numberbox],10,220,190,30,192,192,192") end if (numberbox=1) then numberbox=2 createrectangle("","label$[numberbox],202,220,190,30,192,192,192") end حالا اگر يك return اضافه كنيم.بورد مستطيل اول خراب ميشه. if (numberbox=0) then numberbox=1 createrectangle("","label$[numberbox],10,220,190,30,192,192,192") return() end if (numberbox=1) then numberbox=2 createrectangle("","label$[numberbox],202,220,190,30,192,192,192") end چرا؟؟ مشكيل شوما اين هست بايد از refresh هم ايستفادة كنيد باشكل زير مشكيلت حل ميشة if (numberbox=0) then numberbox=1 createrectangle("","label$[numberbox],10,220,190,30,192,192,192") refresh("") return() end if (numberbox=1) then numberbox=2 createrectangle("","label$[numberbox],202,220,190,30,192,192,192") end Amit13 13 مهر 1389, 23:12مشكيل شوما اين هست بايد از refresh هم ايستفادة كنيد باشكل زير مشكيلت حل ميشة واقعا ممنون علي جان.اصلا نميتونستم تصور كنم چه ربطي به هم دارن.:oops::oops: ولي من مثالم رو كاملتر كردم و اين دوتا مشكل رو پيدا كردم: اول اينكه،توي الگوريتمم يك تغيير ميديد تا اگر تعداد مستطيل ها زياد شد،از مستطيل بكگراند بيرون نزنه؟؟؟ اگر دگمه ي add رو امتحان كنيد،متوجه ي اين مشكلم ميشيد. دوم اينكه،چرا وقتي كروسر موس رو،روي مستطيل ها ميارم بردرشون مهو ميشه؟؟؟ ميدونم به خاطر دستور SetObjectParam است ولي چطوري درستش كنم؟؟؟ ممنون دوستان:rose: Amit13 22 مهر 1389, 17:58من مثالم رو كاملتر كردم و اين دوتا مشكل رو پيدا كردم: اول اينكه،توي الگوريتمم يك تغيير ميديد تا اگر تعداد مستطيل ها زياد شد،از مستطيل بكگراند بيرون نزنه؟؟؟ اگر دگمه ي add رو امتحان كنيد،متوجه ي اين مشكلم ميشيد. :mad::cry: خيلي نامرديد!!!!! از تعداد دانلودها مشخصه كه حوصله ي سوالم رو نداشتيد. باشه،سوالم رو بدون پيوست ميگم . من اين الگريتمها رو داخل يك باتن به نام add گذاشتم: *********************#define hightsds=30 ylocationsds=220 **************************** If (numberbox=0) Then numberbox=1 CreateRectangle("","label$[numberbox],10,ylocationsds,190,hightsds,192,192,192") SetObjectParam("label$[numberbox]","MOUSEUPSCRIPT:1=script$") Refresh("") Return() End If (numberbox=1) Then numberbox=2 CreateRectangle("","label$[numberbox],202,ylocationsds,190,hightsds,192,192,192") SetObjectParam("label$[numberbox]","MOUSEUPSCRIPT:1=script$") Refresh("") Return() End If (numberbox=2) Then numberbox=3 CreateRectangle("","label$[numberbox],394,ylocationsds,190,hightsds,192,192,192") SetObjectParam("label$[numberbox]","MOUSEUPSCRIPT:1=script$") Refresh("") Return() End If (numberbox=>3) Then locationfirst=10 numberbox=numberbox+1 wboardsds=wboard/numberbox CreateRectangle("","label$[numberbox],586,ylocationsds,190,hightsds,192,192,192") SetObjectParam("label$[numberbox]","MOUSEUPSCRIPT:1=script$") For i=1 To numberbox MoveObject("label$[i]","locationfirst,ylocationsds,wboardsds,hightsds") wightsec=wboardsds+2 locationfirst=locationfirst+wightsec Next i Refresh("") Return() End هر بار كه add رو ميزنيم يك rec توليد ميشه.ولي كجاي الگوريتم رو عوض كنم تا اون مستطيلها از مستطيل بكگرانده بيرون نزنه؟؟؟؟(پيكان قرمزه رو ببينيد) مثل اين عكسها... -اگر سه بار add بزنيم: -اگر چهار بار add بزنيم: -اگر خيلي بار add بزنيم: the_king 23 مهر 1389, 00:06:mad::cry: خيلي نامرديد!!!!! آره، همینطوره. کلا خانوادگی نامردیم. هر چی کد نوشته بودی رو پاک کردم، کلا قابل استفاده نبود. Amit13 23 مهر 1389, 01:30آره، همینطوره. کلا خانوادگی نامردیم. يك لحطه دلم ريخت.از شوخيم ناراحت شديد؟؟؟:rose: پيوست اي ول! خيلي باحال بود.توي اين چند دقيقه همچين چيزي نوشتيد.:shock::shock: سایت ما را در گوگل محبوب کنید با کلیک روی دکمه ای که در سمت چپ این منو با عنوان +1 قرار داده شده شما به این سایت مهر تأیید میزنید و به دوستانتان در صفحه جستجوی گوگل دیدن این سایت را پیشنهاد میکنید که این امر خود باعث افزایش رتبه سایت در گوگل میشود
این صفحه را در گوگل محبوب کنید
[ارسال شده از: سایت ریسک]
[مشاهده در: www.ri3k.eu]
[تعداد بازديد از اين مطلب: 556]
-
گوناگون
پربازدیدترینها