PureBasic

Code : Tout sélectionner

Interface Calcul
    Addition(a.l,b.l)
EndInterface

Structure Class
    *Vtable.Addition
EndStructure
    
Procedure.l Addition(i.l,j.l)
    Debug i
    Debug j
    ProcedureReturn i+j
EndProcedure


Global NewList Poo.Class()

AddElement(Poo())
Poo()\Vtable=?Vtable

*Pointeur.Calcul=Poo()
Debug *Pointeur\Addition(5,3)

DataSection
Vtable:
Data.l @Addition()
EndDataSection

Code : Tout sélectionner

8986408
5
8986413

Code : Tout sélectionner

5
3
8

Code : Tout sélectionner

Procedure.l Addition(this,i.l,j.l)
    Debug i
    Debug j
    ProcedureReturn i+j
EndProcedure

Code : Tout sélectionner

void MACLASS::Add(int A, int B)
{
this->value = A+B;
}