Favorilerine Ekle | Giriş Sayfan Yap | Tavsiye Et

 

Kurs Tanıtım Sayfası | Süper Üye Kimdir? | Menü Tasarımı Konulu Örnek Ders
Kod İndir| Hazır Kodlar | Makaleler| İpuçları | VB .NET Kursu | Dersler | Forum | Alt Bölümler | Servisler
    Merhaba Misafir
    anasayfa » visual basic makaleleri » Asal Sayıları Bulmanın Kolay Yolu
Üye Girişi
Kullanıcı Adı:  
Şifre : 
Kaydet ?
Siteden tam olarak faydalanabilmek için üye olmalısınız.
Unuttuğunuz şifrenizi öğrenebilmek için kayıt sırasında verdiğiniz Hatırlatma Cevabı'nı bilmeniz gereklidir.
Şifre hatırlatma işlevini sadece 3 defa kullanma hakkınız vardır.
Kullanıcı adını ve şifresini unutan üyelere email ile yardım verilmez.

Aktivasyon Gelmedi mi?Aktivasyon mesajınız email adresinize gelmedi mi?
Buraya tıklayarak bir kez daha aktivasyon mesajı gönderilmesini sağlayabilirsiniz.
Lütfen email hesabınızın BULK ve SPAM klasörlerini de kontrol ediniz.
Rastgele Makale

Flash MX 2004

Yazar: mehmet1984
Flash MX 2004 Professional ile Sunum Hazırlamak - Screens (Ekranlar)


Webmasterlar
Sitenize Ekleyin!
Sitenizde "Son Eklenen 10 Visual Basic Yazısı"'nı göstermek ve içeriğini zenginleştirmek için buraya tıklayınız.

Vbasicmaster.com'a link verin!
Aşağıdaki minik banneri sitenize eklemek için tıklayın!

Üye Sayısı:
Ziyaretçiler nerede?
Yayın № : 10508
Yayın Tar:11.07.2008
Yazar : ahmetysfl
Hit :2206

Bu Yazarın Yazıları Sadece bu yazarın makale göster
Bu Yazıyı Tavsiye Et

Bu kodu anlaya bilmeniz için Do Until, İf, Mod deyimlerini bilmeniz yeterlidir. İlk olarak foruma 1 textbox ve bir comamdbutton ekliyoruz ve kod bölümüne şu kodu ekliyoruz.

Private Sub Command1_Click()
Dim sayı As Double
a = 2
sayı = Text1.Text
If sayı <= 1 Then
MsgBox ("Lütfen 1 den büyük bir sayı giriniz")
Else
If sayı = 2 Or sayı = 3 Then
MsgBox ("Sayı Asaldır")
Else
If (sayı Mod a) = 0 Then
MsgBox ("Sayı Asal Değildir")
Else
Do Until a = (sayı - 1)
sonuc = (sayı Mod a)
a = a + 1
If sonuc = 0 Then
MsgBox ("Sayı Asal Değildir")
Exit Do:
Else
If a = (sayı - 1) Then
MsgBox ("Sayı Asaldır")
Exit Do
End If
End If
Loop
End If
End If
End If
End Sub

Şimdi bu yolla nasıl asal sayı bulunduğunu açıklayalım.

Dim sayı As Double
a = 2
sayı = Text1.Text

Bir sayı ve a değişkenlerini belirledik. Sayı değişkenin değeri text1.text a değişkenin değeri ise 2 dir.

If sayı <= 1 Then
MsgBox ("Lütfen 1 den büyük bir sayı giriniz")
Else

Burda bir if deyimi kullanıp 1 den büyük bir sayı girme şartı koyduk çünkü bildiğiniz gibi en küçük asal sayı 2 dir.

If sayı = 2 Or sayı = 3 Then
MsgBox ("Sayı Asaldır")
Else

sayı değişkeni 2 veya 3 se direk asal sayıdır dedik.

If (sayı Mod a) = 0 Then
MsgBox ("Sayı Asal Değildir")
Else

eğer sayı a modlanması sonucu sıfırsa sayı asal değildir.

Do Until a = (sayı - 1)
sonuc = (sayı Mod a)
a = a + 1

Bir döngü başlattık ve dögü a değişkeni a-1 eşit oluncaya kadar devam edecek ve sayı a ile modlanması sonuc değişkenine eşit olacaktır. Her döngüde a değişkenini bir artırdık.

If sonuc = 0 Then
MsgBox ("Sayı Asal Değildir")
Exit Do:
else

eğer sonuc değişkeni 0 a eşitse sayı asaldeğildir ve döngüden çıkarız.

If a = (sayı - 1) Then
MsgBox ("Sayı Asaldır")
Exit Do
eğer a değişkeni sayı-1 e eşit olmuşsa sayı asal demektir.


Evet arkadaşlar Bu yolu bu sitede görmedim ve ondan bu yolu yazdım.




Bu sayfa için henüz yorum eklenmemiş.

© Hakan Ersöz 2000-2013| Üyelik Sözleşmesi | | Ödeme Bildirimi
Sitemizden yenilikleri hemen öğrenin, pop upları engelleyin, chat yapın... ToolBarımızı indirin:
Vasicmaster Toolbar'ı indirin