注册 登录
Small Basic中文站-快乐编程 返回首页

鱼二六的个人空间 http://www.smallbasic.cn/?12 [收藏] [复制] [分享] [RSS]

留言板

facelist

您需要登录后才可以留言 登录 | 注册


386129278 2018-6-12 16:58
您好!我在讲课中有一个问题,需要您的帮助!我把这个打靶程序发给您,我不解的是xtarget 和x值区别在哪里,谢谢!
ball=shapes.AddEllipse(16,16)
target=shapes.AddRectangle(200,10)
x=0
y=100
x1=1

GraphicsWindow.MouseDown=onkd

While ("true")
  If x<0 Or x>(GraphicsWindow.Width)-200 Then
    x1=-x1
  Else  
    Shapes.Move(target,x,y)  
  EndIf
  x=x+x1
  Program.Delay(3)
EndWhile

Sub onkd
  xball=GraphicsWindow.MouseX
  yball=GraphicsWindow.Height
  For i=yball To 0 Step -0.5
    Shapes.Move(ball,xball,i)
    xtarget=Shapes.GetLeft(target)
    If i>=y And i<=y+10 And xball>xtarget and xball<xtarget+200 Then
      GraphicsWindow.ShowMessage ("打中了 !","你真棒!")
      i=0
    EndIf
  EndFor
EndSub
3197577267 2018-2-21 00:08
为何网站资料无法下载
1966672636 2012-12-3 08:29
Small Basic中文站-快乐编程 网站上的“SmallBasic第3方扩展库应用实例"不知怎么的无法下载,能传一个给我吗?谢谢。 1966672636@qq.com
小春 2011-5-25 09:31
来瞅瞅

QQ|手机版|Small Basic中文站-快乐编程 ( 闽ICP备09051788号 |

GMT+8, 2019-6-25 03:27 , Processed in 0.114626 second(s), 3 queries , File On.

Powered by Discuz! X3.3

返回顶部