HERAKLES Otomatik Avlı kalıcı sunucu. 19 Haziran'da açılıyor. Atius & Wizard güvencesiyle hemen kayıt ol, ön kayıt ödülleri aktif. HEMEN TIKLA!
Evet Arkadaşlar Bugun Rastgele Sayı Uretmeyi Göstericem
Gerekli Olanlar
1 Label
1 Button
Evet Başlıyalım İlk Önce Label1'e Tıklayın ve Protaties'den Text'e Gelip Ordaki Label1 Yazısını Silin Veya İstediginiz Şekilde Yazı Yazın
Ve Button'un adınıda istediginix gibi duzenleyin
ve Button'a Çift Basın ve Kod Bolumune
Label1.Text = Int (Rnd() * 100) + 1 Kodumuz Bu Daha Sonra Programı Çalıştırın Ve Farkı Görun
Şimdi Kodların Ne İşe Yaradıgı
Label1.Text = Int (Rnd() * 100) + 1
Label1.Text Nereye Yazılacagı
Int (Rnd() * 100) + 1
İse 1 ile 100 Arasındaki Rastgele Çıkacak Sayı ve Sayının Tam Olması Yani Bu Kodu Yazıp da 0,123123123 gibi bir sayı cıkması imkansız ama ben 0,123123123 gibi sayılar cıkmasını istiyorsam.
Label1.Text = Rnd() * 25
Bu Kodlarıda Açıklıyım
Label1.Text
Label1.Text Text yazılacak anlamında oldugu icin Label1'e Yazılacak Ama Bu Sefer Diyecekki Label1'e ne Yazıcagız işte
Bu Yuzden Bu Kodun Devamı Getirilmiş Biz Sayı Cıkmasını İstiyoruz
Bu Yuzden = Rnd() * 25 kodunu yazıyoruz
Diyeceksinizki
* 25 Ne İşe yarıyor o 0 ile 25 arasındaki bir ondalık sayı cıkıcagını gösteriyor
Ben Bu Sınırı Kaldırmak İstiyorum Napıcam Diyorsanız Aynen Bu Kodu Yazıcaksınız
Label1.Text = Rnd()
Yazıcaksınız ve Sınırı Olmuyan Sayı Cıkar.
Bu Kodlarıda Anlatıyım
Label1.Text Label1'e Yazılacak
= Rnd() Buda Ondalık Şekilde Belirsiz Sayı Cıkacagını Gösterir
Ben Kendi İstedigim Sayıyı Çıkarmak İstiyorum
Bu Sefer Oda Kolay Hemde Ondalıklı olmucak
Label1.Text = Int(Rnd()+100) Yazıyoruz ve İstedikleri Kadar Bassınlar 100 Çıkar Siz O Yuz Sayısını Degistirin
Hep O Sayı Çıkar
Misal
Ben Label1.Text = Int(Rnd()+1000)
Yaptım Kim Basarsa Bassın 1000 sayısı cıkar ama * 1000 yazsakdık o zmn 0 ile 1000 arasındaki sayılar çıkardı
İyi Günler İyi Forumlar
Gerekli Olanlar
1 Label
1 Button
Evet Başlıyalım İlk Önce Label1'e Tıklayın ve Protaties'den Text'e Gelip Ordaki Label1 Yazısını Silin Veya İstediginiz Şekilde Yazı Yazın
Ve Button'un adınıda istediginix gibi duzenleyin
ve Button'a Çift Basın ve Kod Bolumune
Label1.Text = Int (Rnd() * 100) + 1 Kodumuz Bu Daha Sonra Programı Çalıştırın Ve Farkı Görun
Şimdi Kodların Ne İşe Yaradıgı
Label1.Text = Int (Rnd() * 100) + 1
Label1.Text Nereye Yazılacagı
Int (Rnd() * 100) + 1
İse 1 ile 100 Arasındaki Rastgele Çıkacak Sayı ve Sayının Tam Olması Yani Bu Kodu Yazıp da 0,123123123 gibi bir sayı cıkması imkansız ama ben 0,123123123 gibi sayılar cıkmasını istiyorsam.
Label1.Text = Rnd() * 25
Bu Kodlarıda Açıklıyım
Label1.Text
Label1.Text Text yazılacak anlamında oldugu icin Label1'e Yazılacak Ama Bu Sefer Diyecekki Label1'e ne Yazıcagız işte
Bu Yuzden Bu Kodun Devamı Getirilmiş Biz Sayı Cıkmasını İstiyoruz
Bu Yuzden = Rnd() * 25 kodunu yazıyoruz
Diyeceksinizki
* 25 Ne İşe yarıyor o 0 ile 25 arasındaki bir ondalık sayı cıkıcagını gösteriyor
Ben Bu Sınırı Kaldırmak İstiyorum Napıcam Diyorsanız Aynen Bu Kodu Yazıcaksınız
Label1.Text = Rnd()
Yazıcaksınız ve Sınırı Olmuyan Sayı Cıkar.
Bu Kodlarıda Anlatıyım
Label1.Text Label1'e Yazılacak
= Rnd() Buda Ondalık Şekilde Belirsiz Sayı Cıkacagını Gösterir
Ben Kendi İstedigim Sayıyı Çıkarmak İstiyorum
Bu Sefer Oda Kolay Hemde Ondalıklı olmucak
Label1.Text = Int(Rnd()+100) Yazıyoruz ve İstedikleri Kadar Bassınlar 100 Çıkar Siz O Yuz Sayısını Degistirin
Hep O Sayı Çıkar
Misal
Ben Label1.Text = Int(Rnd()+1000)
Yaptım Kim Basarsa Bassın 1000 sayısı cıkar ama * 1000 yazsakdık o zmn 0 ile 1000 arasındaki sayılar çıkardı
İyi Günler İyi Forumlar
Son düzenleme:
Şu an konuyu görüntüleyenler (Toplam : 0, Üye: 0, Misafir: 0)
Benzer konular
- Sabit
Altın Konu
Anka2 Project SF | 2025
