Simple and Understanable OOP Structure

<David.C#S4701L> · Post by **<David.C#S4701L>** » Thu Sep 20, 2007 1:50 pm

Hi everyone, I'm somewhat new to the forums (not PB though!

) and thought i would come, say hi and post a little. Well, anyway - i wrote a simple and easy to understand OOP structure, more for beginners but still, have a look over it and tell me what you think! Use it, don't use it, change it, i don't mind.

Structure

Code: Select all

  ;Created by <David.C#S4701L> 2007
  ;If you wish to redistribute please ask first! :)
  ;Official Topic: http://www.purebasic.fr/english/viewtopic.php?t=28818
  
  Global oMax = 5 ;Your maximum amount of objects
  Global Dim Object(oMax)
  
  Enumeration
    #Create
    #Step
    #Destroy
  EndEnumeration

  Procedure EventInstance()
    Repeat
      For i=0 To oMax
        If Object(i) <> 0
          CallFunctionFast(Object(i),i,#Step)
        EndIf
      Next
      Delay(16)
    ForEver
  EndProcedure
  
  Procedure CreateInstance(CodeAddress.l)
    For i=0 To oMax
      If Object(i)=0
        Object(i)=CodeAddress.l
        CallFunctionFast(Object(i),i,#Create)
        ProcedureReturn i
      EndIf
    Next
    ProcedureReturn -1
  EndProcedure
  
  Procedure DestroyInstance(InstanceId)
    For i=0 To oMax
      If Object(i) = InstanceId
        CallFunctionFast(Object(i),#Destroy)
        Object(i) = 0
        ProcedureReturn 1
      EndIf
    Next
    ProcedureReturn
  EndProcedure

Structure with example

Code: Select all

  ;Created by <David.C#S4701L> 2007
  ;If you wish to redistribute please ask first! :)
  ;Official Topic: http://www.purebasic.fr/english/viewtopic.php?t=28818
  
  Global oMax = 5 ;Your maximum amount of objects
  Global Dim Object(oMax)
  
  Enumeration
    #Create
    #Step
    #Destroy
  EndEnumeration
  
  Procedure Test(InstanceId.l,Type.l=0)
    Select Type
      Case #Create       ;Run straight after the object is made
        MessageRequester("Hi","Hello there.")
      Case #Step          ;Run every "Step"
      	Debug "Object: Test - made event Step."
      Case #Destroy      ;Run when we want to remove the object
      	MessageRequester("MAYDAY!","I'm going down! I'm going down!!")
    EndSelect
  EndProcedure
  
  Procedure EventInstance()
    Repeat
      For i=0 To oMax
        If Object(i) <> 0
          CallFunctionFast(Object(i),i,#Step)
        EndIf
      Next
      Delay(16)
    ForEver
  EndProcedure
  
  Procedure CreateInstance(CodeAddress.l)
    For i=0 To oMax
      If Object(i)=0
        Object(i)=CodeAddress.l
        CallFunctionFast(Object(i),i,#Create)
        ProcedureReturn i
      EndIf
    Next
    ProcedureReturn -1
  EndProcedure
  
  Procedure DestroyInstance(InstanceId)
    For i=0 To oMax
      If Object(i) = InstanceId
        CallFunctionFast(Object(i),#Destroy)
        Object(i) = 0
        ProcedureReturn 1
      EndIf
    Next
    ProcedureReturn
  EndProcedure
  
  Object1 = CreateInstance(@Test())
  ObjectThreadID = CreateThread(@EventInstance(),"")

  Repeat
  	Delay(16)
  ForEver

Hope i could help with what little skill i have, Enjoy!

David C

Ollivier · Post by **Ollivier** » Tue Sep 25, 2007 5:50 pm

Thanks! I copy it into the french forum. (Name of this old topic : «OOC : advantages or disadvantages»)

Ollivier · Post by **Ollivier** » Tue Sep 25, 2007 5:56 pm

@C#

Is the order of the execution of each proc («object») important?

<David.C#S4701L> · Post by **<David.C#S4701L>** » Tue Sep 25, 2007 9:29 pm

Ollivier wrote:Thanks! I copy it into the french forum. (Name of this old topic : «OOC : advantages or disadvantages»)

Thankyou.

@C#

Is the order of the execution of each proc («object») important?

No, it is not. By default the objects are executed from 0 to X. (X being the total of obects)

Ollivier · Post by **Ollivier** » Tue Sep 25, 2007 9:44 pm

I ask this question to change the management of the task in order to reduce EventInstance duration, but increase destroying duration. I'll do and post such a code.

Ollivier · Post by **Ollivier** » Tue Sep 25, 2007 9:57 pm

No, it is not. By default the objects are executed from 0 to X. (X being the total of obects)

>> Yes, it's this idea I thank

Ignoring OO, I'll try to build a code (displaying app) with this skeleton in order to discover this concept.

If you have other details, there isn't problems! As I like structured buffers to the inputs\outputs procedure communication, I'll change it again.

Thank for this beautiful gate to the OOC!

Code: Select all

;Created by <David.C#S4701L> 2007 
  ;If you wish to redistribute please ask first! :) 
  ;Official Topic: http://www.purebasic.fr/english/viewtopic.php?t=28818 
  
  Global oMax = 5 ;Your maximum amount of objects 
  Global Dim Object(oMax) 
  Global NewInstancePointor.L
  
  Enumeration 
    #Create 
    #Step 
    #Destroy 
  EndEnumeration 


 
  Procedure Test(InstanceId.l,Type.l=0) 
    Select Type 
      Case #Create       ;Run straight after the object is made 
        MessageRequester("Hi","Hello there.") 
      Case #Step          ;Run every "Step" 
         Debug "Object: Test - made event Step." 
      Case #Destroy      ;Run when we want to remove the object 
         MessageRequester("MAYDAY!","I'm going down! I'm going down!!") 
    EndSelect 
  EndProcedure 

;____________________________________________________________________________ 
;¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯ 
;  CREATION
;
;  Output : -1 : Caution ! It's the ultimate instance you can create !
;  ¯¯¯¯¯¯   Other : InstanceId
;____________________________________________________________________________ 
;¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯   
Procedure CreateInstance(CodeAddress.l) 

      i = NewInstancePointor
      NewInstancePointor + 1
      If i = oMax: i = -1: EndIf
      Object(i)=CodeAddress.l 
      CallFunctionFast(Object(i),i,#Create) 
      ProcedureReturn i 
      
EndProcedure 
  
;____________________________________________________________________________ 
;¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯ 
;  EVENT
;____________________________________________________________________________ 
;¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯   
  Procedure EventInstance() 
  
    Repeat 
      For i=0 To NewInstancePointor - 1
          CallFunctionFast(Object(i),i,#Step) 
      Next 
      Delay(5) 
    ForEver 
    
  EndProcedure 
  
;____________________________________________________________________________ 
;¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯ 
;  DESTRUCTION
;____________________________________________________________________________ 
;¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯   
  Procedure DestroyInstance(InstanceId) 
  
    For i=0 To oMax 
      If Object(i) = InstanceId 
        CallFunctionFast(Object(i),#Destroy) 
        NewInstancePointor - 1
        Object(i) = Object(NewInstancePointor)
        ProcedureReturn 1 
      EndIf 
    Next 
    ProcedureReturn 
    
  EndProcedure 
  
  Object1 = CreateInstance(@Test()) 
  ObjectThreadID = CreateThread(@EventInstance(),"") 

  Repeat 
     Delay(16) 
  ForEver

byo · Post by **byo** » Wed Sep 26, 2007 2:28 pm

Ollivier wrote:
Code: Select all
Repeat 
     Delay(16)
ForEver 

Ollivier · Post by **Ollivier** » Wed Sep 26, 2007 2:36 pm

@byo

You forget the line above the loop

Code: Select all

  ObjectThreadID = CreateThread(@EventInstance(),"") 

  Repeat 
     Delay(16) 
  ForEver

It's near equal

Code: Select all

  Repeat 
     Delay(16) 
     CallFunctionFast(@EventInstance() )
  ForEver

I wrote near equal

byo · Post by **byo** » Wed Sep 26, 2007 2:46 pm

I see.

It's just strange to see that.

Ollivier · Post by **Ollivier** » Wed Sep 26, 2007 2:48 pm

Yes, I think David.C# had a good idea posting this thread.

Ollivier · Post by **Ollivier** » Wed Sep 26, 2007 3:44 pm

If it's too strange for you, you can first replace this loop

Code: Select all

Repeat
    Delay(16)
ForEver

by this line

Code: Select all

WaitThread(ObjectThreadID)

byo · Post by **byo** » Wed Sep 26, 2007 4:46 pm

Cool.

With the first method, how do I end that loop after the thread is finished?

I know that WaitThread pauses while the thread is executing and then returns after the thread is finished. How do the thread end that Repeat...Forever loop?

Ollivier · Post by **Ollivier** » Wed Sep 26, 2007 5:49 pm

Yes, I correct the 2, 3 errors in order to start, step and stop the thread.

Code: Select all

  ;Created by <David.C#S4701L> 2007 
  ;If you wish to redistribute please ask first! :) 
  ;Official Topic: http://www.purebasic.fr/english/viewtopic.php?t=28818 
  
      Global oMax = 5 ;Your maximum amount of objects 
      Global Dim Object(oMax) 
  
      Declare DestroyInstance(InstanceId) 
  
      Enumeration 
            #Create 
            #Step 
            #Destroy 
      EndEnumeration 



Procedure Test(InstanceId.L, Type.L) 

      Select Type 

            Case #Create       ;Run straight after the object is made 
                  MessageRequester("Hi","Hello there.") 

            Case #Step          ;Run every "Step" 
                  If MessageRequester("Message", "Looping..." + Chr(10) + "Do you want to stay?", 4) = 7 
                        DestroyInstance(InstanceId) 
                  EndIf 

            Case #Destroy      ;Run when we want to remove the object 
                  MessageRequester("MAYDAY!","I'm going down! I'm going down!!") 

      EndSelect 

EndProcedure 


  
Procedure CreateInstance(CodeAddress.L) 

      For i = 0 To oMax 
      
            If Object(i) = 0 
            
                  Object(i) = CodeAddress
                  CallFunctionFast(CodeAddress, CodeAddress, #Create) 
                  ProcedureReturn i 
                  
            EndIf
             
      Next 
      
      ProcedureReturn -1 

EndProcedure 
  


Procedure EventInstance() 

      Protected Nothing.L 
      Protected CodeAddress.L

      Repeat 

            Nothing.L = 1 
            
            For i = 0 To oMax
            
                  CodeAddress = Object(i)
                  
                  If CodeAddress <> 0 
                  
                        CallFunctionFast(CodeAddress, CodeAddress, #Step) 
                        Nothing = 0 
                        
                  EndIf
                   
            Next 
            
            Delay(16) 

      Until Nothing 

EndProcedure 
  


Procedure DestroyInstance(CodeAddress.L) 
  
      For i = 0 To oMax
            If Object(i) = CodeAddress
                  CallFunctionFast(CodeAddress, CodeAddress, #Destroy)
                  Object(i) = 0
            EndIf
      Next            
  
EndProcedure 
  
      Object1 = CreateInstance(@Test()) 
      ObjectThreadID = CreateThread(@EventInstance(),"") 

      WaitThread(ObjectThreadID)

byo · Post by **byo** » Wed Sep 26, 2007 6:12 pm

Very nice. I'll try it later when I'm home.
Thanks, Ollivier and David.C#S4701L.

<David.C#S4701L> · Post by **<David.C#S4701L>** » Thu Sep 27, 2007 11:03 am

byo wrote:Very nice. I'll try it later when I'm home.
Thanks, Ollivier and David.C#S4701L.

No problem, just call me David.