يك مشكل عجيب هنگام ساخت rectangle

Amit13 · Oct 1, 2010

سلام
اگر اين دستورات رو بنويسم و اجرا كنيم ،دوتا مستطيل ساخته ميشه:

کد:

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 · Oct 1, 2010

amit13 گفت:
سلام
اگر اين دستورات رو بنويسم و اجرا كنيم ،دوتا مستطيل ساخته ميشه:

کد:

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 · Oct 6, 2010

ali guard گفت:
مشكيل شوما اين هست بايد از refresh هم ايستفادة كنيد باشكل زير مشكيلت حل ميشة

واقعا ممنون علي جان.اصلا نميتونستم تصور كنم چه ربطي به هم دارن.

ولي
من مثالم رو كاملتر كردم و اين دوتا مشكل رو پيدا كردم:
اول اينكه،توي الگوريتمم يك تغيير ميديد تا اگر تعداد مستطيل ها زياد شد،از مستطيل بكگراند بيرون نزنه؟؟؟
اگر دگمه ي add رو امتحان كنيد،متوجه ي اين مشكلم ميشيد.

دوم اينكه،چرا وقتي كروسر موس رو،روي مستطيل ها ميارم بردرشون مهو ميشه؟؟؟
ميدونم به خاطر دستور SetObjectParam است ولي چطوري درستش كنم؟؟؟

ممنون دوستان :rose:

Amit13 · Oct 14, 2010

Amit13 گفت:
من مثالم رو كاملتر كردم و اين دوتا مشكل رو پيدا كردم:
اول اينكه،توي الگوريتمم يك تغيير ميديد تا اگر تعداد مستطيل ها زياد شد،از مستطيل بكگراند بيرون نزنه؟؟؟
اگر دگمه ي add رو امتحان كنيد،متوجه ي اين مشكلم ميشيد.

خيلي نامرديد!!!!!
از تعداد دانلودها مشخصه كه حوصله ي سوالم رو نداشتيد.
باشه،سوالم رو بدون پيوست ميگم .
من اين الگريتمها رو داخل يك باتن به نام 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 بزنيم: