VB程序:画一个圆在在form1上,单机按钮后,球能沿着45度的方向运动.碰到边以后就往相反方向运动.timer1.interval的值为100.轨迹为45度直线
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/07 01:38:27
![VB程序:画一个圆在在form1上,单机按钮后,球能沿着45度的方向运动.碰到边以后就往相反方向运动.timer1.interval的值为100.轨迹为45度直线](/uploads/image/z/14889335-23-5.jpg?t=VB%E7%A8%8B%E5%BA%8F%EF%BC%9A%E7%94%BB%E4%B8%80%E4%B8%AA%E5%9C%86%E5%9C%A8%E5%9C%A8form1%E4%B8%8A%2C%E5%8D%95%E6%9C%BA%E6%8C%89%E9%92%AE%E5%90%8E%2C%E7%90%83%E8%83%BD%E6%B2%BF%E7%9D%8045%E5%BA%A6%E7%9A%84%E6%96%B9%E5%90%91%E8%BF%90%E5%8A%A8.%E7%A2%B0%E5%88%B0%E8%BE%B9%E4%BB%A5%E5%90%8E%E5%B0%B1%E5%BE%80%E7%9B%B8%E5%8F%8D%E6%96%B9%E5%90%91%E8%BF%90%E5%8A%A8.timer1.interval%E7%9A%84%E5%80%BC%E4%B8%BA100.%E8%BD%A8%E8%BF%B9%E4%B8%BA45%E5%BA%A6%E7%9B%B4%E7%BA%BF)
VB程序:画一个圆在在form1上,单机按钮后,球能沿着45度的方向运动.碰到边以后就往相反方向运动.timer1.interval的值为100.轨迹为45度直线
VB程序:画一个圆在在form1上,单机按钮后,球能沿着45度的方向运动.碰到边以后就往相反方向运动.
timer1.interval的值为100.
轨迹为45度直线
VB程序:画一个圆在在form1上,单机按钮后,球能沿着45度的方向运动.碰到边以后就往相反方向运动.timer1.interval的值为100.轨迹为45度直线
'不知道有没有理解你的意思
Private dx As Integer, dy As Integer, stp As Integer, ox As Integer, oy As Integer, rad As Integer
Private Sub Command1_Click()
Timer1.Enabled = Not Timer1.Enabled
End Sub
Private Sub Form_Load()
Me.ScaleMode = 3
Me.FillStyle = 0
Me.FillColor = vbYellow
Me.AutoRedraw = True
ox = 100: oy = 100: rad = 10
Me.Circle (ox, oy), rad, vbRed
dx = 1: dy = -1: stp = 10
Timer1.Interval = 100
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
Me.Cls
ox = ox + dx * stp: oy = oy + dy * stp
Dim l As Integer, r As Integer, t As Integer, b As Integer
l = ox - rad: r = ox + rad: t = oy - rad: b = oy + rad
If l + dx * stp = Me.ScaleWidth Then ox = Me.ScaleWidth - rad
If t + dy * stp = Me.ScaleHeight Then oy = Me.ScaleHeight - rad
Me.Circle (ox, oy), rad, vbRed
Dim i As Integer: i = -1 * Sgn(dx * dy)
If ox = rad Then dx = 1: dy = i * dx
If ox = Me.ScaleWidth - rad Then dx = -1: dy = i * dx
If oy = rad Then dy = 1: dx = i * dy
If oy = Me.ScaleHeight - rad Then dy = -1: dx = i * dy
End Sub