• Viernes 8 de Noviembre de 2024, 12:30

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - seudocodigo

Páginas: [1]
1
VB .NET / Problema con un Programa de Visual Basic 2005
« en: Viernes 9 de Abril de 2010, 04:45 »
Hola que tal este es mi primera participación en el foro.
Estoy empezando a programar en Visual Basic 2005 y como todo principiante en programación, se me ocurren muchas ideas pero no conosco muy bien los elementos y las funciones de visual basic 2005.
Bueno sin mas rodeos les muestro mi codigo Sucecion de Fibonacci en forma Recursiva.

Public Class Form1

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        End
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim n As Long
        n = TextBox1.Text
        If n = 0 Then
            Form2.TextBox1.Text = 0
            Form2.Show()
            Me.Hide()
        ElseIf n = 1 Then
            Form2.TextBox1.Text = 1
            Form2.Show()
            Me.Hide()
        ElseIf n < 0 Then
            MsgBox("No existe suceción de numeros Negativos", MsgBoxStyle.Information)
            TextBox1.Text = ""
        ElseIf n >= 2 Then
            Form2.TextBox1.Text = Fibon(n)
            Form2.Show()
            Me.Hide()
        End If
    End Sub
    Private Function Fibon(ByVal n As Long) As Long
        Dim num As Long
        If n = 1 Or n = 2 Then
            num = 1
        Else
            num = Fibon(n - 2) + Fibon(n - 1)
        End If
        Return num
    End Function
End Class

Public Class Form2

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Form1.TextBox1.Text = ""
        Form1.Show()
        Me.Hide()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        End
    End Sub
End Class

En el formulario dos quisiera poner otro boton que imprima la sucecion ya que en el formulario uno solo en boton de Button1_Click me imprime el puro resultado. ¿Mi pregunta es  como hago para que me imprima la sucesion hay alguna funcion?

Páginas: [1]