Ir para conteúdo
Fórum Script Brasil

Alex Avancini

Membros
  • Total de itens

    1
  • Registro em

  • Última visita

Sobre Alex Avancini

Alex Avancini's Achievements

0

Reputação

  1. Olá à todos, Minha dúvida é bem simples, como sou iniciante não conheço a função que usar. Com certeza ela existe e é bem simples. Nesse código só estou conhecendo o vb um pouco mais, sem contar validações para verificar o que o usuáriodigitou mesmo, eu espero coletar os dados do usuário atravez de umas perguntas em input box e no final apresentá-lo atraves de um msg-box simples. Após este msg box que apresenta os dados fornecidos pelo usuário virá um outro msg box perguntando se ele confirma os dados. If o usuário clicar em SIM então abrirá o form1 normalmente e ele começara a trabalhar. If o usuário clicar em não as perguntas dos inputbox serão repetidas e novamente apresentadas pelo msgbox até novamente perguntar se confirma ou não os dados. Ele deve ficar em loop até dizer que confirma os dados que enviou. Só sairá do loop quando confirmar os dados. segue abaixo o que eu já programei: Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim pergunta1 As Integer Dim pergunta2, pergunta3 As Integer Dim pergunta4 As String Dim resultado As String Dim resultado_final As MsgBoxResult Dim estilomsgbox As MsgBoxStyle Dim pergunta_final As String pergunta1 = (InputBox("Qual a sua idade?", "informe sua idade ao sistema")) Do While (pergunta1 = "") pergunta1 = InputBox("Você ainda não informou sua idade:", "informe sua idade ao sistema", "", 2, 3) If (pergunta1 <> "") Then Exit Do End If Loop pergunta2 = (InputBox("Qual o seu peso?", "Informe seu peso ao sistema")) pergunta3 = (InputBox("Qual o seu altura?", "Informe seu nome ao sistema")) pergunta4 = (InputBox("Qual o seu nome?", "Informe seu nome ao nome")) resultado = pergunta4 & "," & " seu peso é de " & pergunta2 & " , sua idade é " & pergunta1 & _ " e sua altura é " & pergunta3 & "." MsgBox(resultado) pergunta_final = ("Confirma estes dados?") estilomsgbox = MsgBoxStyle.YesNo resultado_final = MsgBox(pergunta_final, estilomsgbox) If resultado_final = MsgBoxResult.Yes Then MsgBox("Obrigado! seus dados foram armazenados com sucesso") 'e carrega o form1 Else 'se a resposta for não então execute os metodos abaixo descritos para voltar aos metodos de coletar 'perguntas do usuário ???????????????????????????????? ???????????????????????????????? ???????????????????????????????? ???????????????????????????????? End If End Sub End Class * minha dúvida está ali na validação do "Else" para fazer carregar todas as perguntas novamente. Qual função usar? Antecipo agradecimentos! Sei que vão matar em 2 minutos. Att; Alex
×
×
  • Criar Novo...