VB程序：画一个圆在在form1上,单机按钮后,球能沿着45度的方向运动.碰到边以后就往相反方向运动.

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/05/28 02:39:00

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 Su

VB程序：画一个圆在在form1上,单机按钮后,球能沿着45度的方向运动.碰到边以后就往相反方向运动. 设一个沿着一定方向运动的光子和一个静止的自由电子相互碰撞.碰撞以后.电子向某一个方向运动.光子沿另一散射后的光子运动方向一定与电子运动方向相反么? 自行车车轮的摩擦方向解释清楚点..还有一个问题,摩擦力方向和运动方向是不是相反?运动方向是不是相对运动方向?不是的话,有 vb课程设计,怎么做一个小球沿着正弦曲线运动的程序? 台球怎么打,才能使母球与目标球直线碰撞后,母球往相反的方向运动? 为什么加速度是负数,它的方向就和运动方向相反滑动摩擦力的方向与相对运动的方向相反静摩擦力方向总与物体的运动趋势方向相反摩擦力的方向总与物体运动方向相反阻力方向的定义阻力方向总量和运动方向相反,或运动趋势的方向相反]怎样理解它猫和老鼠沿着一个直径100米的圆周轨迹,从同一个点向相反方向运动.猫每分钟走18.84米,老鼠每分钟走12.56米.当老