vb打冰雹原代码.doc

Public intdf As Integer Private Sub cboNd_Change() If cboNd.Text = "简单" Then tmr1.Interval = 400 ElseIf cboNd.Text = "中等" Then tmr1.Interval = 300 ElseIf cboNd.Text = "较难" Then tmr1.Interval = 200 ElseIf cboNd.Text = "高级" Then tmr1.Interval = 100 End If End Sub Private Sub cboNd_Click() If cboNd.Text = "简单" Then tmr1.Interval = 500 ElseIf cboNd.Text = "中等" Then tmr1.Interval = 400 ElseIf cboNd.Text = "较难" Then tmr1.Interval = 300 ElseIf cboNd.Text = "高级" Then tmr1.Interval = 200 End If End Sub Private Sub Form_Load() Randomize For int1 = 0 To 9 shp1(int1).FillStyle = 0 shp1(int1).FillColor = Rnd * &HFFFFFF shp1(int1).Top = Rnd * 500 shp1(int1).Left = Rnd * 9120 Next End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) a = 4680: b = 6480: c = 6480 - 5280: d = Atn((4680 - 4560) / (6480 - 5760)) e = Atn((4680 - 4440) / (6480 - 5760)): f = Sqr(120 ^ 2 + 720 ^ 2): g = Sqr(240 ^ 2 + 720 ^ 2) Dim sng1 As Single, sng2 As Single If X <> a Then If X > a Then sng1 = Atn((b - Y) / (X - a)) sng2 = d + sng1: sng4 = e + sng1 Line3.X2 = a + g * Cos(sng4): Line3.Y2 = b - g * Sin(sng4) Line6.X1 = a + f * Cos(sng2): Line6.Y1 = b - f * Sin(sng2) sng3 = sng1 - d: sng5 = sng1 - e Line4.X2 = a + g * Cos(sng5): Line4.Y2 = b - g * Sin(sng5) Line7.X1 = a + f * Cos(sng3): Line7.Y1 = b - f * Sin(sng3) Line3.X1 = a + c * Cos(sng1): Line3.Y1 = b - c * Sin(sng1) End If If X < a And Y < b Then sng1 = Atn((b - Y) / (a - X)) sng2 = sng1 - d: sng4 = sng1 - e sng3 = sng1 + d: sng5 = sng1 + e Line4.X2 = a - g * Cos(sng5): Line4.Y2 = b - g * Sin(sng5) Line3.X2 = a - g * Cos(sng4): Line3.Y2 = b - g * Sin(sng4) Line7.X1 = a - f * Cos(sng3): Line7.Y1 = b - f * Sin(sng3) Line6.X1 = a - f * Co