ورود به حساب ثبت نام جدید فراموشی کلمه عبور
برای ورود به حساب کاربری خود، نام کاربری و کلمه عبورتان را در زیر وارد کرده و روی “ ورود به حساب” کلیک کنید.





اگر فرم ثبت نام برای شما نمایش داده نمیشود، اینجا را کلیک کنید.









اگر فرم بازیابی کلمه عبور برای شما نمایش داده نمیشود، اینجا را کلیک کنید.





نمایش نتایج: از 1 به 2 از 2
  1. #1
    mzeus98
    كاربر عادي
    تاریخ عضویت
    2014 Dec
    نوشته ها
    1
    1
    0

    Question کشیدن بیضی مورب در ویژوال بیسیک

    سلام دوستان
    من امروز عضو سایتتون شدم و تازه کار هم هستم
    میخواستم بدونم ممکنه کمکم بکنید که یک بیضی مورب بکشیم ؟؟
    من بلدم که چجوری یک بیضی عمودی و افقی بکشم ، اما برای کشیدن بیضی مورب مشکل دارم !
    ممنونتون میشم اگر کمکم بکنید
  2. #2
    kood5k
    كاربر عادي
    تاریخ عضویت
    2018 Jul
    نوشته ها
    7
    0
    0
    سلام
    بايد از فرمول كشيدن بيضي و فرمول چرخش استفاده كنيد، كل متغيرها هم از نوع Single باشه

    براي رسم دايره يا بيضي از فرمول زير استفاده كنيد
    1
    2

    x = Sin(r) * 100
    y = Cos(r) * 100

    r بايد در يك حلقه از 0 تا 360 تغيير كنه تا با گذاشتن يك نقطه در هر x, y بدست آمده يك دايره رسم بشه، عدد 100 هم كم و زياد بشه تو شكل بيضي كه افقي و عمودي باشه تاثير ميزاره، هر دوش مثل هم باشه ميشه دايره


    اينم فرمول چرخش
    1
    2

    xr = x0 + (X - x0) * Cos(r) + (Y - y0) * Sin(r)
    yr = y0 + (Y - y0) * Cos(r) - (X - x0) * Sin(r)

    X, Y = مختصات نقاط تشكيل دهنده بيضي
    xr, yr = مختصات جديد بعد از چرخش
    x0, y0 = مبدا مختصات
    r = ميزان چرخش به راديان (Radian = Degrees * 3.14 / 180)

    اين دو تا فرمول رو با هم تركيب كنيد تا بتونيد يك بيضي زاويه دار بكشيد (هر نقطه اي از بيضي در حلقه بالايي بدست اومد تو فرمول چرخش بزاريد تا چرخش اون هم محاسبه بشه بعد رسم كنيد)

    ضمنا بايد فرمتون طبق محور مختصات باشه كه مي*تونيد دستورات زير رو در ابتداي Form_Load بزاريد
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11

    Me.AutoRedraw = True
    Me.WindowState = vbMaximized
    Show
    DoEvents
    Me.ScaleLeft = -120
    Me.ScaleTop = 120
    Me.ScaleWidth = 240
    Me.ScaleHeight = -240
    Line (-120, 0)-(120, 0), vbRed
    Line (0, -120)-(0, 120), vbRed
    Me.DrawWidth = 2

    [برای نمایش لینک باید عضو شوید. ]
    [برای نمایش لینک باید عضو شوید. ]
    [برای نمایش لینک باید عضو شوید. ]
    [برای نمایش لینک باید عضو شوید. ]
    ویرایش توسط kood5k : 2018-09-13 در ساعت 12:42 PM
    هر دم از این باغ بری میرسد
نمایش نتایج: از 1 به 2 از 2

اطلاعات موضوع

کاربرانی که در حال مشاهده این موضوع هستند

در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)

کلمات کلیدی این موضوع

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •  

Content Relevant URLs by vBSEO 3.6.0 RC 2