Mensajes

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.

Código [Seleccionar] Expandir


Private Sub Sobreescribir_linea_en_Archivo(ByVal linea_ac As Short)

       Using ARCHIVO As New System.IO.StreamWriter("F:\alumnos.txt", True) 'cambiar la ruta si es necesario
           For J = 0 To 8
               If J = 8 Then
                   ARCHIVO.Write(TB_A(linea_ac, J))
               Else
                   ARCHIVO.Write(TB_A(linea_ac, J) & ";")
               End If
           Next
       End Using

   End Sub

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

Se supone que guardo: clase, curso, dni, nombre, asignatura, instrumento, nota 1, 2 y 3 todo separado por ;

En el txt queda de la siguiente forma.
2;B;03036642-Q;Irene;Historia;Ninguno;7;6;9

No se si se puede hacer un private sub listar (p1 as string,p2...p4)
y mandar los combobox 4 en total)

No se muy bien como preguntar si me ha llegado el p1 que se corresponde con el comboboxcurso.text entonces buscalo sino paso al 2ºcombobox, etc...

Creo que el uso de funciones con varias parámetros me soluciona el problema.  Voy a probar, ¡ gracias !. El mayor problema que veo en este problema es que tengo como 5 combobox y hay muchas opciones en cada uno, por lo que no quiero tener que repetir código y mucho menos meterme en locuras de if anidados uno dentro de otro.

El tema sería por ejemplo tengo 3 combobox

1º curso que puede ser 1º,2º o Todos
2º clase: A, B Todas
3º Asignaturas:  Mates, Fisica,.... Todas

Lo que quiero es poder dar opción de mostrar al usuario si solo rellena los combobox de curso 2º y de asignatura Mates para ver todos los alumnos con la asignaturas de matemáticas sin importar la clase en la que estén.

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

Código (vbnet) [Seleccionar] Expandir


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

http://blogs.gamefilia.com/ellolo17/24-02-2012/48559/quieres-hacer-videojuegos-entra-e-informate-de-todo

http://blogs.gamefilia.com/ellolo17/06-10-2012/51036/quieres-entrar-a-trabajar-en-la-industria-del-videojuego-pues-no-hagas-el-

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

Código (vbnet) [Seleccionar] Expandir

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


El mayor problema es que tengan razón con que cada año el estado gana menos y tiene más gastos, si le sumas la corrupción nos vamos a todos a la ***** en 3,2,1...

Mmm... ¿ qué porque no se estudia cobol ?. Porque para eso se estudia seudocódigo y te sirve para cualquier tipo de lenguaje.
¿ Que porque no se cambia a otro lenguaje ?, porque los bancos no quieren gastar ni un duro en algo que ya funciona y es seguro. Aparte del gasto multimillonario de cambiar toda la infraestructura a otro lenguaje se encuentra el problema de los bugs que puedan salir del nuevo lenguaje y como consecuencia la pérdida de información y transacciones.

Yo encontré esta semana un curso en módulos sobre hacking básico, hasta encontrarlo me volví loco y ahora que lo tengo no me apetece nada ponerme a estudiarlo xD, más cuando aún tengo proyectos que entregar en clase y esto no me corre ninguna prisa. Lo que no tengo claro es si puede servir ya que estamos en el 2013 y el curso fue del 2009.

Hacking Básico en módulos
http://adf.ly/CqNXZ
http://adf.ly/ad/locked?url=CqOFU&t=s
http://adf.ly/ad/locked?url=CqORx&t=s
http://adf.ly/ad/locked?url=CqOVa&t=s
http://adf.ly/ad/locked?url=CqOk1&t=s
http://adf.ly/ad/locked?url=CqP3B&t=s
http://adf.ly/ad/locked?url=CqPAz&t=s
http://adf.ly/ad/locked?url=CqPNy&t=s

No estoy muy seguro porque nunca lo llegue a realizar, pero creo que existe un programa que te oculta la ip del servidor 127.0.0.1 si lo tienes en tu ordenador de casa y poder ponerle otro nombre (el problema viene a ser el de siempre, si no pagas ese programa te pone tu direccionquequiere.algoraro.com es decir que si lo quieres con tudireccion.com necesitas pagar. No recuerdo si se llamaba noip o algo así.