LA pregunta es así se de simple, estoy haciendo un arkanoid y quería saber como realizar el rebote sobre la paleta. He de decir que aunque lo he pensado a la conclusión que he llegado es que algo no entiendo o en algo estoy fallando cuando no me está saliendo.

Aquí dejo como lo haría yo ( pero no me funciona y no entiendo el porque )

If RadioButton1.Bottom >= Button1.Top Then
            If RadioButton1.Bottom >= Button1.Top And RadioButton1.Top <= Button1.Bottom Then
                empezar = 1 'empezar hace que se mueva con un timer el radiobuton
            End If
        End If
 
 

Estoy buscando información para los índices y el único ejemplo que tengo es teórico sobre como hacer que 10buttons con índices nombrándolos button(1)...al 10. ¿ Sabéis como se le llama a esto o tenéis algún ejemplo que me pueda servir para usarlos ? Por lo que he visto se pueden hacer del tipo hastable y parece que se usan para meter dentro de ellos un grupo de botones o eso creo. ¿ Estoy equivocado ?.

Por cierto creo que lo he visto por otros sitios en inglés con el nombre de indexadores

Muy buenas a todos. Quería saber como modificar una línea de un txt en visual basic .net. Hasta ahora logro guardar los datos de mis cajas de texto en un array, ese array está por líneas y mando la linea a una función que se coloca en el archivo o eso creo sobre la línea a modificar sobre la cual según tengo entendido debería sobreescribir dicha línea. Sin embargo me lo escribe al final del txt y no sobre la línea que le paso.

Linea_ac es la linea que quiero cambiar.


A ver si alguien me dice que me falta o como arreglar esto

Muy buenas, tengo un pequeño problema de concepto creo, estoy realizando una búsqueda según el texto de 4 combo box. Lo que quiero es que según lo que tenga marcado en los combo box se busque en mi archivo txt, es decir si pongo en un combobox nombre: pepe, dni: 49028334-ñ y tlf 6905677 no se si debería mostrar solo un usuario con esa coincidencia el cual debería ser solo 1 porque dni no se repiten o todos los usuarios llamados pepe ya que el dni y tlf no va a coincidir con la busqueda.

Por ahora tengo esto

 For I = 0 To 249
            If TB_A(I, 0) = curso And TB_A(I, 1) = clase And TB_A(I, 4) = asignatura And TB_A(I, 5) = instrumento Then
                For J = 0 To 8
                    TextBox1.Text += TB_A(I, J) & Chr(9)
                Next
                TextBox1.Text += Chr(13) & Chr(10)
            End If
        Next
 

Pero entiendo que debe dar problemas puesto que si quiero solo el campo 1 y 3 que son nombres: Paco y del 3ºcurso tal y como lo tengo no me serviría puesto que el resto de campos se me enviarían como parametros en blanco y me intentaría buscar con un and en blanco

Muy buenas, tengo muchas duda sobre como hacer una calculadora, hasta ahora he hecho la recogida de los datos pero tal y como lo he planteado no se si es la mejor forma se supone que debe haber solo 1 texbox aunque yo le he puesto 2 para ver si realmente me realiza las operaciones y me guarda en sus variables los números.  Agradezco cualquier ayuda. Dejo el proyecto para que se vea rápidamente como va.
http://www.mediafire.com/?sxzle6zvjm9urat

