Mensajes

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

Me puedes enviar el codigo de este ejercicio parte por parte, si no es tanta molestia

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

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

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

: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

Te agradezco que te haya molestado en contestarme, pero si tu sabes a dond podria encontrar lo q busco t lo agradeceria mucho

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

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

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 :'(