ຄຳສັ່ງ Randomize

ກຳນົດຄ່າເລີ່ມຕົ້ນໃຫ້ກັບຕົວສຸ່ມຕົວເລກທີ່ໃຊ້ໂດຍຟັງຊັນ Rnd.

ໄວຍາກອນ:


Randomize [ຕົວເລກ]

ພາລາມິເຕີ:

ຕົວເລກ: ຄ່າຈຳນວນຖ້ວນໃດໜຶ່ງ. ໃຊ້ເປັນຄ່າເລີ່ມຕົ້ນ (seed) ເພື່ອເລີ່ມເຮັດວຽກຕົວສ້າງຕົວເລກແບບສຸ່ມ. ຄ່າເລີ່ມຕົ້ນທີ່ຄືກັນຈະສົ່ງຜົນໃຫ້ໄດ້ລຳດັບຕົວເລກແບບສຸ່ມທີ່ຄືກັນໂດຍຟັງຊັນ Rnd. ຖ້າຫາກລະພາລາມິເຕີນີ້ໄວ້, ຄຳສັ່ງ Randomize ຈະຖືກລະເລີຍ.

ນອກຈາກວ່າທ່ານຕ້ອງການລຳດັບຕົວເລກທີ່ຄາດການໄວ້ໄດ້, ມັນບໍ່ຈຳເປັນຕ້ອງໃຊ້ຄຳສັ່ງ Randomize ເພາະວ່າຕົວສ້າງຕົວເລກແບບສຸ່ມຈະຖືກເລີ່ມເຮັດວຽກໂດຍອັດຕະໂນມັດເມື່ອໃຊ້ງານຄັ້ງທຳອິດ – ມັນຈະຖືກຕັ້ງຄ່າເລີ່ມຕົ້ນໂດຍໃຊ້ຕົວສ້າງຕົວເລກແບບສຸ່ມທີ່ລະບົບສະໜອງໃຫ້ ເຊິ່ງຈະສ້າງຕົວເລກແບບສຸ່ມທີ່ມີການແຈກຢາຍແບບສະເໝີຕົວ ແລະ ບໍ່ສາມາດກຳນົດລ່ວງໜ້າໄດ້. ຖ້າບໍ່ມີຕົວສ້າງດັ່ງກ່າວໃນລະບົບ, ເວລາຂອງລະບົບຈະຖືກນຳໃຊ້ເປັນຄ່າເລີ່ມຕົ້ນ.

ຄຳສັ່ງ Randomize ສົ່ງຜົນກະທົບຕໍ່ຟັງຊັນ Rnd ຂອງ BASIC ເທົ່ານັ້ນ. ຕົວສ້າງຕົວເລກແບບສຸ່ມອື່ນໆ (ຕົວຢ່າງເຊັ່ນ ຟັງຊັນ RAND() ຂອງ Calc ແລະ ອື່ນໆ) ຈະບໍ່ໄດ້ຮັບຜົນກະທົບຈາກມັນ.

ລະຫັດຂໍ້ຜິດພາດ:

5 ການເອີ້ນໃຊ້ໂປຣຊີເຈີບໍ່ຖືກຕ້ອງ

ຕົວຢ່າງ:


Sub ExampleRandomize
Dim iCount As Integer, iVar As Integer, sText As String
Dim iSpectral(10) As Integer
    Randomize 2^14-1
    For iCount = 1 To 1000
    iVar = Int(10 * Rnd) ' ຊ່ວງແຕ່ 0 ຫາ 9
        iSpectral(iVar) = iSpectral(iVar) +1
    Next iCount
    sText = " | "
    For iCount = 0 To 9
        sText = sText & iSpectral(iCount) & " | "
    Next iCount
    MsgBox sText,0,"Spectral Distribution"
End Sub

ຟັງຊັນ Rnd