Baixe o app para aproveitar ainda mais
Prévia do material em texto
Considere que você foi contratado para trabalhar em um avançado laboratório de engenharia de projetos astronômicos. Este laboratório precisa desenvolver programas para conversões de medidas para automatizar os seus processos. Codifique uma Console Application (programa em modo console baseado em caracteres) em linguagem VB .NET que apresente a mensagem "Digite a medida em Parsecs: ", obtenha a medida em Parsecs como entrada de dados do usuário, converta a medida para milhas marítima e exiba a mensagem "A medida em milhas marítima é: " e a medida convertida na mesma linha. Declare o fator de conversão como uma constante chamada Fator. A constante Fator que deve ser usada no cálculo da conversão. Declare a constante chamada Fator de valor igual a 1,67 x 1013 (1,67 vezes 10 elevado a treze), sabendo-se 1 Parsec equivale a 1,67 x 1013 milhas marítima. Declare a constante chamada Fator e a variável chamada Medida do tipo ponto flutuante simples para ocupar menos espaço de memória. Resposta: Module Module1 Sub Main() Const Fator As Single = 16700000000000.0 Dim Medida As Single Console.Write("Digite a medida em Parsecs: ") Medida = Console.ReadLine() Medida = Medida * Fator Console.Write("A medida em milhas marítima é: ") Console.WriteLine(Medida) End Sub End Module Preencha as duas lacunas a seguir de linhas de código Declare a constante chamada Fator e a variável chamada Medida do tipo ponto flutuante simples para ocupar menos espaço de memória. Module Module1 Function AreaQuadrado(ByVal Comprimento As Double) ' calcula a área do quadrado (.....................................) End Function Function VolumeCubo(ByVal Comprimento As Double) ' calcula o volume do cubo CHAMANDO A FUNÇÃO AreaQuadrado (.....................................) End Function Sub Main() Console.WriteLine(VolumeCubo(3.0)) Console.ReadKey() End Sub End Module Resposta: Return Comprimento*Comprimento Return AreaQuadrado(Comprimento)*Comprimento Explique e exemplifique as vantagens da utilização da Herança, baseado nos conceitos apresentados na disciplina sobre Orientação a Objetos. Resposta: A herança permite o reaproveitamento do código entre classes utilizando-se o conceito de generalização e especialização. Exemplo: Gerar uma classe pessoa, com nome e endereço e duas classes Pessoa Física e Pessoa Jurídica que herdam todas as características de pessoa e tem como características próprias: Física – CPF e Jurídica – CGC. Crie uma função, chamada de “CalcIdade”, que receba o ano atual e o ano de nascimento de uma pessoa e ao final retorne a sua idade. Resposta: Function CalcIdade( ByVal anoAtual As Integer, ByVal AnoNasc As Integer) return anoAtual - AnoNasc End Function Cite e explique no mínimo dois componentes para manipulação de dados armazenados em bancos de dados utilizando o SQL Server 2008 R2. Resposta: DataSet - É uma representação em memória de uma coleção de tabelas. DataTable - Representa uma tabela de um banco de dados. DataRow - Representa uma linha da tabela. DataColumn - Representa uma coluna da tabela. DataView - Representa uma visão de uma coleção de tabelas. Crie um programa em VB para console que permita a entrada de dois números reais e exiba a média. Sendo que: caso seja digitado valores inadequados (como um texto ou dois zeros etc), o programa não pode travar, deve exibir uma mensagem informando que os dados possuíam erro e deveriam ser digitados novamente. Resposta: Module Module1 Sub Main() Dim n1, n2, media As Single Dim sair As Integer Do Try Console.WriteLine("Digite a primeira nota: ") n1 = Console.ReadLine Console.WriteLine("Digite a segunda nota: ") n2 = Console.ReadLine media = (n1 + n2) / 2 Console.WriteLine("A média é: " & media) sair = 1 Catch ex As Exception Console.WriteLine("Digite um numero valido") sair = 0 End Try Loop Until (sair = 1) Console.ReadKey() End Sub End Module Uma loja chamada DVDShop comercializa DVDs em toda a América Latina e utiliza um sistema chamado DVDSystem para controle de estoque e vendas de DVDs. O sistema tem um banco de dados e o gerente da loja precisa atualizar o preço para 49.99 de TODOS os DVDs QUE TENHAM o título Uma Linda Mulher, que estão cadastrados na tabela chamada TabelaDVD, diretamente do banco de dados usando um comando em SQL porque a aplicação parou de funcionar. Qual é o comando SQL que o gerente deve executar considerando que a TabelaDVD foi criada pelo analista de banco de dados (DBA) usando-se o comando SQL a seguir? USE VENDAS GO CREATE TABLE TabelaDVD ( ID bigint NOT NULL, Titulo nvarchar(50) NULL, NomeArtistaPrincipal nvarchar(50) NULL, Ano smalldatetime NULL, Preco decimal(10,2) NULL ) GO Resposta: UPDATE TabelaDVD SET Preco = 49.99 WHERE Titulo = 'Uma Linda Mulher' Uma loja chamada DVDShop comercializa DVDs em toda a América Latina e utiliza um sistema chamado DVDSystem para controle de estoque e vendas de DVDs. O sistema tem um banco de dados e o gerente da loja precisa saber a quantidade de DVDs com ano de lançamento de 1990, que estão cadastrados na tabela chamada TabelaDVD, diretamente do banco de dados usando um comando em SQL porque a aplicação parou de funcionar. Qual é o comando SQL que o gerente deve executar considerando que a TabelaDVD tem a coluna Titulo para armazenar os títulos dos DVDs e a coluna NomeArtistaPrincipal para armazenar os nomes dos artistas principais dos DVDs e a coluna Ano para armazenar os anos de lançamentos dos DVDs? Resposta: SELECT COUNT (*) FROM TabelaDVD WHERE Ano = '1990' Considere que você foi contratado para trabalhar em uma empresa softwares para realizar manutenção de programas em VB .NET. Analise o programa a seguir em VB .NET. O programa apresentará erro de compilação? Responda SIM ou NÃO. Caso a sua resposta seja SIM, responda qual é o erro. Caso a sua resposta seja NÃO, responda quais são os números exibidos pelo programa. Module Module1 Sub Main() Dim Contador As Byte = 3 Do Until Not (Contador <= 9) Console.WriteLine(Contador) Contador = Contador + 2 Loop Console.ReadKey() End Sub End Module Resposta: NÃO. Exibirá: 3, 5, 7, 9 Considere que você foi contratado para trabalhar em uma empresa softwares para realizar manutenção de programas em VB .NET. Analise o programa a seguir em VB .NET. O programa apresentará erro de compilação? Responda SIM ou NÃO. Caso a sua resposta seja SIM, responda qual é o erro. Caso a sua resposta seja NÃO, responda quais são os números exibidos pelo programa. Module Module1 Sub Main() Dim Contador As Byte = 2 Do Until Not (Contador <= 9) Console.WriteLine(Contador) Contador = Contador + 2 Loop Console.ReadKey() End Sub End Module Resposta: Não. Exibirá: 2,4,6,8. Uma loja chamada DVDShop comercializa DVDs em toda a América Latina e utiliza um sistema chamado DVDSystem para controle de estoque e vendas de DVDs. O sistema tem um banco de dados e o gerente da loja precisa consultar o ano de lançamento de DVD mais antigo de todos os DVDs cadastrados na tabela chamada TabelaDVD, diretamente do banco de dados usando um comando em SQL porque a aplicação parou de funcionar. Qual é o comando SQL que o gerente deve executar considerando que a TabelaDVD tem a coluna Titulo para armazenar os títulos dos DVDs e a coluna NomeArtistaPrincipal para armazenar os nomes dos artistas principais dos DVDs e a coluna Ano para armazenar os anos de lançamentos dos DVDs? Resposta: SELECT MIN (Ano) FROM TabelaDVD. Com as recentes descobertas de reservas de petróleo e gás na camada pré-sal na costa brasileira, a delimitação das fronteiras marítimas tornaram-se ainda mais fundamentais para a proteçãodas riquezas Nacionais. Em 1982, a ONU adotou a Convenção das Nações Unidas sobre os Direitos do Mar, que estabelece a Plataforma Continental (PC) com 350 milhas marítimas de largura, a contar do limite externo do mar territorial (linha de base). Considere que você tem um equipamento que mede a distância em quilômetros da sua embarcação em relação a linha de base e você precise de um programa que determine se você está dentro da Plataforma Continental ou não. Codifique uma Console Application (programa em modo console baseado em caracteres) em linguagem VB .NET que que apresente a mensagem "Digite a distância em quilômetros: ", obtenha a distância em quilômetros como entrada de dados do usuário, converta a medida para milhas marítima, teste se a distância está dentro da Plataforma Continental e exiba a mensagem "Dentro da Plataforma Continental" se estiver dentro do limite da Plataforma Continental ou a mensagem "Além da Plataforma Continental" se a distância estiver além do limite da Plataforma Continental. Defina um fator de conversão como uma constante chamada Fator do tipo inteiro sem sinal e que seja suficiente para armazenar o valor 1852 e ocupe o menor espaço de memória possível. Esta constante Fator deve ser usada no cálculo da conversão de quilômetros para milhas marítimas, sabendo-se que 1 milha marítima equivale a 1852 metros. Delfina uma constante chamada Limite do tipo inteiro sem sinal e que seja suficiente para armazenar o valor 350 e ocupe o menor espaço de memória possível. Esta constante Limite deve ser usada para testar se a distância está ou não dentro do limite da Plataforma Continental. Use a estrutura de controle condicional If para o teste. Declare uma variável chamada Distancia do tipo ponto flutuante simples para ocupar menos espaço de memória. Resposta: Module Module1 Sub Main() Const Fator As UShort = 1852 Const Limite As UShort = 350 Dim Distancia As Single Console.Write("Digite a distância em quilômetros: ") Distancia = Console.ReadLine() Distancia = Distancia * 1000 Distancia = Distancia / Fator If (Distancia <= Limite) Then Console.Write("Dentro da Plataforma Continental.") Else Console.Write("Além da Plataforma Continental.") End If End Sub End Module Considere o menu Cadastro da interface homem-máquina (IHM) do Sistema de Controle de Vendas mostrado na figura a seguir e defina as duas linhas de códigos em VB.NET para as duas lacunas a seguir para que quando o usuário der um duplo clique sobre o item de menu Cliente, o sistema crie um objeto chamado ClienteForm1 da classe ClienteForm, que é um Windows Form pré definido, e em seguida exiba o ClienteForm1. Private Sub ClienteToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles ClienteToolStripMenuItem.Click Resposta: Dim ClienteForm1 As New ClienteForm CienteForm1.Show()
Compartilhar