واضح آرشیو وب فارسی:سایت ریسک: View Full Version : كمك فوري parasto201016-12-2009, 06:32 PMسلام دوستان من يك برنامه واسه دوران خط مانند عقربه ساعت نوشتم ولي اجرا نمي شه ميشه كمكم كنيد و برام بنويسيدش توضيحش رو هم برام بذاريد :11::11::41::41::41::11::11: لطفا سريع MR Cracker18-12-2009, 11:24 AMشما کد رو اینجا بزار ببینیم مشکلش چیه MR Cracker18-12-2009, 01:58 PMخوب اینکه کاری نداره شما از یه تایمر استفاده بکن و هر دفعه نقاط x1 و y1 رو بالا پایین کن parasto201018-12-2009, 08:00 PMاين چيزي كه من نوشتم ابته ميدونم كه ناقصه timer1 me.circle(3000,2000),2200 p=4*atn(1) x1=3000 y1=2000 r=2000 d=t*p/180 x2=x1+r*cos(d) y2=y1+r*sin(d) me.line(x1,y1)-(x2,y2) t=t+10 if t=360 then t=0 ميشه برام توضيح هم بدين MR Cracker18-12-2009, 10:48 PMشما چرا خودت رو زحمت می دی؟ اگه از کنترل خط استفاده کنی اون وقت با یه تایمر براحتی می تونی این کار رو بکنی Dim i, j As Integer Private Sub Form_Load() i =Line1.X2 j = Line1.Y2 End Sub Private Sub Timer1_Timer() i = i + 1 j = j - 1 Line1.X2 = i Line1.Y2 = j End Sub البته این مشکل داره ولی شما با دستکاری اون می تونید به خواستتون برسید ar.constantine19-12-2009, 03:40 PMشما چرا خودت رو زحمت می دی؟ اگه از کنترل خط استفاده کنی اون وقت با یه تایمر براحتی می تونی این کار رو بکنی Dim i, j As Integer Private Sub Form_Load() i =Line1.X2 j = Line1.Y2 End Sub Private Sub Timer1_Timer() i = i + 1 j = j - 1 Line1.X2 = i Line1.Y2 = j End Sub البته این مشکل داره ولی شما با دستکاری اون می تونید به خواستتون برسید سلام میخواستم بدونم که شما متغییر i رو از چه نوعی تعریف کردید؟ با تشکر MR Cracker19-12-2009, 08:55 PMDim i, j As Integer ان هم یه ماتریس برای حرکت دورانی |cosx -sinx| |sinx cosx| MR Cracker19-12-2009, 09:06 PM[ Transparent Analog Clock ] Nice Transparent Analog Clock. !!!! برای مشاهده محتوا ، لطفا ثبت نام کنید / وارد شوید !!!! !!!! برای مشاهده محتوا ، لطفا ثبت نام کنید / وارد شوید !!!! سایت ما را در گوگل محبوب کنید با کلیک روی دکمه ای که در سمت چپ این منو با عنوان +1 قرار داده شده شما به این سایت مهر تأیید میزنید و به دوستانتان در صفحه جستجوی گوگل دیدن این سایت را پیشنهاد میکنید که این امر خود باعث افزایش رتبه سایت در گوگل میشود
این صفحه را در گوگل محبوب کنید
[ارسال شده از: سایت ریسک]
[مشاهده در: www.ri3k.eu]
[تعداد بازديد از اين مطلب: 278]