דילוג לתוכן
  • דף הבית
  • קטגוריות
  • פוסטים אחרונים
  • משתמשים
  • חיפוש
  • חוקי הפורום
כיווץ
תחומים

תחומים - פורום חרדי מקצועי

💡 רוצה לזכור קריאת שמע בזמן? לחץ כאן!
  1. דף הבית
  2. תכנות
  3. ארכיון code613m
  4. מציאת נקודה על פי מעלות זוית

מציאת נקודה על פי מעלות זוית

מתוזמן נעוץ נעול הועבר ארכיון code613m
30 פוסטים 3 כותבים 1.8k צפיות
  • מהישן לחדש
  • מהחדש לישן
  • הכי הרבה הצבעות
התחברו כדי לפרסם תגובה
נושא זה נמחק. רק משתמשים עם הרשאות מתאימות יוכלו לצפות בו.
  • רחמיםר מנותק
    רחמיםר מנותק
    רחמים מורחק
    כתב ב נערך לאחרונה על ידי
    #20

    @magicode

    זה נראה שיש לו נתון אחר של מעלות.

    אם יש לו נתון אחר של מעלות מדוע במעלות 0, 90, 180 ו 270 נפגשת הנקודה האדומה עם הקשת ובמעלות אחרות לא?

    פורסם במקור בפורום CODE613 ב18/08/2013 15:02 (+03:00)

    תגובה 1 תגובה אחרונה
    0
    • M מנותק
      M מנותק
      magicode
      כתב ב נערך לאחרונה על ידי
      #21

      אולי תעלה איזה gif מונפש
      קשה לראות כזה פער.

      פורסם במקור בפורום CODE613 ב18/08/2013 15:04 (+03:00)

      תגובה 1 תגובה אחרונה
      0
      • רחמיםר מנותק
        רחמיםר מנותק
        רחמים מורחק
        כתב ב נערך לאחרונה על ידי
        #22

        אי אפשר היה להכניס הכל לארכיון אחד כי הוא היה גדול מ250 קילו ביט אז פיצלתי את זה לשניים.
        תראו את זה בבקשה.
        תודה לכולם!

        תמונה/קובץ מצורף לא נמצא
        תמונה/קובץ מצורף לא נמצא

        פורסם במקור בפורום CODE613 ב18/08/2013 18:15 (+03:00)

        תגובה 1 תגובה אחרונה
        0
        • M מנותק
          M מנותק
          magicode
          כתב ב נערך לאחרונה על ידי
          #23

          מוזר.

          אולי בסיס נט מחשבן אחרת את המיקום.

          פורסם במקור בפורום CODE613 ב18/08/2013 20:35 (+03:00)

          תגובה 1 תגובה אחרונה
          0
          • רחמיםר מנותק
            רחמיםר מנותק
            רחמים מורחק
            כתב ב נערך לאחרונה על ידי
            #24

            ניסיתי לעשות ב JS? ומה יצא?

            פורסם במקור בפורום CODE613 ב18/08/2013 21:36 (+03:00)

            תגובה 1 תגובה אחרונה
            0
            • M מנותק
              M מנותק
              magicode
              כתב ב נערך לאחרונה על ידי
              #25

              בשבילך דוגמא בjs.

              http://jsfiddle.net/DPWX8/1/

              פורסם במקור בפורום CODE613 ב18/08/2013 22:27 (+03:00)

              תגובה 1 תגובה אחרונה
              0
              • M מנותק
                M מנותק
                magicode
                כתב ב נערך לאחרונה על ידי
                #26

                זה דוגמא יותר טובה.

                תזיז את העכבר.

                http://jsfiddle.net/DPWX8/2/

                http://jsfiddle.net/DPWX8/3/

                תשים לב מה ההבדל בין הדוגמא הראשונה לשניה.

                זה התשובה לשאלה שלך.

                פורסם במקור בפורום CODE613 ב18/08/2013 23:21 (+03:00)

                תגובה 1 תגובה אחרונה
                0
                • רחמיםר מנותק
                  רחמיםר מנותק
                  רחמים מורחק
                  כתב ב נערך לאחרונה על ידי
                  #27

                  אז מה בעצם ההסבר ? איפה הטעות? הרי בקוד שכתבתי אותה המעלה שיש לקשת יש גם לכדור האדום ובכל זאת הם לא צמודים?

                  פורסם במקור בפורום CODE613 ב19/08/2013 08:45 (+03:00)

                  תגובה 1 תגובה אחרונה
                  0
                  • dovidD מחובר
                    dovidD מחובר
                    dovid ניהול
                    כתב ב נערך לאחרונה על ידי
                    #28

                    @magicode

                    זה דוגמא יותר טובה.

                    תזיז את העכבר.

                    http://jsfiddle.net/DPWX8/2/

                    http://jsfiddle.net/DPWX8/3/

                    תשים לב מה ההבדל בין הדוגמא הראשונה לשניה.

                    זה התשובה לשאלה שלך.

                    מרשים ביותר!

                    פורסם במקור בפורום CODE613 ב19/08/2013 11:02 (+03:00)

                    • מנטור אישי בתכנות והמסתעף – להתקדם לשלב הבא!
                    • בכל נושא אפשר ליצור קשר dovid@tchumim.com
                    תגובה 1 תגובה אחרונה
                    0
                    • M מנותק
                      M מנותק
                      magicode
                      כתב ב נערך לאחרונה על ידי
                      #29
                      Return (CType(Math.Atan2(yDiff, xDiff), Single) * CType((180 / Math.PI), Single) + 180)
                      

                      בשורה הזאת יש בעיה.

                      אין התיחסות לצורה מלבנית.

                      היחס צריך להיות כמו שכתבתי בדוגמא.

                      drew( Math.atan2(  (e.clientY - 200) / 2  ,  e.clientX - 100 ));
                      

                      שזה בעצם ההבדל בין שניהם.

                      ההבדל הוא שאם אתה עוקב עם העכבר צמוד אז בדוגמא הראשונה רואים שהעכבר עושה את אותו פיספוס כמו שיש לך בתוכנה.

                      בדוגמא השניה החשבתי את היחס ב atan2 בצורה שכתבתי את זה

                      (e.clientY - 200) / 2
                      

                      אפשר לכתוב פשוט ככה

                      (e.clientY - 200) * (100/200)  
                      

                      ואז אתה מודד את הזוית בצורה יחסית.

                      מה שכן לא ברור לי למה הפונקציה שמציירת אצלך את הקשת מקבלת מעלות ולא ראדיאנים. כמו שמקובל.

                      יכול להיות שאם תעשה שני מדידות
                      אחד עם יחס ואחד בלי זה יפתור אצלך את הבעיה.

                      פורסם במקור בפורום CODE613 ב19/08/2013 13:19 (+03:00)

                      תגובה 1 תגובה אחרונה
                      0
                      • רחמיםר מנותק
                        רחמיםר מנותק
                        רחמים מורחק
                        כתב ב נערך לאחרונה על ידי
                        #30

                        תודה רבה רבה!!!
                        הנה הקוד הסופי:
                        אני רוצה לציין שהיתי מוכרח לעשות שתי פונקציות שממירות את מיקום העכבר למעלות וכמו שאמרת, אחת עבור הקשת ואחת עבור הכדור האדום, וזאת משום שכאשר הכנסתי לפונקציה את ההתיחסות לצורת מלבן אז הכדור האדום אכן היה תמיד צמוד לעכבר אבל הקשת לא!! ולכן לקשת השארתי את הפונקציה הישנה ולכדור האדום פונקציה עם התיחסות למלבן.
                        אני משער שהפונקציה שמציירת את הקשת מוסיפה את ההתיחסות למלבן מעצמה ולכן זה משבש אותה.

                        Public Class Form1
                        
                            ' Create start and sweep angles on ellipse.
                            Dim startAngle As Single = 40.0F
                            Dim sweepAngle As Single = 0.0F
                            Dim RedEllipseAngle As Single
                        
                            Public Sub New()
                        
                                ' This call is required by the designer.
                                InitializeComponent()
                        
                                ' Add any initialization after the InitializeComponent() call.
                                Me.Height = Me.Width * 2
                            End Sub
                        
                            Private Sub Form1_Paint(sender As Object,
                                                  e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
                                ' Create pen.
                                Dim blackPen As New Pen(Color.Black, 3)
                                ' Create rectangle to bound ellipse.
                                Dim rect As New Rectangle(0, 0, Me.ClientSize.Width, Me.ClientSize.Height)
                                ' Draw arc to screen.
                                e.Graphics.DrawArc(blackPen, rect, startAngle, sweepAngle)
                                e.Graphics.FillEllipse(Brushes.Red,
                                                             New Rectangle(GetCoordinate(RedEllipseAngle),
                                                                           New Size(12, 12)))
                            End Sub
                        
                            Private Sub Form1_MouseMove(sender As Object,
                                                        e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
                                'שינוי תחילת הקשת על פי הסמן
                                'startAngle = GetAngle(Me.ClientSize.Width/ 2, Me.ClientSize.Height / 2, e.Location.X, e.Location.Y) 
                                'שינוי אורך הקשת על פי הסמן
                                sweepAngle = GetAngle(Me.ClientSize.Width / 2,
                                                      Me.ClientSize.Height / 2,
                                                      e.Location.X,
                                                      e.Location.Y) - startAngle
                                RedEllipseAngle = GetAngle2(Me.ClientSize.Width / 2,
                                                      Me.ClientSize.Height / 2,
                                                      e.Location.X,
                                                      e.Location.Y)
                                Me.Invalidate()
                            End Sub
                        
                            Function GetAngle(ByVal x1 As Single,
                                               ByVal y1 As Single,
                                               ByVal x2 As Single,
                                               ByVal y2 As Single) As Single
                        
                                Dim xDiff As Single = (x1 - x2)
                                Dim yDiff As Single = (y1 - y2)
                                Return (CSng(Math.Atan2(yDiff, xDiff)) * (180 / Math.PI) + 180)
                        
                            End Function
                        
                            Function GetAngle2(ByVal x1 As Single,
                                               ByVal y1 As Single,
                                               ByVal x2 As Single,
                                               ByVal y2 As Single) As Single
                        
                                Dim xDiff As Single = ((x1 - x2) * (Me.ClientSize.Height / Me.ClientSize.Width))
                                Dim yDiff As Single = (y1 - y2)
                                Return (CSng(Math.Atan2(yDiff, xDiff)) * (180 / Math.PI) + 180)
                        
                            End Function
                        
                            Private Function GetCoordinate(ByVal angle As Single) As Point
                                Dim Radian As Double = toRadians(angle)
                        
                                Dim x As Single = (Me.ClientSize.Width / 2) + CSng(Math.Cos(Radian) * (Me.ClientSize.Width / 2))
                                Dim y As Single = (Me.ClientSize.Height / 2) + CSng(Math.Sin(Radian) * (Me.ClientSize.Height / 2))
                                Return New Point(x - 6, y - 6)
                            End Function
                        
                            Function toRadians(ByVal angle As Single) As Double
                                Return angle * (Math.PI / 180)
                            End Function
                        
                        End Class
                        

                        פורסם במקור בפורום CODE613 ב19/08/2013 13:42 (+03:00)

                        תגובה 1 תגובה אחרונה
                        0

                        • 1
                        • 2
                        בא תתחבר לדף היומי!
                        • התחברות

                        • אין לך חשבון עדיין? הרשמה

                        • התחברו או הירשמו כדי לחפש.
                        • פוסט ראשון
                          פוסט אחרון
                        0
                        • דף הבית
                        • קטגוריות
                        • פוסטים אחרונים
                        • משתמשים
                        • חיפוש
                        • חוקי הפורום