PureBasic Forums - English

Code: Select all

# Sample Python/Pygame Programs
# Simpson College Computer Science
# http://cs.simpson.edu
 
import pygame
import random
import os
import platform
   
# Define some colors
black    = (   0,   0,   0)
white    = ( 255, 255, 255)
green    = (   0, 255,   0)
red      = ( 255,   0,   0)
 
pygame.init()
  
# Set the height and width of the screen
size=[640,480]
screen=pygame.display.set_mode(size)
 
pygame.display.set_caption("My Game")
 
#Loop until the user clicks the close button.
done=False
 
# Used to manage how fast the screen updates
clock=pygame.time.Clock()

#load font, prepare values
font = pygame.font.Font(None, 80)
text = 'Fonty'
size = font.size(text)

fpscounter = 0
fps = 0
oldtime = pygame.time.get_ticks()
newtime = pygame.time.get_ticks()
fg = 250, 240, 230
bg = 5, 5, 5
wincolor = 40, 40, 90
    
# -------- Main Program Loop -----------
while done==False:
    for event in pygame.event.get(): # User did something
        if event.type == pygame.QUIT: # If user clicked close
                done=True # Flag that we are done so we exit this loop
     
    # Set the screen background
    screen.fill(black)

    if pygame.time.get_ticks() > oldtime + 1000:
        oldtime = pygame.time.get_ticks()
        #print(fpscounter)
        pygame.display.set_caption(str(fpscounter))
        fpscounter = 0
              
    # Limit to 20 frames per second
    # clock.tick(20)
    for i in range(20):
        #rect = pygame.Rect(random.randrange(320), random.randrange(240), random.randrange(320), random.randrange(240))
        #screen.fill(random.randrange(0xFFFFFF), rect, special_flags=0)
        pygame.draw.rect(screen,random.randrange(0xFFFFFF),
                         (random.randrange(320),
                          random.randrange(240),
                          random.randrange(320),
                          random.randrange(240)) ,
                         0)
  
    fpscounter+=1
    
    # Go ahead and update the screen with what we've drawn.
    pygame.display.flip()
# Be IDLE friendly. If you forget this line, the program will 'hang'
# on exit.
pygame.quit ()

Code: Select all

#if __FB_LANG__ = "fb"
Using FB
#endif
Randomize , 1
screen 18, 32, 2, GFX_WINDOWED 
'ScreenRes 640, 480, 32
dim fps as integer = 0
dim frames as integer = 0
dim oldtime as integer = timer

Function rnd_range (first As Double, last As Double) As Double
    Function = Int( Rnd * (last - first) + first )
End Function

screenset 1,0
Do
    cls
    
    if timer > oldtime + 1 then
        fps = frames
        frames = 0
        oldtime = timer
    end if
    
    for i as integer = 0 to 20
        Line (rnd_range(0,320),rnd_range(0,240))-STEP(rnd_range(0,320),rnd_range(0,240)),rnd_range(0,16711680), BF
    next i
    
    Draw String (20, 430), Str(fps), RGBA(255,255, 255, 255)
    frames += 1
    screencopy
Loop Until MultiKey(SC_Q) Or MultiKey(SC_ESCAPE)

Code: Select all

#screenwidth   = 640
#screenheight  = 480

#TOTALBOXES = 100 ; change me to display more boxes

InitSprite()
OpenWindow(0, 0, 0, #screenwidth, #screenheight, "PB Drawing", #PB_Window_ScreenCentered | #PB_Window_MinimizeGadget)
OpenWindowedScreen(WindowID(0), 0, 0, #screenwidth, #screenheight, 0, 0, 0, #PB_Screen_NoSynchronization)



;bufferaddress.i = 0
;StartDrawing(ScreenOutput())
;bufferaddress = DrawingBuffer()
;StopDrawing()

fpscounter.i  = 0
timer.i       = 0
fps.i = 0
frames.i = 0
totalTime.l = 0
curTime.l = ElapsedMilliseconds()

Dim sprites.l(201)
For i = 0 To 199
	Debug i
	w = 1+Random(320)
	h = 1+Random(240)
	sprites.l(i) = CreateSprite(#PB_Any, w,h)
	Debug sprites.l(i)
	StartDrawing(SpriteOutput(sprites.l(i))) ; -- Random crash here? what the crap?
	Box(0,0,w,h, Random($FFFFFF))
	StopDrawing()
Next i
    
Repeat
  
  lastTime = curTime
  curTime = ElapsedMilliseconds()
  totalTime + (curTime - lastTime)
  If( totalTime > 1000 ) 
    totalTime - 1000
    fps = frames
    frames = 0
  EndIf
  frames + 1
  
  ClearScreen(RGB(0,0,0))
  For x = 0 To #TOTALBOXES
  	DisplaySprite(sprites.l(Random(#TOTALBOXES)), Random(320),Random(240))
  Next
 
  StartDrawing(ScreenOutput())
  ;For i = 0 To 20
  ;  Box(Random(320), Random(240), Random(320), Random(240), Random($FFFFFF) )
 ; Next i
  DrawText(20,430,Str(fps))
  StopDrawing()
  
  FlipBuffers()
  
  
Until WindowEvent() = #PB_Event_CloseWindow