Hola,por favorr:
Me está llevando por el camino de la amargura este código

Module Module1

Sub Main()

Dim VALOR As Integer
Dim Random As New Random()

VALOR = 13
VALOR = Random.Next(1, 10)
Dim PALABRA As String
Dim CONTADOR As Integer
Dim PRUEBAS As Integer

'BUCLE CON WHILE
CONTADOR = 1

Do While PRUEBAS <> VALOR

'Console.Clear()

Console.WriteLine("Introduce un número del 1 al 10: -Intento nº {0} de 5:", CONTADOR)
PRUEBAS = Console.ReadLine()
While PRUEBAS <= 0 Or PRUEBAS > 10
Console.Clear()
Console.WriteLine("Numero incorrecto:El número es mayor 10 o menor o igual que 0")
Console.WriteLine("Introduce un número del 1 al 10: -Intento nº {0} de 5:", CONTADOR)
PRUEBAS = Console.ReadLine()
End While

If CONTADOR = 5 And PRUEBAS <> VALOR Then
Console.WriteLine("Lo siento!!! El número era el {0} -Intento:{1} de 5", VALOR, CONTADOR)
Exit Do

Else
CONTADOR += 1
If PRUEBAS = VALOR Then

Console.WriteLine("Felicidades!!!Has acertado!! El número es el {0} -Intento: {1} de 5", VALOR, CONTADOR - 1)
End If

End If

Loop


'Console.WriteLine("Has acertado el numero {0}", VALOR)



Console.WriteLine("Pulse una tecla para continuar...")
Console.ReadLine()



End Sub

End Module

Necesito ,que el usuario no pueda introducir ninguna letra o carácter extraño,asi como:._-?,....y ninguna letra en mayúscula y minúscula y mientras ocurra eso,salta a está parte de programa:

While PRUEBAS <= 0 Or PRUEBAS > 10 OR [.............................................]
Console.Clear()
Console.WriteLine("Numero incorrecto:El número es mayor 10 o menor o igual que 0")
Console.WriteLine("Introduce un número del 1 al 10: -Intento nº {0} de 5:", CONTADOR)
PRUEBAS = Console.ReadLine()
End While

Dónde pongo or[.............] es dónde tengo que poner algo para que cuando el usuario escriba letras o esos caracteres me entre al while,o declarar algo.Es una aplicacion de consola hecha con visual studio 2010

Buenas!

puedes usar los valores ascii para acotar lo que el usuario introduzca (las mayús. van de 65 a 90 y las minús. de 97 a 122).

Saludos!

Gracias.Pero...¿cómo quedaría mi código?

Saludos:

Ocupo este pequeño codigo para hacer validar que solo digiten numero en un TextBox. Puedes adaptarlo a tu necesidad:

Código:

  Function Fg_SoloNumeros(ByVal Digito As String, ByVal Texto As String) As Boolean
        Dim Dt_Entero As Integer = CInt(Asc(Digito))
        If Dt_Entero = 8 Then
            Fg_SoloNumeros = False
        Else
            If InStr("1234567890.", Digito) = 0 Then
                Fg_SoloNumeros = True
            ElseIf IsNumeric(Texto) = True Then
                Fg_SoloNumeros = False
            ElseIf IsNumeric(Texto) = False Then
                Fg_SoloNumeros = True
            End If
        End If
        Return Fg_SoloNumeros
    End Function

Y para llamarla es:

Código:

 Private Sub TextBox1_KeyPress(ByVal eventSender As System.Object, ByVal eventArgs As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        eventArgs.Handled = Fg_SoloNumeros(eventArgs.KeyChar, TextBox1.Text & CChar(eventArgs.KeyChar))
    End Sub

Espero ayude.


JOSE LUIS

Como solución provisional,controlo que cuando el usuario escriba una o varias letras o carácter o caracteres especiales,genere una excepción pero se sale del programa y no quiero eso(aunque es un buen comienzo).Mientras los datos no sean correctos ,que el programa no se salga del while y que me pida los datos otra vez hasta que sean correctos y luego ya puede seguir ejecutando la siguiente instrucción y salir del while:

Module Module1

Sub Main()

Dim VALOR As Integer
Dim Random As New Random()

VALOR = 9
'VALOR = Random.Next(1, 10)
Dim CONTADOR As Integer
Dim PRUEBAS As Integer

'BUCLE CON WHILE
CONTADOR = 1

Try
Do While PRUEBAS <> VALOR

'Console.Clear()

Console.WriteLine("Introduce un número del 1 al 10: -Intento nº {0} de 5:", CONTADOR)
PRUEBAS = Console.ReadLine()
While PRUEBAS <= 0 Or PRUEBAS > 10 ¿no puedo poner algo aquí para validar las letras o cadenas de caracteres o caracteres especiales?
Console.Clear()
Console.WriteLine("Numero incorrecto:El número es mayor 10 o menor o igual que 0")
Console.WriteLine("Introduce un número del 1 al 10: -Intento nº {0} de 5:", CONTADOR)
PRUEBAS = Console.ReadLine()
End While

If CONTADOR = 5 And PRUEBAS <> VALOR Then
Console.WriteLine("Lo siento!!! El número era el {0} -Intento:{1} de 5", VALOR, CONTADOR)
Exit Do

Else
CONTADOR += 1
If PRUEBAS = VALOR Then

Console.WriteLine("Felicidades!!!Has acertado!! El número es el {0} -Intento: {1} de 5", VALOR, CONTADOR - 1)
End If

End If

Loop

Catch ex As Exception
Console.WriteLine("Error!!!No son validas las letras o caracteres especiales")
End Try

POR FAVOR!!!!!ALGUIEN PUEDE CORREGIR MI CÓDIGO Y PONER LO QUE YO QUIERO?GRACIASSSSS

No es un formulario,no utilizo keypress,textbox,es una aplicación de consola,no utilizo botones,....

Para ponerle un icono a la aplicación(ya .exe, cogida de bin) utilizo Resource Hacker y AveIcon ¿Hay alguna forma mejor para cambiar el icono de tu aplicación exe?
Para generar el setup que instala mi aplicación utilizo Inno ¿Hay alguna otra forma u aplicación mejor para no liarme con estos programas basura? Soy iniciador de Inno y me dice que no se puede ejecutar en la carpeta temporal.Entonces...¿dónde coloco el setup?

Antes de nada aprovecho para saludar a mi amigo José Luis! Un abrazo muy fuerte!

Fíjate aquí en cómo usar chr y asc. En la condición utiliza chr() con los rangos que te pasé en el primer mensaje y ya lo tienes todo ahí.

Yo me fijaría en las pestañas de las propiedades del proyecto (en la pestaña aplicación deberías poder asociar el icono y demás, no estoy seguro si para un proyecto de consola se puede hacer). También ahí (si es que es posible para un proyecto de consola) deberías poder publicarlo con ClickOnce... Sino siempre puedes añadir un proyecto de instalación a tú solución en Visual Studio.

Inno Setup es un dolor de cabeza... estoy totalmente de acuerdo.

Saludos!