工程中先引用控件 Line1,Line2
Dim ux As Integer
Dim uy As Integer
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
ux = X
uy = Y
Line1.X1 = X
Line1.X2 = X
Line1.Y1 = Y - 300
Line1.Y2 = Y + 300
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'x的坐标为 sqr(a^2 * ((y2-y1)^2/((y2-y1)^2+(x2-x1)^2)))+x1
If Button = 1 Then
Me.Cls
Line (ux, uy)-(X, Y)
If X < ux Then
Line1.X1 = ux + Sqr(300 ^ 2 * ((Y - uy) ^ 2 / ((Y - uy) ^ 2 + (X - ux) ^ 2)))
Else
Line1.X1 = ux - Sqr(300 ^ 2 * ((Y - uy) ^ 2 / ((Y - uy) ^ 2 + (X - ux) ^ 2)))
End If
If Y > uy Then
Line1.Y1 = uy + Sqr(300 ^ 2 * ((X - ux) ^ 2 / ((Y - uy) ^ 2 + (X - ux) ^ 2)))
Else
Line1.Y1 = uy - Sqr(300 ^ 2 * ((X - ux) ^ 2 / ((Y - uy) ^ 2 + (X - ux) ^ 2)))
End If
'Line1.X1 = ux + 300 * Cos(Atn((X - ux) / (uy - Y)))
'Line1.Y1 = uy + 300 * Sin(Atn(X - ux) / (uy - Y))
If X > ux Then
Line1.X2 = ux + Sqr(300 ^ 2 * ((Y - uy) ^ 2 / ((Y - uy) ^ 2 + (X - ux) ^ 2)))
Else
Line1.X2 = ux - Sqr(300 ^ 2 * ((Y - uy) ^ 2 / ((Y - uy) ^ 2 + (X - ux) ^ 2)))
End If
If Y < uy Then
Line1.Y2 = uy + Sqr(300 ^ 2 * ((X - ux) ^ 2 / ((Y - uy) ^ 2 + (X - ux) ^ 2)))
Else
Line1.Y2 = uy - Sqr(300 ^ 2 * ((X - ux) ^ 2 / ((Y - uy) ^ 2 + (X - ux) ^ 2)))
End If
Line2.X1 = Line1.X1 + X - ux
Line2.Y1 = Line1.Y1 + Y - uy
Line2.X2 = Line1.X2 + X - ux
Line2.Y2 = Line1.Y2 + Y - uy
End If
End Sub
分享到:
相关推荐
本文介绍了一种基于运动趋势预测的异构车联网垂直切换算法,通过预测车辆运动趋势计算其在当前基站覆盖范围内的持续时间,并据此将车辆节点分为狭移动节点和广移动节点。针对不同的移动节点类型,采用不同的切换策略...
Untitled3.m
NULL 博文链接:https://xiangjinqi.iteye.com/blog/1637843
### 基于纹理特征和垂直投影的车牌定位算法研究 #### 一、研究背景与意义 随着现代交通系统的快速发展,车牌识别技术在智能交通管理、安全监控、自动化停车收费等领域发挥着至关重要的作用。车牌识别的核心环节之...
1.领域:matlab,GMR和LTE垂直切换算法 2.内容:异构网络中GMR和LTE垂直切换算法matlab仿真+代码操作视频 3.用处:用于异构网络中GMR和LTE垂直切换算法编程学习 4.指向人群:本硕博等教研学习使用 5.运行注意...
基于Carsim 2019版本的MPC算法多步垂直泊车及与simulink联合仿真的粒子群算法优化圆弧直线规划,基于Carsim与Simulink联合仿真的多步垂直泊车MPC算法研究——应用粒子群算法优化规划路径(圆弧直线)及2019版Carsim...
垂直泊车作为一种常见的车辆操控方式,对于自动驾驶车辆的路径规划算法而言,具有特殊的研究价值。本文深入探讨了利用Matlab实现垂直泊车路径规划算法的设计与实现,并提供了高效的一次路径规划策略。 首先,垂直...
Matlab垂直泊车路径规划算法是一种高效的智能停车解决方案,其核心在于能够计算出一条从车辆当前位置到停车位的最优路径。此类算法通常考虑车辆的动态特性、停车位的尺寸以及周围环境的限制,以确保车辆可以安全、...
在垂直数据挖掘领域,算法研究主要关注如何有效地处理大数据量以及如何优化内存使用。当数据规模庞大或定义的支持度较小时,挖掘频繁项集的算法需要处理和存储大量的中间结果,此时内存资源成为限制算法性能的瓶颈。...
【基于遗传禁忌算法优化的模糊神经网络垂直切换算法】是一种应用于异构网络切换问题的智能优化策略。在异构网络环境中,多个不同类型的无线通信网络(例如蓝牙、WiFi、WiMAX、2G、3G等)同时存在并覆盖同一区域,...
泊车路径跟踪研究:垂直泊车纯跟踪算法与MPC-Carsim联合仿真方案(附文档分析、代码及环境设置),泊车路径跟踪研究:垂直泊车算法与MPC+Carsim联合仿真实战解析(matlab+Simulink),单步泊车技术深入探索,泊车路径...
泊车路径跟踪技术:纯跟踪算法与MPC在垂直泊车场景下的联合仿真研究,泊车路径跟踪 垂直泊车 纯跟踪算法 MPC pursuit carsim 联合仿真 单步垂直泊车离散点信息 利用纯跟踪算法进行泊车路径的跟踪 包含matlab单独的...
泊车路径跟踪:基于离散点信息的平行泊车与垂直泊车纯跟踪与模型预测算法仿真研究,泊车路径跟踪 平行泊车 垂直泊车 纯跟踪算法 模型预测算法 MPC pursuit carsim 联合仿真 跟踪控制 根据已知的平行泊车 垂直泊车离...
基于SINR和滞留时间的垂直切换算法研究,是一项涉及通信理论、系统建模、算法开发等多个领域的综合性研究课题。其研究成果可望为未来无线通信网络的高效稳定运行提供重要的技术支持。研究的深入将有助于提升用户体验...
本研究不仅为异构网络垂直切换提供了新的算法思路,还通过Matlab仿真为算法的性能评估提供了一种可靠的研究方法。这对于推动异构网络技术的发展,提升网络服务质量和用户体验具有重要的实际意义。 研究的文件资料...
1. 垂直循环式立体车库:垂直循环式立体车库是一种以垂直方向进行循环运动的停车系统。相比于传统的停车场,它具有占地面积小、便于拆装和挪移、建设周期短和费用少的特点,适合在土地资源有限的城市环境中使用。其...