Buenas estoy realizando un programa y me veo atascado en un evento por código, de momento no encuentro nada pero sigo buscando, a ver si alguno me da la solución antes.

Pongo el siguiente ejemplo y es lo mismo que deseo que funcione con las matrices de 2 dimensiones en Visual Basic 2013.

Private Lista(4) As PictureBox
 
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        For A = 0 To 4
            Lista(A) = New PictureBox                       ' Creamos una nueva instancia
            Lista(A).Size = New Size(32, 32)                ' Tamaño PictureBox
            Lista(A).BorderStyle = 1                        ' Dibuja borde
            Lista(A).Location = New Point(A * 32 + A, 50)   ' Posicionamos PictureBox
            Me.Controls.Add(Lista(A))                       ' Añadimos al Formulario
            AddHandler Lista(A).Click, AddressOf Evento1    ' Agregamos evento Click
        Next A      
End Sub
 
Private Sub Evento1(sender As Object, e As EventArgs)
        Dim Index As Integer = Array.IndexOf(Lista, sender) ' Obtenemos el índice seleccionado
        MsgBox("Has pulsado " & Index + 1 & " recuadro.")
 End Sub
 

El código de arriba muestra 5 controles de tipo PictureBox como un array, puesto que en NET no se
podía realizar mediante diseño, al hacer click en cualquiera de ellos obtenemos el índice del
que hemos pulsado y así podemos utilizar las propiedades de cada uno de ellos.

Siguiendo con el ejemplo, me gustaría lo mismo para una matriz de 2 dimensiones que la dibujo
perfectamente, pero cuando asigno el evento Click no se que emplear para obtener el índice
puesto que Array.IndexOf es para matrices unidimensionales ¿Como puedo obtener el índice de
una matriz de 2 dimensiones, (0,0) (0,1) (0,2).. (1,0)..etc, al hacer click sobre cada recuadro
PictureBox ? Muchas GRACIAS y saludos

Private Matriz(2, 3) As PictureBox                      ' Matriz de 3x4 elementos
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load       
 
        ' Dibujamos matriz bidimensional de 3 filas y 4 columnas
        For F = 0 To 2                                         ' Recorre las Filas
            For C = 0 To 3                                     ' Recorre las Columnas
                Matriz(F, C) = New PictureBox
                Matriz(F, C).Size = New Size(32, 32)
                Matriz(F, C).BorderStyle = 1
                Matriz(F, C).Location = New Point(C * 32 + C, F * 32 + F + 100)
                Me.Controls.Add(Matriz(F, C))
                AddHandler Matriz(F, C).Click, AddressOf Evento2
            Next C
        Next F
    End Sub
 
    Private Sub Evento2(sender As Object, e As EventArgs)
        ' Fallo porque Array.IndexOf  es para matrices de 1 sola dimensión
        Dim Index As Integer = Array.IndexOf(Matriz, sender)
        '...
    End Sub
 
 

Buenas, estoy con una parte de código que no consigo traducir a VB.net, en C# funciona sin problemas. He utilizado el conversor http://converter.telerik.com pero se ve que ya no funciona, también otros conversores online pero dan problemas o el código escrito no compara correctamente la colisión, ya que se trata de colisiones entre 2 objetos por pixel.

Si podéis echarme una mano tan solo con este código o bien algún conversor que funcione correctamente de C# a VB.NET

if (((bitsA[(x - texture1Rectangle.X) + (y - texture1Rectangle.Y) * texture1Rectangle.Width] & 0xFF000000) >> 24) > 20 &&
   ((bitsB[(x - texture2Rectangle.X) + (y - texture2Rectangle.Y) * texture2Rectangle.Width] & 0xFF000000) >> 24) > 20)
                    {
                        PorColisionPixel = true;
                        ...
                    }
 

El fallo se presenta en el operador de desplazamiento o número hexadecimal.
Como nota decir que el código lo estoy realizando con XNA 4.0 en Visual Basic 2013, donde ya realicé el programa en XNA 4.0 con C# funcionando correctamente la colisión por pixel y es ahora donde he traducido todo el programa y solo me falta esta parte de código que no consigo que funcione en VB.net.

Muchas gracias y saludos

Buenas, estoy intentando traducir un ejemplo de C# para XNA donde trata una colisión por píxel entre 2 rectángulos. En C# para XNA me funciona correctamente, pero en VB2013 que también permite la librerias de XNA y ya he realizado varios programas sin problemas, tiene las mismas sentencias solo que cambia la sintaxis. Paso el código y en negrita donde muestra el problema, la línea del error es "Player.GetData(texturaPlayer), me imagino que este método lo que hace es copiar todos los colores de la textura. Estoy probando de muchas formas, inicializando  la instancia de todos los array y no doy con ello.

