Atividade: Escreva um programa em Visual Basic que contenha um relogio com a hora atual e um cronometro.Resolucao:Public Class Form1 Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick If (Label1.Text < 59) Then Label1.Text = Label1.Text + 1 Else Label1.Text = 0 Label2.text = Label2.Text + 1 End If End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Timer1.Enabled = True End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Timer1.Enabled = False End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Label1.Text = 0 Label2.Text = 0 End Sub Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick Label3.Text = DateTime.Now.ToLongTimeString End SubEnd Class Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim ano As Integer Dim p As Single ano = 1995 p = 15.6 Do While p < 30 p = (1 + 0.03) * p ano = ano + 1 Loop TextBox2.Text = Convert.ToString(ano) End SubEnd Class Atividade: Construa um cadastro de usuarios de uma lanhouse em pascal e um tutorial de utilizacao do mesmo.Resolucao:Program lan_house ;Var nome, cidade, endereco: string;Var idade, tel: integer; Begin Writeln ('Cadastro'); Writeln ('Nome completo:'); readln (nome); Writeln ('Idade:'); readln (idade); Writeln ('Cidade:'); readln (cidade); Writeln ('Endereco:'); readln (endereco); Writeln ('Telefone:'); readln (tel); Writeln ('Confimacao do cadastro'); Writeln (nome); Writeln (idade); Writeln (cidade); Writeln (endereco); Writeln (tel); End. Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If (TextBox1.Text >= 5) Or (TextBox1.Text <= 7) Then TextBox2.Text = "InfantilA" End If If (TextBox1.Text = 8) Or (TextBox1.Text = 9) Or (TextBox1.Text = 10) Or (TextBox1.Text = 11) Then TextBox2.Text = "InfantilB" End If If (TextBox1.Text = 12) Or (TextBox1.Text = 13) Then TextBox2.Text = "JuvenilA" End If If (TextBox1.Text = 14) Or (TextBox1.Text = 15) Or (TextBox1.Text = 16) Or (TextBox1.Text = 17) Then TextBox2.Text = "JuvenilB" End If If (TextBox1.Text >= 18) Then TextBox2.Text = "Adulto" End If End Sub End Class Atividade:Escreva um programa em Visual Basic que permita ao utilizador inserir numeros e, apos a entrada de cada um, visualizar o somatorio e a quantidade de numeros introduzidos. O programa devera permitir que o utilizador recomece a contagem.Resolucao:Public Class Form1 Dim somatorio As Integer Dim quantidade As Integer Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click somatorio = somatorio + Convert.ToInt16(TextBox1.Text) TextBox2.Text = somatorio quantidade = quantidade + 1 TextBox3.Text = quantidade End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click TextBox1.Clear() TextBox2.Clear() TextBox3.Clear() End SubEnd Class Atividade:Escreva um programa em Visual Basic que para converter numeros binarios em decimalResolucao:Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim N1, N2, N3, N4, N5, N6, N7, N8 As Integer Dim Resultado As Integer N1 = 1 * TextBox1.Text N2 = 2 * TextBox2.Text N3 = 3 * TextBox3.Text N4 = 4 * TextBox4.Text N5 = 5 * TextBox5.Text N6 =