Ficha -> 9

Parte gráfica

código


Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Randomize()
        PictureBox1.Visible = False
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Label1.Text = Int(Rnd(10) * 10)
        Label2.Text = Int(Rnd(10) * 10)
        Label3.Text = Int(Rnd(10) * 10)
        If Label1.Text = 7 Or Label2.Text = 7 Or Label3.Text = 7 Then
            PictureBox1.Visible = True
            Label4.Visible = True
            Beep()
            If Label1.Text = 7 And Label2.Text = 7 And Label3.Text = 7 Then
                MsgBox(" ganhou 500 euros ")
            ElseIf (Label1.Text = 7 And Label2.Text = 7) Or (Label1.Text = 7 And Label3.Text = 7) Or (Label2.Text = 7 And Label3.Text = 7) Then
                MsgBox(" ganhou 200 euros ")
            Else
                MsgBox(" ganhou 100 euros ")
            End If
            PictureBox1.Visible = False
            Label4.Visible = False
            Label1.Text = ""
            Label2.Text = ""
            Label3.Text = ""
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim x As Integer
        x = MsgBox("quer mesmo sair?", MsgBoxStyle.YesNo, " sair ")
        If x = vbYes Then
            Close()
        End If
    End Sub
End Class

ficha -> 8

 Parte gráfica

código

<Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox3.Text = LCase(TextBox1.Text)
        TextBox2.Text = UCase(TextBox1.Text)
        TextBox4.Text = Len(TextBox1.Text)
        Dim i As Integer
        For i = 1 To Len(TextBox1.Text)
            ListBox1.Items.Add(Mid(TextBox1.Text, i, 1))
        Next
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        TextBox1.Text = " "
        TextBox2.Text = " "
        TextBox3.Text = " "
        TextBox4.Text = " "
        ListBox1.Items.Clear()
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim x As Integer
        x = MsgBox("Quer mesmo sair", MsgBoxStyle.YesNo)
        If x = vbYes Then
            Close()
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        ListBox1.Items.Remove(ListBox1.SelectedItem)
    End Sub


End Class

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