SmallBASIC播放器控制器

Question

我刚开始使用SmallBASIC，我想我可以通过使用一个可变变量来制作一个简单的播放器控制器，该变量可以确定对象在图形窗口中的像素数量。这就是我所做的：

tutle = 300
GraphicsWindow.BrushColor = "Green"
GraphicsWindow.FillEllipse(tutle, 300, 55, 65)
If GraphicsWindow.LastKey = "A" Then
  tutle = tutle + 5
  EndIf 

我听说Last Key是你按下或松开的最后一个键，但这似乎不起作用。我确信我把KeyDown弄错了。我能做些什么来修复它？

Answer 1

Zock u这样做，你将继续绘制椭圆，这样你的椭圆将与你创建的其他椭圆重叠。我已经制作了多个具有t形状的游戏。U使用形状而不是图形窗口。它更快、更干净、更容易理解。

Answer 2

您的代码只运行一次。你需要不断地检查一个关键的笔划。不止一次。

tutle = 300
GraphicsWindow.BrushColor = "Green"

While 1 = 1 '< Every time the code gets to the EndWhile, it goes strait back up to the While statement.
Program.Delay(10)'<Small delay to make it easier on the PC, and to make the shape move a reasonable speed.
If GraphicsWindow.LastKey = "A" Then
 tutle = tutle + 5
EndIf
GraphicsWindow.FillEllipse(tutle, 300, 55, 65)
EndWhile

Answer 3

使用LastKey时需要记住另一个问题。它返回最后一个键，即使该键是在五小时前按下的。一旦按下"A"键，循环将继续记录按键，直到按下另一个键。然后，该键将是最后一个，直到按下第三个键。

要按下一个键，请按住它直到松开，然后在该点停止，您需要跟踪关键事件。

GraphicsWindow.Show()
circ = Shapes.AddEllipse(10,10)
x = GraphicsWindow.Width / 2
y = GraphicsWindow.Height / 2
GraphicsWindow.KeyDown = onKeyDown
GraphicsWindow.KeyUp = onKeyUp
pressed = "False"
While "True"
  If pressed Then
    If GraphicsWindow.LastKey = "Up" then
      y = y - 1
    endif
  EndIf
  Shapes.Move(circ,x,y)
  Program.Delay(20)
EndWhile

Sub onKeyDown
  pressed = "True"
EndSub
Sub onKeyUp
  pressed = "False"
EndSub

Answer 4

您将使用形状，而不是图形。图形会画出一个静态的"贴纸"。

    Turtle = Shapes.AddRectangle(100, 100)
GraphicsWindow.KeyDown = move
x =0
y = 0
Shapes.Move(Turtle, x, y)
Sub move
  key = GraphicsWindow.LastKey
  Text.ConvertToLowerCase(key)
  If key = "S" Then
    x = x
    y = y +1 ' values are reveresed for y.
    Shapes.Move(Turtle, x, y )
   EndIf 

  endsub

希望能有所帮助。