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