PDA

View Full Version : سوال: چرخاندن Line



milad.msm
سه شنبه 10 آبان 1390, 20:06 عصر
خدا قوت
می خواستم ببینم چه طوری میشه یه LINEتو مرکز فرم قرار بدم و بچرخونمش بدون اینکه طولش کم یا زیاد بشه......................
(بدون استفاده از شی)..

milad.msm
یک شنبه 15 آبان 1390, 15:36 عصر
واقعا کسی تو سایت به این بزرگی نیست که جواب منو بده؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

m4hd1r
یک شنبه 15 آبان 1390, 20:48 عصر
مثلا يه زاويه آلفا تعريف كن و x1 , y1 خط رو برابر سينوس آلفا * 100 + 100 بزار و كسينوسش هم همين و براي x2 , y2 هم منفي سينوس و كسينوس +100 بزار درست ميشه

milad.msm
دوشنبه 16 آبان 1390, 10:27 صبح
مثلا يه زاويه آلفا تعريف كن و x1 , y1 خط رو برابر سينوس آلفا * 100 + 100 بزار و كسينوسش هم همين و براي x2 , y2 هم منفي سينوس و كسينوس +100 بزار درست ميشه

خیلی ممنون ولی اگه خودت امتحان کرده باشی درست نمی چرخه .......
اگه برنامشو بنوسی عالی میشه

m4hd1r
دوشنبه 16 آبان 1390, 16:39 عصر
تو فرم يه تكست 1 و يه اسكرول و يه لاين بزار و اينو امتحان كن (براي دقت بيشتر تو چرخيدن عدد 90 رو زياد تر كن)
Dim alpha As Double

Private Sub HScroll1_Scroll()
Text1.Text = HScroll1.Value
End Sub

Private Sub Text1_Change()
alpha = Text1.Text
Line1.X1 = Cos(alpha / 90) * 1000 + 1000
Line1.Y1 = Sin(alpha / 90) * 1000 + 1000
Line1.X2 = -Cos(alpha / 90) * 1000 + 1000
Line1.Y2 = -Sin(alpha / 90) * 1000 + 1000

End Sub