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]
1  Programación / .NET (C#, VB.NET, ASP) / Re: Ayudenme con este problema, q nose como se hace y ni lo entiendo en: 26 Septiembre 2009, 07:23 am
Pues mira, he creado dos labels para identificar cada valor, y tengo dos textbos para q el usuario introduzca los valores del Vector A y B, ademas he creado dos botones el de calcular y salir. En el boton de calcular he puesto este codigo:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       
'En esta parte he puesto que el valor del textbox 1 y 2 sean mayores o igaules a 0 y menores o iguales q a 15
If Val(TextBox1.Text >= 0 And Val(TextBox2.Text <= 15)) Then

            '
            'Iniciamos las listas a ordenar (puede sustituir este proceso
            'por otro de lectura con el fin de tomar los datos de                entrada
              'estandar)
            Dim VectorA() As Integer = {"0", "2", "4", "6", "8", "10", "12", "14", "16", "18", "20"}
            Dim VectorB() As Integer = {"10", "20", "30", "40", "50", "60", "70", "80", "90", "100"}

            'Declarar la matriz que va a almacenar el resultado de
            'fusionar las dos anteriores

            Dim vectorC(VectorA.Length + VectorB.Length) As Integer
            'Fusionar VectorA y VectorB y almacenar el Resultadoen VectorC
            'El metodo "Fusionar" devolvera un 0 cuando no se pueda
            'realizar la funcion.
            Dim ind, r As Double
            r = Fusionar(VectorA, VectorB, vectorC)


            'Escribir la matriz resultante
            If (r <> 0) Then
                For ind = 0 To VectorB.Length - 1
                    MessageBox.Show("La suma de los vectores es: " & vectorC(ind))
                Next
            Else
                MessageBox.Show("Error")
            End If

        Else
            'Como podras ver aqui le he puesto que si el usuario introduce un valor q no esta en el rango permitido, que le muestre un msj, de la indicacion y q cierre el programa
            MessageBox.Show("Ha introducido valores no permitidos")
            MessageBox.Show("Intente de nuevo")
            MessageBox.Show("Solo se permite un valor maximo de 15")
            Me.Close()
        End If

       
    End Sub

**Cabe destacar que los label no permiten letras, ya que para eso encontre una funcion que pude emplear a la perfeccion, dicha funcion esta hecha en un modulo y es la siguiente:

Module Module1
    Function SoloNumeros(ByVal Keyascii As Short) As Short
        If InStr("1234567890", Chr(Keyascii)) = 0 Then
            SoloNumeros = 0
        Else
            SoloNumeros = Keyascii
        End If
        Select Case Keyascii
            Case 8
                SoloNumeros = Keyascii
            Case 13
                SoloNumeros = Keyascii
        End Select
    End Function
End Module

**Y luego lo invoco en cada uno de los labels, de la siguiente manera:

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        Dim KeyAscii As Short = CShort(Asc(e.KeyChar))
        KeyAscii = CShort(SoloNumeros(KeyAscii))
        If KeyAscii = 0 Then
            e.Handled = True
        End If

**Y para que la funcion trabaje a la perfeccion se invoco de la siguiente manera

Public Class Form1
    Inherits System.Windows.Forms.Form

'Aqui es en donde se invoca
    Public KeyAscii As Short

Y eso es todo el codigo que tengo hasta el momento, nose si hay de mas o falta algo  o nose si esta bien en la forma que se los he planteado, espero que me puedand ayudar amigos de este Gran foro, les estare eternamente agradecidos
2  Programación / .NET (C#, VB.NET, ASP) / Re: Ayudenme con este problema, q nose como se hace y ni lo entiendo en: 25 Septiembre 2009, 00:46 am
Me puedes enviar el codigo de este ejercicio parte por parte, si no es tanta molestia
3  Programación / .NET (C#, VB.NET, ASP) / Re: Ayudenme con este problema, q nose como se hace y ni lo entiendo en: 25 Septiembre 2009, 00:43 am
Hey Xtriker, como se haria este ejercicio en interfaz grafica en el .net, mi pregunta es como seria la interfaz grafica y a dond iria cada parte del codigo que me has proporcionado, te dejare mi correo para que nos pongamos en comunicacion: lega2004@hotmail.com
4  Programación / .NET (C#, VB.NET, ASP) / Re: Ayudenme con este problema, q nose como se hace y ni lo entiendo en: 24 Septiembre 2009, 18:27 pm
Fijate Xtriker que lo tengo que programar en vb.net, pero te agradezco mucho el que te hayas tomado el tiempo necesario para responder a mi duda surgida, porque como te habras dado cuenta soy un principiante y aunque para uds sea facil yo me quedo en la luna jaja pero te agradezco, ahora tratare de ver como le doy forma
5  Programación / .NET (C#, VB.NET, ASP) / Ayudenme con este problema, q nose como se hace y ni lo entiendo en: 24 Septiembre 2009, 06:07 am
Hola a todos los amigos que participan en este foro, quisiera que me ayudaran a explicarme este ejercicio ya que sinceramente nolo entiendo y nose que hacer especificamente, el ejercicio es el siguiente:

Dado dos vectores A y B de 15 elementos cada uno, obtener un vector C donde la posición i se almacene la suma de A+B y mostrar el mayor de los C.

Espero que me puedan ayudar amigos del Foro, les estare muy agradecidos
6  Programación / .NET (C#, VB.NET, ASP) / Como poner skin en .net 2005 en: 1 Septiembre 2009, 20:07 pm

:Hola a todos los amigos del Foro, los felicito a todos x tan excelentes consejos q nos dan a los novatos. Yo quisiera saber si alguno de uds m puede explicar asi d forma detallada como se le puede poner un skin a una aplicacion hecha en .net 2005 ya que he buscado x internet y no m ha funcionado, espero q alguno de uds m pueda ayudar con esta duda q tengo
7  Programación / .NET (C#, VB.NET, ASP) / Re: Como poner skin en .net 2005 en: 1 Septiembre 2009, 19:12 pm
Te agradezco que te haya molestado en contestarme, pero si tu sabes a dond podria encontrar lo q busco t lo agradeceria mucho
8  Programación / .NET (C#, VB.NET, ASP) / Como poner skin en .net 2005 en: 1 Septiembre 2009, 18:55 pm
Hola a todos los amigos del Foro, los felicito a todos x tan excelentes consejos q nos dan a los novatos. Yo quisiera saber si alguno de uds m puede explicar asi d forma detallada como se le puede poner un skin a una aplicacion hecha en .net 2005 ya que he buscado x internet y no m ha funcionado, espero q alguno de uds m pueda ayudar con esta duda q tengo
9  Programación / .NET (C#, VB.NET, ASP) / Consulta sobre como crear la ruta de un instalador en .net 2005 en: 29 Agosto 2009, 07:41 am
Hola a todos, quisiera saber como se puede hacer para que un programa X se instale en la ruta que uno quiere, como por ejemplo: Si tengo una calculadora que se guarde en C:\Archivos de programa\Calculadora\ y que a la vez me cree un acceso directo en el escritorio

Espero que me puedan ayudar xq nose como se hace
10  Programación / .NET (C#, VB.NET, ASP) / Ayuda en la elaboracion D 1 programa q muestre 1 triangulo DPndiendo de los valo en: 29 Agosto 2009, 07:11 am
Hola a todos los del foro estoy intentando hacer un programa que me pida los 3 lados de un triangulo y que me muestre el triangulo equilátero: si todos los lados son iguales, isósceles si al menos dos lados son iguales y escaleno si no tiene dos lados iguales.
Lo estoy haciendo en interfaz grafica con el .net 2005

La duda de mi parte esta en como hacer que me verifique cada uno de los valores de los textbox, estoy utilizando un Select Case pero no encuentro la forma, soy novato en esto y espero que me puedan ayudar. El codigo que he hecho por el momento es el siguiente:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim a As Boolean
        Dim isoceles As New isoceles
        Dim equilatero As New equilatero
        Dim escaleno As New escaleno
        Select Case a
            Case 1
                If TextBox1.Text = TextBox2.Text And TextBox2.Text = TextBox3.Text Or TextBox1.Text = TextBox3.Text Then
                    'equilatero.Show()

                    'a = True
                Else
                    equilatero.Show()
                End If
        End Select

la parte que dice "equilatero.show" es un formulario que cree que me mostrara la imagen del triangulo equilatero, espero que me puedan ayudar :'(
Páginas: [1]
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines