Validação - VBWEB

USUÁRIO: SENHA:

SALVAR LOGIN ?


	Fórum
	Visual Basic .Net

Responder

Voltar

Autor

Assunto: Validação

Isaac
não registrado

ENUNCIADA !

Postada em 27/03/2010 20:53 hs

Dúvida
Eu quero fazer o seguinte.
Construa um programa que leia vários numeros inteiros e mostre qual foi o maior e o menor valor fornecido. Para cada valor digitado, deve ser solicitado ao usuário que ele digite se ele deseja continuar entrando com valores.
Obs não esqueça de validar a resposta do usuário , pois ele só pode responder "Sim" ou "Não".
1° Eu tou tentando jogar os valores dentro de um vetor de infinitas posições.
com este código.
Public Class Form1
Dim valores(50) As Integer
Dim contador As Integer = 0

Private Sub txtValores_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtValores.TextChanged

While MsgBox("Você deseja continuar a adicionar números? ", _
MsgBoxStyle.YesNo) = MsgBoxResult.Yes

valores(contador) = txtValores.Text
contador = contador + 1
txtValores.Focus()
txtValores.Text = Nothing

End While

Mas está dando erro :| .
Se alguém puder me dar uma força nessa parte ,pois a parte de ordenar eu sei fazer.
Muito obrigado.

Josef

FRANCA
SP - BRASIL

ENUNCIADA !

Postada em 16/04/2010 09:15 hs

Brother, vi aqui um código que poderá te ajudar. Segue abaixo:

If e.KeyCode = Keys.Enter Then

If MsgBox("Voc deseja continuar a adicionar nmeros? ", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then

valores(contador) = txtValores.Text

contador += 1

txtValores.Text = String.Empty

txtValores.Focus()

End If

Esse código verifica se a tecla "Enter" foi pressionada, e executa o comando para adicionar o número no vetor, acrescentar 1 ao contador e continuar adicionando números se for o desejo do usuário.

Você pode usar de outra forma, eu usei esse código no evento KeyDown, verificando se a tecla "Enter" foi a tecla pressionada, pois achei um método mais seguro para tal verificação.

Abraços!

Página(s): 1/1

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR


		CyberWEB Network Ltda. © Copyright 2000-2024 - Todos os direitos reservados. Powered by HostingZone - A melhor hospedagem para seu site