Sayının Asal Olup Olmadığını Ve Çarpanlarını Bulma VB.Net

Sayının Asal Olup Olmadığını Ve Çarpanlarını Bulma VB.Net

Kullanım:Textbox’a deger girdikten sonra göster butonuna tıklıyoruz.Ve sayının carpanlarını Listbox’da görebiliyoruz.Sayının asal olup olmadıgını ise  Label’de görebiliyoruz.

Programımızda Kullanılan Nesneler:2 Label,1 Button,1 Textbox,1 Listbox…Gerekli kodlar asagıda yazılıdır.

[code language=”vbnet”]

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim deneme As Single
Dim bolunen, bolen As Integer
Label1.Text = TextBox1.Text + " Sayısının Çarpanı"
ListBox1.Items.Clear()
bolunen = Val(TextBox1.Text)
Do
bolen = 1
deneme = bolunen
Do
bolen = bolen + 1
deneme = bolunen / bolen
Loop Until deneme = Math.Round(deneme)
bolunen = deneme
ListBox1.Items.Add(bolen.ToString)
If (TextBox1.Text) = bolen Then
Label2.Text = "Sayı asaldır"
Else
Label2.Text = "Sayı asal değildir"
End If
Loop Until bolunen = 1
TextBox1.Clear()
End Sub
End Class

[/code]

Projeyi İndir

Yorumlar 8

Bir yanıt yazın

E-posta adresiniz yayınlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir