hola a todos quisiera que me ayudacen con este pequeñito problema.
el caso es que es un juego winsock que estoy creando, apenas voy por el inicio de sesion y la peticion de los datos al servidor, el inicio esta bien lo unico que agoe s que cuando se conecta, se conecta a otro winsock que esta abierto y pues esta a la escucha con otro puerto.
Amm lo que hace este winsock es revisar un archivo .ini que contiene los datos del usuario y lo manda por una cadena de texto con unas split "|" este es el codigo para separar los datos recividos.
Function Carga()
lblUser.Caption = s_usr
lblNivel.Caption = s_nvl
data_XP = Split(s_xp, "|")
lblXP.Caption = data_XP(0)
lblXPMax.Caption = data_XP(1)
''Llama los objetos que tiene el usuario
data_Objetos = Split(s_objetos, "|")
Call Load_Objetos(data_Objetos(0), data_Objetos(1), data_Objetos(2), data_Objetos(2), _
data_Objetos(4), data_Objetos(5), data_Objetos(6), data_Objetos(7), data_Objetos(8), _
data_Objetos(9), data_Objetos(10), data_Objetos(11), data_Objetos(12), data_Objetos(13), _
data_Objetos(14), data_Objetos(15), data_Objetos(16), data_Objetos(17), data_Objetos(18), _
data_Objetos(19), data_Objetos(20), data_Objetos(21), data_Objetos(22), data_Objetos(23), _
data_Objetos(24), data_Objetos(25))
''Llama las medallas que tiene el usuario
data_Medallas = Split(s_medallas, "|")
Call Medallas(data_Medallas(0), data_Medallas(1), data_Medallas(2), data_Medallas(3), _
data_Medallas(4), data_Medallas(5), data_Medallas(6))
''Carga el avatar del usaurio
imgAvatar.LoadImageFromFile (App.Path & "\images\Avatares\" & s_avatar & ".jpg")
lblMonedas.Caption = s_monedas
''Carga el rango y sus opciones
Call Rank(s_rank)
lblWins.Caption = s_Wins
lblLoses.Caption = s_Loses
''Llama los datos de tu digimon 1
data_Digimon1 = Split(s_digimon1, "|")
Call Digimon1(data_Digimon1(0), data_Digimon1(1), data_Digimon1(3), data_Digimon1(4))
''Llama los datos de tu digimon 2
data_Digimon2 = Split(s_digimon2, "|")
Call Digimon2(data_Digimon2(0), data_Digimon2(1), data_Digimon2(3), data_Digimon2(4))
''Llama los datos de tu digimon 3
data_Digimon3 = Split(s_digimon3, "|")
Call Digimon3(data_Digimon3(0), data_Digimon3(1), data_Digimon3(3), data_Digimon3(4))
''Llama los datos de tu digimon 3
data_Digimon4 = Split(s_digimon4, "|")
Call Digimon4(data_Digimon4(0), data_Digimon4(1), data_Digimon4(3), data_Digimon4(4))
frmMain.Enabled = True
pnlInicio.Visible = False
End Function
bueno esto es algo basico pues lo que ago es llamar a funciones para que me arreglen los datos como por ejeplo los objetos, las medallas y los digimons!
aqui esta el problema que no acepta este codigo que esta en el modulo:
Public Function Load_Objetos(O1 As String, O2 As String, O3 As String, _
O4 As String, O5 As String, O6 As String, O7 As String, _
O8 As String, O9 As String, O10 As String, O11 As String, _
O12 As String, O13 As String, O14 As String, O15 As String, _
O16 As String, O17 As String, O18 As String, O19 As String, _
O20 As String, O21 As String, O22 As String, O23 As String, _
O24 As String, O25 As String, O26 As String) As String
For cont_obj = 0 To 25
imgObjects(cont_obj).LoadImageFromFile (App.Path & "\Images\Objetos\" & Load_Objetos(cont_obj) & ".png")
imgObjects(cont_obj).Tag = cont_obj
Next cont_obj
End Function
Public Function Medallas(M1, M2, M3, M4, M5, M6, M7)
Dim cont_medallas As Integer
For cont_medallas = 0 To 25
imgMedallas(cont_medallas).LoadImageFromFile (App.Path & "\Images\Medallas\" & Medallas(cont_obj) & ".png")
imgMedallas(cont_medallas).Tag = Medallas(cont_medallas)
Next cont_medallas
End Function
lo que quiero es cargar las imagenes de los objetos a las imagenes que estan ya un una carpeta llamada "Objetos".
el servidor manda la id del objeto , ejemplo 1 o 2 o 3 , los objetos estan guardados con el nombre de su id ejemplo 1.png , 2.png para poder llamarlos en el modulo facilmente.
Igual pasa con las medallas no me funcionan...
espero que me puedan ayudar!
El error que me sale este:
Error de compilacion:
El tipo de argumento ByRef no coincide