AnasayfaBu derste "timer" yardımı ile faktoriyel bulma programı yapalım.
1 Public Class Form1
2 Dim sayı, sonuc As Integer
3
4 Private Sub Button1_Click
5 sayı = TextBox1.Text + 1
6 sonuc = 1
7 Timer1.Start()
8 Timer1.Interval = 1
9
9
10Private Sub Timer1_Tick
11try
12 sayı = sayı - 1
13 sonuc = sonuc * sayı
14 If sayı = 1 Then
15 MsgBox(sonuc)
16 Timer1.Stop()
18 End If
19 catch
19 end try
20
21 Kullanılanlar;
22 1 textbox ,1 button ,1 timer1
23
1 Public Class Form1
2 Dim sayı, sonuc As Integer
3
4 Private Sub Button1_Click
5 sayı = TextBox1.Text + 1
6 sonuc = 1
7 Timer1.Start()
8 Timer1.Interval = 1
9
9
10Private Sub Timer1_Tick
11try
12 sayı = sayı - 1
13 sonuc = sonuc * sayı
14 If sayı = 1 Then
15 MsgBox(sonuc)
16 Timer1.Stop()
18 End If
19 catch
19 end try
20
21 Kullanılanlar;
22 1 textbox ,1 button ,1 timer1
23