واضح آرشیو وب فارسی:سایت ریسک: يك مشكل عجيب هنگام ساخت 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]
[تعداد بازديد از اين مطلب: 548]