Aplicação Multicamadas em Visual Basic .NET

Este � o terceiro e �ltimo artigo da s�rie os quais mostram, atrav�s de um exemplo pr�tico e simples, uma abordagem do desenvolvimento de software em camadas no Visual Basic 2005.

No primeiro artigo foi apresentado um cen�rio para o desenvolvimento da aplica��o e criamos o Banco de Dados com as respectivas tabelas e o mapeamento Entidade Relacionamento. Chamamos o conjunto de dados dentro de um DataSet, o que denominamos nossa camada de dados.

No segundo artigo foram apresentadas as classes da camada �2 � Camada Intermediaria� que representam a l�gica de neg�cio (regras de neg�cio) e a l�gica do controlador (classe que faz a interface com os dados). Sua fun��o � assegurar a confiabilidade dos dados antes que o servidor de Banco de Dados atualize ou exiba as informa��es ao cliente do aplicativo (camada de apresenta��o).

A Camada intermedi�ria isola as regras, da interface do sistema. Essa camada funciona como o pr�prio nome diz serve como intermedi�ria entre os dados da camada �1 � Camada de Dados� e da camada �3 � Camada de Apresenta��o� cliente do aplicativo.

Ainda no segundo artigo foi iniciado a cria��o da �ltima camada �3 � Camada de Apresenta��o�. Onde foram criados os formul�rios de clientes e de pesquisa gen�rica.

Nesse terceiro e �ltimo iremos continuar a definir as classes de neg�cio e criaremos na camada de apresenta��o a interface para cadastro dos pedidos de pizza.

Com o projeto devpizza aberto, abra a pasta �2 � Camada Intermediaria�. Subpasta �2.2 � Logica de Negocio�

D� um duplo clique sobre a classe clnPedidos.vb

Digite o seguinte c�digo:


Imports System.Data
Imports System.Data.SqlClient
Imports System.Text

Public Class clnPedidos
    Campos membros
    Private mIdPedido As Integer
    Private mData As Date
    Private mHora As DateTime
    Private mIdCliente As Integer
    Private mValorTotal As Decimal

    atributos
    Public Property IdPedido() As Integer
        Get
            Return mIdPedido
        End Get
        Set(ByVal value As Integer)
            mIdPedido = value
        End Set
    End Property

    Public Property Data() As String
        Get
            Return mData
        End Get
        Set(ByVal value As String)
            mData = value
        End Set
    End Property

    Public Property Hora() As String
        Get
            Return mHora
        End Get
        Set(ByVal value As String)
            mHora = value
        End Set
    End Property
    Public Property IdCliente() As String
        Get
            Return mIdCliente
        End Get
        Set(ByVal value As String)
            mIdCliente = value
        End Set
    End Property
    Public Property ValorTotal() As String
        Get
            Return mValorTotal
        End Get
        Set(ByVal value As String)
            mValorTotal = value
        End Set
    End Property

M�todos da Classe Pedidos


Public Sub Buscar()
    Dim cSql As String
    cSql = "Select * From Pedidos Where IdPedido=" & mIdPedido
    Dim ds As DataSet
    Dim DtPizza As New ClsDados()
    ds = DtPizza.RetornarDataSet(cSql)
    If ds.Tables(0).Rows.Count > 0 Then
        IdPedido = ds.Tables(0).Rows(0).Item(0)
        Data = ds.Tables(0).Rows(0).Item(1)
        Hora = ds.Tables(0).Rows(0).Item(2)
        IdCliente = ds.Tables(0).Rows(0).Item(3)
        ValorTotal = ds.Tables(0).Rows(0).Item(4)
    End If
End Sub

Public Function BuscarId() As Integer
    Dim cSql As String
    cSql = "Select Top 1 (IdPedido) From Pedidos order by IdPedido desc"
    Dim IdBuscado As Integer
    Dim DtPizza As New ClsDados()
    IdBuscado = DtPizza.RetornarIdNumerico(cSql)
    Return IdBuscado
End Function

Public Function BuscarTotal() As Decimal
    Dim cSql As String
    cSql = "Select Sum(Quantidade * ValorProduto)as Total From PedidosItens where IdPedido=" &am
    ; mIdPedido
    Dim ValorBuscado As Integer
    Dim DtPizza As New ClsDados()
    ValorBuscado = DtPizza.RetornarValorTotal(cSql)
    Return ValorBuscado
