Exercício 7 ficha 3

Ambiente gráfico:

Agora vamos ao codigo:

Textboxs:

                 texbox para inserir o resultado:
                                                                  Private Sub Oper1_Change()
                                                                  End Sub


Labels:

             laabel onde esta escrito "Digite a  sua altura: ":

                                                                                       Private Sub Label2_Click()

                                                                                       End Sub

         

            label onde aparece o resultado:
                                                                 Private Sub resultado_Click()
                                                                 End Sub

Botões:
            botão onde esta escrito "clique para saber o seu peso ideal":

                                                                                             Private Sub cmdoperacao_Click()

                                                                                             resultado.Caption = (Val(oper1.Text) * 72.2) - 58

                                                                                             End Sub

            

            botão sair:
                                Private Sub cmdsair_Click()
                                End
                                End Sub

Exercício 5 ficha 3

Ambiente gráfico:

Agora vamos ao codigo:

Textboxs:
                 texbox para inserir o resultado:
                                                                  Private Sub Oper1_Change()
                                                                  End Sub


Labels:

             laabel onde esta escrito "Digite a temperatura: ":

                                                                                       Private Sub Label2_Click()

                                                                                       End Sub
                      

            label onde está escrito "Resultado:":
                                                                           Private Sub Label1_Click()
                                                                           End Sub
         
            label onde aparece o resultado:
                                                                 Private Sub resultado_Click()
                                                                 End Sub

Botões:
            botão onde esta escrito "Converter para Fahrenhei":

                                                                                            Private Sub cmdconverter_Click()

                                                                                            resultado.Caption = 9 / 5 * Val(oper1.Text) + 32

                                                                                            End Sub

            
             botão sair:
                                Private Sub cmdsair_Click()
                                End
                                End Sub

Exercício 4 ficha 3

Agora vamos ao codigo:

Textboxs:

                 texbox para inserir o raio:
                                                            Private Sub Oper1_Change()
                                                            End Sub


Labels:
            label onde está escrito "Resultado:":
                                                                           Private Sub Label1_Click()
                                                                           End Sub
         
            label onde aparece o resultado:
                                                                 Private Sub resultado_Click()
                                                                 End Sub

            label onde está escrito"Digite o raio do circulo:
                                                                                     Private Sub Label2_Click()
                                                                                     End Sub

Botões:

      

            botão da área:
                                            Private Sub cmdarea_Click()

                                            resultado.Caption = (Val(oper1.Text)^2) * pi

                                            End Sub

            
             botão sair:
                                Private Sub cmdsair_Click()
                                End
                                End Sub

Constantes:

                     const pi As double=3.141592655358979

Exercicio 3 ficha 3

Ambiente grafico:

Agora vamos ao codigo:

Textboxs:
                 texbox da direita:
                                                         Private Sub Oper1_Change()
                                                         End Sub

                textbox da esquerda:
                                                         Private Sub Oper2_Change()
                                                         End Sub

Labels:
            label onde está escrito "Resultado:":
                                                                           Private Sub Label1_Click()
                                                                           End Sub
         
            label onde aparece o resultado:
                                                                 Private Sub resultado_Click()
                                                                 End Sub

Botões:
            botão do perimetro:
                                                Private Sub cmdperimetro_Click()

                                                resultado.Caption = (Val(oper1.Text) * 2) + (Val(oper2.Text) * 2)

                                                End Sub  

      
            botão da area:
                                            Private Sub cmdarea_Click()

                                            resultado.Caption = Val(oper1.Text) * Val(oper2.Text)

                                            End Sub

            
             botão sair:
                                Private Sub cmdsair_Click()
                                End
                                End Sub

                                       Exercicio 2 ficha 3

Ambiente graficio:

Agora vamos ao codigo:

Textboxs:
                 texbox da direita:
                                                         Private Sub Oper1_Change()
                                                         End Sub

                textbox da esquerda:
                                                         Private Sub Oper2_Change()
                                                         End Sub

Labels:
            label onde está escrito "Resultado:":
                                                                           Private Sub Label1_Click()
                                                                           End Sub
         
            label onde aparece o resultado:
                                                                 Private Sub resultado_Click()
                                                                 End Sub

Botões:
            botão do quociente:
                                                  Private Sub cmdquociente_Click()

                                                  resultado.Caption = Val(oper1.Text) / Val(oper2.Text)

                                                  End Sub

      
            botão do resto:
                                            Private Sub cmdresto_Click()

                                            resultado.Caption = Val(oper1.Text) Mod Val(oper2.Text)

                                            End Sub

            
             botão sair:
                                Private Sub cmdsair_Click()
                                End
                                End Sub

                                       Exercicio 1 ficha 3

 Ambiente grafico:

Agora vamos ao codigo:

Textboxs:
                 texbox da direita:
                                              Private Sub Oper1_Change()
                                              End Sub

                textbox do meio:
                                              Private Sub Oper2_Change()
                                              End Sub

                texbox da esquerda:

                                                     Private Sub Oper2_Change()

                                                     End Sub

                                               

Labels:
            label onde está escrito "Resultado:":
                                                                           Private Sub Label1_Click()
                                                                           End Sub
         
            label onde aparece o resultado:
                                                                 Private Sub resultado_Click()
                                                                 End Sub