Mensaje de error al ejecutar: "The size of the data passed in is too large or too small for this resource."

Private Player As Texture2D
Private rectPlayer As Rectangle 
Private texturaPlayer() As Color
 
Protected Overrides Sub LoadContent()
' Carga textura Jugador 1 y copia el total número colores
Player = Content.Load(Of Texture2D)("Imagenes\Sprite1")
ReDim texturaPlayer(Player.Width * Player.Height)
Player.GetData(texturaPlayer)
...
 
End Sub
 

a la función que llamo luego es:

If intersectPixel(rectPlayer, texturaPlayer, rectRoca, texturaRoca) Then
...
 

El código en C# para XNA donde funciona sin problemas es:

Texture2D Player;                               // Sprite del Jugador1
Rectangle rectPlayer;                          // Rectángulo Jugador1 (colisión)
Color[] texturaPlayer;                         // Colores Jugador1
 
protected override void LoadContent()
{
// Carga textura Jugador 1 y copia el total numero colores
Player = Content.Load<Texture2D>("Imagenes/Sprite1");
texturaPlayer = new Color[Player.Width * Player.Height];
Player.GetData(texturaPlayer);
...
 
}
 

Muchos pensaréis que porque no lo programo en C# para XNA y aunque lo entiendo, soy de los que le gusta seguir con el mismo lenguaje y el juego que estoy realizando lo quiero hacer en Visual Basic 2013 con XNA.

A ver si hay alguien que me pueda echar una mano y así poder continuar con el juego, suelo empezar por lo que me resulta más difícil e intento resolver mediante pequeños ejemplos todas las posibles dificultades antes de comenzar el proyecto.

Muchas gracias y saludos

Buenas estoy intentando simplificar este código, en concreto lo que aparece entre comentarios. El código me funciona pero deseo reprentar los datos mediante una lista en una sola línea, o tupla como lo llaman... estoy probando con {} tal y como lo hago con los array o matrices, pero no doy con ello, alguna sugerencia. Gracias y salu2

Private Structure Cord
   Public X, Y as Integer
End Structure
 
Private Structure Obj
   Public PosA as Cord
   Public PosR() as Cord
End Structure
 
 
Private Obj1 As Obj        ' Declaramos un Objeto de la estructura Obj
ReDim Obj1.PosR(2)       ' Definimos la matriz de la estructura a 3 valores
 
' -------- Esto funciona, deseo simplificar algo estilo
' Obj1 = { {10, 20}, { {5, 3}, {7, 9}, {1, 4} } }
 
Obj1.PosA.X = 10 : Obj1.PosA.Y = 20
Obj1.PosR(0).X = 5 : Obj1.PosR(0).Y = 3
Obj1.PosR(1).X = 7 : Obj1.PosR(1).Y = 9
Obj1.PosR(2).X = 1 : Obj1.PosR(2).Y = 4
 
' ----------------------------------------
' Representar esta parte mediante una línea, tupla o como se haga en
' Visual Basic 2013
 
Procedimiento(Obj1)      ' Pasar el procedimiento con el Objeto
 
 

Buenas esto es a modo de consulta, ya que veo ultimamente que antivirus como Avast tienen una nueva tecnología llamada CyberCapture y claro aquellos programas que publicas que encima son de forma desinteresada y lo haces para compartir pues si ya te ponen impedimentos para que la gente no se los baje porque salte el antivirus, los bloquee, diga que están siendo estudiados por laboratorio...

He tenido que poner comentarios para que desactiven dicha opción, hacer video-tutoriales de canal YouTube para dar más confianza de que los programas que realizas no son maliciosos, en fin que parece que aquellos que tienen esto de la programación como un hobby se tenga que convertir casi como un empresa pero sin facturar...

Quería información si alguien más profesional ha firmado sus proyectos, si ha solicitado un certificado a la casa de la moneda, según tengo entendido tienen que ser con la extensión PFX puesto que lo que quería sería ensamblarlo con el ejecutable y que luego en firmas digitales apareciese el autor y que naturalmente la entidad fuese la casa de la moneda. ¿Esto sería como persona física?, ¿Que pasos exactos habéis seguido si alguien lo ha realizado?, tengo la página

https://www.sede.fnmt.gob.es/certificados