Public Class Form1
 
    Dim resultado As Double
    Dim b As Boolean
    Dim primerNumero As Double
    Dim segundoNumero As Double
    Dim cont As Short = 0
 
 
    'NUMEROS Y COMA
    Private Sub Btn0_Click(sender As System.Object, e As System.EventArgs) Handles Btn0.Click
        TextBox1.Text = TextBox1.Text & 0
    End Sub
 
    Private Sub Btn1_Click(sender As System.Object, e As System.EventArgs) Handles Btn1.Click
        TextBox1.Text = TextBox1.Text & 1
    End Sub
 
    Private Sub Btn2_Click(sender As System.Object, e As System.EventArgs) Handles Btn2.Click
        TextBox1.Text = TextBox1.Text & 2
    End Sub
 
    Private Sub Btn3_Click(sender As System.Object, e As System.EventArgs) Handles Btn3.Click
        TextBox1.Text = TextBox1.Text & 3
    End Sub
 
    Private Sub Btn4_Click(sender As System.Object, e As System.EventArgs) Handles Btn4.Click
        TextBox1.Text = TextBox1.Text & 4
    End Sub
 
    Private Sub Btn5_Click(sender As System.Object, e As System.EventArgs) Handles Btn5.Click
        TextBox1.Text = TextBox1.Text & 5
    End Sub
 
    Private Sub Btn6_Click(sender As System.Object, e As System.EventArgs) Handles Btn6.Click
        TextBox1.Text = TextBox1.Text & 6
    End Sub
 
    Private Sub Btn7_Click(sender As System.Object, e As System.EventArgs) Handles Btn7.Click
        TextBox1.Text = TextBox1.Text & 7
    End Sub
 
    Private Sub Btn8_Click(sender As System.Object, e As System.EventArgs) Handles Btn8.Click
        TextBox1.Text = TextBox1.Text & 8
    End Sub
 
    Private Sub Btn9_Click(sender As System.Object, e As System.EventArgs) Handles Btn9.Click
        TextBox1.Text = TextBox1.Text & 9
    End Sub
 
    Private Sub BtnComa_Click(sender As System.Object, e As System.EventArgs) Handles BtnComa.Click
        TextBox1.Text = TextBox1.Text & ","
    End Sub
 
    'FUNCIÓN QUE RECORRA CADA VEZ QUE SE AÑADA UN Nº EN EL TEXTBOX EN BUSCA DE COMAS Y CUENTE SI YA HAY 1 PARA QUE NO PERMITA PONER MAS, POR EJEMPLO DESHABILITANDO EL BOTÓN O INFORMANDOLO MSGBOX
 
 
    'OPERACIONES
    Private Sub BtnMas_Click(sender As System.Object, e As System.EventArgs) Handles BtnMas.Click
        cont = cont + 1
        Call Operar(TextBox1.Text, BtnMas.Text)
    End Sub
 
    Private Sub BtnMenos_Click(sender As System.Object, e As System.EventArgs) Handles BtnMenos.Click
        cont = cont + 1
        Call Operar(TextBox1.Text, BtnMenos.Text)
    End Sub
 
    Private Sub BtnMultiplicar_Click(sender As System.Object, e As System.EventArgs) Handles BtnMultiplicar.Click
        cont = cont + 1
        Call Operar(TextBox1.Text, BtnMultiplicar.Text)
    End Sub
 
    Private Sub BtnDividir_Click(sender As System.Object, e As System.EventArgs) Handles BtnDividir.Click
        cont = cont + 1
        Call Operar(TextBox1.Text, BtnDividir.Text)
    End Sub
 
    Private Sub BtnIgual_Click(sender As System.Object, e As System.EventArgs) Handles BtnIgual.Click
        cont = cont + 1
        If cont = 1 Then
            TextBox2.Text = primerNumero
        End If
        If cont = 2 Then
            TextBox2.Text = TextBox2.Text & TextBox1.Text & " = " & resultado
        End If
        If cont > 2 Then
            TextBox2.Text = TextBox2.Text & TextBox1.Text & " = " & resultado
        End If
    End Sub
 
    Private Sub Operar(ByVal numero As Double, ByVal operando As String)
 
        Select Case cont
            Case 1
                Select Case operando
                    Case "+"
                        primerNumero = numero
                        TextBox2.Text = primerNumero & operando
                    Case "-"
                        primerNumero = numero
                    Case "X"
                        primerNumero = numero
                    Case "/"
                        primerNumero = numero
                End Select
                TextBox1.Text = ""
 
            Case 2
                Select Case operando
                    Case "+"
                        TextBox2.Text = TextBox2.Text & numero & operando
                        resultado = primerNumero + numero
                    Case "-"
                        resultado = primerNumero * numero
                    Case "X"
                        resultado = primerNumero * numero
                    Case "/"
                        resultado = primerNumero / numero
                End Select
                'TextBox2.Text = resultado
                TextBox1.Text = ""
 
            Case Else
                Select Case operando
                    Case "+"
                        TextBox2.Text = TextBox2.Text & numero & operando
                        resultado = resultado + numero
                    Case "-"
                        resultado = resultado - numero
                    Case "X"
                        resultado = resultado * numero
                    Case "/"
                        resultado = resultado / numero
                End Select
                TextBox1.Text = ""
        End Select
 
    End Sub
 
 
 
 
 
 
End Class
 

