Artigos .NET 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