<%@ Page Language="VB" ContentType="text/html" ResponseEncoding="windows-874" %> http://www.siam2dev.com >> ชุมชนนักพัฒนาซอฟต์แวร์ของไทยแห่งใหม่
เข้าสู่ระบบ ::    
http://www.siam2dev.com >> ชุมชนนักพัฒนาซอฟต์แวร์แห่งใหม่
Home   
News   
Articles   
Programming Zone   
DownLoad   
Contact US   
Links   
Webboard   
ฯลฯ   
     สวัสดีครับทุกท่าน ผมพัฒนาเว็บนี้ขึ้นมาโดยมีวัตถุประสงค์ ที่จะเห็นโปรแกรมเมอร์ของไทย ได้มีการคิดค้นและพัฒนาซอฟต์แวร์ ของคนไทย กันมากขึ้น เพื่อเป็นการช่วยชาตของเราให้เจริญยิ่งขึ้นไป (จะได้ไม่ต้องทะเลาะกันอย่างทุกวันนี้ 555 อย่าเครียดครับ ) เนื่องจากเว็บนี้ยังเพิ่งเริ่มต้นนะครับอาจมีเนื้อหาบางงส่วนที่ยังไม่สมบูรณ์จึงขออภัยมา ณ โอกาส นี้ด้วยครับ
 
   VB.NET
     การใช้คำสั่ง RND เพื่อสุ่มตัวเลขใน VB.NET
  ฟังก์ชัน RND เป็นคำสั่งสำหรับ สุ่มตัวเลข โดยค่าที่ได้จะเป็นตัวเลขทศนิยมซึ่งมีค่าระหว่าง
       มากว่า 0 แต่น้อยกว่า 1

    ต.ย. การใช้งาน ฟังก์ชัน RND แบบที่ 1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  
        MsgBox(Rnd)

End Sub


    ต.ย. การใช้งาน ฟังก์ชัน RND แบบที่ 2
จาก ต.ย. ที่ 1 จะสังเกตุเห็นว่าทุกครั้งที่โหลดฟอร์ม ก็จะได้ค่าเหมือนเดิมทุกครั้งเราสามารถแก้ไขปัญหานี้ด้วย ฟังก์ชัน Randomize() ดังนี้

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Randomize()
        MsgBox(Rnd(0.2))

End Sub


    ต.ย. การใช้งาน ฟังก์ชัน RND แบบที่ 3
หากต้องการ สุ่มตัวเขตั้งแต่ 1 - 10 สามารถทำได้ดังนี้

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Randomize()
       MsgBox(Int(Rnd() * 10 + 1))
End Sub
 
 
:: http://www.siam2dev.com ::
e-mail :: xnattapong@hotmail.com , songneam@gmail.com