End Function

Public Sub Editar()
    Dim sValorTotal As String = mValorTotal.ToString
    sValorTotal = Replace(sValorTotal, ",", ".")
    Dim strQuery As New StringBuilder
    strQuery.Append("Update Pedidos ")
    strQuery.Append("set ")
    strQuery.Append("IdPedido=")
    strQuery.Append(mIdPedido)
    strQuery.Append(", Data=")
    strQuery.Append(Format(mData, "MM/dd/yyyy"))
    strQuery.Append(", Hora=")
    strQuery.Append(mHora.ToShortTimeString)
    strQuery.Append(", IdCliente=")
    strQuery.Append(mIdCliente)
    strQuery.Append(", ValorTotal=")
    strQuery.Append(sValorTotal)
    strQuery.Append(" where IdPedido=")
    strQuery.Append(mIdPedido & ";")
    Dim BancoPizza As New ClsDados()
    BancoPizza.ExecutarComando(strQuery.ToString)
End Sub

Public Sub Excluir()
    Dim strQuery As New StringBuilder
    strQuery.Append("Delete From Pedidos ")
    strQuery.Append("where IdPedido=")
    strQuery.Append(mIdPedido)
    Dim BancoPizza As New ClsDados()
    BancoPizza.ExecutarComando(strQuery.ToString)
End Sub

Public Sub Gravar()
    Dim sValorTotal As String = mValorTotal.ToString
    sValorTotal = Replace(sValorTotal, ",", ".")
    Dim strQuery As New StringBuilder
    strQuery.Append("Insert into Pedidos ")
    strQuery.Append(" (")
    strQuery.Append("IdPedido,")
    strQuery.Append("Data,")
    strQuery.Append("Hora,")
    strQuery.Append("IdCliente,")
    strQuery.Append("ValorTotal")
    strQuery.Append(") ")
    strQuery.Append(" VALUES (")
    strQuery.Append(mIdPedido)
    strQuery.Append(", " & Format(mData, "MM/dd/yyyy") & "")
    strQuery.Append(", " & mHora.ToShortTimeString & "")
    strQuery.Append(", " & mIdCliente)
    strQuery.Append(", " & sValorTotal)
    strQuery.Append(");")
    Dim BancoPizza As New ClsDados()
    BancoPizza.ExecutarComando(strQuery.ToString)
End Sub

Public Function Pesquisar(ByVal Campo As String, _
ByVal Parametro As String, ByVal Valor As String, _
ByVal tipo As String) As DataSet
    Dim strQuery As New StringBuilder
    strQuery.Append("Select * From PEdidos ")
    strQuery.Append("where " & Campo & " ")
    strQuery.Append(Parametro & " ")
    strQuery.Append(Valor)
    Dim a As String = strQuery.ToString()
    Dim ds As DataSet
    Dim BancoPizza As New ClsDados()
    ds = BancoPizza.RetornarDataSet(strQuery.ToString)
    Return ds
End Function
End Class

Ainda na Camada 2. D� um duplo clique sobre a classe clnPedidosItens e digite o c�digo abaixo:


Imports System.Data
Imports System.Data.SqlClient
Imports System.Text

Public Class clnPedidosItens
    Campos membros
    Private mIdPedido As Integer
    Private mIdProduto As Integer
    Private mQuantidade As Integer
    Private mValorProduto As Decimal

    atributos
    Public Property IdPedido() As Integer
        Get
            Return mIdPedido
        End Get
        Set(ByVal value As Integer)
            mIdPedido = value
        End Set
    End Property

    Public Property IdProduto() As String
        Get
            Return mIdProduto
        End Get
        Set(ByVal value As String)
            mIdProduto = value
        End Set
    End Property

    Public Property Quantidade() As String
        Get
            Return mQuantidade
        End Get
        Set(ByVal value As String)
            mQuantidade = value
        End Set
    End Property
    Public Property ValorProduto() As String
        Get
            Return mValorProduto
        End Get
        Set(ByVal value As String)
            mValorProduto = value
        End Set
    End Property

M�todos da Classe Pedidos Detalhes.


