Advertisement
Guest User

Untitled

a guest
Apr 17th, 2017
138
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VB.NET 1.54 KB | None | 0 0
  1. Public Class Form1
  2.  
  3.     'Logica hoje é usa IF
  4.     Private Sub BtnEntrar_Click(sender As Object, e As EventArgs) Handles BtnEntrar.Click
  5.         'Vou criar uma Variavel com um Nome de Usuario
  6.         Dim user = "Felipe"
  7.         'e uma Variavel com uma senha..
  8.         Dim pass = "137"
  9.         'IF <condição> then <~então~> execulta codigo tal...
  10.  
  11.         'Usando IF vou dizer que... Se o textbox "Usuario" for = user que contem "Felipe" então... execulta codigo depois
  12.         'do "Then" ou então se não for igual pula para "End if" sem execulta o codigo depois do "Then"
  13.         'Condição: Usuario.Text = user
  14.  
  15.         'Usando ELSE podemos execulta outros codigo se a condição não for verdadeira!!
  16.         If Usuario.Text = user Then
  17.             If Senha.Text = pass Then
  18.                 'Então se caso tudo for OK
  19.                 'Mostra o Form de Menu e Oculta o Form de Login!!
  20.                 'Usando hide
  21.                 Me.Hide() 'Oculta...
  22.                 'Usando Show
  23.                 'Mostra Menu
  24.                 FormMenu.Show()
  25.  
  26.                 'Vamos fazer uma pequena tranferencia de Dados...
  27.                 'Podemos acessa outro FORM dentro deste form
  28.                 'Muito simples
  29.                 FormMenu.Label1.Text += Usuario.Text
  30.  
  31.             Else 'Se Senha.Text não for = a "pass" então
  32.                 'Vou usa um MsgBox pra mostra uma menssagem na tela
  33.                 MsgBox("Senha Invalida")
  34.             End If
  35.         Else
  36.             MsgBox("Usuario Invalido")
  37.         End If
  38.     End Sub
  39. End Class
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement