• 按键公众号 ：
按键精灵电脑版
立即下载

软件版本：2014.06
软件大小：22.9M
更新时间：2021-12-03

按键精灵安卓版
立即下载

软件版本：3.7.2
软件大小：46.2M
更新时间：2023-05-10

按键精灵iOS版
立即下载

软件版本：1.8.0
软件大小：29.2M
更新时间：2023-03-21

按键手机助手
立即下载

软件版本：3.8.0
软件大小：262M
更新时间：2023-05-30

快捷导航

请 登录 后使用快捷导航
没有帐号？ 注册

登录 注册
返回列表
发新话题 回复该主题
查看: 1640|回复: 1

[其他] x1,y1移动到x2,y2的问题 [复制链接]

我乃良辰
头像

  • 按键精灵会员
  • 9151062
  • 119
  • 0
  • 137 朵
  • 264 个
  • 184 个
  • 0
  • 2023-11-08
1#
t T
发表于 2024-08-05 06:07 | |只看楼主
  1. Do
  2. Form1.距离.Text = FormatNumber(Sqr((Form1.x2.Text - Form1.x1.Text) ^ 2 + (Form1.y2.Text - Form1.y1.Text) ^ 2))
  3. Form1.角度.Text = FormatNumber(Atn((Form1.y2.Text - Form1.y1.Text) / (Form1.x2.Text - Form1.x1.Text)) * (180 / 3.14159), 2)
  4. Form1.斜率.Text = (Form1.y2.Text - Form1.y1.Text) / (Form1.x2.Text - Form1.x1.Text)
  5. ' 计算旋转方向（通过斜率判断）
  6. If Form1.x2.Text > Form1.x1.Text Then
  7. If 斜率 > 0 Then
  8. Form1.旋转方向.Caption = "顺时针"
  9. If Form1.地图旋转角度.Text >= 0 And Form1.地图旋转角度.Text < 90 Then
  10. Form1.x1.Text = Form1.x1.Text - 1
  11. Form1.y1.Text = Form1.y1.Text + 1
  12. ElseIf Form1.地图旋转角度.Text >= 90 And Form1.地图旋转角度.Text < 180 Then
  13. Form1.x1.Text = Form1.x1.Text + 1
  14. Form1.y1.Text = Form1.y1.Text + 1
  15. ElseIf Form1.地图旋转角度.Text >= 180 And Form1.地图旋转角度.Text < 270 Then
  16. Form1.x1.Text = Form1.x1.Text + 1
  17. Form1.y1.Text = Form1.y1.Text - 1
  18. ElseIf Form1.地图旋转角度.Text >= 270 And Form1.地图旋转角度.Text < 360 Then
  19. Form1.x1.Text = Form1.x1.Text - 1
  20. Form1.y1.Text = Form1.y1.Text - 1
  21. End If
  22. ElseIf 斜率 < 0 Then
  23. Form1.旋转方向.Caption = "逆时针"
  24. If Form1.地图旋转角度.Text >= 0 And Form1.地图旋转角度.Text < 90 Then
  25. Form1.x1.Text = Form1.x1.Text - 1
  26. Form1.y1.Text = Form1.y1.Text - 1
  27. ElseIf Form1.地图旋转角度.Text >= 90 And Form1.地图旋转角度.Text < 180 Then
  28. Form1.x1.Text = Form1.x1.Text + 1
  29. Form1.y1.Text = Form1.y1.Text - 1
  30. ElseIf Form1.地图旋转角度.Text >= 180 And Form1.地图旋转角度.Text < 270 Then
  31. Form1.x1.Text = Form1.x1.Text + 1
  32. Form1.y1.Text = Form1.y1.Text + 1
  33. ElseIf Form1.地图旋转角度.Text >= 270 And Form1.地图旋转角度.Text < 360 Then
  34. Form1.x1.Text = Form1.x1.Text - 1
  35. Form1.y1.Text = Form1.y1.Text + 1
  36. End If
  37. Else
  38. Form1.旋转方向.Caption = "水平向右"
  39. If Form1.地图旋转角度.Text >= 0 And Form1.地图旋转角度.Text < 180 Then
  40. Form1.x1.Text = Form1.x1.Text - 1
  41. Else
  42. Form1.x1.Text = Form1.x1.Text + 1
  43. End If
  44. End If
  45. ElseIf Form1.x2.Text < Form1.x1.Text Then
  46. If 斜率 > 0 Then
  47. Form1.旋转方向.Caption = "逆时针"
  48. If Form1.地图旋转角度.Text >= 0 And Form1.地图旋转角度.Text < 90 Then
  49. Form1.x1.Text = Form1.x1.Text + 1
  50. Form1.y1.Text = Form1.y1.Text + 1
  51. ElseIf Form1.地图旋转角度.Text >= 90 And Form1.地图旋转角度.Text < 180 Then
  52. Form1.x1.Text = Form1.x1.Text - 1
  53. Form1.y1.Text = Form1.y1.Text + 1
  54. ElseIf Form1.地图旋转角度.Text >= 180 And Form1.地图旋转角度.Text < 270 Then
  55. Form1.x1.Text = Form1.x1.Text - 1
  56. Form1.y1.Text = Form1.y1.Text - 1
  57. ElseIf Form1.地图旋转角度.Text >= 270 And Form1.地图旋转角度.Text < 360 Then
  58. Form1.x1.Text = Form1.x1.Text + 1
  59. Form1.y1.Text = Form1.y1.Text - 1
  60. End If
  61. ElseIf 斜率 < 0 Then
  62. Form1.旋转方向.Caption = "顺时针"
  63. If Form1.地图旋转角度.Text >= 0 And Form1.地图旋转角度.Text < 90 Then
  64. Form1.x1.Text = Form1.x1.Text + 1
  65. Form1.y1.Text = Form1.y1.Text - 1
  66. ElseIf Form1.地图旋转角度.Text >= 90 And Form1.地图旋转角度.Text < 180 Then
  67. Form1.x1.Text = Form1.x1.Text - 1
  68. Form1.y1.Text = Form1.y1.Text - 1
  69. ElseIf Form1.地图旋转角度.Text >= 180 And Form1.地图旋转角度.Text < 270 Then
  70. Form1.x1.Text = Form1.x1.Text - 1
  71. Form1.y1.Text = Form1.y1.Text + 1
  72. ElseIf Form1.地图旋转角度.Text >= 270 And Form1.地图旋转角度.Text < 360 Then
  73. Form1.x1.Text = Form1.x1.Text + 1
  74. Form1.y1.Text = Form1.y1.Text + 1
  75. End If
  76. Else
  77. Form1.旋转方向.Caption = "水平向左"
  78. If Form1.地图旋转角度.Text >= 0 And Form1.地图旋转角度.Text < 180 Then
  79. Form1.x1.Text = Form1.x1.Text + 1
  80. Else
  81. Form1.x1.Text = Form1.x1.Text - 1
  82. End If
  83. End If
  84. Else
  85. If Form1.y2.Text > Form1.y1.Text Then
  86. Form1.旋转方向.Caption = "垂直向上"
  87. If Form1.地图旋转角度.Text >= 0 And Form1.地图旋转角度.Text < 180 Then
  88. Form1.y1.Text = Form1.y1.Text - 1
  89. Else
  90. Form1.y1.Text = Form1.y1.Text + 1
  91. End If
  92. ElseIf Form1.y2.Text < Form1.y1.Text Then
  93. Form1.旋转方向.Caption = "垂直向下"
  94. If Form1.地图旋转角度.Text >= 0 And Form1.地图旋转角度.Text < 180 Then
  95. Form1.y1.Text = Form1.y1.Text + 1
  96. Else
  97. Form1.y1.Text = Form1.y1.Text - 1
  98. End If
  99. Else
  100. Form1.旋转方向.Caption = "未旋转"
  101. End If
  102. End If
  103. Delay 500
  104. Loop Until Form1.距离.Text < 10


  107. /*
  108. 如何计算 x1,y1移动到x2,y2坐标的距离和角度
  109. 如何在循环中每次移动一个像素点 进行计算剩下的距离和角度 直到x1,y1距离终点距离小于10再停止循环
  110. 如果 正常0,0移动到100,100是往右下角移动的话 那么我地图的x轴和y轴反了
  111. 过来相当于地图旋转了180度 那么怎么计算出新的终点x和终点y是-100,-100 并且从0,0 往左上角移动 每次移动一个像素点
  112. 如果地图旋转180度可以计算出来了 那么90度 30度 120度行不行

  114. 就是想根据Form1.地图旋转角度.Text 的参数 计算出新的终点坐标移动过去 自己搞不通已经6个小时了 能不能救救我
  115. */
