PureBasic Forums - English

Code: Select all

 
;====================
;GetTickCount API function test
;Art Sentinel July, 30, 2002
;For everyone at the PureBasic Forum
;====================
;ILYLCBD


;Declare variables
HowLong.f = GetTickCount_()
HowLongMill$ = StrF(HowLong , 1)
HowLongSec$ = StrF(HowLong/1000 , 1)
HowLongMin$ = StrF((HowLong/1000)/60 , 1)
HowLongHour$ = StrF(((HowLong/1000)/60)/60 , 1)


;Start Subliminal_Message{
;Hire Art Sentinel for all your web design and graphic art needs!
;End Subliminal_Message


;Display results
MessageRequester("API Test", HowLongMill$ + " milliseconds have passed since you turned your computer on.",#PB_MessageRequester_Ok)
MessageRequester("API Test", HowLongSec$ + " second have passed since you turned your computer on.",#PB_MessageRequester_Ok)
MessageRequester("API Test", HowLongMin$ + " minutes have passed since you turned your computer on.", #PB_MessageRequester_Ok)
MessageRequester("API Test", HowLongHour$ + " hours have passed since you turned your computer on.", #PB_MessageRequester_Ok)

;Finish up
End

Code: Select all

;====================
;MessageBox API Test
;Art Sentinel July, 30, 2002
;For everyone at the PureBasic Forum
;====================
;ILYLCBD


;Declare Variables
Title.s = "MessageBox API Test"
EvilText.s = "Crap.. Windows is evil.."
DoesText.s = "Does this work?"
YippeeTest.s = "Yippee!! This Works! :wink:"
NoPointerPsst$ = "Psst.. Try moving the main window now before you press 'OK'."
NoPointerDoh$ = "Doh! Something went wrong!   "
NoPointerTitle$ = "MessageBox API Test"

;Open Window for hWnd to work
If OpenWindow(0, 10, 150, 300, 300, Title$)

  ;Find Identity of current window
  hWnd = WindowID(0)
 
  Else
 
  MessageBox_(hWnd, @EvilText, @Title, #MB_OK | #MB_ICONERROR)
 
  End
 
EndIf


;Call MessageBox API
  If MessageBox_(hWnd, @DoesText, @Title, #MB_YESNO | #MB_ICONQUESTION) = #IDYES

  MessageBox_(hWnd, @YippeeText, @Title, #MB_OK | #MB_ICONEXCLAMATION)

  Else
 
  ;And to demonsytrate how PureBasic automatically uses the pointer to a string's address without the need for '@'...
  MessageBox_(NULL, NoPointerDoh$ + NoPointerPsst$ , NoPointerTitle$, #MB_OK | #MB_ICONERROR)

  EndIf
 

;Finish up
End

Code: Select all

;====================
;Menu Bitmap Image Test
;Art Sentinel July, 31, 2002
;For everyone at the PureBasic Forum
;====================
;ILYLCBD


;Declare variables
#MN_Open = 0
#MN_Exit = 2
#Exit_Icon = 2
Titles$ = "Menu Bitmap Image Test"
DefaultFile$ = "C:\"
Pattern$ = "Nothing Much file| *.nmf |Not Really File| *.nrf;*.not" 
FileName$ = "Exit_Icon.bmp"

Debug #PB_Compiler_Home
;Load bitmap for the menu API test
If LoadImage(#Exit_Icon, #PB_Compiler_Home + "Examples/Sources/Data/File.bmp")
  hBitmapUnchecked = ImageID(#Exit_Icon) 
  hBitmapChecked = ImageID(#Exit_Icon)
  
Else
  MessageRequester("[sigh]", "Load Image command failed. Please make sure you placed a 13 x 13 pixel bitmap within the same directory as this .pb", #PB_MessageRequester_Ok) 
  End
  
EndIf


;Open window for menu
If OpenWindow(0,10, 150, 300, 300, Title$, #PB_Window_SystemMenu)
  
  hWnd = WindowID(0) 
  
Else
  
  MessageRequester("Could not open PureBasic Window", "DOH!", #PB_MessageRequester_Ok)
  
EndIf


;Create menu
CreateMenu(0, hWnd) 
MenuTitle("&File")
MenuItem(#MN_Open, "&Open")
MenuBar()  
MenuItem(#MN_Exit, "&Exit")


;Call API function
Menu.l = GetMenu_(hWnd)
SubMenu.l = GetSubMenu_(Menu, 0)
MenuItemID = GetMenuItemID_(SubMenu, 2)
SetMenuItemBitmaps_(Menu, MenuItemID, 0, hBitmapUnchecked, hBitmapChecked)


;Main loop
Repeat
  
  Select WaitWindowEvent()
      
    Case #PB_Event_Menu
      
      Select EventMenu()
          
        Case 0 ; Open
          OpenFileRequester("Open What?", DefaultFile$, Pattern$, 0) 
          
        Case 2 ; Exit
          Quit = 1
          
      EndSelect
      
    Case #WM_CLOSE
      Quit = 1
      
  EndSelect
  
Until Quit = 1


;Finish up
MessageRequester("Hillbilly Exit", "Ya all com'on back now, ya hear!", #PB_MessageRequester_Ok)
FreeImage(#Exit_Icon) 
End

Code: Select all

;====================
;GetWindowsDirectory API Test
;Art Sentinel August, 01, 2002
;For everyone at the PureBasic Forum
;====================
;ILYLCBD


;Declare variables
Size.l = 255
WinDir$ = Space(Size)
Quite.b = 0

;Open window
If OpenWindow(0, 150, 150, 300, 300, "GetWindowsDirectory API Test", #PB_Window_SystemMenu)
  WindowID = WindowID(0)
  
Else
  MessageRequester("Could not open window.", ":(", #PB_MessageRequester_Ok)
  
EndIf


;Add command button
If CreateGadgetList(WindowID)
  ButtonGadget(007, 120, 135, 60, 30, "Press me", #PB_Button_Default)  
  GadgetToolTip(007, "Press this button to learn the location of your Windows directory.") 
  
Else
  MessageRequester("Oops!", "My bad...", #PB_MessageRequester_Ok)
  End
  
EndIf


;Main loop
Repeat
  
  Select WaitWindowEvent()
      
    Case #PB_Event_Gadget
      
      Select EventGadget()
          
        Case 007
          Gosub FindDirectory
          MessageRequester("Warning:", "Now that you know where your Windows directory is, you will never be the same again.  (Oh how I miss those carefree days of innocence..)", #PB_MessageRequester_Ok)
          End
          
      EndSelect
      
    Case #WM_CLOSE
      Quit = 1
      
  EndSelect
  
Until Quit = 1

;Finish up
End    


;Perform the API call and display results
FindDirectory:
  GetWindowsDirectory_(@WinDir$, Size - 1)
  WinDir$ = RTrim(WinDir$) 
  MessageRequester("And the answer to the million dollar question is..", WinDir$, #PB_MessageRequester_Ok)
Return  

Code: Select all

PUSH 0
PUSH "!"
PUSH "D"
PUSH "L"
PUSH "R"
PUSH "O"
PUSH "W"
PUSH " "
PUSH "O"
PUSH "L"
PUSH "L"
PUSH "E"
PUSH "H"
CALL function