Foro de programacion

johndoe90 · #1 (**permalink**) 04 de mayo,2009, 11:58

Hola que tal?
A que es debido este error? Si, ya se que esperaba una funcion o una variable, pero en esencia, porque suele pasar este tipo de error?
El bucle esta bien escrito?
El error me lo marca con amarillo en Private Sub Form_Load() y en azul me subraya DLLdame_id.
Gracias.

Option Explicit

Private Sub Form_Load()
Dim n As Long
Dim k As Integer
Dim id As String
Dim t As String
Dim er As Long
Dim x As Long
x = 0
er = DLLcargar
If er = -1 Then
MsgBox "Error al cargar el fichero"
ElseIf er = -2 Then
MsgBox "Error al leer el id"
ElseIf er = -3 Then
MsgBox "error al leer el porcentaje de ocupacion"
ElseIf er = -4 Then
MsgBox "error al leer las cooredenadas"
ElseIf er = -5 Then
MsgBox "Las coordenadas exceden la capacidad de la matriz"
ElseIf er = -6 Then
MsgBox "Error al leer los datos personales"
Else
MsgBox "Fichero cargado correctamente"

id = " "
n = DLLdame_num_trenes
For k = 0 To n
t = " "
x = DLLdame_id(id, k)
If x = 0 Then
t = id
End If
List1.AddItem t

Next k
End Sub

Codigo47 · #2 (**permalink**) 23 de mayo,2009, 03:15

Amigo,

El problema es que DLLdame_id() es un SUB.

Y deberia ser una FUNCTION porque al asignarlo a una variable debe retornar un valor y solo las FUNCTION retornan valores, el SUB No retorna nada.

Por ejemplo, el siguiente codigo provocara el mismo error que tu comentas:

Código:

Option Explicit

Private Sub Form_Load()
Dim x As Integer
x = Funcion_Loca(1)
End Sub

Public Sub Funcion_Loca(i As Integer)
End Sub

Para corregirlo debemos convertir a Funcion_Loca en una FUNCTION y retornar un valor:

Código:

Option Explicit

Private Sub Form_Load()
Dim x As Integer
x = Funcion_Loca(1)
End Sub

Public Function Funcion_Loca(Numero As Integer) As Integer
Funcion_Loca = Numero + 1
End Sub

Espero te sirva. Saludos.