Validar solo Numeros en un Textbox

Este pequeño trozo de codigo que pongo a continuacion puede ser de mucha utilidad, ya que sirve para validar un Textbox y solo se puedan escribir en el Numeros. Para esto se tiene que poner este codigo en el evento Keypress del Textbox.

If Asc(e.KeyChar) >= 48 And Asc(e.KeyChar) >= 58 Then
e.Handled = True
Else
e.Handled = False
End If

Factorial de un numero Visual Basic

Este trozo de codigo nos da el factorial de un numero y nos sirve para cualquier version de Visual Basic o de algun otro lenguaje con estructura similar.

Sub Factorial ()

a = Int(txtscreen.Text)
'a se pasa entero porque los factoriales no pueden contener decimales
b = 1

If a = 0 Then
b = 0
Else
If a = 1 Then
b = 1
Else
For i = 1 To a
b = b * i
Next
End If
End If

txtfactorial.text = b
End Sub

Trigonometria en Grados en lugar de Radianes para Visual Basic 2005

Las funciones de Trigonometria (sen, cos, tan, sec, etc..) ocupadas en Visual Basic 2005 de la Sytem.Math nos dan el resultado en Radianes para convertirlos a Grados hacemos lo siguiente :

gradoradian = (Math.PI * grado) / 180
gradonormal = Math.Cos(gradoradian)

Remplazando el Marh.cos por cualquiera de las otras funciones de la clase System.Math obtenemos lo que se desea

Segundero en un Label para Visual Basic 2005

Evento de un timer (Timer1) que inicia un segundero en una etiqueta (tiempo) con una variable tipo Date (segundero)

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

Dim segundero As Date

segundero = segundero.AddSeconds(1)
tiempo.Text = segundero

End Sub

El timer tiene las propiedades:

• Enable = True (Para que inicie cuando se ejecute el programa)
  
• Intervall = 1000 (Para que haga la accion cada 1 segundo)
  

Limpiar todos los cuadros de texto en Visual Basic 2005

Esta instruccion limpia todos los cuadros de texto que se encuentren en el formulario

Dim x As Control
For Each x In Me.Controls
If TypeOf x Is TextBox Then x.Text = ""
Next

Random en Visual Basic 2005

El codigo para crear un numero aleatorio es el siguiente:

' Se inicializa la semilla con el Randomize.
Randomize()
' La siguiente linea devuelve un numero entero entre el a y el b.
Dim value As Integer = CInt(Int((a * Rnd()) + b))

Ejemplo:

' Lo siguiente devolveria un valor entero entre 1 y 16.
Randomize()
Dim value As Integer = CInt(Int((1 * Rnd()) + 16))