[ Πίνακες ] Ορισμός τυχαίου αριθμού σε πεδίο πίνακα

[Tasos]

Καλημέρα!
Είχα φτιάξει κάτι παρόμοιο αλλά δεν το δημοσίευσα τελικά αφού η χρήση του
σε πολλά δεδομένα (όπου θα υπάρξει αισθητή διαφορά χρόνου εκτέλεσης) θα είναι μάλλον περιορισμένη:

Function MixArray(LngMin&, LngMax&) As Variant

    Dim i&, x#, rng&, Itm&

    ReDim xKeys(LngMin To LngMax)

    For i = LngMin To LngMax - 1

        xKeys(i) = i + 1

    Next

    rng = LngMax - LngMin

    For i = LngMin To LngMax - 1

        x = Int(Rnd * rng) + i

        Itm = xKeys(x)

        xKeys(x) = xKeys(i)

        xKeys(i) = Itm

        rng = rng - 1

    Next

    MixArray = xKeys

End Function



Sub MakeMixedArray()

    Dim MyMixedArray

    MyMixedArray = MixArray(1, 500000)

End Sub
        

[dimitris p]

Αρχική Δημοσίευση από Tasos

Καλημέρα!
Είχα φτιάξει κάτι παρόμοιο αλλά δεν το δημοσίευσα τελικά αφού η χρήση του
σε πολλά δεδομένα (όπου θα υπάρξει αισθητή διαφορά χρόνου εκτέλεσης) θα είναι μάλλον περιορισμένη:

Function MixArray(LngMin&, LngMax&) As Variant

    Dim i&, x#, rng&, Itm&

    ReDim xKeys(LngMin To LngMax)

    For i = LngMin To LngMax - 1

        xKeys(i) = i + 1

    Next

    rng = LngMax - LngMin

    For i = LngMin To LngMax - 1

        x = Int(Rnd * rng) + i

        Itm = xKeys(x)

        xKeys(x) = xKeys(i)

        xKeys(i) = Itm

        rng = rng - 1

    Next

    MixArray = xKeys

End Function



Sub MakeMixedArray()

    Dim MyMixedArray

    MyMixedArray = MixArray(1, 500000)

End Sub

ΠΡΟΒΛΗΜΑ με τους τυχαίους αριθμούς σε πίνακα.

Καλησπέρα σε όλους τους φίλους του forum.
Πριν από μερικές ημέρες είχα ζητήσει την βοήθειά σας για κάτι που ήθελα να κάνω.
Σαν λύση χρησιμοποίησα τον κώδικα που είχε φτιάξει ο Τάσος και όλα φαινόταν να λειτουργούν καλά.
Σήμερα που χρησιμοποίησα τη Βάση δεδομένων μου βγάζει ένα μήνυμα λάθους το οποίο δεν μπορώ να καταλάβω γιατί το βγάζει.
Επισυνάπτω τη ΒΔ και αν μπορεί κάποιος ας βοηθήσει.

Φιλικά Δημήτρης

[Tasos]

Δημήτρη καλησπέρα!
Γράψε μας το νούμερο και την περιγραφή του μηνύματος λάθους που παίρνεις.

Φιλικά Τάσος