DonanımHaber Mini sürüm 2 Ocak 2026 tarihi itibariyle kullanımdan kalkacaktır. Bunun yerine daha hızlı bir deneyim için DH Android veya DH iOS uygulamalarını kullanabilirsiniz.
Module Module1 Dim a(20) As Integer Sub Main() Randomize() For i = 1 To 20 a(i) = (50 + (Rnd() * 50)) Console.WriteLine(a(i)) Next Console.ReadLine() End Sub
End Module
Uygulama amacı rastgele ve birbirinden farklı sayılar üretmek rastgele sayı üretmek kısmını hallettim ama farklı sayılar üretemiyorum aynı sayıdan bazen 2-3 tane üretebiliyor bunu nasıl halledebilirim.
DH forumlarında vakit geçirmekten keyif alıyor gibisin ancak giriş yapmadığını görüyoruz.
Üye olduğunda özel mesaj gönderebilir, beğendiğin konuları favorilerine ekleyip takibe alabilir ve daha önce gezdiğin konulara hızlıca erişebilirsin.
Dim a(20) As Integer
Sub Main()
Randomize()
For i = 1 To 20
a(i) = (50 + (Rnd() * 50))
Console.WriteLine(a(i))
Next
Console.ReadLine()
End Sub
End Module
Uygulama amacı rastgele ve birbirinden farklı sayılar üretmek rastgele sayı üretmek kısmını hallettim ama farklı sayılar üretemiyorum aynı sayıdan bazen 2-3 tane üretebiliyor bunu nasıl halledebilirim.
DH forumlarında vakit geçirmekten keyif alıyor gibisin ancak giriş yapmadığını görüyoruz.
Üye Ol Şimdi DeğilÜye olduğunda özel mesaj gönderebilir, beğendiğin konuları favorilerine ekleyip takibe alabilir ve daha önce gezdiğin konulara hızlıca erişebilirsin.