Muy buenas.
Estaba haciendo una práctica y resulta que no logro ver como mantener el estilo subrayado, negrita, o  cursiva al cambiar el tamaño de letra, puesto que al parecer se reinician los valores. Creo (pienso) que el new de listboxchanged esta creando lo que es un estilo nuevo y no me lo esta manteniendo.

Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TextBox1.Text = "HOLA"
        TextBox1.TextAlign = HorizontalAlignment.Center
    End Sub
 
 
    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        TextBox1.Font = New Font(TextBox1.Font.Style, ListBox1.SelectedItem)
        'CheckBox1.Checked = False
        'CheckBox2.Checked = False
        'CheckBox3.Checked = False
 
    End Sub
 
 
    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
        'DESDE TEXTBOX1.FONT ACTUA COMO EL TEXTBOX1.TEXT = TEXTBOX1.TEXT DICIENDO TEXTBOX1.FONT = AL ESTILO QUE CONTENGA + EL NUEVO NEGRITA
        If CheckBox1.Checked = False Then TextBox1.Font = New Font(TextBox1.Font, TextBox1.Font.Style And Not FontStyle.Bold)
        If CheckBox1.Checked = True Then TextBox1.Font = New Font(TextBox1.Font, TextBox1.Font.Style Or FontStyle.Bold)
    End Sub
 
    Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
        If CheckBox2.Checked = False Then TextBox1.Font = New Font(TextBox1.Font, TextBox1.Font.Style And Not FontStyle.Underline) 'quita el estilo de negrita del texto
        If CheckBox2.Checked = True Then TextBox1.Font = New Font(TextBox1.Font, TextBox1.Font.Style Or FontStyle.Underline)
    End Sub
 
    Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged
        If CheckBox3.Checked = False Then TextBox1.Font = New Font(TextBox1.Font, TextBox1.Font.Style And Not FontStyle.Italic)
        If CheckBox3.Checked = True Then TextBox1.Font = New Font(TextBox1.Font, TextBox1.Font.Style Or FontStyle.Italic) 'cambia a negerita el cuadro de texto
    End Sub
End Class

Estaba buscando algún manual bash pero con buenos manuales me refiero casi a libros enteros sobre linux en español con montones de ejercicios resueltos y ejemplos. Actualmente tengo varios sobre scripts básico sin compilador y muchos ejercicios sin su solución, por eso busco algo que sea muy completo y además se meta con el gcc por ejemplo y mezcle lo que ya se que son comandos típicos como ( tail, short, ls, mv, cp, mkdir, touch, dir, adduser, chown, chmod, su, su- sudo, etc... ) con la programación en c. Y para ello necesito algún libro que me da una buena base explicandome tuberías, cuando poner $var o `$var`, si es lo mismo -eq que =, el exist o [], uso de hilos, links, find y el uso corriente de los archivos.

Esta es una de las preguntas que siempre me he hecho. Todos tenemos conocidos/amigos/compañeros y a la hora de la verdad lo más que han hecho ha sido meterle un crack a un juego, formatear un ordenador, hacer un juego para android(el que más sabe del tema).

¿ Por lo que quería saber si este es el caso más típico, a vosotros os pasa lo mismo, realmente conoceis hackers o siplemente aficionados a la informática y alguno con algún conocimiento más que el resto ?. ¿Otra de las preguntas del millón que estudios tienen los hackers y cuantas hora las han dedicado a este fin ?.

Estaba viendo un par de páginas por internet sobre el blacktrack5, y me ha surgido una duda, estoy intentando sacar mi contraseña del router wpa2/psk inventada por mi (tiene números, letras mayúsculas, minúsculas y dos o tres carateres asci). Quería saber si es posible guardar o emular el funcionamiento de mi router desde linux de forma que no sea necesario estar conectado para averiguar la clave. La otra pregunta sería saber si es posible descifrar una clave aleatoria 100% como por ejemplo: 3V5p#f2¬Ra, es decir esta clave no existe en ningún diccionario, ¿ se podría llegar a descifrar por algún método haciendo preguntas si el primer caracter es 3 dame un true o algo así ?

Tengo una duda con uno de mis ejercicios, en el que me he propuesto hacer una carga aleatoria sin repetir ingún nº en una tabla de 25elementos. No se si es un ejercicio del que necesito mas nociones básicas, puesto que solo llevo 3meses de curso y hemos llegado hasta los arrays (ordenación y búsquedas). No se si me hace falta algo algún conocimiento más.

En principio necesito alguna idea que me ilumine el camino a seguir ya que lo que he realizado tiene sentido pero no se como hacer la parte de generar un nº diferente a los que ya están puestos.

Public Class Form1
 
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
 
        Dim TB(4, 4) As Short
        Dim TBC(24) As Short
        Dim C_NUM As Short = 0
        Dim H As Short = 0
 
        For I As Short = 0 To 4
            For J As Short = 0 To 4
                TB(I, J) = Int((25 - 1 + 1) * Rnd()) + 1
                TB(I, J) = TBC(H)
                H = H + 1
            Next
        Next
        H = 0
 
 
        Do
            For I = 0 To 4
                For J = 0 To 4
                    If TBC(H) = TB(I, J + 1) Then
                        C_NUM = C_NUM + 1
                        TB(I, J + 1) = Int((24 - 0 + 1) * Rnd()) + 0
                    Else
                        C_NUM = C_NUM - 1
                    End If
                Next
            Next
            H = H + 1
        Loop While C_NUM > 0
 
        For I = 0 To 4
            For J = 0 To 4
                TextBox1.Text = TextBox1.Text & TB(I, J)
            Next
        Next
 
 
 
    End Sub
End ClasS