工程中先引用控件 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
针对室内可见光异构通信网络中,现有切换算法无法感知不同网络服务质量、不能保证用户始终获得最优网络服务的问题,提出一种基于等效SINR的VLC(visible light communication,可见光通信)与WiFi垂直切换算法。算法...
基于运动趋势预测的异构车联网垂直切换算法.pdf
针对异构网络切换问题,综合考虑遗传算法和禁忌算法的优点,结合神经网络及模糊理论,提出了基于遗传禁忌算法(GATS)优化的模糊神经网络垂直切换算法GATS-FNN。在切换过程中加入了预判决模块,通过筛选节点降低系统...
1.领域:matlab,GMR和LTE垂直切换算法 2.内容:异构网络中GMR和LTE垂直切换算法matlab仿真+代码操作视频 3.用处:用于异构网络中GMR和LTE垂直切换算法编程学习 4.指向人群:本硕博等教研学习使用 5.运行注意...
异构无线网络中基于模糊逻辑的分级垂直切换算法.pdf
基于纹理特征和垂直投影的车牌定位算法研究.
多属性决策的垂直切换判决算法研究,王康,,下一代无线通信网络是由多种不同接入网并存组成的网络。垂直切换技术是实现用户在异构网络之间无缝漫游的关键。基于异构网络的特
一、前言 ChartGPT火热了一段时间,带动了软硬件相关数字经济的概念股也大涨。 只是潮水褪去,一大片人在山顶站岗。...第三层:垂直算法。相比大模块的算法,类似小模块的开发。 比如特定行业的算法开发,
在基于LTE(Long-Term Evolution)和GMR(Ground Mobile Radio,这里可能指的是其他无线通信系统,例如WiMAX或特定区域的地面移动无线电系统)的异构网络中,垂直切换算法主要用于实现在不同类型的无线接入技术之间...
在可调RGB LED灯设计中,我们会遇到部分标准色域颜色...我整理了个表格,输入超色域坐标,会计算出对应的映射点,里面提供了两套算法,一套是垂直算法,一套是白点连线交点算法。推荐用白点连线算法。 欢迎大家讨论。
基于遗传禁忌算法优化的模糊神经网络垂直切换算法.pdf
基于GMR(Ground Mobile Radio,地面移动无线电系统)和LTE(Long-Term Evolution,长期演进)异构网络的垂直切换算法是一种策略,它允许用户设备(UE)在不同的无线接入技术(RATs)之间无缝地切换服务,以维持最佳...
垂直数据挖掘的算法研究分析.pdf
3.仿真效果:仿真效果可以参考博客同名文章《基于LTE和wimax异构网络的垂直切换算法matlab仿真》 4.内容:基于LTE和wimax异构网络的垂直切换算法matlab仿真。在异构网络中,LTE和WiMAX是两种不同的无线通信技术,...
改善用户体验的垂直切换算法.docx
3.仿真效果:仿真效果可以参考博客同名文章《基于LTE和wimax异构网络垂直切换算法matlab仿真》 4.内容:基于LTE和wimax异构网络垂直切换算法matlab仿真。基于LTE和WiMAX的异构网络垂直切换是指在包含这两种无线通信...
垂直分层空时码检测算法,安睿,,本文首先简要介绍了空时信号处理;其次介绍了空时编码研究的三大方向;最后重点分析分层空时码。分层空时码最早是由贝尔实验室的
车牌字符分割算法的垂直投影切分matlab程序