Differenze tra le versioni di "Vettore del tipo di una Classe specifica creata"

Da Gambas-it.org - Wikipedia.
 
Riga 7: Riga 7:
 
    
 
    
 
   
 
   
  '''Public''' Function provavettore(valore As Byte) As Integer
+
  '''Public''' Function provavettore(valore As Integer) As Integer
 
+
   Dim i As Integer
+
   Return valore + 500
 
+
 
 
    i = CInt(valore) + 500
 
   
 
    Return i
 
 
 
 
  '''End'''
 
  '''End'''
 
  
 
Mentre nella Classe principale si dichiarerà la Classe secondaria come vettore. Tale vettore del tipo di quella Classe specifica, ''Class1.class'' creata, conterrà nei propri elementi variabili ordinarie del tipo di quella medesima Classe specifica, ''Class1.class'':
 
Mentre nella Classe principale si dichiarerà la Classe secondaria come vettore. Tale vettore del tipo di quella Classe specifica, ''Class1.class'' creata, conterrà nei propri elementi variabili ordinarie del tipo di quella medesima Classe specifica, ''Class1.class'':
Riga 26: Riga 20:
 
   
 
   
 
   Dim cl1, cl2, cl3 As New Class1
 
   Dim cl1, cl2, cl3 As New Class1
  Dim i As Integer
 
 
    
 
    
 +
  With cl1
 +
    .b = 11
 +
    .sh = 111
 +
  End With
 
    
 
    
  With cl1
+
  ccll.Push(cl1)
    .b = 11
+
   
    .sh = 111
+
  With cl2
  End With
+
    .b = 22
 
+
    .sh = 222
  ccll.Add(cl1)
+
  End With
 
    
 
    
 +
  ccll.Push(cl2)
 
    
 
    
  With cl2
+
   Print ccll[1].sh + cl3.provavettore(ccll[0].b)
    .b = 22
 
    .sh = 222
 
  End With
 
    
 
  ccll.Add(cl2)
 
   
 
 
  Print ccll[1].sh + cl3.provavettore(ccll[0].b)
 
 
 
   
 
   
 
  '''End'''
 
  '''End'''

Versione attuale delle 19:28, 18 gen 2022

E' possibile dichiarare ed instanziare anche una variabile vettoriale del tipo di una Classe specifica creata dal programmatore.


Vediamo di seguito un semplice esempio, nel quale abbiamo una Classe specifica, che chiameremo Class1.class, creata dal programmatore:

Public b As Byte
Public sh As Short
 

Public Function provavettore(valore As Integer) As Integer

 Return valore + 500

End

Mentre nella Classe principale si dichiarerà la Classe secondaria come vettore. Tale vettore del tipo di quella Classe specifica, Class1.class creata, conterrà nei propri elementi variabili ordinarie del tipo di quella medesima Classe specifica, Class1.class:

Public ccll As New Class1[]


Public Sub Main()

 Dim cl1, cl2, cl3 As New Class1
 
 With cl1
   .b = 11
   .sh = 111
 End With
 
 ccll.Push(cl1)
   
 With cl2
   .b = 22
   .sh = 222
 End With
 
 ccll.Push(cl2)
 
 Print ccll[1].sh + cl3.provavettore(ccll[0].b)

End