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.
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.