elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Trabajando con las ramas de git (tercera parte)


  Mostrar Mensajes
Páginas: 1 2 3 4 5 6 [7] 8 9 10 11 12
61  Programación / .NET (C#, VB.NET, ASP) / Como sobreescribir un txt en visual basic .net en: 27 Mayo 2013, 17:26 pm
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:
 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 ;)
62  Programación / .NET (C#, VB.NET, ASP) / Re: Como realizar una busqueda en: 23 Mayo 2013, 19:42 pm
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...
63  Programación / .NET (C#, VB.NET, ASP) / Re: Como realizar una busqueda en: 22 Mayo 2013, 18:52 pm
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.
64  Programación / .NET (C#, VB.NET, ASP) / Como realizar una busqueda en: 21 Mayo 2013, 21:37 pm
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
  1. For I = 0 To 249
  2.            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
  3.                For J = 0 To 8
  4.                    TextBox1.Text += TB_A(I, J) & Chr(9)
  5.                Next
  6.                TextBox1.Text += Chr(13) & Chr(10)
  7.            End If
  8.        Next
  9.  

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
65  Foros Generales / Dudas Generales / Re: Programación de videojuegos. en: 15 Abril 2013, 18:20 pm
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-
66  Programación / .NET (C#, VB.NET, ASP) / Ayuda con calculadora Visual Basic .Net en: 1 Abril 2013, 19:31 pm
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
  1. Public Class Form1
  2.  
  3.    Dim resultado As Double
  4.    Dim b As Boolean
  5.    Dim primerNumero As Double
  6.    Dim segundoNumero As Double
  7.    Dim cont As Short = 0
  8.  
  9.  
  10.    'NUMEROS Y COMA
  11.    Private Sub Btn0_Click(sender As System.Object, e As System.EventArgs) Handles Btn0.Click
  12.        TextBox1.Text = TextBox1.Text & 0
  13.    End Sub
  14.  
  15.    Private Sub Btn1_Click(sender As System.Object, e As System.EventArgs) Handles Btn1.Click
  16.        TextBox1.Text = TextBox1.Text & 1
  17.    End Sub
  18.  
  19.    Private Sub Btn2_Click(sender As System.Object, e As System.EventArgs) Handles Btn2.Click
  20.        TextBox1.Text = TextBox1.Text & 2
  21.    End Sub
  22.  
  23.    Private Sub Btn3_Click(sender As System.Object, e As System.EventArgs) Handles Btn3.Click
  24.        TextBox1.Text = TextBox1.Text & 3
  25.    End Sub
  26.  
  27.    Private Sub Btn4_Click(sender As System.Object, e As System.EventArgs) Handles Btn4.Click
  28.        TextBox1.Text = TextBox1.Text & 4
  29.    End Sub
  30.  
  31.    Private Sub Btn5_Click(sender As System.Object, e As System.EventArgs) Handles Btn5.Click
  32.        TextBox1.Text = TextBox1.Text & 5
  33.    End Sub
  34.  
  35.    Private Sub Btn6_Click(sender As System.Object, e As System.EventArgs) Handles Btn6.Click
  36.        TextBox1.Text = TextBox1.Text & 6
  37.    End Sub
  38.  
  39.    Private Sub Btn7_Click(sender As System.Object, e As System.EventArgs) Handles Btn7.Click
  40.        TextBox1.Text = TextBox1.Text & 7
  41.    End Sub
  42.  
  43.    Private Sub Btn8_Click(sender As System.Object, e As System.EventArgs) Handles Btn8.Click
  44.        TextBox1.Text = TextBox1.Text & 8
  45.    End Sub
  46.  
  47.    Private Sub Btn9_Click(sender As System.Object, e As System.EventArgs) Handles Btn9.Click
  48.        TextBox1.Text = TextBox1.Text & 9
  49.    End Sub
  50.  
  51.    Private Sub BtnComa_Click(sender As System.Object, e As System.EventArgs) Handles BtnComa.Click
  52.        TextBox1.Text = TextBox1.Text & ","
  53.    End Sub
  54.  
  55.    '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
  56.  
  57.  
  58.    'OPERACIONES
  59.    Private Sub BtnMas_Click(sender As System.Object, e As System.EventArgs) Handles BtnMas.Click
  60.        cont = cont + 1
  61.        Call Operar(TextBox1.Text, BtnMas.Text)
  62.    End Sub
  63.  
  64.    Private Sub BtnMenos_Click(sender As System.Object, e As System.EventArgs) Handles BtnMenos.Click
  65.        cont = cont + 1
  66.        Call Operar(TextBox1.Text, BtnMenos.Text)
  67.    End Sub
  68.  
  69.    Private Sub BtnMultiplicar_Click(sender As System.Object, e As System.EventArgs) Handles BtnMultiplicar.Click
  70.        cont = cont + 1
  71.        Call Operar(TextBox1.Text, BtnMultiplicar.Text)
  72.    End Sub
  73.  
  74.    Private Sub BtnDividir_Click(sender As System.Object, e As System.EventArgs) Handles BtnDividir.Click
  75.        cont = cont + 1
  76.        Call Operar(TextBox1.Text, BtnDividir.Text)
  77.    End Sub
  78.  
  79.    Private Sub BtnIgual_Click(sender As System.Object, e As System.EventArgs) Handles BtnIgual.Click
  80.        cont = cont + 1
  81.        If cont = 1 Then
  82.            TextBox2.Text = primerNumero
  83.        End If
  84.        If cont = 2 Then
  85.            TextBox2.Text = TextBox2.Text & TextBox1.Text & " = " & resultado
  86.        End If
  87.        If cont > 2 Then
  88.            TextBox2.Text = TextBox2.Text & TextBox1.Text & " = " & resultado
  89.        End If
  90.    End Sub
  91.  
  92.    Private Sub Operar(ByVal numero As Double, ByVal operando As String)
  93.  
  94.        Select Case cont
  95.            Case 1
  96.                Select Case operando
  97.                    Case "+"
  98.                        primerNumero = numero
  99.                        TextBox2.Text = primerNumero & operando
  100.                    Case "-"
  101.                        primerNumero = numero
  102.                    Case "X"
  103.                        primerNumero = numero
  104.                    Case "/"
  105.                        primerNumero = numero
  106.                End Select
  107.                TextBox1.Text = ""
  108.  
  109.            Case 2
  110.                Select Case operando
  111.                    Case "+"
  112.                        TextBox2.Text = TextBox2.Text & numero & operando
  113.                        resultado = primerNumero + numero
  114.                    Case "-"
  115.                        resultado = primerNumero * numero
  116.                    Case "X"
  117.                        resultado = primerNumero * numero
  118.                    Case "/"
  119.                        resultado = primerNumero / numero
  120.                End Select
  121.                'TextBox2.Text = resultado
  122.                TextBox1.Text = ""
  123.  
  124.            Case Else
  125.                Select Case operando
  126.                    Case "+"
  127.                        TextBox2.Text = TextBox2.Text & numero & operando
  128.                        resultado = resultado + numero
  129.                    Case "-"
  130.                        resultado = resultado - numero
  131.                    Case "X"
  132.                        resultado = resultado * numero
  133.                    Case "/"
  134.                        resultado = resultado / numero
  135.                End Select
  136.                TextBox1.Text = ""
  137.        End Select
  138.  
  139.    End Sub
  140.  
  141.  
  142.  
  143.  
  144.  
  145.  
  146. End Class
  147.  
67  Foros Generales / Noticias / Re: Un reloj marca la deuda pública española en tiempo real en: 26 Marzo 2013, 21:19 pm
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...
68  Foros Generales / Noticias / Re: ¿COBOL está muerto? Los datos muestran lo contrario en: 26 Marzo 2013, 21:16 pm
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.
69  Seguridad Informática / Hacking / Re: ¿Que debo aprender primero a hackear o a programar? en: 24 Marzo 2013, 01:07 am
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
70  Programación / PHP / Re: AYUDA URGENTE........PHP en: 23 Marzo 2013, 00:37 am
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í.
Páginas: 1 2 3 4 5 6 [7] 8 9 10 11 12
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines