NEWS ARTICLES


    What's News in the PlayBasic world ? - Find out here.




 PlayBasic Tutorial: Intro To Functions - (2018-07-06)

By: Kevin Picone Added: July 7th, 2018

Category: All,Video,Beginner,Types,List,Functions,Variables,Getting Started,Tutorials

PlayBasic Tutorial: Intro To Functions - (2018-07-06)

     Hi welcome to our Intro to Functions tutorial. In this tutorial we start out with some revision of Gosub / Return statements, which are used to create a simple sub routine. Sub routines are changes in program flow, allowing the programmer to execute a chunk of code that's external to the section they may be writing, then upon completion the control returns to the caller. This is the same basic model that functions introduction to our programming, except functions are more formalized. Meaning they have some strict rules about syntax and intro a new concepts such as scope changes, which sub routines don't have.

The types of functions shown in video are very simple, initially we start by taking a sub routine that prints rows of text and convert that to function. Through this process we encounter our first problem which is variable scope and look at ways to solve it, such as making our variable global, or better yet passing a variable into the function as a parameter . Later in the video, we create our own custom distance function, as well building a function that does some simple string manipulation

NOTE: This video was recorded alive with only a few changes for length..




Example Code:
PlayBasic Code:
      print ProcessString( "-------Hello World-------")
         print ProcessString( "    1234     " )
         

         Dist# = CustomDistance( 100,100,700,300)
         
         print dist#


         for lp =0 to 10
               Print_Lines_function( lp )         
         next
         print "--------------------------------------------------"
         
         sync
         waitkey
   
         end      
      



function Print_Lines_function( LoopCounter )
         print "--------------------------------------------------"
         print "Loop Counter="+str$(LoopCounter)
endfunction 

         
         
