none
Boa Noite! Como posso saber qual o maior e menor numero num textbox?? RRS feed

  • Pergunta

  • este programa consiste em inserir numeros num textbox multiline e depois ao click num botao ele diz qual o maior e menor noutro txtbox. agora na subrotina de enviar o maior e menor numero tenho de fazer um ciclo que percorra o textbox onde estao os numeros inseridos??Obrigado

    Private Sub BtAdd_Click(sender As System.Object, e As System.EventArgs) Handles BtAdd.Click


    numero = TxtIntNum.Text



    ListaNum.AppendText(numero & vbCrLf)




    TxtIntNum.Text = ""
    End Sub

      Private Sub BtCalc_Click(sender As System.Object, e As System.EventArgs) Handles 

    sexta-feira, 19 de abril de 2013 23:35

Todas as Respostas

  • Bom dia amigo!

    Conseguiu resolver seu problema?

    Eu encontrei uma solução simples, caso você ainda não tenha resolvido. Eu resolvi isso percorrendo o textbox multiline e adicionando os valores em um array. Depois ordenei o array pelo método sort e aí exibi o primeiro e o ultimo item do array.

    Segue o código:

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            If Me.TextBox1.Text <> "" Then
                Me.TextBox2.Text = ""
                Dim array As New ArrayList
                For i As Integer = 0 To Me.TextBox1.Lines.Count - 1
                    array.Add(CInt(Me.TextBox1.Lines(i).ToString))
                Next
                array.Sort()
                Me.TextBox2.Text = "O Menor é:" & array(0).ToString & vbCrLf & "O Maior é:" & array(array.Count - 1)
            End If
        End Sub

    Espero ter ajudado.

    Att.

    Giovani

    • Sugerido como Resposta Marques Junior sexta-feira, 3 de maio de 2013 13:17
    sexta-feira, 3 de maio de 2013 12:58