Nem o Arthur aguentava mais, hoje de manha, levantou dizendo:Nao quero saber mais de Neymar machucado, hein? Agora so quero saber dele quando estiver sarado. 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 = 0 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 Google docsVoce pode fazer qualquer operacao basica em um tempo curto,la voce podera criar; documentos, apresentacoes online planilhas etc..Ele aceita todos os formatos de ficheiros; Ex: DOC, PPT, XLS etc.Voce podera trocar as configuracoes de escrita dando utilizando a barra de ferramentas;Voce podera escolher quem pode ou nao ver seus documentos colocando seguranca;Para que as pessoas vejam os seus documentos voce deve adiciona-las; Voce pode organizar seus documentos de uma maneira mais facil de localiza-los;Podera publicar seus documentos atraves de um clique;Voce pode publicar para quem voce quiser, ou so pra amigos, ou pra ninguem, voce que escolhe;Voce pode enviar os seus documentos para o seu blog. 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 = 4 * TextBox3.Text N4 = 8 * TextBox4.Text N5 = 16 * TextBox5.Text N6 = 32 * TextBox6.Text N7 = 64 * TextBox7.Text N8 = 128 * TextBox8.Text Resultado = N1 + N2 + N3 + N4 + N5 + N6 + N7 + N8 TextBox9.Text = Resultado End SubEnd Class Construa um cadastro de usuarios de uma lanhouse em pascal e um tutorial de utilizacao do mesmo.Tutorial do cadastro em uma Lanhouse!1- Digite o seu nome;2- Depois digite sua idade;3- Digite seu email;4- Digite o seu endereco;5- Digite seu telefone se houver um;6- Digite a cidade onde voce mora;7- Entao espere mais um pouco e o programa ira mostrar a confirmacao do seu cadastro.Resolucao:Program Cadastro;Var nome, cidade, email, endereco: String ;Var telefone, idade: Integer ;BeginWriteln (' digite o seu nome completo ') ;Readln ( nome ) ;Writeln (' digite sua idade ') ;Readln ( idade ) ;Writeln (' digite o seu email ') ;Readln ( email ) ;Writeln (' digite seu endereco ') ;Readln ( endereco ) ;Writeln (' digite seu telefone ') ;Readln ( telefone ) ;Writeln (' digite a cidade onde mora ') ;Readln ( cidade ) ;Writeln (' Confirmao do cadastro ') ;Writeln (' nome do cliente ');Writeln