Public Sub Buscar()
    Dim cSql As String
    cSql = "Select * From PedidosItens Where IdPedido=" & mIdPedido
    Dim ds As DataSet
    Dim DtPizza As New ClsDados()
    ds = DtPizza.RetornarDataSet(cSql)
    If ds.Tables(0).Rows.Count > 0 Then
        IdPedido = ds.Tables(0).Rows(0).Item(0)
        IdProduto = ds.Tables(0).Rows(0).Item(1)
        Quantidade = ds.Tables(0).Rows(0).Item(2)
        ValorProduto = ds.Tables(0).Rows(0).Item(3)
    End If
    End Sub

Public Function BuscarId() As Integer
    Dim cSql As String
    cSql = "Select Top 1 (IdPedido) From PedidosItens order by IdPedido desc"
    Dim IdBuscado As Integer
    Dim DtPizza As New ClsDados()
    IdBuscado = DtPizza.RetornarIdNumerico(cSql)
    Return IdBuscado
    End Function

Public Sub Editar()
    tratando o campo mValorProduto
    Dim sValorProduto As String = mValorProduto.ToString
    Dim strQuery As New StringBuilder
    strQuery.Append("Update PedidosItens ")
    strQuery.Append("set ")
    strQuery.Append("IdPedido=")
    strQuery.Append(mIdPedido)
    strQuery.Append(", IdProduto=")
    strQuery.Append(mIdProduto)
    strQuery.Append(", Quantidade=")
    strQuery.Append(mQuantidade)
    strQuery.Append(", ValorProduto=")
    strQuery.Append(sValorProduto)
    strQuery.Append(" where IdPedido=")
    strQuery.Append(mIdPedido & ";")
    Dim BancoPizza As New ClsDados()
    BancoPizza.ExecutarComando(strQuery.ToString)
    End Sub

Public Sub Excluir()
    Dim strQuery As New StringBuilder
    strQuery.Append("Delete From PedidosItens ")
    strQuery.Append("where IdPedido=")
    strQuery.Append(mIdPedido)
    Dim BancoPizza As New ClsDados()
    BancoPizza.ExecutarComando(strQuery.ToString)
    End Sub

Public Sub Gravar()
    tratando o campo mValorProduto
    Dim sValorProduto As String = mValorProduto.ToString
    sValorProduto = sValorProduto.Replace(",", ".")
    Dim strQuery As New StringBuilder
    strQuery.Append("Insert into PedidosItens ")
    strQuery.Append(" (")
    strQuery.Append("IdPedido,")
    strQuery.Append("IdProduto,")
    strQuery.Append("Quantidade,")
    strQuery.Append("ValorProduto")
    strQuery.Append(") ")
    strQuery.Append(" VALUES (")
    strQuery.Append(mIdPedido)
    strQuery.Append("," & mIdProduto)
    strQuery.Append("," & mQuantidade)
    strQuery.Append("," & sValorProduto)
    strQuery.Append(");")
    Dim BancoPizza As New ClsDados()
    BancoPizza.ExecutarComando(strQuery.ToString)
    End Sub

Public Function Pesquisar(ByVal Campo As String, _
ByVal Parametro As String, ByVal Valor As String, _
ByVal tipo As String) As DataSet
    Dim strQuery As New StringBuilder
    strQuery.Append("Select * From PedidosItens ")
    strQuery.Append("where " & Campo & " ")
    strQuery.Append(Parametro & " ")
    strQuery.Append(Valor)
    Dim a As String = strQuery.ToString()
    Dim ds As DataSet
    Dim BancoPizza As New ClsDados()
    ds = BancoPizza.RetornarDataSet(strQuery.ToString)
    Return ds
    End Function
End Class

Agora na Camada 3. Adicione um novo formul�rio a esse projeto e d� o nome de FrmPedidos, crie o formul�rio com a seguinte interface.

Altere a propriedade name dos bot�es lan�ar pedido, adicionar e fechar respectivamente para cmdLancar, cmdAdicionar e cmdFechar.

Altere a propriedade name do DataGridView para DgvItens.

Bom, nesse ponto vamos adicionar um novo formul�rio, que ser� o principal da aplica��o, onde incluiremos um menu com as op��es para abrir os formul�rios de clientes, produtos (que n�o implantamos, fica por sua conta) e Lan�ar os pedidos.

Na pasta �3 � Camada de Apresentacao� adicione um novo formul�rio, altere seu nome para FrmPrincipal.vb.

Monte a interface acrescentado o menustrip conforme abaixo:

