| Server IP : 134.29.175.74 / Your IP : 216.73.216.160 Web Server : nginx/1.10.2 System : Windows NT CST-WEBSERVER 10.0 build 19045 (Windows 10) i586 User : Administrator ( 0) PHP Version : 7.1.0 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : OFF | Perl : OFF | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : /nginx/html/JimMartinson/_Archive/CST1794/ExampleFiles/2008.02.14/ |
Upload File : |
WindowWidth = 800
WindowHeight = 200
UpperLeftX = Int((DisplayWidth - WindowWidth) /2)
UpperLeftY = Int((DisplayHeight - WindowHeight) /2)
Graphicbox #demo.g, 20, 20, 750, 100
Statictext #demo.st, "", 250, 140, 300, 20
Open "Left and Right" for Window as #demo
#demo, "Trapclose [XbyTrap]"
#demo, "Font Verdana 10 Bold"
#demo.st, "Press Left / Right Arrow Keys to Move"
' Make a sprite to move
#demo.g, "Down; Color Black; Backcolor Black"
#demo.g, "Place 22 22; Circlefilled 20"
#demo.g, "Place 0 45; Boxfilled 45 89"
#demo.g, "Color Darkblue; Backcolor Blue"
#demo.g, "Place 22 66; Circlefilled 20"
#demo.g, "Getbmp discBMP 0 0 45 89"
#demo.g, "Addsprite sphere discBMP"
xSphere = 380
#demo.g, "Spritexy sphere ";xSphere;" 40"
#demo.g, "Drawsprites"
' Issue When characterInput command
#demo.g, "When characterInput [MoveSprite]"
#demo.g, "Setfocus"
currentKey = 0
Wait
[XbyTrap]
Unloadbmp "discBMP"
Close #demo
End
[MoveSprite]
key = _VK_LEFT
While key = _VK_LEFT
CallDLL #user32, "GetAsyncKeyState", _
_VK_LEFT as Long, _
result as Long
print key,result
If result < 0 Then
key = _VK_LEFT
xSphere = Max(10, xSphere - 5)
#demo.g, "Spritexy sphere ";xSphere;" 40"
#demo.g, "Drawsprites"
Else
key = 0
End If
CallDLL #kernel32, "Sleep", 20 as Long, result as Void
Wend
key = _VK_RIGHT
While key = _VK_RIGHT
CallDLL #user32, "GetAsyncKeyState", _
_VK_RIGHT as Long, _
result as Long
If result < 0 Then
key = _VK_RIGHT
xSphere = Min(700, xSphere + 5)
#demo.g, "Spritexy sphere ";xSphere;" 40"
#demo.g, "Drawsprites"
Else
key = 0
End If
CallDLL #kernel32, "Sleep", 20 as Long, result as Void
Wend
Wait