当前位置:首页 > 其他运动 > 正文

求助如何在vb6.0中让小球沿直线运动完回到起点再接着运动

用vb编程怎么使小球在窗体内做加速减速运动还有变换和停止

Dimleft1AsDouble,jsAsInteger,fxAsInteger,zyAsInteger
PrivateSubCommand1_Click()'加速
fx=1
EndSub
PrivateSubCommand2_Click()'减速
fx=-1
EndSub
PrivateSubCommand3_Click()'停止
Timer1.Enabled=False
EndSub
PrivateSubCommand4_Click()'向左
zy=1
EndSub
PrivateSubCommand5_Click()'向右
zy=-1
EndSub
PrivateSubForm_Load()
Timer1.Interval=300
Timer1.Enabled=True
Shape1.Shape=3
Shape1.FillStyle=0
left1=150
js=20
fx=1
zy=1
EndSub
PrivateSubTimer1_Timer()
Shape1.Left=Shape1.Left+zy*left1
left1=left1+fx*js
Ifleft1<0Thenleft1=0
EndSub

在VB程序中如何让小球沿抛物线运动?方程是什么?具体的程序是什么?

参考: http://zhidao.baidu.com/question/97539535.html http://zhidao.baidu.com/question/24474855.html

vb课程设计,怎么做一个小球沿着正弦曲线运动的程序?大神来~

改个txt复制后改名为Form1.frm VERSION 5.00 Begin VB.Form Form1 AutoRedraw = -1 'True Caption = "Form1" ClientHeight = 4545 ClientLeft = 120 ClientTop = 450 ClientWidth = 6465 LinkTopic = "Form1" ScaleHeight = 303 ScaleMode = 3 'Pixel ScaleWidth = 431 StartUpPosition = 3 '窗口缺省 Begin VB.TextBox TxtFle Height =

vb课程设计,怎么做一个小球沿着正弦曲线运动的程序

ConstπAsSingle=3.1415926
DimxAsSingle
PrivateSubCommand1_Click()
Timer1.Interval=1
EndSub
PrivateSubForm_Load()
Picture1.Left=50
Picture1.Top=50
Picture1.Width=Me.Width-220
Picture1.Height=Me.Height-1000
Picture1.Scale(-2*π,1.2)-(2*π,-1.2)
Picture1.AutoRedraw=True
Picture1.DrawWidth=1
Picture1.Line(-2*π,0)-(2*π,0),vbBlue
Picture1.Line(0,-1.2)-(0,1.2),vbBlue
Picture1.BackColor=vbBlack
Picture1.FillColor=vbRed
Picture1.FillStyle=0
x=-2*π
Picture1.Line(-2*π,0)-(2*π,0),vbBlue
Picture1.Line(0,-1.2)-(0,1.2),vbBlue
Fori=-2*πTo2*πStep0.001
Picture1.PSet(i,Sin(i)),vbGreen
Nexti
EndSub
PrivateSubTimer1_Timer()
Picture1.Cls
Fori=-2*πTo2*πStep0.001
Picture1.PSet(i,Sin(i)),vbGreen
Nexti
Picture1.Line(-2*π,0)-(2*π,0),vbBlue
Picture1.Line(0,-1.2)-(0,1.2),vbBlue
Picture1.Circle(x,Sin(x)),0.2,vbRed
x=x+0.03
Ifx>=2*πThenx=-2*π
EndSub

设计一个VB程序,小球沿抛物线运动的动画,用Timer控件

DimSpaceTopAsInteger
DimStepBAsDouble
ConstPI=3.1415926
DimSFlagAsBoolean
DimMaxFleAsDouble
DimMinFleAsDouble
DimBlAsInteger
PrivateSubForm_Load()
Me.AutoRedraw=True
Shape1.Height=20
Shape1.Width=10
Shape1.Shape=3
Bl=40
SpaceTop=40
MaxFle=2*PI
MinFle=0
StepB=PI/50
Timer1.Interval=10
Timer1.Enabled=True
EndSub
PrivateSubTimer1_Timer()
Timer1.Enabled=False
Me.CurrentX=Timer1.Tag*Bl
Me.CurrentY=SpaceTop+Sin(Timer1.Tag)*Bl
Me.Print"."
IfTimer1.Tag<=MaxFleAndTimer1.Tag>=MinFleThen
Shape1.Left=Timer1.Tag*Bl-Shape1.Width/2
Shape1.Top=SpaceTop+Sin(Timer1.Tag)*Bl-Shape1.Width/2

IfSFlag=FalseThen
Timer1.Tag=Timer1.Tag+StepB
Else
Timer1.Tag=Timer1.Tag-StepB
EndIf
Else
IfSFlag=FalseThen
SFlag=True
Timer1.Tag=MaxFle
Else
SFlag=False
Timer1.Tag=MinFle
EndIf
EndIf
Timer1.Enabled=True
EndSub

新建工程 添加两个控件 1个Timer1,1个Shape1 把上面的代码复制过去就可以了

相关文章:

  • 运动减肥为什么有氧运动和无氧运动相结合?2023-07-08
  • 欧克利好贵啊,有没有差不多质量运动眼镜推荐啊?2023-07-08
  • 运动神经元病分几种类型2023-07-08
  • 表现随意运动的速度、节律、幅度以及力量的不规则及协调运动的障碍疾病是共济失调症状吗?2023-07-08
  • 运动神经元病的发展的阶段有几个?2023-07-08
  • 运动神经元病患者在日常生活中需要做什么锻炼?2023-07-07
  • 帕金适合那种运动?2023-07-07
  • 什么人容易得运动神经元病 怎么判断是不是运动神经元病2023-07-07
  • 帕金森病会导致什么样的运动问题?2023-07-07
  • 苏州市青少年阳光体育联赛运动员注册是正规注册运动员吗2023-07-07