donde me iré informando, pero yo no deseo un certificado para asuntos de trámites de multas, hacienda, etc, sino un certificado para autenticar mis programas con firma digital y saber si eso elimina de los antivirus, por lo menos confian y te permiten elegir si ejecutar, no se, totalmente desconozco esto y lo único que me gusta en programar y compartir, no trabajo en programación, pero parece que cada vez los pequeños programadores se lo ponen difícil para compartir su hobby.

Cree un canal Youtube para dar más confianza con respecto a mis programas. Al final uno va a programar para si mismo y su familia y ya está, así menos quebraderos de cabeza, porque empieza programando y luego tiene que aprender alojar información web, crear canal youtube, diseño de gráficos, sonido, etc

Gracias y saludos

Buenas a todos/as, quería saber si hay alguna manera sencilla de saber el tipo de procesador y velocidad de este para asignar la información a una variable (integer) por ejemplo y así poder aumentar la velocidad o disminuir de un juego que estoy programando.
Busco código o información para Windows Forms. El tema de WMI (Windows Management Instrumentation) no lo entiendo y aparecen errores en ejemplos de Microsoft.

Si puede ser como digo algo sencillo del tipo...

MsgBox(My.Computer.Info.OSVersion)
MsgBox(My.Computer.Info.OSPlatform)
...
 

Naturalmente sin utilizar DirectX. Seguiré buscando por si veo algo que me convenza, si lo encuentro lo pondre aquí el código.

Gracias y saludos

Buenas a todos, estoy intentando mejorar el tema de movimientos de Sprites, puesto que lo utilizado hasta ahora todavia veo reflejo, aún poniendo DoubleBuffered = True en el Formulario y buscando información y probando veo que la mejor forma es utilizando "Protected Overrides Sub OnPaint". Naturalmente con DirectX o OpenGL sería otra cosa, pero no tengo ni idea.
Pongo código y lo explico (programa compilado con .NET Framework 4.0)

Imports System.Threading
 
Public Class Form1
 
' Tenemos un fondo de pantalla jpg 800x600 y dos imágenes transparentes png 50x50
' DECLARACIONES de los Objetos
 
Private Grafico As Graphics         ' Declaramos Objeto principal del GDI+
Private BitGrafico As Bitmap        ' Declaramos Bitmap que se copia en Objeto principal
Private Fondo As Bitmap             ' Imagen de fondo que utilizamos
Private Structure DSprite           ' Declaramos el Sprite (imagen y posición)
    Dim Imagen As Bitmap
    Dim Pos As Point
End Structure
Private Bola1, Bola2 As DSprite   ' Objetos de tipo Sprite
 
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    ' Cargamos los Gráficos
    Fondo = My.Resources.Tierra
    Bola1.Imagen = My.Resources.Bola
    Bola1.Pos = New Point(0, 100)
    Bola2.Imagen = My.Resources.Bola2
    Bola2.Pos = New Point(0, 300)
 
    ' Inicializamos los Objetos GDI+
    Grafico = Me.CreateGraphics()
    BitGrafico = New Bitmap(800, 600)
    Grafico = Graphics.FromImage(BitGrafico)
End Sub

Hasta aquí todo bien, ahora es cuando utilizo OnPaint y mi primera pregunta (más bien duda y confirmación). ¿Este evento impide que se ejecuten los demás eventos Paint? (sobre todo del Formulario), que para eso tendríamos que llamarlo con MyBase.OnPaint(e), al colocar evento te lo coloca automáticamente, por eso sino hace falta llamarlo ¿se puede eliminar? ¿Es bueno llamar a los eventos Paint de otros controles desde aquí?.
En el juego que realice no voy a llamar a ningún otro evento Paint y tan solo voy a tener gráficos en el Formulario principal, solo por confirmar.

Protected Overrides Sub OnPaint(e As PaintEventArgs)
    MyBase.OnPaint(e)                                 ' Esto se prodría omitir ??
    Dim de As Graphics = e.Graphics
    MOVER()
    DIBUJAR(de)
    Thread.Sleep(100)                                  ' Retardo
End Sub
 
Private Sub MOVER()
    Bola1.Pos.X = Bola1.Pos.X + 5
    Bola2.Pos.X = Bola2.Pos.X + 10
 
    If Bola1.Pos.X >= 800 Then Bola1.Pos.X = 0
    If Bola2.Pos.X >= 800 Then Bola2.Pos.X = 0
    Invalidate()                                  ' Vuelva a dibujar el control