复制代码
本主题由 超级版主 瑞祥幽冥狼 于 2024/8/5 8:40:06 执行 审核主题 操作
点赞
有偿解答、脚本定制 联系QQ2834762531
回顶部
瑞祥幽冥狼
头像

按 键 工 程 师 ● 兼 职

  • 超级版主
  • 1228894
  • 26974
  • 25
  • 8049 朵
  • 36128 个
  • 4745 个
  • 421340
  • 2012-07-18
按键X开拓者勋章过大年勋章双十一绝版纪念勋章抗战胜利70周年勋章单身汪勋章按键14周年庆纪念勋章按键学院幸运草勋章马年勋章鹰眼勋章黄瓜勋章天使勋章按键明星黄金之翼举报达人活动狂人骨灰级按键用户按键精灵开发者6级龙年勋章十周年勋章兔年勋章论坛GG发帖高手爱心大使学有所成按键运营团队按键元老管理人员
2#
t T
发表于 2024-08-05 09:04 | |只看该用户

,

注：你好，实战中发生的各种特殊情况，没有相对应的环境，我们无法测试，也无法给出任何观点、评论、结果；会员区不提供具体脚本的、测试、编写、思路提供、教学服务，请自行解决实战中遇见的麻烦

收 徒 索 引 ← ← ← ← ← ← ← ← ← ← 点 击

个 人 Q Q 1 : 1 2 2 3 1 1 6 6 1 8［将满］
个 人 Q Q 2 : 6 1 7 0 9 5 5 4 3［可加］
回顶部
上一主题| 下一主题
返回列表
发新话题 回复该主题
高级编辑器高级编辑器