Matriz
Quisiera que me expliques porque me tira un error. Lo que quiero hacer es ingresar dos valores y que los busque en la matriz, para devolverme el valor que se encuentra en dicha posición.
Gracias!
'Option Explicit
Public columna As Integer
Public Sub Form_Load()
Dim planilla(3, 3) As Integer
planilla(0, 0) = 0
planilla(0, 1) = 3
planilla(0, 2) = 8
planilla(0, 3) = 20
planilla(1, 0) = 5
planilla(1, 1) = 2
planilla(1, 2) = 4
planilla(1, 3) = 9
planilla(2, 0) = 6
planilla(2, 1) = 7
planilla(2, 2) = 12
planilla(2, 3) = 18
planilla(3, 0) = 15
planilla(3, 1) = 16
planilla(3, 2) = 17
planilla(3, 3) = 30
End Sub
Function calculo(lontxt1 As Integer, cautxt2 As Integer, planilla() As Integer) As Integer
Dim i As Integer
Dim fila As Integer
Dim j As Integer
Dim diametro As Integer
For i = 0 To 3 Step 1
If lontxt1 = planilla(i, 0) Then
fila = i
'Else
' If lontxt1 < planilla(i, 0) Then
'fila = i
End If
Next i
For j = 0 To 3 Step 1
If cautxt2 = planilla(fila, j) Then
columna = j
'Else
' If cautxt2 < planilla(fila, j) Then
' columna = j
End If
Next j
diametro = planilla(0, columna)
calculo = diametro
End Function
Private Sub cmb1_Click()
Dim diametro As Integer
Dim caudal As Integer
Dim arrays() As Integer
diatxt3 = calculo(diametro, caudal, arrays())
End Sub
Gracias!
'Option Explicit
Public columna As Integer
Public Sub Form_Load()
Dim planilla(3, 3) As Integer
planilla(0, 0) = 0
planilla(0, 1) = 3
planilla(0, 2) = 8
planilla(0, 3) = 20
planilla(1, 0) = 5
planilla(1, 1) = 2
planilla(1, 2) = 4
planilla(1, 3) = 9
planilla(2, 0) = 6
planilla(2, 1) = 7
planilla(2, 2) = 12
planilla(2, 3) = 18
planilla(3, 0) = 15
planilla(3, 1) = 16
planilla(3, 2) = 17
planilla(3, 3) = 30
End Sub
Function calculo(lontxt1 As Integer, cautxt2 As Integer, planilla() As Integer) As Integer
Dim i As Integer
Dim fila As Integer
Dim j As Integer
Dim diametro As Integer
For i = 0 To 3 Step 1
If lontxt1 = planilla(i, 0) Then
fila = i
'Else
' If lontxt1 < planilla(i, 0) Then
'fila = i
End If
Next i
For j = 0 To 3 Step 1
If cautxt2 = planilla(fila, j) Then
columna = j
'Else
' If cautxt2 < planilla(fila, j) Then
' columna = j
End If
Next j
diametro = planilla(0, columna)
calculo = diametro
End Function
Private Sub cmb1_Click()
Dim diametro As Integer
Dim caudal As Integer
Dim arrays() As Integer
diatxt3 = calculo(diametro, caudal, arrays())
End Sub
1 Respuesta
Respuesta de intman
1
No declares Dim planilla(3, 3) As Integer, decláralo como private planilla(3, 3) As Integer en general, declaraciones y no se lo pases a la función.
Una función no admite que se le pasen matrices de la forma que lo has hecho, es un poco más complicado el paso de matrices a las funciones. No te compliques y ponlo como variable privada del formulario.
Una función no admite que se le pasen matrices de la forma que lo has hecho, es un poco más complicado el paso de matrices a las funciones. No te compliques y ponlo como variable privada del formulario.
SI lo declaro que me decís, al querer compilar me tira este error "invalid outside procedure" y me remarca el cero de la primera fila (planilla(0,0)=0).
Tampoco comprendo que quieres decir con "ponlo como variable privada del formulario."
Si sabes de algún articulo que trate el pasaje de matrices a funciones, te agradecería que me lo pases.
Disculpa mi ignorancia, ya que esto es todo nuevo para mi. Muchas gracias.
mail [email protected]
Tampoco comprendo que quieres decir con "ponlo como variable privada del formulario."
Si sabes de algún articulo que trate el pasaje de matrices a funciones, te agradecería que me lo pases.
Disculpa mi ignorancia, ya que esto es todo nuevo para mi. Muchas gracias.
mail [email protected]
El código
'Option Explicit
Public columna As Integer
Private planilla(3, 3) As Integer
Public Sub Form_Load()
planilla(0, 0) = 0
planilla(0, 1) = 3
planilla(0, 2) = 8
planilla(0, 3) = 20
planilla(1, 0) = 5
planilla(1, 1) = 2
planilla(1, 2) = 4
planilla(1, 3) = 9
planilla(2, 0) = 6
planilla(2, 1) = 7
planilla(2, 2) = 12
planilla(2, 3) = 18
planilla(3, 0) = 15
planilla(3, 1) = 16
planilla(3, 2) = 17
planilla(3, 3) = 30
End Sub
Function calculo(lontxt1 As Integer, cautxt2 As Integer, planilla() As Integer) As Integer
Dim i As Integer
Dim fila As Integer
Dim j As Integer
Dim diametro As Integer
For i = 0 To 3 Step 1
If lontxt1 = planilla(i, 0) Then
fila = i
'Else
' If lontxt1 < planilla(i, 0) Then
'fila = i
End If
Next i
For j = 0 To 3 Step 1
If cautxt2 = planilla(fila, j) Then
columna = j
'Else
' If cautxt2 < planilla(fila, j) Then
' columna = j
End If
Next j
diametro = planilla(0, columna)
calculo = diametro
End Function
Private Sub cmb1_Click()
Dim diametro As Integer
Dim caudal As Integer
'Dim arrays() As Integer
diatxt3 = calculo(diametro, caudal, planilla())
End Sub
'Option Explicit
Public columna As Integer
Private planilla(3, 3) As Integer
Public Sub Form_Load()
planilla(0, 0) = 0
planilla(0, 1) = 3
planilla(0, 2) = 8
planilla(0, 3) = 20
planilla(1, 0) = 5
planilla(1, 1) = 2
planilla(1, 2) = 4
planilla(1, 3) = 9
planilla(2, 0) = 6
planilla(2, 1) = 7
planilla(2, 2) = 12
planilla(2, 3) = 18
planilla(3, 0) = 15
planilla(3, 1) = 16
planilla(3, 2) = 17
planilla(3, 3) = 30
End Sub
Function calculo(lontxt1 As Integer, cautxt2 As Integer, planilla() As Integer) As Integer
Dim i As Integer
Dim fila As Integer
Dim j As Integer
Dim diametro As Integer
For i = 0 To 3 Step 1
If lontxt1 = planilla(i, 0) Then
fila = i
'Else
' If lontxt1 < planilla(i, 0) Then
'fila = i
End If
Next i
For j = 0 To 3 Step 1
If cautxt2 = planilla(fila, j) Then
columna = j
'Else
' If cautxt2 < planilla(fila, j) Then
' columna = j
End If
Next j
diametro = planilla(0, columna)
calculo = diametro
End Function
Private Sub cmb1_Click()
Dim diametro As Integer
Dim caudal As Integer
'Dim arrays() As Integer
diatxt3 = calculo(diametro, caudal, planilla())
End Sub
