PureBasic Forums - English

Code: Select all

EnableExplicit

Structure DUMMY_STRUCT
  name.s
EndStructure

Global NewList dummy.DUMMY_STRUCT();<- list with a struct
Global *entry

AddElement(dummy());<- add entry
*entry = dummy();<- store the ptr of the created struct (for quick access)
dummy()\name = "Hello! 1"

AddElement(dummy());<- add another entry
dummy()\name = "Hello! 2"

ForEach dummy();<- show what has been stored in the list
  Debug dummy()\name
Next

;we can only delete the currently active element!
;to delete the 1st entry we can use the ptr stored before (*entry)

ChangeCurrentElement(dummy(),*entry);<- select entry 1
DeleteElement(dummy());<- delete entry

ForEach dummy()
  Debug dummy()\name
Next

;to get rid of all entries
ClearList(dummy())

;to free the allocated memory
FreeList(dummy())

End

Code: Select all

Global *entry.DUMMY_STRUCTURE
[...]
Debug *entry\name

Code: Select all

If InitSprite() = 0 Or InitKeyboard() = 0
  MessageRequester("Error", "Can't open the sprite system", 0)
  End
EndIf

Global screenwidth=1280
Global screenheight=1024
Global gravity.f=0.5
Global wind.f
Structure snow
  x.f
  y.f
  weight.f
EndStructure

Global NewList snowflakes.snow()



Procedure CreateSnow()
  AddElement(snowflakes())
 
  snowflakes()\x = Random(screenwidth)
  snowflakes()\y = 0
  snowflakes()\weight = Random(100)/100
EndProcedure


Procedure updatesnow()
ForEach snowflakes()
  snowflakes()\x=snowflakes()\x+wind*snowflakes()\weight
  If snowflakes()\x<0
    snowflakes()\x=screenwidth
  ElseIf snowflakes()\x>ScreenWidth()
    snowflakes()\x=0
  EndIf
  snowflakes()\y=snowflakes()\y+gravity+snowflakes()\weight
  If snowflakes()\y<screenheight
    Circle(snowflakes()\x,snowflakes()\y,snowflakes()\weight*3,RGB(255,255,255))
  ElseIf snowflakes()\y>=screenheight
    DeleteElement(snowflakes())
  EndIf
Next  
EndProcedure

If OpenScreen(screenwidth, screenheight, 32, "My Screen")
  Repeat
    wind=wind+0.5-(Random(100)/100)
    If wind<-4 
      wind=wind+0.5
    ElseIf wind>4
      wind=wind-0.5
    EndIf
    ClearScreen(RGB(0,0,0))  
    createsnow()
    StartDrawing(ScreenOutput())
    updatesnow()
    StopDrawing()
    FlipBuffers()
    ExamineKeyboard()
  Until  Quit Or KeyboardPushed(#PB_Key_Escape)
Else
  MessageRequester("Error", "Can't open windowed screen!", 0)
EndIf

Code: Select all

Define a = 10
a + 10
a - 5
a * 10
a / 5

Code: Select all

Random(2147483647)/2147483647

Code: Select all

Macro RandomFloat(Steps)
  (1.0 * Random(Steps) / Steps#.0)
EndMacro

For i = 1 To 100
  Debug StrF(RandomFloat(1000), 3)
Next
Debug "**********"
For i = 1 To 100
  Debug StrF(RandomFloat(5), 3)
Next