Microsoft Small Basic

Program Listing: SJV156

List Program

'Made by Ashkore Dracson


GraphicsWindow.Show()
DrawKeys()

Sub DrawKeys
GraphicsWindow.BrushColor = "white"
keyup = Shapes.AddRectangle(50,50)
keyleft = Shapes.AddRectangle(50,50)
keydown = Shapes.AddRectangle(50,50)
keyright = Shapes.AddRectangle(50,50)
Shapes.Move(keyup,295,195)
Shapes.Move(keyleft,245,245)
Shapes.Move(keydown,295,245)
Shapes.Move(keyright,345,245)
GraphicsWindow.BrushColor = "red"
keyuppress = Shapes.AddRectangle(50,50)
keyleftpress = Shapes.AddRectangle(50,50)
keydownpress = Shapes.AddRectangle(50,50)
keyrightpress = Shapes.AddRectangle(50,50)
Shapes.Move(keyuppress,295,195)
Shapes.Move(keyleftpress,245,245)
Shapes.Move(keydownpress,295,245)
Shapes.Move(keyrightpress,345,245)
Shapes.SetOpacity(keyuppress,0)
Shapes.SetOpacity(keyleftpress,0)
Shapes.SetOpacity(keydownpress,0)
Shapes.SetOpacity(keyrightpress,0)
GraphicsWindow.BrushColor = "black"
textup = Shapes.AddText("^")
textleft = Shapes.AddText("<")
textdown = Shapes.AddText("v")
textright = Shapes.AddText(">")
Shapes.Move(textup,315,215)
Shapes.Move(textleft,265,265)
Shapes.Move(textdown,315,265)
Shapes.Move(textright,365,265)
GraphicsWindow.KeyDown = OnKeyDown
GraphicsWindow.KeyUp = OnKeyUp
EndSub

Sub OnKeyDown
If GraphicsWindow.LastKey = "Up" Then
Shapes.SetOpacity(keyuppress,100)
ElseIf GraphicsWindow.LastKey = "Left" Then
Shapes.SetOpacity(keyleftpress,100)
ElseIf GraphicsWindow.LastKey = "Down" Then
Shapes.SetOpacity(keydownpress,100)
ElseIf GraphicsWindow.LastKey = "Right" Then
Shapes.SetOpacity(keyrightpress,100)
EndIf
EndSub

Sub OnKeyUp
If GraphicsWindow.LastKey = "Up" Then
Shapes.SetOpacity(keyuppress,0)
ElseIf GraphicsWindow.LastKey = "Left" Then
Shapes.SetOpacity(keyleftpress,0)
ElseIf GraphicsWindow.LastKey = "Down" Then
Shapes.SetOpacity(keydownpress,0)
ElseIf GraphicsWindow.LastKey = "Right" Then
Shapes.SetOpacity(keyrightpress,0)
EndIf
EndSub