การเขียนโปรแกรมอย่างง่ายโดยการใช้วาจาสคริปต์

การเขียนโปรแกรมอย่างง่ายโดยการใช้วาจาสคริปต์

  โครงสร้างคำสั่งควบคุมการทำงานของโปรแกรม
                2.10.1  การตรวจสอบเงื่อนไขด้วย  If  (โครงสร้างแบบเลือกทำ)
                                คำสั่ง  If  จะเป็นการตรวจสอบเงื่อนไขที่อยู่ต่อจาก  If  ว่าเป็น  จริง  หรือ  เท็จ  ถ้าเงื่อนไขเป็นจริง  (True)  จะทำตามคำสั่งที่อยู่ต่อจาก  Then…  ถึง  End  If  แต่ถ้าเงื่อนไขเป็นเท็จ  (False)  จะไม่ทำตามคำสั่งที่อยู่ระหว่าง  Then  ถึง  End  If
                รูปแบบคำสั่ง 
                                If  < เงื่อนไข >   Then
                                                คำสั่งที่ปฏิบัติเมื่อเงื่อนไขเป็นจริง
                                End  If

เช่น 
                Dim  x  As  Integer  =  20
                If  x  <  30   Then
                                MessageBox.Show (“ x =  ” +  x.ToString () )     ‘MessageBox.Show (“x = ” & x)
                End If

                v  คำสั่ง  If…Then…Else
                                เป็นคำสั่งในการตรวจสอบเงื่อนไขที่อยู่ต่อจาก  If  ว่าเป็นจริงหรือเท็จ  ถ้าเงื่อนไขเป็นจริงจะทำตามคำสั่งที่อยู่หลังคำสั่ง  Then  แต่ถ้าเงื่อนไขเป็นเท็จจะทำตามคำสั่งที่อยู่หลังคำสั่ง  Else

                รูปแบบคำสั่ง 
                                If  < เงื่อนไข >  Then
                                                คำสั่งที่ปฏิบัติเมื่อเงื่อนไขเป็นจริง
                                Else
                                                คำสั่งที่ปฏิบัติเมื่อเงื่อนไขเป็นเท็จ
                                End If

เช่น 
                Dim  x  As  Integer  =  20
                If  x  <  30  Then
                                MessageBox.Show (“ x  มีค่าน้อยกว่า  30    x =  ”  +  x.ToString() )
                Else
MessageBox.Show (“ x  มีค่ามากกว่า  30    x =  ”  +  x.ToString() )
                End If
                                ให้ทดลองเปลี่ยนค่าข้อมูลของ  x  เป็น  40  แล้ว  Run  Program

                v  การใช้คำสั่ง  If  ซ้อนกัน  (Nest  If)
                                ในกรณีที่ต้องการตรวจสอบเงื่อนไขหลาย ๆ เงื่อนไข  จำเป็นต้องใช้คำสั่ง  If  ซ้อนกันหลายชั้น 

รูปแบบคำสั่ง 
                                If  < เงื่อนไข  1>  Then
                                                คำสั่งที่ปฏิบัติ ถ้าเงื่อนไขที่  1  เป็นจริง
                                                If  < เงื่อนไข  2 >  Then
                                                                คำสั่งที่ปฏิบัติ ถ้าเงื่อนไขที่  2  เป็นจริง
                                                                If  < เงื่อนไข  n >  Then
                                                                                คำสั่งที่ปฏิบัติ ถ้าเงื่อนไขที่  n  เป็นจริง
                                                                End If
                                                End If
                                Else
                                                คำสั่งที่ปฏิบัติ  ถ้าเงื่อนไขที่  1  เป็นเท็จ
                                End If

                v  การใช้คำสั่ง  If…ElseIf
                                ใช้สำหรับการตรวจสอบเงื่อนไขในกรณีที่มีหลาย  ๆ  เงื่อนไข  ทำให้สะดวกต่อการใช้งาน

                รูปแบบคำสั่ง                        
If  < เงื่อนไข  1 >  Then
                                                คำสั่งที่ปฏิบัติ ถ้าเงื่อนไขที่  1  เป็นจริง
                                                ElseIf   < เงื่อนไข  2 >  Then
                                                                คำสั่งที่ปฏิบัติ ถ้าเงื่อนไขที่  2  เป็นจริง
                                                                ElseIf  < เงื่อนไข  3 >  Then
                                                                                คำสั่งที่ปฏิบัติ ถ้าเงื่อนไขที่  3  เป็นจริง
                                                                .
                                                                .
                                                                .
                                                                Else
                                                                                คำสั่งที่ปฏิบัติ  ในกรณีที่ไม่มีเงื่อนไขใดเป็นจริง
                                End If

                v  การใช้คำสั่ง  IIf
                                คำสั่ง  IIf  เป็นฟังก์ชันในการตรวจสอบเงื่อนไข  ถ้าเงื่อนไขเป็นจริงให้ทำอะไร  ถ้าเงื่อนไขเป็นเท็จ  ให้ทำอะไร

                รูปแบบ 
               

IIf   (เงื่อนไข,  ผลลัพธ์กรณีเงื่อนไขเป็นจริง,  ผลลัพธ์ในกรณีเงื่อนไขเป็นเท็จ)

                Dim  number  As  Integer
                Dim  str  As  String
                number  =  InputBox  (“กรุณาป้อนตัวเลขจำนวนเต็ม”)
                str  =  IIf  ( (number  Mod  2  =  0) , “เลขคู่” , “เลขคี่ ”)
                MessageBox.Show (str, “ผลลัพธ์”)

ที่มาhttp://61.19.212.44/~s53114sasitron/htdoc/u10.html