Public Function iTDGen()
Dim InpStr, strRes As String 'กำหนดตัวแปร String
Dim i, iLen, iNumLen, iRnd As Integer 'กำหนดตัวแปร Int
iNumLen = 3 'จำนวนที่ต้องการ
InpStr = "PoweredByIT-DarK.Com" 'อักษรที่ต้องการให้นำไปสุ่ม
iLen = Len(InpStr) 'หาจำนวนตัวอักษรทั้งหมดที่เรากำหนดไว้ในตัวแปร InpStr
Randomize 'ให้ทำการ Random
For i = 1 To iNumLen 'ให้ทำตามเงื่อนไขจนครบ โดยให้เพิ่มค่าไปเรื่อยๆ จนถึงค่าที่เราได้กำหนดไว้ในตัวแปร iNumLen
iRnd = Int((iLen * Rnd) + 1)
strRes = strRes & Mid(InpStr, iRnd, 1)
Next
iTDGen = strRes 'ให้ส่งค่าในตัวแปร strRes ที่ได้ทำการเก็บไว้จากลูปบน ไปไว้ที่ iTDGen เพื่อทำการเรียกใช้ต่อไป
End Function
Private Sub cmdiTD1_Click()
txtITD.Text = iTDGen() 'เรียกใช้ฟังก์ชัน แล้วก้ให้ส่งค่าทั้งหมดไปแสดงที่ TextBox ที่ชื่อว่า txtITD
End Sub
แล้วก็ลองมาดูอีกรูปแบบหนึ่งกันดูครับ
Function ITDRandom(Low As Integer, Up As Integer)
Dim iTD, iLoop As Integer 'สร้างตัวแปรเป็นประเภท Int สองตัว
ITDRandom = "" 'กำหนดให้ Random มีค่าว่าง
iTD = 10 'ตั้งให้ตัวแปร iTD มีค่าเป็น 10 เพื่อทำการหาค่า Random 10 ตัว
Randomize 'ให้ทำการ Random
For iLoop = 1 To iTD Step 1 'เริ่มทำการ Random ไปเรื่อยๆ จนครบตามจำนวนที่กำหนดไว้ในตัวแปร iTD
ITDRandom = ITDRandom & Int(Rnd * Up) + Low 'Random ไปเก็บค่าไป..
Next 'จนครบตามจำนวน
End Function
Private Sub cmdITD1_Click()
txtITD1.Text = ITDRandom(1, 9) 'เรียกใช้ฟังก์ชัน Random พร้อมทั้งระบุค่าที่น้อยสุด และค่าที่มากสุดลงไปด้วย
End Sub
ก็ลองนำไปใช้งานดูครับ แล้วแต่การเรียกใช้งานกันอีกที ว่าแบบไหนจะเหมาะสมกับงานของท่าน
