PureBasic Forums - English

Code: Select all

; This is just a small PureBasic v4 Compiler Test
;
; Go to the compiler options and disable ALL checkboxes!
; Now try to compile the source and it will take a few seconds!
;
; You can solve the problem when activating "ENABLE DEBUGGER"
; in the compiler options menu! Also with disabled debugger, the
; compiler need more longer to compile?
; 
; Another way to solve this... Just only copy and paste the
; complete "Part2" section between EndProcedure and before
; starting the "Part1" section! Can someone confirm and explain
; this? 

MessageRequester("PureBasiv v4","Compiler Test",0)

screenWidth  = 640
screenHeight = 480

Dim Dimension_Test (screenWidth , screenHeight)

Procedure.f ATan2(y.f,x.f)
  !fld dword[p.v_y]
  !fld dword[p.v_x]
  !fpatan
EndProcedure

;{ -------- Part 1 - Calculations --------

    For x = 0 To 255
      For y = 0 To 255
        Dimension_Test(x,y) = a + b                            
      Next 
    Next
    
    For x = 0 To screenWidth * 4 ;-1                   
      For y = 0 To screenHeight * 4 ;-1 
        calculation = Int(32 * 192) 
      Next
    Next
;}

MessageRequester("PureBasiv v4","Compiler Test",0)

;{ -------- Part 2 - Initialisation --------

  If InitSprite() = 0
    MessageRequester("Error","Cant Init Sprite!",0)
    End
  EndIf
 
  If InitKeyboard() = 0
    MessageRequester("Error","Cant Init Keyboard!",0)
    End
  EndIf
  
  If InitSound() = 0
    MessageRequester("Error","Cant Init Sound!",0)
    End
  EndIf
  
;  If InitModule() = 0
;    MessageRequester("Error","Cant Init Module!",0)
;    End
;  EndIf
    
  If OpenWindow(0,0,0,640,480,#PB_Window_WindowCentered |#PB_Window_ScreenCentered ,"Small Compiler Test") = 0
    MessageRequester("Error","Cant open Window!",0)
    End
  EndIf
    
  If OpenWindowedScreen(WindowID(0),0,0,640,480,0,0,0) = 0
    MessageRequester("Error","Cant open Windowed Screen!",0)
    End
  EndIf

;}  
  
End

Code: Select all

For x = 0 To 640 * 4
    For y = 0 To 480 * 4
        calculation = Int(32 * 192)
    Next
Next