Function CustomDistance( X1#,Y1# , X2#,Y2#)
   
         DX# = abs(X1#-X2#)
         DY# = abs(Y1#-Y2#)
         
         DistResult# = sqrt( DX# * DX# + Dy# * DY#)   
   
EndFunction DistResult#

         
         
Function ProcessString( MyString$)   

         MyString$ = trim$(MyString$,"-")

         MyString$ = Replace$( MyString$," ","~" )

EndFunction MyString$


COMMANDS USED: PRINT | SYNC | WAITKEY | STR$ | ABS | SQRT | TRIM$ | REPLACE$ |
Links:

     Get Source Code Example For This Tutorial





 PlayBasic Tutorial: From Arrays To Types (Intro To Types)

By: Kevin Picone Added: June 27th, 2018

Category: All,Video,Beginner,Types,List,Arrays,Variables,Getting Started,Tutorials

PlayBasic Tutorial: From Arrays To Types (Intro To Types) - (2018-06-12)

    This tutorial picks up where the previous variables to arrays tutorial left off, in that it takes the array code, demos that code then we set about converting the parallel array approach shown in the previous tutorial and we build a structure (TYPE) to hold each characters properties. Once the type has been defined that includes all the required properties, we then define a typed array that will house the collection of characters. Later in the video take a look at using typed lists also. So if your struggling with types this could be a good place to start.



Example #1 - Converting the Parallel Arrays To Typed Array

PlayBasic Code:
   Setfps 20

   Number_Of_Characters = 50

   type tCharacter
         Xpos#
         Ypos#
         Xspeed#
         Yspeed#
         Colour
         Size
   endtype


   dim Characters(Number_Of_Characters) as tCharacter 

   
   for lp = 1 to Number_Of_Characters

         ;  Allocate a newe tCharacter and place it's handle
         ;  into the Character(lp) array / container at this position         
         Characters(lp) = new tCharacter
                  
         Characters(lp).Xpos  = rnd(800)
         Characters(lp).Ypos  = rnd(600)
         Characters(lp).Size  = rndrange(16,50)
         Characters(lp).Xspeed = rndrange(-5, 5)
         Characters(lp).Yspeed = rndrange(-5,5)
         Characters(lp).Colour = rndrgb()
         
   next
   
  
  //-------------------------------------------------------
  //---[ MAIN LOOP ]---------------------------------------
  //-------------------------------------------------------
   
  do 
     
        Cls rgb(0,400,20)
        
        for lp = 1 to Number_Of_Characters
           Radius = Characters(lp).Size
            x#=Characters(lp).Xpos
            y#=Characters(lp).Ypos
   

           circlec X#,Y#,Radius,true,Characters(lp).Colour
                    
           x# = wrapvalue(x# + Characters(lp).Xspeed , -Radius, 800 + Radius)
           y# = wrapvalue(y# + Characters(lp).Yspeed , -Radius, 600 + Radius)
          
           Characters(lp).xpos= x#
           Characters(lp).ypos= y#             
        next
          
        Sync
     loop


COMMANDS USED: SETFPS | DIM | NEW | RND | RNDRANGE | RNDRGB | CLS | RGB | CIRCLEC | WRAPVALUE | SYNC |



Example #2 - Converting Typed Array To Typed List

PlayBasic Code:
   Setfps 20

   Number_Of_Characters = 50

   type tCharacter
         Xpos#
         Ypos#
         Xspeed#
         Yspeed#
         Colour
         Size
   endtype


   dim Characters as tCharacter  list 

   
   for lp = 1 to Number_Of_Characters
      
         Characters = new tCharacter
                  
         Characters.Xpos  = rnd(800)
         Characters.Ypos  = rnd(600)
         Characters.Size  = rndrange(16,50)
         Characters.Xspeed = rndrange(-5, 5)
         Characters.Yspeed = rndrange(-5,5)
         Characters.Colour = rndrgb()
         
   next
   
  
  //-------------------------------------------------------
  //---[ MAIN LOOP ]---------------------------------------
  //-------------------------------------------------------
   
  do 
     
        Cls rgb(0,400,20)
        
        for each Characters()
           
           Radius = Characters.Size
            x#=Characters.Xpos
            y#=Characters.Ypos
   

           circlec X#,Y#,Radius,true,Characters.Colour
                    
           x# = wrapvalue(x# + Characters.Xspeed , -Radius, 800 + Radius)
           y# = wrapvalue(y# + Characters.Yspeed , -Radius, 600 + Radius)
          
           Characters.xpos= x#
           Characters.ypos= y#             
        next
          
        Sync
     loop


 


COMMANDS USED: SETFPS | DIM | LIST | NEW | RND | RNDRANGE | RNDRGB | CLS | RGB | CIRCLEC | WRAPVALUE | SYNC |


Links:

    * PlayBasic Tutorial: From Arrays To Types (Intro To Types) Source Code





 PlayBasic Tutorial: From Variables To Arrays (Intro To Arrays)

By: Kevin Picone Added: September 21st, 2017

Category: All,Variables,Array,Tutorials,Beginner

PlayBasic Tutorial: From Variables To Arrays (Intro To Arrays) 2017-09-17

    Welcome programmers, in this tutorial we're going to introduce the concept of arrays starting out from variables. So first we build a simple game loop that controls two characters using only variables. The characters are represented on screen as filled circles. After we get up to speed with the variable version we then move onto how we can use parallel integer arrays to store the various properties of the characters. The array version can control as many or as few characters as you like, which is the benefit of Arrays over Variables

Want to learn 2D game programming ?


Video:



Example #1 - Variables Example

PlayBasic Code:
   Xpos1  = 400
   Ypos1  = 300
      
   Xpos2  = 100
   Ypos2  = 100

      
   setfps 20   
      
  do    

    cls rgb(10,20,40)

	; Draw circle 1        
     Circle Xpos1,Ypos1, 32, true
   
     Xpos1 = Xpos1 + 2
     Ypos1 = Ypos1 - 4
  
   	Xpos1 = WrapValue(Xpos1,0,800)	  
    	Ypos1 = WrapValue(Ypos1,0,600)	  
   
   

	; Draw circle 2      
     Circle Xpos2,Ypos2, 64, true
   
     Xpos2 = Xpos2 + 2
     Ypos2 = Ypos2 + 2
    	Xpos2 = WrapValue(Xpos2,0,800)	  
    	Ypos2 = WrapValue(Ypos2,0,600)	  
  
     sync
  loop
  
 

COMMANDS USED: SETFPS | CLS | RGB | CIRCLE | WRAPVALUE | SYNC |


Example #2 - Arrays Example - Using Parallel Arrays To Store Character Properties
PlayBasic Code:
 Setfps 20

   Number_Of_Characters = 50 

   dim Xpos( Number_Of_Characters  )
   dim Ypos( Number_Of_Characters  )
   dim size( Number_Of_Characters  )
   dim Xspeed( Number_Of_Characters )
   dim Yspeed( Number_Of_Characters )
   dim Colour( Number_Of_Characters )
   
   
   for lp = 1 to Number_Of_Characters
 	     Xpos(lp)  = rnd(800)
 		  Ypos(lp)  = rnd(600)
 		  Size(lp)  = rndrange(16,50)
  		 Xspeed(lp) = rndrange(-5, 5)
   	 Yspeed(lp) = rndrange(-5,5)
   	 Colour(lp) = rndrgb()
   next
   
   
  do 
  	
  	   Cls rgb(0,400,20)
  	   
  	   for lp=1 to Number_Of_Characters
  	      
  	      Radius = Size(lp)

  	      circlec xpos(lp),ypos(lp),Radius,true,Colour(lp)
  	      
  	    //  xpos(lp) = Xpos(lp) + Xspeed(lp)
  	    //  ypos(lp) = ypos(lp) + Yspeed(lp)
  	      
  	      xpos(lp) = wrapvalue(xpos(lp) + Xspeed(lp) , -Radius, 800 + Radius)
  	      ypos(lp) = wrapvalue(ypos(lp) + Yspeed(lp) , -Radius, 600 + Radius)
  	        	      
  		next
  	  	
  	   Sync
  	loop

COMMANDS USED: SETFPS | DIM | RND | RNDRANGE | RNDRGB | CLS | RGB | CIRCLEC | WRAPVALUE | SYNC |




Viewing Page [1] of [1]



 

 
     
 
       

(c) Copyright 2002 / 2024 Kevin Picone , UnderwareDesign.com  - Privacy Policy   Site: V0.99a [Alpha]