Rastgele Tek ve Çift Sayı Üretmek Vb.Net

[ÜzgünAdam]

Merhaba MemoryHackers Üyeleri Bugun sizlere Vb.Nette Rastgele veya çift sayı üretmeyi göstereceğim.

(Kodlar bana ait değildir.Konu Tamamen alıntı değildir resimde yazıyor zaten)

Adımlar:
1.Fotograftakileri Yapın.
2.Form 1 e tıklayın
3.Oradakileri silin.
4.verdiğim kodları yapıştırın
5.Butona basın ve oldu.

İNDİR:

Bağlantıları görmek için lütfen Giriş Yap

VİRÜS TOTAL:

Bağlantıları görmek için lütfen Giriş Yap

Sorun Çıkarsa Yorumlara Veya Özel Mesaj atın.

Kod:

Public Class Form1
 
Private rsayi1 As Integer, rsayi2 As Integer
 
'rastgele üretilecek sayıları atayacağımız değişkenleri tanımlıyoruz.
 
'global olsun diye rsayi1 ve rsayi2'yi burada tanımladık
 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
Dim durum1 As Boolean = False, durum2 As Boolean = False
 
' kontrol için iki değişken tanımladım
 
Dim r As New Random()
 
While durum1 = False OrElse durum2 = False
 
'durum1 veya durum2 false olduğu sürece güzel
 
' parantezler içindeki yap yani durum1 ve durum2 ikiside true yapılana kadar işlemleri yapar
 
rsayi2 = r.[Next](100)
 
'0 ile 100 arasında rastgele sayı üret
 
rsayi1 = r.[Next](100)
 
'0 ile 100 arasında rastgele sayı üret
 
If (rsayi1 Mod 2) = 1 AndAlso (rsayi2 Mod 2) = 0 Then
 
'rsayi1'in 2'ye bölümünden kalan 1 yani tek ise ve
 
'rsayi2'in 2'ye bölümünden kalan 0 yani çift ise
 
durum2 = True
 
'durum değişkeni true yap.
 
'durum değişkeni true yap.
 
'durum1 ve durum2 değişkenlerinin her ikisi true olunca whilw döngüsü sona erer
 
durum1 = True
 
End If
 
End While
 
Label3.Text = rsayi1.ToString()
 
'üretilen tek sayıyı label3'de göster
 
Label4.Text = rsayi2.ToString()
 
'üretilen çift sayıyı label4'de göster
 
End Sub
 
End Class[CODE]

 

[Hélsing]

Teşekkürler Hile Kodlayanların İşine Yaradı Ve İlk Yorum

 

[ÜzgünAdam]

Teşekkürler Hile Kodlayanların İşine Yaradı Ve İlk Yorum

Rica Ederim

 

[BlackDesign]

Emeğinize Sağlık

 

[ÜzgünAdam]

Not:tanımlıyoruz felan yazıyor onları silmeyin silerseniz çalışmaz.

 

[WhatRexTure]

Teşekkürler Kodlama yapanların işinii kolaylaştıracaktır

 

[ÜzgünAdam]

Güncel+++

 

[xtragyne1st]

Teşekkürler dostum

 

[ÜzgünAdam]

Teşekkür Edenler (Rica Ederim)

 

[WhatRexTure]

Güncel+++

12 saaat geçtikten sonra bir mesaj yazabilirsin benden hemen sonra yazmışsın forum kurallarında yazıyor

 

[WhatRexTure]

12 saatte bir yorum gelmezzse yazabilirsin

 

[ÜzgünAdam]

12 saaat geçtikten sonra bir mesaj yazabilirsin benden hemen sonra yazmışsın forum kurallarında yazıyor

Bilmiyordum da 12 saatte birmi yazacağım ?

 

[WhatRexTure]

aynen de benim mesajlar niye tekrarlanıyor

 

[ÜzgünAdam]

3 Defa Yazdın @WhatRexTure

 

[canwlat]

teşekkür ederim

 

[WhatRexTure]

12 saaat geçtikten sonra bir mesaj yazabilirsin benden hemen sonra yazmışsın forum kurallarında yazıyor

3 Defa Yazdın @WhatRexTure

nabıyım bug var galiba

 

[ÜzgünAdam]

teşekkür ederim