Acrescente o c�digo para chamar o formul�rio de Pedidos, clicando duas vezes sobre o menu pedidos. PedidosToolStripMenuItem.


Private Sub PedidosToolStripMenuItem_Click(ByVal sender As 
System.Object, ByVal e As System.EventArgs) Handles 
PedidosToolStripMenuItem.Click

    FrmPedidos.Show()

End Sub

Clique com o bot�o direito do mouse sobre o nome do projeto e selecione properties. Altere o formul�rio de entrada para FrmPrincipal e o modo de encerramento da aplica��o conforme abaixo:

Alterne para o formul�rio de pedidos FrmPedidos.vb e acrescente o c�digo abaixo no evento Load do formul�rio.


Private Sub FrmPedidos_Load(ByVal sender As System.Object, 
ByVal e As System.EventArgs) Handles MyBase.Load
    GroupBox1.Enabled = True
    GroupBox2.Enabled = False
    Dim BuscaIdPedido As New clnPedidos
    Dim id As Integer = BuscaIdPedido.BuscarId()
    
    Se a busca retornou zero � que n�o h� pedidos entao alterei o id para um.
    
    Nesse momento j� registro o pedido para n�o ocorrer problemas em um 
    ambiente de rede ou seja, outro ponto adicionar um novo pedido antes 
    de fechar o corrente (aconteceria erro de chave prim�ria).


    If id = 0 Then id = 1
    IdPedidoTextBox.Text = id
    DataTextBox.Text = Date.Today.ToShortDateString
    HoraTextBox.Text = Date.Now.ToShortTimeString
    IdPedidoTextBox.Enabled = False
    DataTextBox.Enabled = False
    HoraTextBox.Enabled = False
    Gravando
    Dim GravParcial As New clnPedidos
    GravParcial.IdPedido = IdPedidoTextBox.Text
    GravParcial.Data = DataTextBox.Text
    GravParcial.Hora = HoraTextBox.Text
    Gravar IdCliente e ValorTotal com Zero nesse momento
    Depois ser� feita a altera��o
    GravParcial.IdCliente = 0
    GravParcial.ValorTotal = 0
    GravParcial.Gravar()
    IdClienteTextBox.Focus()

End Sub

Acrescente o c�digo abaixo para o evento TextChanged da caixa de texto IdClienteTextBox.


Private Sub IdClienteTextBox_TextChanged(ByVal sender As System.Object, 
ByVal e As System.EventArgs) Handles IdClienteTextBox.TextChanged

Dim Cliente As New clnClientes
    Cliente.IdCliente = Val(IdClienteTextBox.Text)
    Cliente.Buscar()
    If Cliente.NomeRazao <> Nothing Then
        NomeRazaoLabel.Text = Cliente.NomeRazao
        EnderecoLabel.Text = Cliente.Endereco
        TelefoneLabel.Text = Cliente.Telefone
        CidadeLabel.Text = Cliente.Cidade
        EstadoLabel.Text = Cliente.Estado
    Else
        NomeRazaoLabel.Text = Nothing
        EnderecoLabel.Text = Nothing
        TelefoneLabel.Text = Nothing
        CidadeLabel.Text = Nothing
        EstadoLabel.Text = Nothing
    End If

End Sub

O C�digo acima � respons�vel por localizar o cliente e trazer os dados para os controle Labels. Caso n�o exista o cliente cadastrado ser� �limpo� os mesmo labels.

Agora � hora de registrar o pedido atualizando o dado do pedido acrescentando o c�digo do cliente caso tenha sido encontrado, se n�o, emite uma mensagem de alerta para o usu�rio.

Acrescente o c�digo abaixo para o evento Click do cmdLancar, bot�o lan�amento.


Private Sub cmdLancar_Click(ByVal sender As System.Object, 
ByVal e As System.EventArgs) Handles cmdLancar.Click

If NomeRazaoLabel.Text = Nothing Then
    MsgBox("Cliente n�o cadastrado, gentileza cadastrar", 16, "Aviso")
    Exit Sub
End If

Dim Atualiza As New clnPedidos
Atualiza.IdPedido = IdPedidoTextBox.Text
Atualiza.Data = DataTextBox.Text
Atualiza.Hora = HoraTextBox.Text
Atualiza.IdCliente = IdClienteTextBox.Text
Atualiza.ValorTotal = 0
Atualiza.Editar()
Bloqueia o GroupBox1 para evitar altera��es
At� o fechamento do pedido
GroupBox1.Enabled = False
GroupBox2.Enabled = True
IdProdutoTextBox.Focus()
End Sub

