OOP - Object Oriented Programming Languuage

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (0)  (1)

um pouco sobre OOP - Object Oriented Programming Languuage)


OOP - Object Oriented Programming Languuage ou Linguagem de programação orientada a objetos ate o vb 6.0 o tínhamos uma linguagem estruturada com esta mudança tivemos ganhos em escabilidade , na reutilização do código , na depuração do código sem falar nas inúmeras ferramentas que vieram com o Visual Studio.

O UDT (User Defined Types) no VB 6.0 foi o ponto de partida para os objetos.

Vejamos um exemplo .

Digamos que queira guardar informações sobre automóveis ( cor , ano ).

Se criarmos variáveis para guardar tais dados ,imagine o trabalho se por um acaso tivéssemos 200 carros. Com O UDT se tentou resolver este problema, vejamos como era no VB.

Public Type Carro

    Cor as string

    Ano as strng

End Type

 

Em General Declarations

Dim NewCarro as Carro        

 

No evento Load do form

Private Sub Form_Load()

            NewCarro.cor = “Branco”

            NewCarro.ano  = “2005”

End sub

 

Depois em determinado evento carregaríamos para um text ou label.

 

No VB.NET ficou assim

 

Public Structure Carro

      Dim Cor AS String

      Dim Ano AS String

End Structure

 

Para se carregar os valores em uma msgbox por exemplo

 

Dim Gol As Carro

 

Gol.Cor = “branco”

Gol.Ano = “2005”

 

MsgBox  = “ O Carro de cor “  & Gol.Cor & “ de ano de fabricação “ & Gol.Ano

 

Bem agora veremos o mesmo exemplo mas na forma de uma casse.

 

Class Carro

            Dim Cor_carro as String

            Dim Ano_carro As String

 

Sub Carros (ByVal Cor as String, ByVal Ano as String )

            Me.Cor_carro = Cor

            Me.Ano_carro = Ano

End sub

 

Sub Chamar()

MsgBox  = “ O Carro de cor “  & Me.Cor_carro & “ de ano de fabricação “ & Me.Ano_carro

End sub

 

No form

 

Public Class Frm_principal

            Inherits System.Windows.Forms.Form           

 

Private Sub Frm_Principal ( ByVal sender as System.Object, ByVal e As System.EventArgs)

           

            Dim Carro As New Carros ()

                        Carro.Carros( “branco” , “2005” )

                        Carro.Chamar()

End sub

           

End Class

 

Bem por hoje e isto abraços


 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Receba nossas novidades
Ficou com alguma dúvida?