Guardar Matrices
Publicado por DLA (2 intervenciones) el 10/05/2006 20:45:08
Me gustaria saber como guardar una matriz en disco, he encontrado algo en la ayuda pero
me da el error "Desbordamiento". En concreto la matriz contiene valores variant ya que son valores de colores de un picture
Dim tabl(1 To 100, 1 To 100) As Variant
For a = 1 To 95
For b = 1 To 95
tabl(a, b) = Picture1.Point(a, b)
Next b
Next a
Open ("D:\Img.dat") For Random As #1 Len = (95 * 95 * 16) - (2 + (8 * 2)) '+ (4 + 8 * 4)
Put #1, , tabl
Close #1
End Sub
El problema es que no se exactamente el valor hay que poner en Len porque he intentado de todo pero me sigue dando error. Si alguien me pudiera ayudar le estaria muy agradecido.
THANKS
me da el error "Desbordamiento". En concreto la matriz contiene valores variant ya que son valores de colores de un picture
Dim tabl(1 To 100, 1 To 100) As Variant
For a = 1 To 95
For b = 1 To 95
tabl(a, b) = Picture1.Point(a, b)
Next b
Next a
Open ("D:\Img.dat") For Random As #1 Len = (95 * 95 * 16) - (2 + (8 * 2)) '+ (4 + 8 * 4)
Put #1, , tabl
Close #1
End Sub
El problema es que no se exactamente el valor hay que poner en Len porque he intentado de todo pero me sigue dando error. Si alguien me pudiera ayudar le estaria muy agradecido.
THANKS
Valora esta pregunta
0