Faktoriyel bulma programı

Bu derste "timer" yardımı ile faktoriyel bulma programı yapalım.

Bu derste "timer" yardımı ile faktoriyel bulma programı yapalım.


Public Class Form1

    Dim sayı, sonuc As Integer



Private Sub Button1_Click

sayı = TextBox1.Text + 1

        sonuc = 1

        Timer1.Start()

Timer1.Interval = 1



Private Sub Timer1_Tick

try

sayı = sayı - 1

        sonuc = sonuc * sayı

        If sayı = 1 Then

            MsgBox(sonuc)

            Timer1.Stop()

        End If

catch

end try



Kullanılanlar;

1 textbox ,1 button ,1 timer1

  • Etiketler;
Yorum Yaz

Yorum yazabilmek için üye girişi yapmanız gerekiyor!

• 10 yıl önce
arkadaşlar bu programı ben yaptım. yanlışlıkla bu beyin ismini seçmişim.
• 10 yıl önce
Siz yaptınız da, isminizi belirtirseniz düzeltiriz.
• 10 yıl önce
sertaç yardımcı ismim

Yukarı Git