none
Validar Números en un textbox RRS feed

Todas las respuestas

  • solo numeros en un textbox:

     Private Sub TextBox11_KeyPress(ByVal CajaTexto As System.Windows.Forms.TextBox, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox11.KeyPress
            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
        End Sub

    solo acepte 4 decimales:

            TextBox6.Text = Val(TextBox6.Text).ToString("###.#.###, KW")

    Dim Dt, Da, Re, Np, Vt, P, RPS

            If TextBox11.Text = "0" And TextBox12.Text = "0" And TextBox13.Text = "0" Or TextBox1.Text = "" Or TextBox2.Text = "0" Or TextBox3.Text = "" Or TextBox4.Text = "" Or ComboBox1.SelectedItem = "" Or ComboBox3.SelectedItem = "" Or RadioButton1.Checked = False And RadioButton2.Checked = False And RadioButton3.Checked = False Then
                MessageBox.Show("No se puede realizar la operación. No ha seleccionado todos los campos o dejó alguna orperación en 0", "Falló operación", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
            End If

            If RadioButton1.Checked = True Then
                Dt = ((4 * TextBox11.Text) / pi) ^ (1 / 3)
                TextBox7.Text = Dt
                RPS = (TextBox2.Text / 60)


                If ComboBox3.SelectedItem = "Impulsador hélice, 3 palas, paso 1.0" Then
                    Da = Dt * (1 / 4)
                    TextBox8.Text = Da
                    Re = (Da ^ 2 * (RPS) * (TextBox4.Text) / TextBox3.Text)
                    TextBox10.Text = Re
                    If Re > 10000 Then
                        Np = 0.32
                        TextBox9.Text = Np
                    Else
                        Np = 41
                        TextBox9.Text = Np
                    End If
                    P = (Np * (RPS ^ 3) * (Da ^ 5) * TextBox4.Text) / 1000
                    TextBox6.Text = P
                End If
                If ComboBox3.SelectedItem = "Impulsador hélice, 3 palas, paso 1.5" Then
                    Da = Dt * (1 / 4)
                    TextBox8.Text = Da
                    Re = (Da ^ 2 * (RPS) * (TextBox4.Text) / TextBox3.Text)
                    TextBox10.Text = Re
                    If Re > 10000 Then
                        Np = 0.87
                        TextBox9.Text = Np
                    Else
                        Np = 48
                        TextBox9.Text = Np

                    End If
                    P = (Np * (RPS ^ 3) * (Da ^ 5) * TextBox4.Text) / 1000
                    TextBox6.Text = P
                End If
                If ComboBox3.SelectedItem = "Turbina de disco de 6 palas" Then
                    Da = Dt * (1 / 3)
                    TextBox8.Text = Da
                    Re = (Da ^ 2 * (RPS) * (TextBox4.Text) / TextBox3.Text)
                    TextBox10.Text = Re
                    If Re > 10000 Then
                        Np = 5.75
                        TextBox9.Text = Np
                    Else
                        Np = 65
                        TextBox9.Text = Np
                    End If
                    P = (Np * ((TextBox2.Text / (60)) ^ 3) * (Da ^ 5) * TextBox4.Text) / 1000
                    TextBox6.Text = P
                End If
                If ComboBox3.SelectedItem = "Turbina de 6 palas inclinadas" Then
                    Da = Dt * (1 / 3)
                    TextBox8.Text = Da
                    Re = (Da ^ 2 * (RPS) * (TextBox4.Text) / TextBox3.Text)
                    TextBox10.Text = Re
                    If Re > 10000 Then
                        Np = 1.63
                        TextBox9.Text = Np
                    Else
                        Np = 1
                        TextBox9.Text = Np
                    End If
                    P = (Np * ((TextBox2.Text / (60)) ^ 3) * (Da ^ 5) * TextBox4.Text) / 1000
                    TextBox6.Text = P
                End If
                If ComboBox3.SelectedItem = "Turbina de 4 palas inclinadas" Then
                    Da = Dt * (1 / 3)
                    TextBox8.Text = Da
                    Re = (Da ^ 2 * (RPS) * (TextBox4.Text) / TextBox3.Text)
                    TextBox10.Text = Re
                    If Re > 10000 Then
                        Np = 1.27
                        TextBox9.Text = Np
                    Else
                        Np = 44.5
                        TextBox9.Text = Np
                    End If
                    P = (Np * (RPS) ^ 3) * ((Da ^ 5) * TextBox4.Text) / 1000
                    TextBox6.Text = P
                End If
                If ComboBox3.SelectedItem = "Paleta plana de 2 palas" Then
                    Da = Dt * (1 / 2)
                    TextBox8.Text = Da
                    Re = (Da ^ 2 * (RPS) * (TextBox4.Text) / TextBox3.Text)
                    TextBox10.Text = Re
                    If Re > 10000 Then
                        Np = 1.7
                        TextBox9.Text = Np
                    Else
                        Np = 36.5
                        TextBox9.Text = Np
                    End If
                    P = (Np * (RPS ^ 3) * (Da ^ 5) * TextBox4.Text) / 1000
                    TextBox6.Text = P
                End If
                If ComboBox3.SelectedItem = "Impulsador HE-3" Then
                    Da = Dt * (1 / 4)
                    TextBox8.Text = Da
                    Re = (Da ^ 2 * (RPS) * (TextBox4.Text) / TextBox3.Text)
                    TextBox10.Text = Re
                    If Re > 10000 Then
                        Np = 0.28
                        TextBox9.Text = Np
                    Else
                        Np = 43
                        TextBox9.Text = Np
                    End If
                    P = (Np * (RPS ^ 3) * (Da ^ 5) * TextBox4.Text) / 1000
                    TextBox6.Text = P
                End If
                If ComboBox3.SelectedItem = "Cinta helicoidal" Then
                    Da = Dt * (1)
                    TextBox8.Text = Da
                    Re = (Da ^ 2 * (RPS) * (TextBox4.Text) / TextBox3.Text)
                    TextBox10.Text = Re
                    If Re > 10000 Then
                        Np = 1
                        TextBox9.Text = Np
                    Else
                        Np = 52
                        TextBox9.Text = Np
                    End If
                    P = (Np * (RPS ^ 3) * (Da ^ 5) * TextBox4.Text) / 1000
                    TextBox6.Text = P
                End If
                If ComboBox3.SelectedItem = "Ancla" Then
                    Da = Dt * (1)
                    TextBox8.Text = Da
                    Re = (Da ^ 2 * ((TextBox2.Text / (60))) * (TextBox4.Text) / TextBox3.Text)
                    TextBox10.Text = Re
                    If Re > 10000 Then
                        Np = 0.35
                        TextBox9.Text = Np
                    Else
                        Np = 300
                        TextBox9.Text = Np
                    End If
                    P = (Np * (RPS ^ 3) * (Da ^ 5) * TextBox4.Text) / 1000
                    TextBox6.Text = P
                End If
            End If
            If RadioButton2.Checked = True Then
                If ComboBox3.SelectedItem = "Impulsador hélice, 3 palas, paso 1.0" Then

                    Vt = (pi * (TextBox12.Text ^ 3) / 4)
                    TextBox5.Text = Vt
                    RPS = (TextBox2.Text / (60))
                    Da = TextBox12.Text * (1 / 4)
                    TextBox8.Text = Da
                    Re = (((Da ^ 2) * RPS) * TextBox4.Text) / TextBox3.Text
                    TextBox10.Text = Re
                    If Re > 10000 Then
                        Np = 0.32
                        TextBox9.Text = Np
                    Else
                        Np = 41
                        TextBox9.Text = Np
                        If TextBox11.Text = "" Then

                        End If
                    End If
                    P = (Np * (RPS) * (Da ^ 5) * TextBox4.Text) / 1000
                    TextBox6.Text = P
                End If
                If ComboBox3.SelectedItem = "Impulsador hélice, 3 palas, paso 1.5" Then
                    Vt = (pi * (TextBox12.Text ^ 3) / 4)
                    TextBox5.Text = Vt
                    RPS = (TextBox2.Text / (60))
                    Da = TextBox12.Text * (1 / 4)
                    TextBox8.Text = Da
                    Re = ((Da ^ 2) * (RPS) * TextBox4.Text) / TextBox3.Text
                    TextBox10.Text = Re
                    If Re > 10000 Then
                        Np = 0.87
                        TextBox9.Text = Np
                    Else
                        Np = 48
                        TextBox9.Text = Np
                    End If
                    P = ((Np * (RPS) ^ 3) * (Da ^ 5) * TextBox4.Text) / 1000
                    TextBox6.Text = P
                End If
                If ComboBox3.SelectedItem = "Turbina de disco de 6 palas" Then
                    Vt = (pi * (TextBox12.Text ^ 3) / 4)
                    TextBox5.Text = Vt
                    RPS = (TextBox2.Text / (60))
                    Da = TextBox12.Text * (1 / 3)
                    TextBox8.Text = Da
                    Re = ((Da ^ 2) * (RPS) * TextBox4.Text) / TextBox3.Text
                    TextBox10.Text = Re
                    If Re > 10000 Then
                        Np = 5.75
                        TextBox9.Text = Np
                    Else
                        Np = 65
                        TextBox9.Text = Np
                    End If
                    P = (Np * (RPS ^ 3) * (Da ^ 5) * TextBox4.Text) / 1000
                    TextBox6.Text = P
                End If
                If ComboBox3.SelectedItem = "Turbina de 6 palas inclinadas" Then
                    Vt = (pi * (TextBox12.Text ^ 3) / 4)
                    TextBox5.Text = Vt
                    RPS = (TextBox2.Text / (60))
                    Da = TextBox12.Text * (1 / 3)
                    TextBox8.Text = Da
                    Re = ((Da ^ 2) * (RPS) * TextBox4.Text) / TextBox3.Text
                    TextBox10.Text = Re
                    If Re > 10000 Then
                        Np = 1.63
                        TextBox9.Text = Np
                    Else
                        Np = 1
                        TextBox9.Text = Np
                    End If
                    P = (Np * ((TextBox2.Text / (60)) ^ 3) * (Da ^ 5) * TextBox4.Text) / 1000
                    TextBox6.Text = P
                End If
                If ComboBox3.SelectedItem = "Turbina de 4 palas inclinadas" Then
                    Vt = (pi * (TextBox12.Text ^ 3) / 4)
                    TextBox5.Text = Vt
                    RPS = (TextBox2.Text / (60))
                    Da = TextBox12.Text * (1 / 3)
                    TextBox8.Text = Da
                    Re = ((Da ^ 2) * (RPS) * TextBox4.Text) / TextBox3.Text
                    TextBox10.Text = Re
                    If Re > 10000 Then
                        Np = 1.27
                        TextBox9.Text = Np
                    Else
                        Np = 44.5
                        TextBox9.Text = Np
                    End If

                    P = (Np * (RPS ^ 3) * (Da ^ 5) * TextBox4.Text) / 1000
                    TextBox6.Text = P
                End If
                If ComboBox3.SelectedItem = "Paleta plana de 2 palas" Then
                    Vt = (pi * (TextBox12.Text ^ 3) / 4)
                    TextBox5.Text = Vt
                    RPS = (TextBox2.Text / (60))
                    Da = TextBox12.Text * (1 / 2)
                    TextBox8.Text = Da
                    Re = ((Da ^ 2) * (RPS) * TextBox4.Text) / TextBox3.Text
                    TextBox10.Text = Re
                    If Re > 10000 Then
                        Np = 1.7
                        TextBox9.Text = Np
                    Else
                        Np = 36.5
                        TextBox9.Text = Np
                    End If
                    P = (Np * (RPS ^ 3) * (Da ^ 5) * TextBox4.Text) / 1000
                    TextBox6.Text = P
                End If
                If ComboBox3.SelectedItem = "Impulsador HE-3" Then
                    Vt = (pi * (TextBox12.Text ^ 3) / 4)
                    TextBox5.Text = Vt
                    RPS = (TextBox2.Text / (60))
                    Da = TextBox12.Text * (1 / 4)
                    TextBox8.Text = Da
                    Re = ((Da ^ 2) * RPS * TextBox4.Text) / TextBox3.Text
                    TextBox10.Text = Re
                    If Re > 10000 Then
                        Np = 0.28
                        TextBox9.Text = Np
                    Else
                        Np = 43
                        TextBox9.Text = Np
                    End If
                    P = (Np * (RPS ^ 3) * (Da ^ 5) * TextBox4.Text) / 1000
                    TextBox6.Text = P
                End If
                If ComboBox3.SelectedItem = "Cinta helicoidal" Then
                    Vt = (pi * (TextBox12.Text ^ 3) / 4)
                    TextBox5.Text = Vt
                    RPS = (TextBox2.Text / (60))
                    Da = TextBox12.Text * (1)
                    TextBox8.Text = Da
                    Re = ((Da ^ 2) * (RPS) * TextBox4.Text) / TextBox3.Text
                    TextBox10.Text = Re
                    If Re > 10000 Then
                        Np = 1
                        TextBox9.Text = Np
                    Else
                        Np = 52
                        TextBox9.Text = Np
                    End If
                    P = ((Np * (RPS) ^ 3) * (Da ^ 5) * TextBox4.Text) / 1000
                    TextBox6.Text = P
                End If
                If ComboBox3.SelectedItem = "Ancla" Then
                    Vt = (pi * (TextBox12.Text ^ 3) / 4)
                    TextBox5.Text = Vt

                    RPS = (TextBox2.Text / (60))
                    Da = TextBox12.Text * (1)
                    TextBox8.Text = Da
                    Re = ((Da ^ 2) * RPS * TextBox4.Text) / TextBox3.Text
                    TextBox10.Text = Re
                    If Re > 10000 Then
                        Np = 0.35
                        TextBox9.Text = Np
                    Else
                        Np = 300
                        TextBox9.Text = Np
                    End If
                    P = (Np * (RPS ^ 3) * (Da ^ 5) * TextBox4.Text) / 1000
                    TextBox6.Text = P
                End If
            End If

            If RadioButton3.Checked = True Then
                RPS = (TextBox2.Text / 60)
                If ComboBox3.SelectedItem = "Impulsador hélice, 3 palas, paso 1.0" Then
                    Dt = TextBox13.Text * 4
                    TextBox7.Text = Dt
                    Vt = ((pi * (Dt ^ 3)) / 4)
                    TextBox5.Text = Vt
                    Re = ((TextBox13.Text ^ 2) * (RPS) * TextBox4.Text) / TextBox3.Text
                    TextBox10.Text = Re
                    If Re > 1000 Then
                        Np = 0.32
                        TextBox9.Text = Np
                    Else
                        Np = 41
                        TextBox9.Text = Np
                    End If
                    P = (Np * (RPS ^ 3) * (TextBox13.Text ^ 5) * TextBox4.Text) / 1000
                    TextBox6.Text = P
                End If

                If ComboBox3.SelectedItem = "Impulsador hélice, 3 palas, paso 1.5" Then
                    Dt = TextBox13.Text * 4
                    TextBox7.Text = Dt
                    Vt = ((pi * (Dt ^ 3)) / 4)
                    TextBox5.Text = Vt
                    Re = ((TextBox13.Text ^ 2) * (RPS) * TextBox4.Text) / TextBox3.Text
                    TextBox10.Text = Re
                    If Re > 1000 Then
                        Np = 0.87
                        TextBox9.Text = Np
                    Else
                        Np = 48
                        TextBox9.Text = Np
                    End If
                    P = (Np * (RPS ^ 3) * (TextBox13.Text ^ 5) * TextBox4.Text) / 1000
                    TextBox6.Text = P
                End If
                If ComboBox3.SelectedItem = "Turbina de disco de 6 palas" Then
                    Dt = TextBox13.Text * 3
                    TextBox7.Text = Dt
                    If TextBox13.Text = "" Then

                    End If
                    Vt = ((pi * (Dt ^ 3)) / 4)
                    TextBox5.Text = Vt
                    Re = ((TextBox13.Text ^ 2) * (RPS) * TextBox4.Text) / TextBox3.Text
                    TextBox10.Text = Re
                    If Re > 1000 Then
                        Np = 5.75
                        TextBox9.Text = Np
                    Else
                        Np = 65
                        TextBox9.Text = Np
                    End If
                    P = (Np * (RPS ^ 3) * (TextBox13.Text ^ 5) * TextBox4.Text) / 1000
                    TextBox6.Text = P
                End If
                If ComboBox3.SelectedItem = "Turbina de 6 palas inclinadas" Then
                    Dt = TextBox13.Text * 3
                    TextBox7.Text = Dt
                    Vt = ((pi * (Dt ^ 3)) / 4)
                    TextBox5.Text = Vt
                    Re = ((TextBox13.Text ^ 2) * (RPS) * TextBox4.Text) / TextBox3.Text
                    TextBox10.Text = Re
                    If Re > 1000 Then
                        Np = 1.63
                        TextBox9.Text = Np
                    Else
                        Np = 1
                        TextBox9.Text = Np
                    End If
                    P = (Np * (RPS ^ 3) * (TextBox13.Text ^ 5) * TextBox4.Text) / 1000
                    TextBox6.Text = P
                End If
                If ComboBox3.SelectedItem = "Turbina de 4 palas inclinadas" Then
                    Dt = TextBox13.Text * 3
                    TextBox7.Text = Dt
                    Vt = ((pi * (Dt ^ 3)) / 4)
                    TextBox5.Text = Vt
                    Re = ((TextBox13.Text ^ 2) * (RPS) * TextBox4.Text) / TextBox3.Text
                    TextBox10.Text = Re
                    If Re > 1000 Then
                        Np = 1.27
                        TextBox9.Text = Np
                    Else
                        Np = 44.5
                        TextBox9.Text = Np
                    End If
                    P = (Np * (RPS ^ 3) * (TextBox13.Text ^ 5) * TextBox4.Text) / 1000
                    TextBox6.Text = P
                End If
                If ComboBox3.SelectedItem = "Paleta plana de 2 palas" Then
                    Dt = TextBox13.Text * 2
                    TextBox7.Text = Dt
                    Vt = ((pi * (Dt ^ 3)) / 4)
                    TextBox5.Text = Vt
                    Re = ((TextBox13.Text ^ 2) * (RPS) * TextBox4.Text) / TextBox3.Text
                    TextBox10.Text = Re
                    If Re > 1000 Then
                        Np = 1.7
                        TextBox9.Text = Np
                    Else
                        Np = 36.5
                        TextBox9.Text = Np
                    End If
                    P = (Np * (RPS ^ 3) * (TextBox13.Text ^ 5) * TextBox4.Text) / 1000
                    TextBox6.Text = P
                End If
                If ComboBox3.SelectedItem = "Impulsador HE-3" Then
                    Dt = TextBox13.Text * 4
                    TextBox7.Text = Dt
                    Vt = ((pi * (Dt ^ 3)) / 4)
                    TextBox5.Text = Vt
                    Re = ((TextBox13.Text ^ 2) * (RPS) * TextBox4.Text) / TextBox3.Text
                    TextBox10.Text = Re
                    If Re > 1000 Then
                        Np = 0.28
                        TextBox9.Text = Np
                    Else
                        Np = 43
                        TextBox9.Text = Np
                    End If
                    P = (Np * (RPS) * (TextBox13.Text ^ 5) * TextBox4.Text) / 1000
                    TextBox6.Text = P
                End If
                If ComboBox3.SelectedItem = "Cinta helicoidal" Then
                    Dt = TextBox13.Text * 1
                    TextBox7.Text = Dt
                    Vt = ((pi * (Dt ^ 3)) / 4)
                    TextBox5.Text = Vt
                    Re = ((TextBox13.Text ^ 2) * (RPS) * TextBox4.Text) / TextBox3.Text
                    TextBox10.Text = Re
                    If Re > 1000 Then
                        Np = 1
                        TextBox9.Text = Np
                    Else
                        Np = 0.52
                        TextBox9.Text = Np
                    End If
                    P = (Np * (RPS ^ 3) * (TextBox13.Text ^ 5) * TextBox4.Text) / 1000
                    TextBox6.Text = P
                End If
                If ComboBox3.SelectedItem = "Ancla" Then
                    Dt = TextBox13.Text * 1
                    TextBox7.Text = Dt
                    Vt = ((pi * (Dt ^ 3)) / 4)
                    TextBox5.Text = Vt
                    Re = ((TextBox13.Text ^ 2) * (RPS) * TextBox4.Text) / TextBox3.Text
                    TextBox10.Text = Re
                    If Re > 1000 Then
                        Np = 0.35
                        TextBox9.Text = Np
                    Else
                        Np = 300
                        TextBox9.Text = Np
                    End If
                    P = (Np * (RPS ^ 3) * (TextBox13.Text ^ 5) * TextBox4.Text) / 1000
                    TextBox6.Text = P
                End If
            End If



    miércoles, 14 de junio de 2017 2:00
  • fijate en este modulo que armé juntando cosas de varios lados

    Module NUMEROS
        'realizado por Pedro López en Nov 2015
        Public CODIGOSEPARADOR As String = System.Globalization.CultureInfo.CurrentUICulture.NumberFormat.CurrencyDecimalSeparator

        Public Sub PALNUMEROS(EV As KeyPressEventArgs, DECIMALES As Integer, TXB As TextBox)
            REM se llama así
            ' Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
            'PALNUMEROS(e, 2, texbox1)
            ' el 2 es la cantidad de decimales y se puede cambiar
            'End Sub
            REM Fin de comentario

            Dim EnteroCompleto As Boolean = False
            If DECIMALES < 0 Then DECIMALES = 0
            If EV.KeyChar = Convert.ToChar(Keys.Return) Then
                EV.Handled = True
                TXB.Focus()
            ElseIf EV.KeyChar = "."c Or EV.KeyChar = ","c Or EV.KeyChar = "."c Then
                EnteroCompleto = True
                If (TXB.Text.IndexOf(","c) >= 0) Or (DECIMALES = 0) Then
                    EV.Handled = True
                Else
                    If TXB.Text.Length = 0 Then
                        TXB.Text = "0" & CChar(CODIGOSEPARADOR)
                        TXB.SelectionStart = 3
                        EV.Handled = True
                    Else
                        EV.KeyChar = CChar(CODIGOSEPARADOR)  REM","c`.
                    End If
                End If
            ElseIf EV.KeyChar = "-"c And TXB.TextLength = 0 Then
                EV.KeyChar = "-"c
            ElseIf Not (Char.IsControl(EV.KeyChar) Or Char.IsDigit(EV.KeyChar)) Then
                EV.Handled = True
            ElseIf TXB.Text.IndexOf(","c) > 0 Then
                If (TXB.Text.Length - TXB.Text.IndexOf(","c) > DECIMALES) And (TXB.SelectionStart > TXB.Text.IndexOf(","c)) And (Not (Char.IsControl(EV.KeyChar))) Then
                    EV.Handled = True
                End If
            End If
            For n As Integer = 1 To Len(TXB.Text)
                If Mid(TXB.Text, n, 1) = CODIGOSEPARADOR Then
                    Exit Sub
                End If
            Next
        End Sub

    End Module

    Creo que es lo que bscas

    Saludos

    miércoles, 14 de junio de 2017 14:37