Ficha -> 5

Parte Gráfica

Parte do Código

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim x As Single

        x = Val(TextBox1.Text)

        TextBox3.Text = Math.Sqrt(x)

        Label7.Text = " Permite obter a parte inteira de um número "

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Dim x As Single

        x = Val(TextBox1.Text)

        TextBox3.Text = Int(x)

        Label7.Text = " Permite obter a parte inteira de um número "

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        Dim x As Single

        x = Val(TextBox1.Text)

        TextBox3.Text = Math.Round(x, 2)

        Label7.Text = " Arredonda valores decimais num número especificado de casas"

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        Dim x As Single

        x = Val(TextBox1.Text)

        TextBox3.Text = Int(Rnd() * 10) + 1

        Label7.Text = " Permite gerar número aleatórios "

    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click

        Dim x As Single

        x = Val(TextBox1.Text)

        TextBox3.Text = Format(x, "0.000")

        Label7.Text = " Permite a formação de valores "

    End Sub

    Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click

        Label4.Text = Today()

        Label5.Text = TimeOfDay()

        Label7.Text = " Permite mostrar a data e hora actual "

    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

        TextBox3.Text = Len(TextBox2.Text)

        Label7.Text = " Permite contar o número de caracteres numa string "

    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click

        TextBox3.Text = InStr(TextBox2.Text, " ")

        Label7.Text = " Permite localizar uma porção de texto ou uma caracter numa string "

    End Sub

    Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click

        TextBox3.Text = Trim(TextBox2.Text)

        Label7.Text = " Permite retirar todos os espaços do inicio edo final de uma string"

    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

        TextBox3.Text = UCase(TextBox2.Text)

        Label7.Text = " permite converter todas as letras da string para Maíusculas "

    End Sub

    

    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click

        TextBox3.Text = LCase(TextBox2.Text)

        Label7.Text = "permite converter todas as letras da string para as minisculas"

    End Sub

    Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click

        Dim x As Single

        x = Val(TextBox1.Text)

        TextBox3.Text = " determinar o valor  absoluto do número especificado "

    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click

        TextBox3.Text = Microsoft.VisualBasic.Left(TextBox2.Text, 4)

        Label7.Text = " obtem o nº especificado de caracters a partir da esquerda "

    End Sub

    Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click

        TextBox3.Text = Microsoft.VisualBasic.Left(TextBox2.Text, 4)

        Label7.Text = " obtem o nº especificado de caracters a partir da direita "

    End Sub

    Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click

        TextBox3.Text = Mid(TextBox2.Text, 4, 2)

        Label7.Text = " obtem o nº especificado de caracters a partir de uma posição "

    End Sub

    Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click

        TextBox1.Text = ""

        TextBox2.Text = ""

        TextBox3.Text = ""

        TextBox1.Focus()

    End Sub

    Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click

        Dim x As String

        x = MsgBox("quer mesmo sair", MsgBoxStyle.YesNo)

        If x = vbYes Then

            Close()

        End If

    End Sub