End Sub
 
Private Sub DIBUJAR(ByVal d As Graphics)
    d.DrawImage(Fondo, 0, 0)                ' Dibujamos el fondo de pantalla
    d.DrawImage(Bola1.Imagen, Bola1.Pos)    ' Dibujamos Sprite1
    d.DrawImage(Bola2.Imagen, Bola2.Pos)    ' Dibujamos Sprite2
End Sub
 
End Class

El programa va bien y se ve fluido (naturalmente el Formulario utilizo Doble buffer puesto que sino se ve el reflejo), pero al iniciar se ejecuta 2 veces OnPaint y aunque puedes variar el tema de coordenadas, parece que de inicio no informa bien si pongo unos label

Label1.Text = "Obj1 PosX = " & Bola1.Pos.X
Label2.Text = "Obj2 PosX = " & Bola2.Pos.X

Estoy con pruebas y con un botón para parar. Veo que esta forma no hay que poner nada en diseño, a no ser por código porque hace cosas extrañas con las coordenadas. En principio estoy probando y mi segunda pregunta es ¿Es la forma correcta para saber el tema de coordenadas de los Sprites que coloque en Formulario? ¿Se puede mejorar algo para saber exactamente el tema de coordeandas x, y de los Sprites?

Colocare una nave y mas objetos y quería saber si me va a dar problemas con las coordenadas, la nave la muevo yo y los objetos como en el ejemplo se mueven automáticamente.
Gracias y saludos

Buenas, ya estoy acabando mi proyecto y me encuentro con este problema

"ReadLines no es miembro de System.IO.File"

Se que son las Net.Framework porque el proyecto lo tengo con 3.5, pero no quiero cambiarlo a 4.0 o 4.5 (ya los próximos utilizaré esas versiones), pero en este proyecto deseo poder utilizar el programa en equipos con Windows XP.

Hay alguna otra forma de leer filas en los archivos, si tengo que utilizar otra importación o cualquier otro comando que lea filas y lo guarde en un array de texto. Tal y como aparece en el siguiente código, que repito funciona a partir de la versión Net Framework 4.0, pero yo lo requiero para la Net Framework 3.5 (en Windows Form).

Gracias y saludos

Imports System.IO
 
Dim Valor(4) As String
For A = 0 To 4
     Valor(A) = File.ReadLines(ARCHIVOC)(A)           'Leer una sola línea
Next A

Buenas queria realizar 2 preguntas, con Windows Forms.

1º El Objeto My.Resources permite añadir otro tipo de archivos de audio que no sean WAV, esto es para utilizarlo con el control Windows Media Player en Visual Basic 2013.

2º Hay alguna forma de añadir el sonido, aunque sea WAV sino se puede otro formato en el control Windows Media Player desde los recursos (My.Resources). El código que utilizo es este, pero me gustaría compilar todo sin utilizar archivos externos.

AxWindowsMediaPlayer1.URL = "C:\Temp\Sonido1.wav"

Me gustaria utilizar esta forma y he probado de muchas maneras y no lo consigo.

My.Computer.Audio.Play(My.Resources.Sonido1, AudioPlayMode.BackgroundLoop)

Muchas gracias
Saludos

Buenas quería saber si se puede desde Visual Basic 2013 cambiar una contraseña de una base de datos Access 2010 (por código con ADO.NET), pongo siguiente código a modo de ejemplo. Como sería el código en el botón BtnPassword.



Mi segunda pregunta a modo de tema de Seguridad. Las bases de datos con Access 2010 veo que están cifradas y puedes poner una contraseña como el ejemplo que tengo de hasta 20 caracteres. ¿Es posible mediante programas externos aunque sean de pago romper esa seguridad y acceder a la base de datos Access?
Si es así se me ocurre poner la base de Access en un recurso compartido oculto con el $ al final y desde Visual Basic que es el programa que va a los usuarios acceder por programación y así nunca saben donde se esconde la base de Access. Aunque la empresa donde estoy no hay mucho listo que digamos pero siempre es bueno poner la máxima seguridad ante datos personales.

Si alguien sabe como programar por código la primera pregunta se lo agradezco mucho, naturalmente para cambiar una contraseña por Access hay que abrirla en modo exclusivo. En caso contrario lo haría desde Access y luego volviendo a compilar el proyecto, pero ya me gustaría hacerlo todo automático tal y como se hacía en Access97 hace mucho tiempo cuando programaba con VB6 y DAO.

Muchas gracias
Saludos