程序实现小球相互碰撞反弹

用vb设计小球-1/after反弹程序。当小球与任意边碰撞时，计算角度和/12344，谁有c 小球-1/code/*不知道你的要求是什么，我写了a小球landing程序*。

2、求vb代码,窗体上一个 小球,到处滚,碰到边界就 反弹回来

我写的游戏，全部源代码:DimvxAsInteger，vyasintegerdimtmasintegerdimfsasintegerprivateucommand 1 _ Click()if timer 1。enabledfalsethentimer 1 . enabledtrueifshape 2 . top > picture 1。heightthendimxasintegerx 0 shape 1 . Le label 1(0)。visible false for i1 to 90 step 2 unload label 1(I) Nexti for i1 to 90 step 2 load label 1(I) label 1(I)。“VisibleTrue”标签1(i)。标题“label 1(I). left 375 *(i1)mod 15)”label 1(I). top 135 * x ifimod 150 orimod 1514 then xx 1 EndIf nextiendifendifenduprevatesubcommand 2 _ Clic .

dx，dy表示小球一次水平和垂直方向的移动距离。这样，遇到水平界面时，dydy；触摸垂直接口时可以使用Dxdx。/小球运动区域# definetop0 # defineloft 0 # defineright 800 # definebottom 600 # defineSpeed 1 # defineSpeed 1 int xpos，ypos//球的位置intxspeedXSPEED，

我帮你改正了。错误的原因是不能在定时器中放入shuiping，chuizhi1，否则每次定时器后都会变回来，看来你有几句没用的话。我给你删了DimShuipingAsInteger，chuijiasintegerprivatesubform _ Load()shui ping 1 chuiji 1 ends subprivate subtimer 1 _ Timer()shape 1。Left shape 1 . Left 水平*50Shape1，Top shape 1 . Top 吹制* 50IfShape1。左>表格1，比例宽度形状1 .宽度形状1 .左侧形状1 .比例高度形状1 .高度形状1 .顶。