CLR: .Net / Mono / Boo / Otros CLR > VB .NET

 Problema con un Programa de Visual Basic 2005

(1/1)

seudocodigo:
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?

nikitocba:
ejercisio de la facultad o curso de programacion? eso es un deber que te dieron... hacelo vos solo! y no, no hay una funcion que te escriba toda la sucecion.. solo te queda pasarle los valores de num q va tomando

Don_Hard:
enseñame la "Sucecion de Fibonacci", no tengo idea de que es, pero como dijo el compañero te ayudamos no te la hacemos, Saludos.- :D

Jeysscarr:
para la proxima mete tu código en estas etiquetas: " [ code = vbnet ] [ / code ] "
para que se vea asi:


--- Código: vb.net ---Public Class Form1 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickEndEnd Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim n As Longn = TextBox1.TextIf n = 0 ThenForm2.TextBox1.Text = 0Form2.Show()Me.Hide()ElseIf n = 1 ThenForm2.TextBox1.Text = 1Form2.Show()Me.Hide()ElseIf n < 0 ThenMsgBox("No existe suceción de numeros Negativos", MsgBoxStyle.Information)TextBox1.Text = ""ElseIf n >= 2 ThenForm2.TextBox1.Text = Fibon(n)Form2.Show()Me.Hide()End IfEnd SubPrivate Function Fibon(ByVal n As Long) As LongDim num As LongIf n = 1 Or n = 2 Thennum = 1Elsenum = Fibon(n - 2) + Fibon(n - 1)End IfReturn numEnd FunctionEnd Class Public Class Form2 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickForm1.TextBox1.Text = ""Form1.Show()Me.Hide()End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickEndEnd SubEnd Class 

Navegación

[0] Índice de Mensajes