Anasayfa > Kodlar > Asal sayı bulan program

Asal sayı bulan program


Girilen iki sayı arasındaki asal sayıları bulur

Private Sub Command1_Click()
Dim i, j, asl As Boolean
On Local Error Resume Next
List1.Clear
ProgressBar1.Visible = True
ProgressBar2.Visible = True
ProgressBar1.Min = 0
ProgressBar2.Max = Val(Text2) - Val(Text1)
For i = Val(Text1) To Val(Text2)
asal = True
ProgressBar2.Min = 2
ProgressBar2.Max = i
ProgressBar1.Value = i - Val(Text1)
For j = 2 To i - 1
ProgressBar2.Value = j
DoEvents
If (i Mod j) = 0 Then
asal = False
Exit For
End If
Next
If asal Then List1.AddItem i
Next
ProgressBar1.Visible = False
ProgressBar2.Visible = False

End Sub

Private Sub Form_Load()
ProgressBar1.Align = vbAlignBottom
ProgressBar2.Align = vbAlignBottom
ProgressBar1.Visible = False
ProgressBar2.Visible = False
End Sub

  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: