« previous next »
Pages: [1]   Go Down

Author Topic: Help with a Small Program  (Read 2851 times)

0 Members and 1 Guest are viewing this topic.

Offline Calloway

  • Newbie
  • Posts: 18
  • I still have Laser Disc...
    • View Profile
    • Calloway Sutton
Help with a Small Program
« on: February 03, 2019, 08:56:57 pm »
I have this old code (as in I don't know who made it or where it came from..) which I think I found on either the Wiki or an old post on the .net forum. Anyway, I wanted to just play around with it, so I made it kind of "responsive" like a website, I guess you could say. My question is how can I detect a mouse down over a certain area when the coordinates for that window will always be changing (due to it being re-sizable).
I've put some small text of where I want an Exit button to be, I just can't seem to figure out how to get it to act as a 'button'.


Maybe I'm just having a brain fart idk

Code: Text: [Select]
  1. _TITLE "Graph"
  2.  
  3. SCREEN _NEWIMAGE(1080, 720, 12)
  4. $RESIZE:ON
  5. $CHECKING:OFF
  6.  
  7. ' Origin in Cartesian coordinates. (Changes when mouse is clicked.)
  8. OriginX = -100
  9. OriginY = -100
  10.  
  11. ' Point of interest in Cartesian coordinates. (Changes while mouse moves.)
  12. x = _MOUSEX
  13. y = _MOUSEY
  14. IF x > 0 AND x < screenWidth AND y > 0 AND y < screenHeight THEN
  15.     GOSUB unconvert
  16.     OriginX = x
  17.     OriginY = y
  18. ELSE
  19.     ThePointX = 100
  20.     ThePointY = 100
  21. END IF
  22.  
  23. ' Main loop.
  24. DO: _LIMIT 60
  25.     DO WHILE _MOUSEINPUT
  26.         x = _MOUSEX
  27.         y = _MOUSEY
  28.         IF x > 0 AND x < screenWidth AND y > 0 AND y < screenHeight THEN
  29.  
  30.             GOSUB unconvert
  31.             ThePointX = x
  32.             ThePointY = y
  33.  
  34.             IF _MOUSEBUTTON(1) THEN
  35.                 IF _MOUSEY < -190 AND _MOUSEX < -110 AND _MOUSEX > -120 AND _MOUSEY > -220 THEN
  36.                     SYSTEM
  37.                 END IF
  38.                 x = _MOUSEX
  39.                 y = _MOUSEY
  40.                 GOSUB unconvert
  41.                 OriginX = x
  42.                 OriginY = y
  43.             END IF
  44.  
  45.         END IF
  46.         IF _RESIZE THEN
  47.             SCREEN _NEWIMAGE(_RESIZEWIDTH, _RESIZEHEIGHT, 256)
  48.             screenWidth = _RESIZEWIDTH
  49.             screenHeight = _RESIZEHEIGHT
  50.         END IF
  51.     LOOP
  52.     GOSUB DrawEverything
  53.  
  54. LOOP
  55.  
  56. SYSTEM 0
  57. $CHECKING:ON
  58. DrawEverything:
  59. CLS
  60. ' Make Cartesian grid.
  61. FOR x = OriginX TO screenWidth STEP 10
  62.     LINE (x, 0)-(x, screenHeight), 8
  63. NEXT
  64. FOR x = OriginX TO 0 STEP -10
  65.     LINE (x, 0)-(x, screenHeight), 8
  66. NEXT
  67. FOR y = OriginY TO screenHeight STEP 10
  68.     LINE (0, -y + screenHeight / 2)-(screenWidth, -y + screenHeight / 2), 8
  69. NEXT
  70. FOR y = OriginY TO -(screenHeight / 2) STEP -10
  71.     LINE (0, -y + screenHeight / 2)-(screenWidth, -y + screenHeight / 2), 8
  72. NEXT
  73. x = OriginX
  74. y = OriginY
  75. GOSUB convert
  76. LINE (0, y)-(screenWidth, y), 7
  77. LINE (x, 0)-(x, screenHeight), 7
  78. _PRINTSTRING (screenWidth - 8 * 6, y), "X-axis"
  79. _PRINTSTRING (x, 0), "Y-axis"
  80. _PRINTSTRING (x, y), "Origin"
  81. _PRINTSTRING (0, 0), "Exit"
  82. ' Draw the circle on which the position vector lives.
  83. Radius = SQR((ThePointX - OriginX) ^ 2 + (ThePointY - OriginY) ^ 2)
  84. x = OriginX
  85. y = OriginY
  86. GOSUB convert
  87. CIRCLE (x, y), Radius, 7
  88. ' Draw the vertical component.
  89. x = OriginX
  90. y = OriginY
  91. GOSUB convert
  92. x1 = x
  93. y1 = y
  94. x = ThePointX
  95. y = OriginY
  96. GOSUB convert
  97. x2 = x
  98. y2 = y
  99. LINE (x1, y1)-(x2, y2), 9
  100. LINE (x1, y1 + 1)-(x2, y2 + 1), 9
  101. LINE (x1, y1 - 1)-(x2, y2 - 1), 9
  102. ' Draw the horizontal component.
  103. x = ThePointX
  104. y = OriginY
  105. GOSUB convert
  106. x1 = x
  107. y1 = y
  108. x = ThePointX
  109. y = ThePointY
  110. GOSUB convert
  111. x2 = x
  112. y2 = y
  113. LINE (x1, y1)-(x2, y2), 4
  114. LINE (x1 - 1, y1)-(x2 - 1, y2), 4
  115. LINE (x1 + 1, y1)-(x2 + 1, y2), 4
  116. ' Draw position vector (aka the Hypotenuse).
  117. x = OriginX
  118. y = OriginY
  119. GOSUB convert
  120. x1 = x
  121. y1 = y
  122. x = ThePointX
  123. y = ThePointY
  124. GOSUB convert
  125. x2 = x
  126. y2 = y
  127. LINE (x1, y1)-(x2, y2), 10
  128. LINE (x1 + 1, y1)-(x2 + 1, y2), 10
  129. LINE (x1, y1 + 1)-(x2, y2 + 1), 10
  130. ' Write text.
  131. COLOR 7
  132. _PRINTSTRING (screenWidth - 250, 0), "-------Origin-------"
  133. _PRINTSTRING (screenWidth - 250, 15), "Cartesian/Polar/Qb64:"
  134. _PRINTSTRING (screenWidth - 250, 30), "X=0   , Y=0"
  135. _PRINTSTRING (screenWidth - 250, 45), "R=0   , Ang=undef"
  136. _PRINTSTRING (screenWidth - 250, 60), "x="
  137. _PRINTSTRING (screenWidth - 235, 60), STR$(OriginX + screenWidth / 2) + ", " + "y=" + STR$(-OriginY + screenHeight / 2)
  138. _PRINTSTRING (screenWidth - 250, 80), "-------Cursor-------"
  139. _PRINTSTRING (screenWidth - 250, 95), "Cartesian/Polar/Qb64:"
  140. _PRINTSTRING (screenWidth - 250, 110), "X=" + STR$(ThePointX - OriginX) + ", " + "Y=" + STR$(ThePointY - OriginY)
  141. ' Deal with radius calculation.
  142. Radius = SQR((ThePointX - OriginX) ^ 2 + (ThePointY - OriginY) ^ 2)
  143. IF Radius < .0001 THEN Radius = .0001
  144. _PRINTSTRING (screenWidth - 250, 130), "R=" + STR$(INT(Radius)) + ", " + "Ang=" + STR$(TheAngle)
  145. ' Deal with the anlge calculation.
  146. xdiff = ThePointX - OriginX
  147. ydiff = ThePointY - OriginY
  148. IF xdiff > 0 AND ydiff > 0 THEN ' First quadrant
  149.     TheAngle = INT((180 / 3.14159) * ATN(ydiff / xdiff))
  150. END IF
  151. IF xdiff < 0 AND ydiff > 0 THEN ' Second quadrant
  152.     TheAngle = 180 + INT((180 / 3.14159) * ATN(ydiff / xdiff))
  153. END IF
  154. IF xdiff < 0 AND ydiff < 0 THEN ' Third quadrant
  155.     TheAngle = 180 + INT((180 / 3.14159) * ATN(ydiff / xdiff))
  156. END IF
  157. IF xdiff > 0 AND ydiff < 0 THEN ' Fourth quadrant
  158.     TheAngle = 360 + INT((180 / 3.14159) * ATN(ydiff / xdiff))
  159. END IF
  160. IF SQR(ydiff ^ 2) < .0001 THEN ydiff = .0001
  161. IF SQR(xdiff ^ 2) < .0001 THEN xdiff = .0001
  162. _PRINTSTRING (screenWidth - 250, 145), "x=" + STR$(ThePointX + 320) + ", " + "y=" + STR$(-ThePointY + 240)
  163. _PRINTSTRING (screenWidth - 250, 200), "--------Trig--------"
  164. _PRINTSTRING (screenWidth - 250, 215), "sin(Ang)=" + "Opp" + "/" + "Hyp"
  165. _PRINTSTRING (screenWidth - 250, 230), "        =" + STR$(ydiff / Radius)
  166. _PRINTSTRING (screenWidth - 250, 245), "cos(Ang)=" + "Adj" + "/" + "Hyp"
  167. _PRINTSTRING (screenWidth - 250, 260), "        =" + STR$(xdiff / Radius)
  168. _PRINTSTRING (screenWidth - 250, 275), "tan(Ang)=" + "Opp" + "/" + "Adj"
  169. _PRINTSTRING (screenWidth - 250, 290), "        =" + STR$(ydiff / xdiff)
  170. _DISPLAY
  171. RETURN
  172.  
  173. convert:
  174. ' Converts Cartesian coordinates to QB64 coordinates.
  175. x0 = x: y0 = y
  176. x = x0 + screenWidth / 2
  177. y = -y0 + screenHeight / 2
  178. RETURN
  179.  
  180. unconvert:
  181. ' Converts QB64 coordinates to Cartesian coordinates.
  182. x0 = x: y0 = y
  183. x = x0 - screenWidth / 2
  184. y = -y0 + screenHeight / 2
  185. RETURN
  186.  
Logged

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: Help with a Small Program
« Reply #1 on: February 03, 2019, 09:08:32 pm »
Like this?
Code: QB64: [Select]
  1. _TITLE "Graph"
  2.  
  3. SCREEN _NEWIMAGE(1080, 720, 12)
  6.  
  7. ' Origin in Cartesian coordinates. (Changes when mouse is clicked.)
  8. OriginX = -100
  9. OriginY = -100
  10.  
  11. ' Point of interest in Cartesian coordinates. (Changes while mouse moves.)
  14. IF x > 0 AND x < screenWidth AND y > 0 AND y < screenHeight THEN
  15.     GOSUB unconvert
  16.     OriginX = x
  17.     OriginY = y
  19.     ThePointX = 100
  20.     ThePointY = 100
  22.  
  23. ' Main loop.
  26.         x = _MOUSEX
  27.         y = _MOUSEY
  28.         mb = _MOUSEBUTTON(1) 'left
  29.         IF x > 0 AND x < 65 AND y > 0 AND y < 17 AND mb THEN '<<<<<<<<<<<<<<<<<<<<<<<<<<< add exit click
  30.             CLS: END
  31.         ELSEIF x > 0 AND x < screenWidth AND y > 0 AND y < screenHeight THEN
  32.  
  33.             GOSUB unconvert
  34.             ThePointX = x
  35.             ThePointY = y
  36.  
  37.             IF _MOUSEBUTTON(1) THEN
  38.                 IF _MOUSEY < -190 AND _MOUSEX < -110 AND _MOUSEX > -120 AND _MOUSEY > -220 THEN
  39.                     SYSTEM
  40.                 END IF
  41.                 x = _MOUSEX
  42.                 y = _MOUSEY
  43.                 GOSUB unconvert
  44.                 OriginX = x
  45.                 OriginY = y
  46.             END IF
  47.  
  48.         END IF
  49.         IF _RESIZE THEN
  50.             SCREEN _NEWIMAGE(_RESIZEWIDTH, _RESIZEHEIGHT, 256)
  51.             screenWidth = _RESIZEWIDTH
  52.             screenHeight = _RESIZEHEIGHT
  53.         END IF
  54.     LOOP
  55.     GOSUB DrawEverything
  56.  
  58.  
  61. DrawEverything:
  63. ' Make Cartesian grid.
  64. FOR x = OriginX TO screenWidth STEP 10
  65.     LINE (x, 0)-(x, screenHeight), 8
  67. FOR x = OriginX TO 0 STEP -10
  68.     LINE (x, 0)-(x, screenHeight), 8
  70. FOR y = OriginY TO screenHeight STEP 10
  71.     LINE (0, -y + screenHeight / 2)-(screenWidth, -y + screenHeight / 2), 8
  73. FOR y = OriginY TO -(screenHeight / 2) STEP -10
  74.     LINE (0, -y + screenHeight / 2)-(screenWidth, -y + screenHeight / 2), 8
  76. x = OriginX
  77. y = OriginY
  78. GOSUB convert
  79. LINE (0, y)-(screenWidth, y), 7
  80. LINE (x, 0)-(x, screenHeight), 7
  81. _PRINTSTRING (screenWidth - 8 * 6, y), "X-axis"
  82. _PRINTSTRING (x, 0), "Y-axis"
  83. _PRINTSTRING (x, y), "Origin"
  84. _PRINTSTRING (0, 0), "Exit"
  85. ' Draw the circle on which the position vector lives.
  86. Radius = SQR((ThePointX - OriginX) ^ 2 + (ThePointY - OriginY) ^ 2)
  87. x = OriginX
  88. y = OriginY
  89. GOSUB convert
  90. CIRCLE (x, y), Radius, 7
  91. ' Draw the vertical component.
  92. x = OriginX
  93. y = OriginY
  94. GOSUB convert
  95. x1 = x
  96. y1 = y
  97. x = ThePointX
  98. y = OriginY
  99. GOSUB convert
  100. x2 = x
  101. y2 = y
  102. LINE (x1, y1)-(x2, y2), 9
  103. LINE (x1, y1 + 1)-(x2, y2 + 1), 9
  104. LINE (x1, y1 - 1)-(x2, y2 - 1), 9
  105. ' Draw the horizontal component.
  106. x = ThePointX
  107. y = OriginY
  108. GOSUB convert
  109. x1 = x
  110. y1 = y
  111. x = ThePointX
  112. y = ThePointY
  113. GOSUB convert
  114. x2 = x
  115. y2 = y
  116. LINE (x1, y1)-(x2, y2), 4
  117. LINE (x1 - 1, y1)-(x2 - 1, y2), 4
  118. LINE (x1 + 1, y1)-(x2 + 1, y2), 4
  119. ' Draw position vector (aka the Hypotenuse).
  120. x = OriginX
  121. y = OriginY
  122. GOSUB convert
  123. x1 = x
  124. y1 = y
  125. x = ThePointX
  126. y = ThePointY
  127. GOSUB convert
  128. x2 = x
  129. y2 = y
  130. LINE (x1, y1)-(x2, y2), 10
  131. LINE (x1 + 1, y1)-(x2 + 1, y2), 10
  132. LINE (x1, y1 + 1)-(x2, y2 + 1), 10
  133. ' Write text.
  135. _PRINTSTRING (screenWidth - 250, 0), "-------Origin-------"
  136. _PRINTSTRING (screenWidth - 250, 15), "Cartesian/Polar/Qb64:"
  137. _PRINTSTRING (screenWidth - 250, 30), "X=0   , Y=0"
  138. _PRINTSTRING (screenWidth - 250, 45), "R=0   , Ang=undef"
  139. _PRINTSTRING (screenWidth - 250, 60), "x="
  140. _PRINTSTRING (screenWidth - 235, 60), STR$(OriginX + screenWidth / 2) + ", " + "y=" + STR$(-OriginY + screenHeight / 2)
  141. _PRINTSTRING (screenWidth - 250, 80), "-------Cursor-------"
  142. _PRINTSTRING (screenWidth - 250, 95), "Cartesian/Polar/Qb64:"
  143. _PRINTSTRING (screenWidth - 250, 110), "X=" + STR$(ThePointX - OriginX) + ", " + "Y=" + STR$(ThePointY - OriginY)
  144. ' Deal with radius calculation.
  145. Radius = SQR((ThePointX - OriginX) ^ 2 + (ThePointY - OriginY) ^ 2)
  146. IF Radius < .0001 THEN Radius = .0001
  147. _PRINTSTRING (screenWidth - 250, 130), "R=" + STR$(INT(Radius)) + ", " + "Ang=" + STR$(TheAngle)
  148. ' Deal with the anlge calculation.
  149. xdiff = ThePointX - OriginX
  150. ydiff = ThePointY - OriginY
  151. IF xdiff > 0 AND ydiff > 0 THEN ' First quadrant
  152.     TheAngle = INT((180 / 3.14159) * ATN(ydiff / xdiff))
  154. IF xdiff < 0 AND ydiff > 0 THEN ' Second quadrant
  155.     TheAngle = 180 + INT((180 / 3.14159) * ATN(ydiff / xdiff))
  157. IF xdiff < 0 AND ydiff < 0 THEN ' Third quadrant
  158.     TheAngle = 180 + INT((180 / 3.14159) * ATN(ydiff / xdiff))
  160. IF xdiff > 0 AND ydiff < 0 THEN ' Fourth quadrant
  161.     TheAngle = 360 + INT((180 / 3.14159) * ATN(ydiff / xdiff))
  163. IF SQR(ydiff ^ 2) < .0001 THEN ydiff = .0001
  164. IF SQR(xdiff ^ 2) < .0001 THEN xdiff = .0001
  165. _PRINTSTRING (screenWidth - 250, 145), "x=" + STR$(ThePointX + 320) + ", " + "y=" + STR$(-ThePointY + 240)
  166. _PRINTSTRING (screenWidth - 250, 200), "--------Trig--------"
  167. _PRINTSTRING (screenWidth - 250, 215), "sin(Ang)=" + "Opp" + "/" + "Hyp"
  168. _PRINTSTRING (screenWidth - 250, 230), "        =" + STR$(ydiff / Radius)
  169. _PRINTSTRING (screenWidth - 250, 245), "cos(Ang)=" + "Adj" + "/" + "Hyp"
  170. _PRINTSTRING (screenWidth - 250, 260), "        =" + STR$(xdiff / Radius)
  171. _PRINTSTRING (screenWidth - 250, 275), "tan(Ang)=" + "Opp" + "/" + "Adj"
  172. _PRINTSTRING (screenWidth - 250, 290), "        =" + STR$(ydiff / xdiff)
  175.  
  176. convert:
  177. ' Converts Cartesian coordinates to QB64 coordinates.
  178. x0 = x: y0 = y
  179. x = x0 + screenWidth / 2
  180. y = -y0 + screenHeight / 2
  182.  
  183. unconvert:
  184. ' Converts QB64 coordinates to Cartesian coordinates.
  185. x0 = x: y0 = y
  186. x = x0 - screenWidth / 2
  187. y = -y0 + screenHeight / 2
  189.  
  190.  

That's cool how you are moving the origin around.
« Last Edit: February 03, 2019, 09:10:14 pm by bplus »
Logged

Offline Calloway

  • Newbie
  • Posts: 18
  • I still have Laser Disc...
    • View Profile
    • Calloway Sutton
Re: Help with a Small Program
« Reply #2 on: February 03, 2019, 09:13:36 pm »
Thank you haha you also showed me theres an error in my code, the QB64 coordinates displayed are very off
Logged

Offline Pete

  • Forum Resident
  • Posts: 2361
  • Cuz I sez so, varmint!
    • View Profile
Re: Help with a Small Program
« Reply #3 on: February 03, 2019, 10:13:18 pm »
I could give you an ASM solution, or would that be push-ing your buttons?

That's a good looking graph program, Callaway.

Nice job on fixing it, Mark.

Pete
Logged
Want to learn how to write code on cave walls? https://www.tapatalk.com/groups/qbasic/qbasic-f1/

Offline STxAxTIC

  • Library Staff
  • Forum Resident
  • Posts: 1091
  • he lives
    • View Profile
Re: Help with a Small Program
« Reply #4 on: February 03, 2019, 10:27:45 pm »
Hi guys.

So this program was originally written by a jerk named STxAxTIC.

My original version has no errors in the coordinate systems, so unless you heavily edited something, it is probably still correct. The whole thing about QBasic and coordinates is that the system it uses is a completely wonkey analog of the Cartesian system, and all it does is hinder a person's understanding of trigonometry, especially if they try to learn it from a program. Anyway, have fun with this code, I don't claim any ownership.

For the sake of history, here's the version I have floating around:
Code: QB64: [Select]
  2.  
  3. ' Origin in Cartesian coordinates. (Changes when mouse is clicked.)
  4. OriginX = -100
  5. OriginY = -100
  6.  
  7. ' Point of interest in Cartesian coordinates. (Changes while mouse moves.)
  10. IF x > 0 AND x < 640 AND y > 0 AND y < 480 THEN
  11.     GOSUB unconvert
  12.     OriginX = x
  13.     OriginY = y
  15.     ThePointX = 100
  16.     ThePointY = 100
  18.  
  19. ' Main loop.
  22.         x = _MOUSEX
  23.         y = _MOUSEY
  24.         IF x > 0 AND x < 640 AND y > 0 AND y < 480 THEN
  25.  
  26.             GOSUB unconvert
  27.             ThePointX = x
  28.             ThePointY = y
  29.  
  30.             IF _MOUSEBUTTON(1) THEN
  31.                 x = _MOUSEX
  32.                 y = _MOUSEY
  33.                 GOSUB unconvert
  34.                 OriginX = x
  35.                 OriginY = y
  36.             END IF
  37.  
  38.         END IF
  39.     LOOP
  40.     GOSUB DrawEverything
  41.  
  43.  
  45.  
  46. DrawEverything:
  48. ' Make Cartesian grid.
  49. FOR x = OriginX TO 640 STEP 10
  50.     LINE (x, 0)-(x, 480), 8
  52. FOR x = OriginX TO 0 STEP -10
  53.     LINE (x, 0)-(x, 480), 8
  55. FOR y = OriginY TO 480 STEP 10
  56.     LINE (0, -y + 240)-(640, -y + 240), 8
  58. FOR y = OriginY TO -240 STEP -10
  59.     LINE (0, -y + 240)-(640, -y + 240), 8
  61. x = OriginX
  62. y = OriginY
  63. GOSUB convert
  64. LINE (0, y)-(640, y), 7
  65. LINE (x, 0)-(x, 480), 7
  66. _PRINTSTRING (640 - 8 * 6, y), "X-axis"
  67. _PRINTSTRING (x, 0), "Y-axis"
  68. _PRINTSTRING (x, y), "Origin"
  69. ' Draw the circle on which the position vector lives.
  70. Radius = SQR((ThePointX - OriginX) ^ 2 + (ThePointY - OriginY) ^ 2)
  71. x = OriginX
  72. y = OriginY
  73. GOSUB convert
  74. CIRCLE (x, y), Radius, 7
  75. ' Draw the vertical component.
  76. x = OriginX
  77. y = OriginY
  78. GOSUB convert
  79. x1 = x
  80. y1 = y
  81. x = ThePointX
  82. y = OriginY
  83. GOSUB convert
  84. x2 = x
  85. y2 = y
  86. LINE (x1, y1)-(x2, y2), 9
  87. LINE (x1, y1 + 1)-(x2, y2 + 1), 9
  88. LINE (x1, y1 - 1)-(x2, y2 - 1), 9
  89. ' Draw the horizontal component.
  90. x = ThePointX
  91. y = OriginY
  92. GOSUB convert
  93. x1 = x
  94. y1 = y
  95. x = ThePointX
  96. y = ThePointY
  97. GOSUB convert
  98. x2 = x
  99. y2 = y
  100. LINE (x1, y1)-(x2, y2), 4
  101. LINE (x1 - 1, y1)-(x2 - 1, y2), 4
  102. LINE (x1 + 1, y1)-(x2 + 1, y2), 4
  103. ' Draw position vector (aka the Hypotenuse).
  104. x = OriginX
  105. y = OriginY
  106. GOSUB convert
  107. x1 = x
  108. y1 = y
  109. x = ThePointX
  110. y = ThePointY
  111. GOSUB convert
  112. x2 = x
  113. y2 = y
  114. LINE (x1, y1)-(x2, y2), 10
  115. LINE (x1 + 1, y1)-(x2 + 1, y2), 10
  116. LINE (x1, y1 + 1)-(x2, y2 + 1), 10
  117. ' Write text.
  119. LOCATE 1, 60: PRINT "-------Origin-------"
  120. LOCATE 2, 60: PRINT "Cartesian/Polar/Qb64:"
  121. LOCATE 3, 61: PRINT "X=0   , Y=0"
  122. LOCATE 4, 61: PRINT "R=0   , Ang=undef"
  123. LOCATE 5, 61: PRINT "x="; OriginX + 320; ", "; "y="; -OriginY + 240
  124. LOCATE 7, 60: PRINT "-------Cursor-------"
  125. LOCATE 8, 60: PRINT "Cartesian/Polar/Qb64:"
  126. LOCATE 9, 61: PRINT "X="; ThePointX - OriginX; ", "; "Y="; ThePointY - OriginY
  127. ' Deal with radius calculation.
  128. Radius = SQR((ThePointX - OriginX) ^ 2 + (ThePointY - OriginY) ^ 2)
  129. IF Radius < .0001 THEN Radius = .0001
  130. LOCATE 10, 61: PRINT "R="; INT(Radius); ", "; "Ang="; TheAngle
  131. ' Deal with the anlge calculation.
  132. xdiff = ThePointX - OriginX
  133. ydiff = ThePointY - OriginY
  134. IF xdiff > 0 AND ydiff > 0 THEN ' First quadrant
  135.     TheAngle = INT((180 / 3.14159) * ATN(ydiff / xdiff))
  137. IF xdiff < 0 AND ydiff > 0 THEN ' Second quadrant
  138.     TheAngle = 180 + INT((180 / 3.14159) * ATN(ydiff / xdiff))
  140. IF xdiff < 0 AND ydiff < 0 THEN ' Third quadrant
  141.     TheAngle = 180 + INT((180 / 3.14159) * ATN(ydiff / xdiff))
  143. IF xdiff > 0 AND ydiff < 0 THEN ' Fourth quadrant
  144.     TheAngle = 360 + INT((180 / 3.14159) * ATN(ydiff / xdiff))
  146. IF SQR(ydiff ^ 2) < .0001 THEN ydiff = .0001
  147. IF SQR(xdiff ^ 2) < .0001 THEN xdiff = .0001
  148. LOCATE 11, 61: PRINT "x="; ThePointX + 320; ", "; "y="; -ThePointY + 240
  149. LOCATE 13, 60: PRINT "--------Trig--------"
  150. LOCATE 14, 61: PRINT "sin(Ang)=";: COLOR 4: PRINT "Opp";: COLOR 7: PRINT "/";: COLOR 10: PRINT "Hyp";: COLOR 7
  151. LOCATE 15, 61: PRINT "        ="; USING "##.###"; ydiff / Radius
  152. LOCATE 16, 61: PRINT "cos(Ang)=";: COLOR 9: PRINT "Adj";: COLOR 7: PRINT "/";: COLOR 10: PRINT "Hyp";: COLOR 7
  153. LOCATE 17, 61: PRINT "        ="; USING "##.###"; xdiff / Radius
  154. LOCATE 18, 61: PRINT "tan(Ang)=";: COLOR 4: PRINT "Opp";: COLOR 7: PRINT "/";: COLOR 9: PRINT "Adj";: COLOR 7
  155. f = ydiff / xdiff
  156. IF f < 9999.99 AND f > -9999.99 THEN
  157.     LOCATE 19, 61: PRINT "        ="; USING "####.###"; f
  161.  
  162. convert:
  163. ' Converts Cartesian coordinates to QB64 coordinates.
  164. x0 = x: y0 = y
  165. x = x0 + 320
  166. y = -y0 + 240
  168.  
  169. unconvert:
  170. ' Converts QB64 coordinates to Cartesian coordinates.
  171. x0 = x: y0 = y
  172. x = x0 - 320
  173. y = -y0 + 240
  175.  
« Last Edit: February 03, 2019, 10:30:16 pm by STxAxTIC »
Logged
You're not done when it works, you're done when it's right.
Pages: [1]   Go Up
« previous next »