高分请教如何在图片框中画出一个角度并计算出角度。

yh1205 2004-03-30 05:42:27

如题，请高手帮帮忙:)分不够偶再添，谢谢了！
有源码最好了！

...全文

225 10 打赏收藏转发到动态举报

写回复

用AI写文章

10 条回复

切换为时间正序

请发表友善的回复…

发表回复

qiqunet 2004-04-05

打赏
举报

'班门弄斧,试一下,不行别怪,呵呵

'新建一个窗体,将下面代码贴入,在窗体内放入三个Label,点击并移动鼠标即可从窗体和label中看到夹角并计算大小

Dim Xo(1) As Single, Yo(1) As Single, K(1) As Single, A(1) As Single
Dim DrawN As Integer

Private Sub Form_Load()
Me.AutoRedraw = True
Me.Scale (-1000, 1000)-(1000, -1000) '定义坐标系统为：窗口的左上角坐标是（-1000，1000），右下角坐标是（1000，-1000），原点在窗口的中心；亦即是常用的平面直角坐标系形式
DrawN = 0 '标志量初始化
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If DrawN = 3 Then DrawN = 0 '当第四次点下鼠标时，标志量复位
If DrawN < 2 Then '根据标志量给各初始量取值
Xo(DrawN) = X
Yo(DrawN) = Y
End If
DrawN = DrawN + 1 '标志量自增
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If DrawN = 2 Then
Me.Cls '清除屏幕以便生成新的夹角
Me.Line (Xo(0), Yo(0))-(X, Y) '画第一条直线
Me.Line (Xo(1), Yo(1))-(X, Y) '画第二条直线,生成夹角

If Xo(0) = X Then '如果直线两个端点的横坐标是一样的，它与横坐标的夹角就是90度
A(0) = 90
Else
A(0) = 180 * Atn((Yo(0) - Y) / (Xo(0) - X)) / 3.14 '算出直线的斜率，并转换为角度
End If
If A(0) < 0 Then A(0) = 180 + A(0) '如果得到的角度为负值，就将其转换为钝角
'第二条直线的处理方法同第一条直线
If Xo(1) = X Then
A(1) = 90
Else
A(1) = 180 * Atn((Yo(1) - Y) / (Xo(1) - X)) / 3.14
End If
If A(1) < 0 Then A(1) = 180 + A(1)

Label1 = "第一条直线与横轴的夹角是：" & A(0)
Label2 = "第二条直线与横轴的夹角是：" & A(1)

'分两种情况计算两直线的夹角
If (Y > Yo(0) And Y < Yo(1)) Or (Y < Yo(0) And Y > Yo(1)) Then
Label3 = "两直线的夹角是：" & 180 - Abs(A(1) - A(0))
Else
Label3 = "两直线的夹角是：" & Abs(A(1) - A(0))
End If
End If
End Sub

northwolves 2004-03-31

打赏
举报

Private Sub Form_Click()
Picture1.Cls
Randomize
Dim alpha As Double
alpha = Atn(1) * 8 * Rnd ' an angle between 0 to 2pi
Picture1.Scale (-1, 1)-(1, -1)
Picture1.Line (0, 0)-(1, 0), vbRed
Picture1.Line (0, 0)-(Cos(alpha), Sin(alpha) - 0), vbBlue
MsgBox Format(alpha * 45 / Atn(1), "0.00") & "°" ' angle from redline to blueline
End Sub

Private Sub Form_Load()
Me.Move Screen.Width / 2 - 3000, Screen.Height / 2 - 3000, 6000, 6000
Picture1.Move 0, 0, 5000, 5000
End Sub

jnhjone 2004-03-31