Nesse momento o GroupBox2 j� est� liberado e o foco do cursor deve aparecer na caixa de texto IdProdutoTextBox. Vamos colocar o c�digo que responder� ao evento IdProdutoTextBox_TextChanged(). Seu funcionamento � id�ntico ao IdClienteTextBox_TextChanged() visto anteriormente, � respons�vel por mostrar os dados do produto, como descri��o e pre�o.

C�digo do IdProdutoTextBox_TextChanged().


Private Sub IdProdutoTextBox_TextChanged(ByVal sender As 
System.Object, ByVal e As System.EventArgs) 
Handles IdProdutoTextBox.TextChanged

Dim Produto As New clnProdutos
Produto.IdProduto = Val(IdProdutoTextBox.Text)
Produto.Buscar()
If Produto.Descricao <> Nothing Then
    DescricaoLabel.Text = Produto.Descricao
    ValorProdutoTextBox.Text = Produto.Preco
Else
    DescricaoLabel.Text = Nothing
    ValorProdutoTextBox.Text = Nothing
End If

End Sub

Quando o Campo Valor do Produto perder o foco, � calculado o valor total do item. Vamos adicionar o mesmo c�digo sendo chamado a partir do GotFocus do bot�o Adicionar, ou seja, caso o usu�rio digite o valor e clique direto no bot�o adicionar, ele responder� ao evento (ganhar o foco) antes do evento clique, isso far� com que n�o ocorra erro no lan�amento. Para isso vamos adicionar um procedimento p�blico no escopo do formul�rio de pedidos chamado Calculo.

Dentro da classe FrmPedidos no final acrescente o sub procedimento abaixo para o c�lculo citado.


Public Sub Calculo()
    Dim Qtd As Decimal
    If QuantidadeTextBox.Text = Nothing Then
        Qtd = 0
    Else
        Qtd = QuantidadeTextBox.Text
    End If
    Dim Preco As Decimal
    If ValorProdutoTextBox.Text = Nothing Then
        Preco = 0
    Else
        Preco = ValorProdutoTextBox.Text
    End If
    Dim Total As Decimal = Qtd * Preco
    TotalItemTextBox.Text = FormatCurrency(Total)
End Sub

C�digo do evento ValorProdutoTextBox_LostFocus().


Private Sub ValorProdutoTextBox_LostFocus(ByVal sender As 
Object, ByVal e As System.EventArgs) Handles ValorProdutoTextBox.LostFocus

     Calculo()

End Sub

C�digo repetido para evento CmdAdicionar_GotFocus().


Private Sub cmdAdicionar_GotFocus(ByVal sender As Object, 
ByVal e As System.EventArgs) Handles cmdAdicionar.GotFocus

Calculo()

End Sub

Agora abaixo o c�digo que responde ao evento clique do bot�o adicionar. Comentado.


Private Sub cmdAdicionar_Click(ByVal sender As System.Object, 
ByVal e As System.EventArgs) Handles cmdAdicionar.Click

Gravando os itens
    Dim GravaItem As New clnPedidosItens
    GravaItem.IdPedido = IdPedidoTextBox.Text
    GravaItem.IdProduto = IdProdutoTextBox.Text
    GravaItem.Quantidade = QuantidadeTextBox.Text
    GravaItem.ValorProduto = ValorProdutoTextBox.Text
    GravaItem.Gravar()
    limpando as caixas de Texto do GroupBox2
    For Each ctl As Control In GroupBox2.Controls
        If TypeOf ctl Is TextBox Then
            ctl.Text = Nothing
        End If
    Next
    IdProdutoTextBox.Focus()
    Dim ds As New DataSet
    Dim Busca As New ClsDados
    Dim Csql As New StringBuilder
    Csql.Append("Select *,(Quantidade * ValorProduto)As Total From PedidosItens")
    Csql.Append(" where IdPedido=" & IdPedidoTextBox.Text)
    ds = Busca.RetornarDataSet(Csql.ToString)
    Me.DgvItens.AutoGenerateColumns = True
    Me.DgvItens.DataSource = ds.Tables(0)

End Sub

