How would I write a program in VB that displays fibinootchi numbers?
Printable View
How would I write a program in VB that displays fibinootchi numbers?
the C++ solution is as follows. You can easily convert this algorithm to VB code. This code specifically prints 5 numbers per line. Use an array where you see 'data'. I was using a vector declared as:
vector <int> data; (same as data[i])
Email me directly with further questions:
[email protected]
fibonacci(number)
{
for ( int i = 2; i < number; i++ )
{
if ( i > 1 )
{
if ( bolWritten == false )
{
printf("%12d%12d", data.at(0),data.at(1));
bolWritten = true;
intItemOnLine = 3;
}
data.push_back( data.at(i-1) + data.at(i - 2) );
if ( intItemOnLine < 5 )
{
printf("%12d", data.at(i));
intItemOnLine++;
}
else
{
printf("%12d\n", data.at(i));
intItemOnLine = 1;
}
} // end if
} // end for
} // end function
I once wrote a program for doing that. Past this into notepad and save it as a .frm file:
Code:VERSION 5.00
Begin VB.Form Fibonacci
BorderStyle = 3 'Fixed Dialog
Caption = "Calculate fibonacci's with strings!"
ClientHeight = 24
ClientLeft = 48
ClientTop = 336
ClientWidth = 5388
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 24
ScaleWidth = 5388
ShowInTaskbar = 0 'False
StartUpPosition = 3 'Windows Default
End
Attribute VB_Name = "Fibonacci"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim Running As Boolean
Private Function Telop(Getal1 As String, Getal2 As String) As String
'Getal2 is hier altijd > Getal1
Dim Opslag As Integer
Dim Uitkomst As String
Opslag = 0
Uitkomst = ""
For i = 1 To Len(Getal2)
If i <= Len(Getal1) Then
Opslag = Opslag + CInt(Left(Right(Getal1, i), 1)) + _
CInt(Left(Right(Getal2, i), 1))
Else
Opslag = Opslag + CInt(Left(Right(Getal2, i), 1))
End If
If Opslag < 10 Then
Uitkomst = Uitkomst & Opslag
Opslag = 0
Else
Uitkomst = Uitkomst & Opslag Mod 10
Opslag = (Opslag - (Opslag Mod 10)) / 10
End If
If i = Len(Getal2) And Opslag > 0 Then
'Bak er een eind aan
Uitkomst = Uitkomst & StrReverse(CStr(Opslag))
End If
Next
Telop = StrReverse(Uitkomst)
End Function
Private Sub Form_Load()
Running = True
Dim Eerste As String
Dim Tweede As String
Dim Swap As String
Dim Counter As String
Eerste = 1
Tweede = 2
Open App.Path & "\fibonacci.txt" For Output As #1
Print #1, "F1" & Chr(9) & Chr(9) & "=1"
Print #1, "F2" & Chr(9) & Chr(9) & "=1"
Counter = 3
Me.Show
Do
Swap = Eerste
DoEvents
Eerste = Tweede
DoEvents
Tweede = Telop(Swap, Tweede)
DoEvents
Print #1, "F"; Counter & Chr(9) & Chr(9) & "=" & Tweede
DoEvents
Counter = Telop("1", Counter)
Fibonacci.Caption = Counter & Chr(9) & Chr(9) & "Calculate fibonacci's with strings!"
Loop While Running
Close #1
End Sub
Private Sub Form_Unload(Cancel As Integer)
Running = False
End Sub
What the h*ll are fibinootchi numbers?
Yeah, who is fibinootchi anyway? Is he related to Fibonacci?
I have never heard of fibonootchi, but I think he means fibonacci.
Did the replies help you?
Quote:
Originally posted by oetje
Did the replies help you?
Yes! the replies helped, even made me giggle.
Quote:
Originally posted by coretta
Quote:
Originally posted by oetje
Did the replies help you?
Yes! the replies helped, even made me giggle.
But who/what is fibonacci ?
Jop this site tells things about Fibonacci:http://www-groups.dcs.st-and.ac.uk/~...Fibonacci.html
Hey, I just found a site that has a vb program that can draw pictures of fibonacci numbers.http://www.moonstar.com/~nedmay/chromat/fibonaci.htm
[QUOTE]Originally posted by oetje
Jop this site tells things about Fibonacci:http://www-groups.dcs.st-and.ac.uk/~...Fibonacci.html
Hey, I just found a site that has a vb program that can draw pictures of fibonacci numbers.http://www.moonstar.com/~nedmay/chromat/fibonaci.htm
[/QUOTE cool website! how did you ever find the site? thank!It explains more about fibonacci.
[QUOTE]Originally posted by coretta
Quote:
Originally posted by oetje
Jop this site tells things about Fibonacci:http://www-groups.dcs.st-and.ac.uk/~...Fibonacci.html
Hey, I just found a site that has a vb program that can draw pictures of fibonacci numbers.http://www.moonstar.com/~nedmay/chromat/fibonaci.htm
[/QUOTE cool website! how did you ever find the site? thank!It explains more about fibonacci.
[QUOTE]Originally posted by coretta
Quote:
Originally posted by coretta
Quote:
Originally posted by oetje
Jop this site tells things about Fibonacci:http://www-groups.dcs.st-and.ac.uk/~...Fibonacci.html
Hey, I just found a site that has a vb program that can draw pictures of fibonacci numbers.http://www.moonstar.com/~nedmay/chromat/fibonaci.htm
[/QUOTE
Cool website! how did you ever find the site? Thanks! It explains more about fibonacci.
[QUOTE]Originally posted by coretta
Quote:
Originally posted by coretta
Quote:
Originally posted by coretta
Quote:
Originally posted by oetje
Jop this site tells things about Fibonacci:http://www-groups.dcs.st-and.ac.uk/~...Fibonacci.html
Hey, I just found a site that has a vb program that can draw pictures of fibonacci numbers.http://www.moonstar.com/~nedmay/chromat/fibonaci.htm
[/QUOTE
Cool website! how did you ever find the site? It explains more about fibonacci.
Thanks
Coretta, I just typed "fibonacci" into Altavista...
Thank you for showing me the way. I have to get back to work now! Chat with you later.Quote:
Originally posted by oetje
Coretta, I just typed "fibonacci" into Altavista...
Coretta, I'm sorry but what are you doing?
Oetje, thanx for the sites!