| 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 : C:/nginx/html/JimMartinson/_Archive/CST1794/ExampleFiles/2008.05.08/Hangman/ |
Upload File : |
[beginProgram]
' Begin code for #main
nomainwin
'open "image323.dll" for dll as #im
WindowWidth = 640
WindowHeight = 480
UpperLeftX=int((DisplayWidth-WindowWidth)/2)
UpperLeftY=int((DisplayHeight-WindowHeight)/2)
graphicbox #main.hangman.graphicbox, 5, 17, 300, 380
loadbmp "background", "assets\background.BMP"
loadbmp "grim", "assets\grim4.bmp"
'bmp$ = "assets\grim.gif"
'hW=hwnd(#main.hangman.graphicbox) 'graphicbox handle
'x=0:y=0 'placement for bmps
'hImage=LoadImageFile(hW,bmp$)
open "Hangman" for window as #main
print #main.hangman.graphicbox, "down; fill white; flush ;up"
'print #main.hangman.graphicbox, "drawbmp background -40 -70"
print #main.hangman.graphicbox, "background background";
print #main.hangman.graphicbox, "down; fill white;backcolor black"
print #main.hangman.graphicbox, "color black;place 0 40"
print #main.hangman.graphicbox, "boxfilled 80 80"
print #main.hangman.graphicbox, "addsprite grim grim";
bprint #main.hangman.graphicbox, "spritexy grim 100 100"
print #main.hangman.graphicbox, "drawsprites"
'if hDemo<>0 then unloadbmp "demo"
'loadbmp "demo",hImage
'hDemo=hbmp("demo")
'#main.hangman.graphicbox "drawbmp demo 0 0 ;flush"
wait
close #main
'Function LoadImageFile(hWnd, file$)
' 'load an image from file,
' 'bmp, jpg, gif, emf, wmf, ico
' 'returns handle of memory bmp
' calldll #im, "LoadImageFile",hWnd as ulong,_
' file$ as ptr,LoadImageFile as ulong
' End Function