Const arrayd1 = 10 ' dimensione 1
Const arrayd2 = 10 ' dimensione 2
Const arrayd1d2 = arrayd1 * arrayd2 ' calcolo elementi in 2d-Array (100)
Declare Function Get_array2d(byval D1 As Byte, Byval D2 As Byte) As Byte
Declare Sub Set_array2d(byval D1 As Byte, Byval D2 As Byte, Byval Pvalue As Byte)
Dim Darray2d(arrayd1d2) As Byte 'riserva n byte in memoria per l'array
Users browsing this forum: No registered users and 0 guests