[Tutorial] VB.net #1

[Tutorial] VB.net #1 Sex 18 Jan 2013 - 11:12

Aprenda a desenvolver os seus próprios softwares com os nossos tutoriais de visual basic .net, seguindo a nossa seria de tutoriais você pode adquirir muito conhecimento .

Vamos começar,
hoje vamos estudar sobre variáveis.

O que são variáveis ?
Variáveis: algo que varia .
Seria onde podemos armazenar e recuperar esse valor, para leitura.
A mesma segura varias informações e torna o software mais dinâmico .

Bom ,não sou muito bom com explicações, más posso mostrar na pratica.
Obs: Todo o texto encontrado após o ' , são observações sobre aquela linha de código .

Crie um Windows Form Application
De um duplo click, e acima de "End Class", adicione esse código.

Código:
Public Sub Exemplo() Dim faraday As Long ' Criamos a variavel Faraday Dim euteamo As Long ' criamos a variavel euteamo Dim muito As Long Dim Gerson As Long ' criamos a variavel Gerson Dim quer_o_gerson_na_cama As Long euteamo = 1 + 1 ' definimos que euteamo é = 1 +1 (ou seja 2 ) muito = 1 Gerson = 1 + 2 ' definimos que Gerson é igual 1 +2 (ou seja 3) quer_o_gerson_na_cama = 6 'define que querogersonnacama é igual a 6 faraday = euteamo + muito + Gerson ' definimos que o faraday é igual ao valor de euteamo + gerson (ou seja 5 ) If faraday = quer_o_gerson_na_cama Then ' se o faraday quer_o_gerson_na_cama , então... MessageBox.Show("O Faraday ama mesmo o Gerson!", "Tutorial") ' envia a mensagem End If ' fecha a condição End Sub

agora vamos ao Private Sub Form_Load,
e adicione

Código:


Exemplo() ' aqui estamos chamando o public sub exemplo que é o do código acima.

O nosso resultado final seria.

Código:


Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Exemplo() ' chama a public sub exemplo()
    End Sub

    Public Sub Exemplo()
        Dim faraday As Long ' Criamos a variavel Faraday
        Dim euteamo As Long ' criamos a variavel euteamo
        Dim muito As Long
        Dim Gerson As Long ' criamos a variavel Gerson
        Dim quer_o_gerson_na_cama As Long


        euteamo = 1 + 1 ' definimos que euteamo é = 1 +1 (ou seja 2 ) 
        muito = 1
        Gerson = 1 + 2 ' definimos que Gerson é igual 1 +2 (ou seja 3)
        quer_o_gerson_na_cama = 6 'define que querogersonnacama é igual a 5 
        faraday = euteamo + muito + Gerson ' definimos que o faraday é igual ao valor de euteamo + gerson (ou seja 5 )



        If faraday = quer_o_gerson_na_cama Then ' se o faraday quer_o_gerson_na_cama , então...
            MessageBox.Show("O Faraday ama mesmo o Gerson!", "Tutorial") ' envia a mensagem
        End If ' fecha a condição

    End Sub

End Class