Visio - Facilitando a criação de classes

A criação do diagrama de classes no Visio pode se tornar um grande facilitador para gerar o código as classes. Neste artigo vou mostrar como podemos desenhar 3 classes e já gerar o código de uma forma mais completa.

por Alexandre Tarifa

A criação do diagrama de classes no Visio pode se tornar um grande facilitador para gerar o código as classes. Neste artigo vou mostrar como podemos desenhar 3 classes e já gerar o código de uma forma mais completa.

Criando um novo Diagrama.

Inicie um novo diagrama de UML (Figura 1), e selecione um modelo estático (Static Structure - figura 2).

Figura 1

Figura 2

Vamos criar 3 classes - carro, cliente e aluguel, conforme figura 3.

Figura 3.

Após a montagem de um simples diagrama vamos gerar as classes em VB.NET. Selecione no menu UML, Code e Generate. Uma nova janela é aberta, selecione como Target Language: VB.Net, o caminho das classes e selecione todas as classes (figura 4). Clique em OK. As três classes são geradas no diretório selecionado. Vamos abrir a classe Carro.

" Static Model
Public Class Cliente

    Public Sub Cadastrar()

    End Sub

End Class " END CLASS DEFINITION Cliente

Podemos facilitar a geração das classes já com as propriedades definidas na classe. Vá no menu UML -> Code -> Preferences, Target Language = Visual Basic, , Na lista Default selecione Attributes -> Template - Attribute 1 -> Edit. Edite o Template da seguinte maneira:

%comments% " adiciona no código os comentários que foram colocador no visio 
Private _%attrib_name% As %type_name% " Variavel interna da classe 
%visibility% Property %attrib_name% () As %type_name% " Nome do atributo criado 
Get 
Return _%attrib_name% 
End Get 
Set(ByVal Value As %type_name%) 
_%attrib_name% = Value 
End Set 
End Property

Vamos gerar novamente as classes.

" Static Model
Public Class Cliente

 "adiciona no código os comentários que foram colocador no visio 
Private _CPF As String " Variavel interna da classe 
Private Property CPF () As String " Nome do atributo criado 
Get 
Return _CPF 
End Get 
Set(ByVal Value As String) 
_CPF = Value 
End Set 
End Property 

 " adiciona no código os comentários que foram colocador no visio 
Private _Nome As String " Variavel interna da classe 
Private Property Nome () As String " Nome do atributo criado 
Get 
Return _Nome 
End Get 
Set(ByVal Value As String) 
_Nome = Value 
End Set 
End Property 

 " adiciona no código os comentários que foram colocador no visio 
Private _Endereco As String " Variavel interna da classe 
Private Property Endereco () As String " Nome do atributo criado 
Get 
Return _Endereco 
End Get 
Set(ByVal Value As String) 
_Endereco = Value 
End Set 
End Property 

 " adiciona no código os comentários que foram colocador no visio 
Private _Telefone As String " Variavel interna da classe 
Private Property Telefone () As String " Nome do atributo criado 
Get 
Return _Telefone 
End Get 
Set(ByVal Value As String) 
_Telefone = Value 
End Set 
End Property 

 " adiciona no código os comentários que foram colocador no visio 
Private _Divida As String " Variavel interna da classe 
Private Property Divida () As String " Nome do atributo criado 
Get 
Return _Divida 
End Get 
Set(ByVal Value As String) 
_Divida = Value 
End Set 
End Property 

	Public Sub Cadastrar ()
		
	End Sub

End Class " END CLASS DEFINITION Cliente

Note que agora todas as propriedades foram criadas corretamente facilitando muito a criação das classes e agilizando o nosso trabalho.

Se você tem interesse em aprender .net ou discutir .net entre no grupo de usuários Codificando.net - São Paulo.

Se tiver alguma dúvida, crítica, sugestão de artigo, fale comigo: atarifa@deloitte.com.

Abraços.
Alexandre Tarifa
Líder Codificando.net SP