- Resumen
- Dos valores enteros son o no
iguales - Un caracter dado es o no una
letra - Un entero es o no
par - Máximo
común divisor sin recursividad - Mayor de tres
valores reales - a
Elevado a la n, siendo a y n números reales con
recursividad - Sucesión
Fibonacci con recursividad - Máximo
común divisor de dos números enteros con
recursividad - Combinatorio
(n c r) con recursividad - Factorial de
un numero usando recursividad - Edad
de una persona - Programa para
obtener las 6 funciones trigonométricas de un
ángulo introducido en radianes - 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
Página siguiente |