Botões:
            botão da media:
                                        Private Sub cmdmedia_Click()

                                        resultado.Caption = (Val(Oper1.Text) + Val(Oper2.Text) + Val(Oper3.Text)) / 3

                                        End Sub

          
            botão de subtração:
                                            Private Sub cmdmenos_Click()
                                            resultado.Caption = Val(Oper1.Text) - (Oper2.Text)
                                            End Sub

                                              
             botão sair:
                                Private Sub cmdsair_Click()
                                End
                                End Sub

                                                        Exercício 1 ficha 2

Ambiente gráfico:

E agora vamos ao  código!
     
Textboxs:
                 texbox de cima:
                                              Private Sub Oper1_Change()
                                              End Sub

                textbox de baixo:
                                              Private Sub Oper2_Change()
                                              End Sub

Labels:
            label onde está escrito "Resultado:":
                                                                           Private Sub Label1_Click()
                                                                           End Sub
         
            label onde aparece o resultado:
                                                                 Private Sub resultado_Click()
                                                                 End Sub

Botões:
            botão de somar:
                                        Private Sub cmdmais_Click()
                                        resultado.Caption = Val(Oper1.Text) + Val(Oper2.Text)
                                        End Sub
         
            botão de subtração:
                                            Private Sub cmdmenos_Click()
                                            resultado.Caption = Val(Oper1.Text) - (Oper2.Text)
                                            End Sub

            botão de multiplicar:
                                              Private Sub cmdmultiplicar_Click()
                                              resultado.Caption = Val(Oper1.Text) * Val(Oper2.Text)
                                              End Sub

             botão de divisão:
                                            Private Sub cmddividir_Click()
                                            resultado.Caption = Val(Oper1.Text) / Val(Oper2.Text)
                                            End Sub
                                             
             botão sair:
                                Private Sub cmdsair_Click()
                                End
                                End Sub

               

           
                                                       

                                                       Exercício 1 ficha 1

Ambiente gráfico da aplicação:

Agora vamos ao código!

Textboxs:
                 Textbox lado direito:
                                                     Private Sub Oper1_Change()
                                                     End Sub

                 Textbox lado esquerdo:
                                                         Private Sub Oper2_Change()
                                                         End Sub




Labels:
            Símbolo do +  no meio das textbox:
                                                                       Private Sub Simbolo_Click()
                                                                       End Sub

             Label (onde aparece o resultado):
                                                                    Private Sub resultado_Click()
                                                                    End Sub



Botões:

               Botão =:
                               Private Sub cmdigual_Click()
                               resultado.Caption = Val(Oper1.Text) + Val(Oper2.Text)


              botao sair:
                                Private Sub cmdsair_Click()
                                End
                                End Sub
 

O que é?
              O Visual Basic é uma linguagem de alto nível de programação produzida pela empresa Microsoft, e é parte integrante do pacote Microsoft Visual Studio.O Visual Basic foi criado em 1988 por Alan Cooper.

Visual — Ambiente de programação orientada para objetos gráficos que o utilizador e o programador podem manipular.

 Basic — a linguagem e programação que está associada a este ambiente é com a qual terão de ser escritos os programas 

Quais são as principais características do visual basic?

 A linguagem é dirigida por eventos (event driven), e possui também um ambiente de desenvolvimento integrado (IDE - Integrated Development Environment) totalmente gráfico, facilitando a construção da interface das aplicações (GUI - Graphical User Interface), daí o nome "Visual".
No Visual Basic, os objectos possuem um conjunto de propriedades e de procedimentos:

•       As propriedades permitem determinar a aparência e comportamento do objecto.

•     Os procedimentos consistem no código que será executado quando ocorrer um determinado evento.

•     Um evento é algo que ocorre na aplicação e possui um determinado significado para o sistema, desencadeando uma determinada acção (carregar num botão, fechar uma janela, etc.).

• Os ficheiros que constituem um projeto são de quatro tipos:

  ·         FORM (extensão FRM) – estes ficheiros contêm os interfaces com os utilizadores e respetivos objetos.

  ·         MÓDULOS (extensão BAS) – estes ficheiros contêm os procedimentos, funções e declarações globais (são reconhecidas em toda a aplicação).

  ·         CLASSES (extensão CLS) – ficheiros onde se definem as características das classes, incluindo as suas propriedades e métodos.

  ·         RESOURCE FILES – estes permitem acrescentar ficheiros de texto ou BMP à aplicação.

Como está o visual basic na atualidade?

A partir de 2002 (a primeira versão da plataforma .Net) a linguagem Visual Basic mudou em vários aspetos. Ganhou muitos recursos utilizados anteriormente em outras linguagens como Java e C++, porém continuou com a mesma sintaxe, mas por ser Orientado a Objetos as suas funções e métodos foram encapsulados em namespaces e classes.

Outras grandes melhorias com a plataforma .Net que fortaleceram a linguagem foi a possibilidade de programação para WEB (ASP.Net), dispositivos móveis, Windows Forms e mais recentemente Silverlight. O acesso a dados, que sempre foi um dos principais recursos, foi melhorado com o ADO.Net (baseado em XML) permite um acesso desconectado com o banco de dados.