• Viernes 3 de Mayo de 2024, 10:56

Autor Tema:  Memorama  (Leído 4592 veces)

blakjac

  • Nuevo Miembro
  • *
  • Mensajes: 6
    • Ver Perfil
Memorama
« en: Jueves 8 de Noviembre de 2007, 00:19 »
0
necesito hacer un memorama pero no tengo idea de como empezar alguien me puede alludar  porfavor
Muchas gracias por la atencion prestada :D

blakjac

  • Nuevo Miembro
  • *
  • Mensajes: 6
    • Ver Perfil
Re: Memorama
« Respuesta #1 en: Jueves 8 de Noviembre de 2007, 01:19 »
0
Código: Text
  1.  
  2. Sub Cargar_Imagenes()
  3. Dim intX As Integer
  4. A = 0
  5. intX = 0
  6.     Z = VCT(A)
  7.     Avanzado.Image(intX).Picture = LoadPicture("c:\p\" + Z + ".jpg")
  8.     Avanzado.Image(intX + 1).Picture = LoadPicture("c:\p\" + Z + ".jpg")
  9.     Z = VCT(A + 1)
  10.     Avanzado.Image(intX + 1).Picture = LoadPicture("c:\p\" + Z + ".jpg")
  11.     Avanzado.Image(intX + 1).Picture = LoadPicture("c:\p\" + Z + ".jpg")
  12.       Z = VCT(A + 1)
  13.     Avanzado.Image(intX + 1).Picture = LoadPicture("c:\p\" + Z + ".jpg")
  14.     Avanzado.Image(intX + 1).Picture = LoadPicture("c:\p\" + Z + ".jpg")
  15.       Z = VCT(A + 1)
  16.     Avanzado.Image(intX + 1).Picture = LoadPicture("c:\p\" + Z + ".jpg")
  17.     Avanzado.Image(intX + 1).Picture = LoadPicture("c:\p\" + Z + ".jpg")
  18.     'For intX = 0 To 7 Step 2
  19. '    Next
  20. End Sub
  21.  
Bueno en el codigo anterior me generaba un problema con array pero en este sigue siendo el problema del Calificador de Objetos no se que sea
pero creo ke tengo que hacer algo relacionado con la seccion de  
LoadPicture("c:\p\" + Z + ".jpg") porque agregandole algunas cosillas o picandole pues cambia el error
e tratado de usar app.path, o pat pero pues eso no alluda no se que sea realmente  ni como funcionen esas cosas
o checando los textos de loadpicture encontre
Código: Text
  1.  
  2. Set Picture = LoadPicture("FIESTA.BMP")
  3. Set Image1.Picture = LoadPicture("FIESTA.BMP")
  4.  
  5.  
  6.  
pero como agrego eso a las lineas que tengo pues no me sale
tomando en cuenta que estoy trabajando en un modulo y lo mando llamar desde un formulario
El siguiente texto fue obtenido de la MSDN la libreria de ayuda del VS 6.0
Tengo este codigo me marca un error referente a:
Citar
Las referencias apropiedades andmétodos con frecuencia requieren un calificador de objeto explícito. Las causas y posibles soluciones de este error son las siguientes:
Ha hecho referencia a un método o propiedad de objeto, pero no ha proporcionado un calificador de objeto adecuado.
Especifique un calificador de objeto si no lo hizo antes. Por ejemplo, aunque puede omitir un calificador de objeto al hacer referencia a una propiedad de formulario desde dentro delmódulo, del propio formulario, debe especificar explícitamente el calificador al hacer referencia a la propiedad desde unmódulo estándar.

Suministró un calificador de objeto, pero no se está reconociendo como objeto.
Compruebe la ortografía del calificador de objeto y asegúrese de que el objeto es visible en la parte del programa donde está haciendo referencia a él. En el caso de los objetos Collection, compruebe todas las veces que aparezca el método Add para asegurarse de que su sintaxis y la ortografía de todos sus elementos son correctas.

Suministró un calificador de objeto válido, pero otras partes de la llamada tiene un error.
El error se pudo deber alargumento del comando Abrir archivo de unaaplicación principal. Compruebe los argumentos.

No utilizó la instrucción Set al asignar una referencia de objeto.
Si asigna un valor devuelto de una llamada CreateObject a una variable Variant, no necesariamente ocurrirá un error al omitir la instrucción Set. En el siguiente ejemplo de código, se crea una instancia implícita de Microsoft Excel, y su propiedad predeterminada (la cadena "Microsoft Excel") se devuelve y se asigna a la Variant ValRet. Un intento posterior de utilizar ValRet como referencia de objeto provoca este error:

Dim RetVal                            ' Variant implícita.
' La propiedad predeterminada se asigna a la Variant ' ValRet de Tipo 8.
RetVal = CreateObject("Excel.Application")   
RetVal.Visible = True            ' Aquí ocurre el error.
Utilice la instrucción Set al asignar una referencia de objeto.

En casos extraños, este error se produce cuando tiene un objeto válido, pero está intentando ejecutar una acción no válida en el objeto. Por ejemplo, puede recibir este error si intenta asignar un valor a una propiedad de sólo lectura.
Compruebe la documentación del objeto y asegúrese de que la acción que intenta ejecutar es válida.
Pero no entiendo alguien tiene  una idea, que es un calificador T-T
antes quiero agradecer por el tiempo prestado, disculpen las molestias

blakjac

  • Nuevo Miembro
  • *
  • Mensajes: 6
    • Ver Perfil
Re: Memorama
« Respuesta #2 en: Jueves 8 de Noviembre de 2007, 04:22 »
0
bueno e podido solucionar el problema saque todo el codigo del modulo y lo envie a la seccion de form load pero ahora me suge un problema no se porque peor en el siguente codigo me surge un 9
o varios
alguien me puede dar una vista yo ahorita no soy capas de encontrarlo porque esta gravado en mi necesito que alguien me lo critique porfavor gracias
Código: Text
  1.  
  2. For A = 0 To 3
  3. Randomize
  4. NR = (5 * Rnd)
  5.     If VCT(0) <> NR And VCT(1) <> NR And VCT(2) <> NR And VCT(3) <> NR Then
  6.         VCT(A) = NR
  7.     End If
  8. NR = 0
  9. Next
  10. Text1.Text = VCT(0)
  11. Text2.Text = VCT(1)
  12. Text3.Text = VCT(2)
  13. Text4.Text = VCT(3)
  14.  
  15.  
jejeje a disculpen ya pude arreglar eso  solo le agrege un else y un a=a-1