ເນື້ອໃນ

# ຄຳສັ່ງ 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

ກະລຸນາສະໜັບສະໜູນພວກເຮົາ!