none
textbox para 4 digitos ex RRS feed

  • Pregunta

  •  Private Sub TextBox4_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox4.KeyPress
            NumerosyDecimal(TextBox4, e)

    end sub

      Public Sub NumerosyDecimal(ByVal CajaTexto As System.Windows.Forms.TextBox, ByVal e As System.Windows.Forms.KeyPressEventArgs)
            If Char.IsDigit(e.KeyChar) Then
                e.Handled = False
            ElseIf Char.IsControl(e.KeyChar) Then
                e.Handled = False
            ElseIf e.KeyChar = "." And Not CajaTexto.Text.IndexOf(".") Then
                e.Handled = True
            ElseIf e.KeyChar = "." Then
                e.Handled = False
            Else
                e.Handled = True
            End If

     Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
            Me.ComboBox1.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList

     Private Const PI = 3.14159265358979

     If ComboBox3.SelectedItem = "VOLUMEN" Then
                Label25.Text = "m3"
            Else
                Label25.Text = "m"
            End If

     If TextBox4.Text = "" Then
                MessageBox.Show("ingresa los datos pedidos", "error", MessageBoxButtons.OK, MessageBoxIcon.Information)

    else

    Label21.Text = Val(Label21.Text).ToString("###.##0,0 kw")

    para bloquear texbox 1, 2 ,3

     *TextBox1.ReadOnly = True

      Dim formulario = New PORTADA()
            formulario.ShowDialog()
            Me.Close()


    lunes, 12 de junio de 2017 23:41