No exemplo acima o objeto Csql.ToString armazena como conte�do uma query Sql que �cria� um campo calculado chamado total que armazena o total do item, obtido atrav�s da multiplica��o da quantidade pelo valor do produto. E O Objeto DgvItens(DataGridView) recebe o ds.Tables(0) que � o resultado da busca na tabela com o campo calculado.

Agora para finalizar, vamos ao �ltimo c�digo, o do bot�o Fechar. C�digo do bot�o fechar


Private Sub cmdFechar_Click(ByVal sender As System.Object, ByVal e 
As System.EventArgs) Handles cmdFechar.Click
    Dim ValorTotal As New clnPedidos
    ValorTotal.IdPedido = IdPedidoTextBox.Text
    ValorTotalTextBox.Text = FormatCurrency(ValorTotal.BuscarTotal)
    Dim Atualiza As New clnPedidos
    Atualiza.IdPedido = IdPedidoTextBox.Text
    Atualiza.Data = DataTextBox.Text
    Atualiza.Hora = HoraTextBox.Text
    Atualiza.IdCliente = IdClienteTextBox.Text
    Atualiza.ValorTotal = ValorTotalTextBox.Text
    Atualiza.Editar()
    Bloqueia o GroupBox1 e GroupBox2 para evitar altera��es
    GroupBox1.Enabled = False
    GroupBox2.Enabled = False
    IdProdutoTextBox.Focus()
    MsgBox("Pedido efetuado com sucesso", 64, "Aviso")
    MsgBox("Aqui voc� poderia criar um rotina para imprimir o pedido")
    Fecha o Formul�rio de Pedido
    Me.Close()
End Sub

Nessa s�rie de tr�s artigos vimos, atrav�s de um exemplo pr�tico e simples, uma abordagem do desenvolvimento de software em tr�s camadas no Visual Basic 2005.

Desenvolvimento de software em tr�s camadas no Visual Basic 2005

No primeiro artigo foi apresentado um cen�rio para o desenvolvimento da aplica��o e criamos o Banco de Dados com as respectivas tabelas e o mapeamento Entidade Relacionamento

No segundo artigo foram apresentadas as classes da camada �2 � Camada Intermediaria� que representam a l�gica de neg�cio (regras de neg�cio) e a l�gica do controlador (classe que faz a interface com os dados). Vimos que a Camada intermedi�ria, isola as regras, da interface do sistema. Essa camada funciona como o pr�prio nome diz, serve como intermedi�ria entre os dados da camada �1 � Camada de Dados� e da camada �3 � Camada de Apresenta��o� cliente do aplicativo.

Nesse terceiro e �ltimo definimos as classes de neg�cio e criamos na camada de apresenta��o a interface para cadastro dos pedidos de pizza.

A biblioteca NHibernate baseada em .NET para persistir os objetos para bases de dados relacionais, n�o foi explorada nesse exemplo. O NHibernate � baseado em uma ferramenta de persist�ncia de dados da linguagem Java, chamado Hibernate, o NHibernate tem a finalidade de persistir os objetos .NET em uma base de dados relacional subjacente. Essa camada estaria disposta entre a camada de dados e a nossa camada intermedi�ria(l�gica de controlador e l�gica de neg�cio) em nossa aplica��o. Essa seria a camada �Persist�ncia de Dados�. O NHibernate gera o c�digo SQL verificando se os tipos e valores s�o consistentes.

Saiba mais: Como se tornar um Programador .NET

Ta� um bom assunto para um artigo futuro, tenho notado que todos os novos conceitos tem sido amplamente difundidos com o uso do C#, denotando assim, ao meu ver uma tend�ncia de migra��o gradativa para essa linguagem. Como existem milhares de programadores Visual Basic ao redor do mundo, n�o sei se isso � uma boa id�ia. O que voc�s acham?

Links �teis

Curso de Xamarin: Primeiros passos: O Xamarin � uma plataforma para desenvolvimento de aplica��es m�veis dentro da plataforma .NET, utilizando o C#.
Curso de L�gica de Programa��o: Neste curso veremos uma introdu��o a algoritmos, utilizando como linguagem de apoio o Portugol. Para isso, abordaremos assuntos como descri��o narrativa, fluxogramas e pseudoc�digos, fundamentais para quem est� iniciando na programa��o.
Curso de HTML5: Neste curso de HTML 5 veremos o que desenvolvimento da linguagem HTML (HyperText Markup Language) ficou parada na vers�o 4 desde 1999. Durante esse per�odo, a W3C se focou em linguagens como XML (Extensible Markup Language) e SVG (Scalable Vector Graphics - gr�ficos vetoriais em navegadores).
Como aprender PHP: Neste Guia de Consulta voc� encontrar� todo o conte�do que precisa para aprender PHP, uma linguagem de programa��o amplamente utilizada para a constru��o de aplica��es web.

