[Beyaz Tahribat] Vb"De Fibonacci Dizisi Oluşturmak

Tahribat.com Forumları
line

Visual Basic - Basic - PicBasic ve Türevleri
line

[Beyaz Tahribat] Vb"De Fibonacci Dizisi Oluşturmak

10/Tem/08 17:27 Kısayol Şikayet Özel Mesaj

camarade
ontedi

Kayıt Tarihi: 04/Eylül/2005

Azıcık hatırlayalım.

Fibonacci dizisi birbirini takip eden sayıların toplamı şeklinde yazılır

Mesela ilk sayımız 2, ikinci sayımız 5 olsun, üçüncü sayımız 7 olur, 4. sayımız 12 olur.

Form'a bir tane combobox, 3 tane textbox, 2 tane command buton ekleyin.

Private Sub Command1_Click()
Dim birinci, ikinci, adet, sonraki As Integer
birinci = Val(Text1.Text) 'Text kutusundan ilk değer alınıp Val fonksiyonu ile sayısal veriye dönüştürülüyor
ikinci = Val(Text2.Text) 'Text kutusundan ikinci değer alınıp Val fonksiyonu ile sayısal veriye dönüştürülüyor
adet = Val(Text3.Text) 'Text kutusundan üçüncü değer alınıp Val fonksiyonu ile sayısal veriye dönüştürülüyor
sonraki = birinci + ikinci 'Örneğin; İlk değer 8, ikinci değer 11 ise üçüncü değer 19 olacaktır.
toplam = sonraki + sonraki 'Gelen değerlerin ilk toplamını belirliyoruz
            Combo1.AddItem "Fibonacci 1 :" & birinci 'Combo kutusuna ilk değerimizi ekliyoruz
            Combo1.AddItem "Fibonacci 2 :" & ikinci 'Combo kutusuna ikinci değerimizi ekliyoruz
            Combo1.AddItem "Fibonacci 3 :" & sonraki 'Combo kutusuna üçüncü değerimizi ekliyoruz
            sonraki = birinci + ikinci ' 8, 11 den sonra 19 gelmesini sağlıyoruz
            For i = 4 To adet 'Toplam n-adet değerin ilk üçünü başta girdik sıra diğerlerine geldi. Dögüyü başlattık
            birinci = ikinci 'birinci = 8, ikinci = 11, sonraki = 19 sayılarını ekledikten sonra değişkenlere yeni değerleri veriliyor. Yeni değeri ise şöyle olur birinci = 11, ikinci = 19, sonraki = 30 yapılmasını sağladık.
            ikinci = sonraki
            sonraki = birinci + ikinci
            toplam = toplam + sonraki 'Dizinin elemanlarının toplamına devam ediyoruz.
            Combo1.AddItem "Fibonacci " & i & " :" & sonraki 'Bulduğumuz her bir değeri Comboya ekliyoruz.
            Next i 'Bir sonraki i değerine geçmesini sağlıyoruz.
            MsgBox ("Dizi Elemanları Eklenmiştir."), , "Bilgi" 'Artistlik yapıp mesaj verdirelim.
            Form1.Print "    Ortalama " & toplam / adet 'Sonracığıma form üzerine ortalamayı yazdıralım.
End Sub

Private Sub Command2_Click()
End 'İkinci butona basınca program -okus pokus kaybol ortadan -
End Sub


Matematikçi ve Yazılımcı. http://www.ontedi.com ve http://www.cizgi.site Siteme beklerim herkesi.

Alıntı yap

Toplam Hit: 2438 Toplam Mesaj: 1

Cevapla