vb中小球上下运动的程序代码

答案:4 悬赏:70 手机版

解决时间 2021-03-09 16:29

提问者网友：刺鸟
2021-03-09 11:03

vb中小球上下运动的程序代码

最佳答案

五星知识达人网友：詩光轨車
2021-03-09 11:28

Private Sub Form_Load()
Shape1.Top = 400
Timer1.Interval = 500
End Sub
Private Sub Timer1_Timer()
If Shape1.Top <= 400 Then
Shape1.Top = Shape1.Top + 100
Else
Shape1.Top = Shape1.Top - 100
End If
End Sub

全部回答

1楼网友：雾月
2021-03-09 14:45

CSDN追问嘛意思？追答www,csdn,net

2楼网友：神的生死簿
2021-03-09 14:27

Option Explicit
Dim h0 As Single
Dim T As Single
Dim s As Single
Dim h As Single
Dim v As Single
Const g = 9.8
Private Sub Command1_Click()
Timer1 = True
End Sub
Private Sub Form_Load()
ScaleMode = 6 '毫米
Me.Scale (-1, 110)-(153, -10)
Timer1.Interval = 9
Timer1.Enabled = False
Timer2.Interval = 9
Timer2.Enabled = False
h0 = 100
v = 1
End Sub
Private Sub Timer1_Timer()
'Cls
T = T + 0.1
v = v + 0.05
If v > 152 Then
v = 2
Cls
End If
s = 0.5 * g * T ^ 2
h = h0 - s
Circle (v, h), 0.5, vbRed
Line (0, 100)-(153, 100), vbBlue
Line (0, 0)-(153, 0), vbBlue
If h <= 0 Then
h0 = h0 * 0.99
T = (2 * h0 / 9.8) ^ 0.5
Timer1.Enabled = False
Timer2.Enabled = True
End If
End Sub
Private Sub Timer2_Timer()
'Cls
T = T - 0.1
v = v + 0.05
If v > 152 Then
v = 2
Cls
End If
s = h0 - 0.5 * g * T ^ 2
Circle (v, s), 0.5, vbRed
If T <= 0 Then
T = 0
s = 0
Timer1.Enabled = True
Timer2.Enabled = False
End If
End Sub

3楼网友：底特律间谍
2021-03-09 13:03

用Shape控件作一个正圆，用代码改变它的左右相对位置就可以了，不知道你还有有什么要求吗

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息