Todas las respuestas

  • Hola:

     Y cual es el problema o que es lo que deseas obtener con ese código, recuerda que debes de ofrecer una explicación lo mas detallada posible para que alguien pueda ayudarte de lo contrario sera muy difícil.


    Saludos desde Monterrey, Nuevo León, México!!!

    lunes, 12 de junio de 2017 23:44
  • if comboBox2.SelectedItem ...
    martes, 13 de junio de 2017 4:47
  • Buenas Susana

    No has aclarado nada...

    En el foro de C# un compañero publicó un post sobre como postear preguntas lo mejor posible, échale un ojo, que aunque sea de otro subforo, las ideas que tiene se puede aplicar en cualquier foro.

    Ayudanos a ayudarte

    En base a eso, formula la pregunta lo más claro posible para que te podamos ayudar lo mejor posible.

    Atte.


    No olvides votar si mi comentario te ha ayudado y marcarlo como respuesta si ha sido la solución!

    martes, 13 de junio de 2017 10:14
  • Hola Susana:

     Aunque no ofreces una explicación como tal, viendo la linea de código que compartes en tu respuesta, logro entender que tu problema esta en querer comparar el valor devuelto por la propiedad SelectedItem con el valor de la cadena "VOLUMEN".

     Si quieres comparar el valor del TEXTO seleccionado en el combobox entonces en lugar de usar dicha propiedad deberás de usar SelectedText que justamente devuelve el texto desplegado actualmente en el control, entonces tu código seria algo similar a esto:

    If ComboBox3.SelectedText = "VOLUMEN" Then
       Text = "m3"
    Else
       Text = "m"
    End If

     Otra cosa que no veo en tu código, es como estas cargando el control, si es por medio de una clase o desde tiempo de diseño, esto también ayudaría para resolver el punto puesto que quizás tengas necesidad especifica de tomar el SelectedItem y comparar... bueno de esto ya nos dirás.

     Como veo que eres nuevo en el foro te recomiendo leer la guia de preguntas:

    Ayudanos a ayudarte

     Y te recuerdo que debes marcar la respuesta que te ayude con la solución de tu problema y votar como útiles aquellas de alguna manera dieron un poco de claridad para resolverlo.


    Saludos desde Monterrey, Nuevo León, México!!!

    martes, 13 de junio de 2017 14:38
  • If ComboBox1.SelectedItem = "IMPULSOR ELICE 3 PALAS PASO 1.0" Then
                    If ComboBox3.SelectedItem = "DIAMETRO DEL TANQUE" Then
                        aspa = (TextBox4.Text * 1 / 4)
                        volumen = (PI * TextBox4.Text ^ 3) / 4
                        tanque = TextBox4.Text
                    ElseIf ComboBox3.SelectedItem = "DIAMETRO DE LA ASPA" Then
                        tanque = TextBox4.Text * 4
                        volumen = (PI * tanque ^ 3) / 4
                        aspa = TextBox4.Text
                    ElseIf ComboBox3.SelectedItem = "VOLUMEN" Then
                        tanque = (TextBox4.Text * 4 / PI) ^ (1 / 3)
                        aspa = tanque * 1 / 4
                        volumen = TextBox4.Text
                    End If
                    repseg = TextBox5.Text / 60
                    reynols = aspa * aspa * repseg * TextBox2.Text / TextBox3.Text
                    If reynols >= 10000 Then
                        np = "0.32"
                    Else
                        np = "41"
                    End If


    jueves, 22 de junio de 2017 16:39
  • para el punto decimal jaja saludos

     Dim Cadena As String = TextBox6.Text
            Dim filtro As String = "1234567890"
            If Len(Cadena) > 0 Then
                filtro += "."
                For Each caracter In filtro
                    If e.KeyChar = caracter Then
                        e.Handled = False
                        Exit For
                    Else
                        e.Handled = True
                    End If
                Next
                If Char.IsControl(e.KeyChar) Then
                    e.Handled = False
                End If
                If e.KeyChar = "." And Not Cadena.IndexOf(".") Then
                    e.Handled = True
                End If
            End If

    jueves, 22 de junio de 2017 16:46
  •  ElseIf ComboBox1.SelectedItem = "IMPULSOR ELICE 3 PALAS PASO 1.5" Then
                    If ComboBox3.SelectedItem = "DIAMETRO DEL TANQUE" Then

                        aspa = TextBox4.Text * 1 / 4

                        volumen = PI * TextBox4.Text ^ 3 / 4

                        tanque = TextBox4.Text
                    ElseIf ComboBox3.SelectedItem = "DIAMETRO DE LA ASPA" Then

                        tanque = TextBox4.Text * 4

                        volumen = PI * tanque ^ 3 / 4

                        aspa = TextBox4.Text
                    ElseIf ComboBox3.SelectedItem = "VOLUMEN" Then

                        tanque = (TextBox4.Text * 4 / PI) ^ (1 / 3)

                        aspa = tanque * 1 / 4

                        volumen = TextBox4.Text
                    End If

     repseg = TextBox5.Text / 60

                    reynols = aspa * aspa * repseg * TextBox2.Text / TextBox3.Text
                    If reynols > 10000 Then
                        np = "0.87"
                    Else
                        np = "48"
                    End If

                    Label21.Text = np * repseg ^ 3 * aspa ^ 5 * TextBox2.Text
                    Label21.Text = Label21.Text / 1000

                    Label21.Text = Val(Label21.Text).ToString("###.##0,0 kw")




                ElseIf ComboBox1.SelectedItem = "TURBINA DISCO 6 PALAS" Then
                    If ComboBox3.SelectedItem = "DIAMETRO DEL TANQUE" Then
                        aspa = TextBox4.Text * 1 / 3
                        volumen = (PI * TextBox4.Text ^ 3) / 4
                        tanque = TextBox4.Text

                    ElseIf ComboBox3.SelectedItem = "DIAMETRO DE LA ASPA" Then
                        tanque = TextBox4.Text * 3
                        volumen = PI * tanque ^ 3 / 4
                        aspa = TextBox4.Text

                    ElseIf ComboBox3.SelectedItem = "VOLUMEN" Then

                        tanque = (TextBox4.Text * 4 / PI) ^ (1 / 3)

                        aspa = tanque * 1 / 3

                        volumen = TextBox4.Text
                    End If

                    repseg = TextBox5.Text / 60

                    reynols = aspa * aspa * repseg * TextBox2.Text / TextBox3.Text
                    If reynols > 10000 Then
                        np = "5.75"
                    Else
                        np = "65"
                    End If
                    Label21.Text = np * (repseg) ^ 3 * (aspa) ^ 5 * TextBox2.Text
                    Label21.Text = Label21.Text / 1000
                    Label21.Text = Val(Label21.Text).ToString("###.##0,0 kw")

                ElseIf ComboBox1.SelectedItem = "TURBINA 6 PALAS INCLINADAS" Then
                    If ComboBox3.SelectedItem = "DIAMETRO DEL TANQUE" Then
                        aspa = TextBox4.Text * 1 / 3
                        volumen = PI * TextBox4.Text ^ 3 / 4
                        tanque = TextBox4.Text

                    ElseIf ComboBox3.SelectedItem = "DIAMETRO DE LA ASPA" Then
                        tanque = TextBox4.Text * 3
                        volumen = PI * tanque ^ 3 / 4
                        aspa = TextBox4.Text

                    ElseIf ComboBox3.SelectedItem = "VOLUMEN" Then
                        tanque = (TextBox4.Text * 4 / PI) ^ (1 / 3)
                        aspa = tanque * 1 / 3
                        volumen = TextBox4.Text
                    End If

                    repseg = TextBox5.Text / 60

                    reynols = aspa * aspa * repseg * TextBox2.Text / TextBox3.Text
                    If reynols > 10000 Then
                        np = "1.63"
                    Else
                        np = "0"
                    End If
                    Label21.Text = np * (repseg) ^ 3 * (aspa) ^ 5 * TextBox2.Text
                    Label21.Text = Label21.Text / 1000

                    Label21.Text = Val(Label21.Text).ToString("###.##0,0 kw")


                ElseIf ComboBox1.SelectedItem = "TURINA 4 PALAS INCLINADAS" Then
                    If ComboBox3.SelectedItem = "DIAMETRO DEL TANQUE" Then

                        aspa = TextBox4.Text * 1 / 3

                        volumen = PI * TextBox4.Text ^ 3 / 4

                        tanque = TextBox4.Text
                    ElseIf ComboBox3.SelectedItem = "DIAMETRO DE LA ASPA" Then

                        tanque = TextBox4.Text * 3

                        volumen = PI * tanque ^ 3 / 4

                        aspa = TextBox4.Text
                    ElseIf ComboBox3.SelectedItem = "VOLUMEN" Then

                        tanque = (TextBox4.Text * 4 / PI) ^ (1 / 3)
                        aspa = tanque * 1 / 3
                        volumen = TextBox4.Text

                    End If

                    repseg = TextBox5.Text / 60
                    reynols = aspa * aspa * repseg * TextBox2.Text / TextBox3.Text
                    If reynols > 10000 Then
                        np = "1.27"
                    Else
                        np = "44.5"

                    End If
                    Label21.Text = np * (repseg) ^ 3 * (aspa) ^ 5 * TextBox2.Text
                    Label21.Text = Label21.Text / 1000

                    Label21.Text = Val(Label21.Text).ToString("###.##0,0 kw")


                ElseIf ComboBox1.SelectedItem = "PALETA PLANA DOS PALAS" Then
                    If ComboBox3.SelectedItem = "DIAMETRO DEL TANQUE" Then

                        aspa = TextBox4.Text * 1 / 2

                        volumen = PI * TextBox4.Text ^ 3 / 4

                        tanque = TextBox4.Text
                    ElseIf ComboBox3.SelectedItem = "DIAMETRO DE LA ASPA" Then

                        tanque = TextBox4.Text * 2

                        volumen = PI * tanque ^ 3 / 4

                        aspa = TextBox4.Text
                    ElseIf ComboBox3.SelectedItem = "VOLUMEN" Then

                        tanque = (TextBox4.Text * 4 / PI) ^ (1 / 3)

                        aspa = tanque * 1 / 2

                        volumen = TextBox4.Text
                    End If

                    repseg = TextBox5.Text / 60
                    reynols = aspa * aspa * repseg * TextBox2.Text / TextBox3.Text

                    If reynols > 10000 Then

                        np = "1.70"
                    Else
                        np = "36.5"


                    End If
                    Label21.Text = np * (repseg) ^ 3 * (aspa) ^ 5 * TextBox2.Text
                    Label21.Text = Label21.Text / 1000

                    Label21.Text = Val(Label21.Text).ToString("###.##0,0 kw")


                ElseIf ComboBox1.SelectedItem = "INPULSOR HE-3" Then
                    If ComboBox3.SelectedItem = "DIAMETRO DEL TANQUE" Then

                        aspa = TextBox4.Text * 1 / 2

                        volumen = PI * TextBox4.Text ^ 3 / 4

                        tanque = TextBox4.Text
                    ElseIf ComboBox3.SelectedItem = "DIAMETRO DE LA ASPA" Then

                        tanque = TextBox4.Text * 2

                        volumen = PI * tanque ^ 3 / 4

                        aspa = TextBox4.Text
                    ElseIf ComboBox3.SelectedItem = "VOLUMEN" Then

                        tanque = (TextBox4.Text * 4 / PI) ^ (1 / 3)

                        aspa = tanque * 1 / 2

                        volumen = TextBox4.Text
                    End If

                    repseg = TextBox5.Text / 60
                    reynols = aspa * aspa * repseg * TextBox2.Text / TextBox3.Text

                    If reynols > 10000 Then
                        np = "0.28"
                    Else
                        np = "43"

                    End If
                    Label21.Text = np * (repseg) ^ 3 * (aspa) ^ 5 * TextBox2.Text
                    Label21.Text = Label21.Text / 1000

                    Label21.Text = Val(Label21.Text).ToString("###.##0,0 kw")



                ElseIf ComboBox1.SelectedItem = "CINTA HELICOIDAL" Then
                    If ComboBox3.SelectedItem = "DIAMETRO DEL TANQUE" Then

                        aspa = TextBox4.Text * 1
                        volumen = PI * TextBox4.Text ^ 3 / 4
                        tanque = TextBox4.Text
                    ElseIf ComboBox3.SelectedItem = "DIAMETRO DE LA ASPA" Then
                        tanque = TextBox4.Text * 1
                        volumen = PI * tanque ^ 3 / 4
                        aspa = TextBox4.Text
                    ElseIf ComboBox3.SelectedItem = "VOLUMEN" Then
                        tanque = (TextBox4.Text * 4 / PI) ^ (1 / 3)
                        aspa = tanque * 1
                        volumen = TextBox4.Text
                    End If

                    repseg = TextBox5.Text / 60
                    reynols = aspa * aspa * repseg * TextBox2.Text / TextBox3.Text
                    If reynols > 10000 Then
                        np = "0"
                    Else
                        np = "52"
                    End If
                    Label21.Text = np * (repseg) ^ 3 * (aspa) ^ 5 * TextBox2.Text
                    Label21.Text = Label21.Text / 1000

                    Label21.Text = Val(Label21.Text).ToString("###.##0,0 kw")

                Else ComboBox1.SelectedItem = "ANCLA"
                    If ComboBox3.SelectedItem = "DIAMETRO DEL TANQUE" Then
                        aspa = TextBox4.Text * 1
                        volumen = PI * TextBox4.Text ^ 3 / 4
                        tanque = TextBox4.Text

                    ElseIf ComboBox3.SelectedItem = "DIAMETRO DE LA ASPA" Then
                        tanque = TextBox4.Text * 1
                        volumen = PI * tanque ^ 3 / 4
                        aspa = TextBox4.Text

                    ElseIf ComboBox3.SelectedItem = "VOLUMEN" Then
                        tanque = (TextBox4.Text * 4 / PI) ^ (1 / 3)
                        aspa = tanque * 1
                        volumen = TextBox4.Text

                    End If

                    repseg = TextBox5.Text / 60
                    reynols = aspa * aspa * repseg * TextBox2.Text / TextBox3.Text

                    If reynols > 10000 Then
                        np = "0.35"
                    Else
                        np = "300"
                    End If
                    Label21.Text = np * (repseg) ^ 3 * (aspa) ^ 5 * TextBox2.Text
                    Label21.Text = Label21.Text / 10000
                    Label21.Text = Val(Label21.Text).ToString("###.##0,0 KW")




    jueves, 22 de junio de 2017 16:58
  •  Private Sub TextBox6_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox6.KeyPress
            e.Handled = Not IsNumeric(e.KeyChar) And Not Char.IsControl(e.KeyChar)
        End Sub
    jueves, 22 de junio de 2017 17:22
  • If Impulsot.SelectedItem = "Impulsor hélice 3 palas, paso 1.0" Then
                    Da = TextBox4.Text * (1 / 4)
                    TextBox5.Text = Da
                    Vt = (((TextBox4.Text ^ 3) * Pi) / 4)
                    TextBox6.Text = Vt

    formula dt

    jueves, 22 de junio de 2017 17:30
  •   Dt = TextBox5.Text * 4
                    TextBox4.Text = Dt
                    Vt = (Pi * (Dt ^ 3)) / 4
                    TextBox6.Text = Vt

    cuando da

    jueves, 22 de junio de 2017 17:31
  •  Dt = ((4 * TextBox6.Text) / Pi) ^ (1 / 3)
                        TextBox4.Text = Dt
                        Da = Dt * 1 / 4
                        TextBox5.Text = Da
    jueves, 22 de junio de 2017 17:32