Monografias.com > Computación > Software
Descargar Imprimir Comentar Ver trabajos relacionados

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 

    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.

    Categorias
    Newsletter