Monografías Plus      Agregar a favoritos      Ayuda      Português      Ingles     

Programas de recursividad y otros, creados en Visual Basic 2005

Enviado por jaimemontoya



Partes: 1, 2

  1. Resumen
  2. Dos valores enteros son o no iguales
  3. Un caracter dado es o no una letra
  4. Un entero es o no par
  5. Máximo común divisor sin recursividad
  6. Mayor de tres valores reales
  7. a Elevado a la n, siendo a y n números reales con recursividad
  8. Sucesión Fibonacci con recursividad
  9. Máximo común divisor de dos números enteros con recursividad
  10. Combinatorio (n c r) con recursividad
  11. Factorial de un numero usando recursividad
  12. Edad de una persona
  13. Programa para obtener las 6 funciones trigonométricas de un ángulo introducido en radianes
  14. Programa para convertir un valor introducido en radianes, a grados-minutos-segundos

RESUMEN

En este documento se presentan los códigos de 14 programas muy interesantes y útiles creados en Visual Basic 2005. En muchos de ellos se utiliza recursividad. Solamente hará falta crear el formulario y los objetos que coincidan con el código presentado en cada programa. En general será fácil crear el formulario con los objetos, para luego copiar y pegar el código y así ejecutar cada uno de los programas.

1. DOS VALORES ENTEROS SON O NO IGUALES

Public Class Form1

Function iguales(ByVal x As Integer, ByVal y As Integer) As Boolean

If x = y Then

Return True

Else

Return False

End If

End Function

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

TextBox3.Text = iguales(TextBox1.Text, TextBox2.Text)

End Sub

End Class

2. UN CARACTER DADO ES O NO UNA LETRA

Public Class Form1

Function letraono(ByVal x As String) As Boolean

If Val(TextBox1.Text) = 0 Then

Return True

Else

Return False

End If

End Function

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

TextBox2.Text = letraono(TextBox1.Text)

End Sub

End Class

3. UN ENTERO ES O NO PAR

Public Class Form1

Function parono(ByVal x As Integer) As Boolean

Dim residuo As Integer

residuo = x Mod 2

If residuo = 0 Then

Return True

Else

Return False

End If

End Function

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

TextBox2.Text = parono(TextBox1.Text)

End Sub

End Class


Partes: 1, 2

Página siguiente 

Comentarios


Trabajos relacionados

Ver mas trabajos de Software

 
 

Nota al lector: es posible que esta página no contenga todos los componentes del trabajo original (pies de página, avanzadas formulas matemáticas, esquemas o tablas complejas, etc.). Recuerde que para ver el trabajo en su versión original completa, puede descargarlo desde el menú superior.


Todos los documentos disponibles en este sitio expresan los puntos de vista de sus respectivos autores y no de Monografias.com. El objetivo de Monografias.com es poner el conocimiento a disposición de toda su comunidad. Queda bajo la responsabilidad de cada lector el eventual uso que se le de a esta información. Asimismo, es obligatoria la cita del autor del contenido y de Monografias.com como fuentes de información.

Iniciar sesión

Ingrese el e-mail y contraseña con el que está registrado en Monografias.com

   
 

Regístrese gratis

¿Olvidó su contraseña?

Ayuda