You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
Uygulama No: 16 – Asal Sayı Testi<br />
VB.Net Örnek Uygulamalar<br />
2 Kasım 2011<br />
Açıklama : Sayı asal ise “Asaldır” mesajı veriliyor. Aksi halde sayının ilk böleni gösteriliyor.<br />
Ekran Görüntüsü<br />
Public Class Form1<br />
Açıklamalı Kodlar<br />
Private Sub BtnAsalmi_Click(ByVal sender As System.Object, ByVal e As<br />
System.EventArgs) Handles BtnAsalmi.Click<br />
Dim asalmi As Boolean = True<br />
Dim say As UInt64 ‘En büyük tamsayı türü.<br />
For say = 2 To TxtSayi.Text / 2 ‘Sayının yarısına kadar bölen<br />
araştırılacak.<br />
If TxtSayi.Text Mod say = 0 Then ‘Eğer tam bölüyor ise…<br />
asalmi = False<br />
Exit For ‘Daha fazla araştırmaya gerek yok.<br />
End If<br />
Next<br />
If asalmi = True Then ‘Demekki yukarıdaki koşula hiç girmemiş.<br />
MsgBox("ASALDIR")<br />
Else : MsgBox("ASAL DEĞİLDİR. " & say & " sayısı bu sayıyı<br />
böler.")<br />
End If<br />
End Sub<br />
End Class<br />
Tolga GÜYER Sayfa 26
Change language