Saiba mais sobre Visual Basic ;)

Desenvolvendo uma aplica��o Multicamadas em Visual Basic .NET - Parte 2: Esse artigo � o segundo de uma s�rie de tr�s (03) artigos que apresentam um exemplo pr�tico e simples abordando o desenvolvimento em camadas em VB.NET.

Tecnologias:

Confira outros conte�dos:

Teste unit�rio com NUnit

Como migrar projetos do ASP.NET MVC...

Crie relat�rios com o Stimulsoft...

Assista grátis a nossa aula inaugural

Perguntas frequentes

Quem somos?

Por que a programação se tornou a profissão mais promissora da atualidade?

Como faço para começar a estudar?

Em quanto tempo de estudo vou me tornar um programador?

Sim, você pode se tornar um programador e não precisa ter diploma de curso superior!

O que eu irei aprender estudando pela DevMedia?

Principais diferenciais da DevMedia

Qual o investimento financeiro que preciso fazer para me tornar um programador?

Como funciona a forma de pagamento da DevMedia?

Por Marcos Em 2007

Nossos casos de sucesso

Leonardo Carlos

Eu sabia pouqu�ssimas coisas de programa��o antes de come�ar a estudar com voc�s, fui me especializando em v�rias �reas e ferramentas que tinham na plataforma, e com essa bagagem consegui um est�gio logo no in�cio do meu primeiro per�odo na faculdade.

Lucas Rodrigues

Estudo aqui na Dev desde o meio do ano passado! Nesse per�odo a Dev me ajudou a crescer muito aqui no trampo.
Fui o primeiro desenvolvedor contratado pela minha empresa. Hoje eu lidero um time de desenvolvimento!
Minha meta � continuar estudando e praticando para ser um Full-Stack Dev!

Her�clito J�nior

Economizei 3 meses para assinar a plataforma e sendo sincero valeu muito a pena, pois a plataforma � bem intuitiva e muuuuito did�tica a metodologia de ensino. Sinto que estou EVOLUINDO a cada dia. Muito obrigado!

Julio Cablen

Nossa! Plataforma maravilhosa. To amando o curso de desenvolvimento front-end, tinha coisas que eu ainda n�o tinha visto. A did�tica � do jeito que qualquer pessoa consegue aprender. S�rio, to apaixonado, adorando demais.

Joelberth Sena

Adquiri o curso de voc�s e logo percebi que s�o os melhores do Brasil. � um passo a passo incr�vel. S� n�o aprende quem n�o quer. Foi o melhor investimento da minha vida!

Felipe Nunes

Foi um dos melhores investimentos que j� fiz na vida e tenho aprendido bastante com a plataforma. Voc�s est�o fazendo parte da minha jornada nesse mundo da programa��o, irei assinar meu contrato como programador gra�as a plataforma.

Wanderson Oliveira

Comprei a assinatura tem uma semana, aprendi mais do que 4 meses estudando outros cursos. Exerc�cios pr�ticos que n�o tem como n�o aprender, est�o de parab�ns!

Jos� Lucas

Obrigado DevMedia, nunca presenciei uma plataforma de ensino t�o presente na vida acad�mica de seus alunos, parab�ns!

Eduardo Dorneles

Aprendi React na plataforma da DevMedia h� cerca de 1 ano e meio... Hoje estou h� 1 ano empregado trabalhando 100% com React!

Adauto Junior

J� fiz alguns cursos na �rea e nenhum � t�o bom quanto o de voc�s. Estou aprendendo muito, muito obrigado por existirem. Est�o de parab�ns... Espero um dia conseguir um emprego na �rea.

Ver todos os casos de sucesso

Desenvolvendo uma aplica��o Multicamadas em Visual Basic .NET � Parte 3 Final.

T�rmino do exemplo de uma aplica��o para um Disk-Pizza. Objetivo explorar o conceito de programa��o em multicamadas em Visual Basic 2005.