กลุ่มชุดคำสั่งดำเนินการทางตรรกศาสตร์ (Logical Operators) ของภาษา OpenOffice/LibreOffice Basic

หมายเหตุ

การดำเนินการทางตรรกศาสตร์ จะให้ผลเป็นค่าจริง (True) หรือค่าเท็จ (False) โดยสำหรับภาษา OpenOffice.org Basic ค่าจริงจะเท่ากับ -1 ส่วนค่าเท็จจะเท่ากับ 0

ชุดคำสั่ง : AND

ประเภทชุดคำสั่ง : Operator

ทำหน้าที่ ดำเนินการกับค่าข้อมูลทางตรรกศาสตร์แบบ “และ” (AND) โดยจะให้ผลเป็นค่าจริง (True) เมื่อค่าของข้อมูลทั้งสองชุดเป็นจริงทั้งคู่ กรณีอื่นๆ เป็นจะเป็นค่าเท็จทั้งหมด กรณีที่เป็นการดำเนินการระดับบิต จะเป็นการเลือกเฉพาะบิตที่มีค่าเป็น 1 เหมือนกันทั้งสองค่า นอกนั้นจะเป็นค่า 0 ทั้งหมด

ตารางที่ 1 : แสดงผลการดำเนินการแบบ AND

ค่าของตัวตั้งหรือค่าบิต	ค่าของตัวกระทำหรือค่าบิต	ค่าผลลัพธ์หรือค่าบิต
ค่าเท็จ หรือ 0	ค่าเท็จ หรือ 0	ค่าเท็จ หรือ 0
ค่าเท็จ หรือ 0	ค่าจริง หรือ 1	ค่าเท็จ หรือ 0
ค่าจริง หรือ 1	ค่าเท็จ หรือ 0	ค่าเท็จ หรือ 0
ค่าจริง หรือ 1	ค่าจริง หรือ 1	ค่าจริง หรือ 1

รูปแบบชุดคำสั่ง : 
          Result = Expression1 AND Expression2

พารามิเตอร์ :

          Result หมายถึง ที่เก็บผลลัพธ์ของการดำเนินการ AND

          Expression1 หมายถึง ค่าข้อมูลที่เป็นตัวตั้ง

          Expression2 หมายถึง ชุดข้อมูลที่จะนำมาทำการเปรียบเทียบแบบ AND

ตัวอย่าง :

SUB subExampleAND

        Dim vA As Variant, vB As Variant, vC As Variant, vD As Variant

        Dim vResult As Variant

        Dim sShowResult As String

         vA = 12: vB = 8: vC = 5: vD = Null

         sShowResult = "vA = 12, vB = 8, vC = 5, vD = Null" & Chr(13) & Chr(13)

         vResult = vA > vB AND vB > vC

          'เตรียมข้อความสำหรับแสดงผลของตัวอย่าง

         sShowResult = sShowResult & "vA > vB AND vB > vC ผลลัพธ์คือ " & _

         Str(vResult) & Chr(13)

         vResult = vB > vA AND vB > vC

        sShowResult = sShowResult & "vB > vA AND vB > vC ผลลัพธ์คือ " & _

        Str(vResult) & Chr(13)

        vResult = vA > vB AND vB > vD

        sShowResult = sShowResult & "vA > vB AND vB > vD ผลลัพธ์คือ " & _

        Str(vResult) & Chr(13)

        vResult = (vB > vD AND vB > vA)

        sShowResult = sShowResult & "(vB > vD AND vB > vA) ผลลัพธ์คือ " & _

        Str(vResult) & Chr(13)

        vResult = vB AND vA

        sShowResult = sShowResult & "vB AND vA ผลลัพธ์คือ " & Str(vResult)

        'แสดงผลบน MsgBox

        MsgBox sShowResult

END SUB

รูปที่ 3 ภาพตัวอย่างการทำงานของซับรูทีน subExampleAND

ชุดคำสั่ง : OR

ประเภทชุดคำสั่ง : Operator

ทำหน้าที่ ดำเนินการกับค่าข้อมูลทางตรรกศาสตร์แบบ “หรือ” (OR) โดยจะให้ผลเป็นเท็จ (False) เมื่อค่าของข้อมูลทั้งสองชุดเป็นเท็จทั้งคู่ กรณีอื่นๆ เป็นจะเป็นจริง (True) ทั้งหมด กรณีที่เป็นการดำเนินการระดับบิต จะเป็นการเลือกเฉพาะบิตที่มีค่าเป็น 0 เหมือนกันทั้งสองค่าให้เป็นค่า 0 ค่าที่นอกเหนือจากนี้ในบิตอื่นๆ จะเป็น 1 ทั้งหมด

ตารางที่ 2 : แสดงผลการดำเนินการแบบ OR

ค่าของตัวตั้งหรือค่าบิต	ค่าของตัวกระทำหรือค่าบิต	ค่าผลลัพธ์หรือค่าบิต
ค่าเท็จ หรือ 0	ค่าเท็จ หรือ 0	ค่าเท็จ หรือ 0
ค่าเท็จ หรือ 0	ค่าจริง หรือ 1	ค่าจริง หรือ 1
ค่าจริง หรือ 1	ค่าเท็จ หรือ 0	ค่าจริง หรือ 1
ค่าจริง หรือ 1	ค่าจริง หรือ 1	ค่าจริง หรือ 1

รูปแบบชุดคำสั่ง :

           Result = Expression1 OR Expression2

พารามิเตอร์ :

           Result หมายถึง ที่เก็บผลลัพธ์ของการดำเนินการ OR

           Expression1 หมายถึง ค่าข้อมูลที่เป็นตัวตั้ง

           Expression2 หมายถึง ค่าข้อมูลที่นำมาเปรียบเทียบแบบ OR

ตัวอย่าง :

SUB subExampleOR

         Dim vA As Variant, vB As Variant, vC As Variant, vD As Variant

         Dim vResult As Variant

         Dim sShowResult As String

         vA = 12: vB = 8: vC = 5: vD = Null

         sShowResult = "vA = 12, vB = 8, vC = 5, vD = Null" & Chr(13) & Chr(13)

         vResult = vA > vB OR vB > vC

         sShowResult = sShowResult & "vA > vB OR vB > vC ผลลัพธ์คือ " & _

                                     Str(vResult) & Chr(13)

         vResult = vB > vA OR vB > vC

         sShowResult = sShowResult & "vB > vA OR vB > vC ผลลัพธ์คือ " & _

                                    Str(vResult) & Chr(13)

         vResult = vA > vB OR vB > vD

         sShowResult = sShowResult & "vA > vB OR vB > vD ผลลัพธ์คือ " & _

                                    Str(vResult) & Chr(13)

         vResult = (vB > vD OR vB > vA)

         sShowResult = sShowResult & "(vB > vD OR vB > vA) ผลลัพธ์คือ " & _

                                    Str(vResult) & Chr(13)

         vResult = vB OR vA

         sShowResult = sShowResult & "vB OR vA ผลลัพธ์คือ " & _

                                     Str(vResult) & Chr(13)

         'แสดงผลบน MsgBox

         MsgBox sShowResult

END SUB

รูปที่ 4 ภาพตัวอย่างการทำงานของซับรูทีน subExampleOR

ชุดคำสั่ง : XOR

ประเภทชุดคำสั่ง : Operator

ทำหน้าที่ ดำเนินการกับค่าข้อมูลทางตรรกศาสตร์แบบ Exclusive-OR โดยค่าที่ต่างกันจะให้ผลเป็นค่าจริง (True) ส่วนค่าที่เหมือนกันจะให้ผลเป็นค่าเท็จ (False) ในกรณีที่เป็นการดำเนินการระดับบิต จะเป็นการสั่งเซ็ตค่าของบิตที่ต่างกันเป็น 1 ส่วนบิตที่เหมือนกันเป็นค่า 0ทั้งหมด

ตารางที่ 3 : แสดงผลการดำเนินการแบบ XOR

ค่าของตัวตั้งหรือค่าบิต	ค่าของตัวกระทำหรือค่าบิต	ค่าผลลัพธ์หรือค่าบิต
ค่าเท็จ หรือ 0	ค่าเท็จ หรือ 0	ค่าเท็จ หรือ 0
ค่าเท็จ หรือ 0	ค่าจริง หรือ 1	ค่าจริง หรือ 1
ค่าจริง หรือ 1	ค่าเท็จ หรือ 0	ค่าจริง หรือ 1
ค่าจริง หรือ 1	ค่าจริง หรือ 1	ค่าเท็จ หรือ 0

รูปแบบชุดคำสั่ง :

           Result = Expression1 XOR Expression2

พารามิเตอร์ :

           Result หมายถึง ที่เก็บผลลัพธ์ของการดำเนินการ XOR

           Expression1 หมายถึง ค่าข้อมูลที่เป็นตัวตั้ง

           Expression2 หมายถึง ค่าข้อมูลที่นำมาเปรียบเทียบแบบ XOR

ตัวอย่าง :

SUB subExampleXOR

         Dim vA As Variant, vB As Variant, vC As Variant, vD As Variant

         Dim vResult As Variant

         Dim sShowResult As String

         vA = 12: vB = 8: vC = 5: vD = Null

         sShowResult = "vA = 12, vB = 8, vC = 5, vD = Null" & Chr(13) & Chr(13)

         vResult = vA > vB XOR vB > vC

         sShowResult = sShowResult & "vA > vB XOR vB > vC ผลลัพธ์คือ " & _

                                    Str(vResult) & Chr(13)

         vResult = vB > vA XOR vB > vC

         sShowResult = sShowResult & "vB > vA XOR vB > vC ผลลัพธ์คือ " & _

                                    Str(vResult) & Chr(13)

         vResult = vA > vB XOR vB > vD

         sShowResult = sShowResult & "vA > vB OR vB > vD ผลลัพธ์คือ " & _

                                    Str(vResult) & Chr(13)

         vResult = (vB > vD XOR vB > vA)

         sShowResult = sShowResult & "(vB > vD XOR vB > vA) ผลลัพธ์คือ " & _

                                    Str(vResult) & Chr(13)

        vResult = vB XOR vA

        sShowResult = sShowResult & "vB XOR vA ผลลัพธ์คือ " & _

                                    Str(vResult) & Chr(13)

        'แสดงผลบน MsgBox

        MsgBox sShowResult

END SUB

รูปที่ 5 ภาพตัวอย่างการทำงานของซับรูทีน subExampleXOR

ชุดคำสั่ง : NOT

ประเภทชุดคำสั่ง : Operator

ทำหน้าที่ เปลี่ยนค่าของข้อมูลทางตรรกศาสตร์เป็นตรงข้าม ในกรณีที่เป็นการดำเนินการระดับบิต จะเป็นการเปลี่ยนค่าบิตเป็นตรงข้าม

รูปแบบชุดคำสั่ง :

         Result = NOT Expression

พารามิเตอร์ :

         Result หมายถึง ที่เก็บผลลัพธ์ของการดำเนินการ NOT

         Expression หมายถึง ค่าข้อมูลที่ต้องการเปลี่ยนค่าเป็นตรงข้าม

ตัวอย่าง :

SUB subExampleNOT

         Dim vA As Variant, vB As Variant, vC As Variant, vD As Variant

         Dim vResult As Variant

         Dim sShowResult As String

         vA = 12: vB = 8: vC = 5: vD = Null

         sShowResult = "vA = 12, vB = 8, vC = 5, vD = Null" & Chr(13) & Chr(13)

         vResult = NOT vA

         sShowResult = sShowResult & "NOT vA คือ " & _

                                    Str(vResult) & Chr(13)

         vResult = NOT (vC > vD)

         sShowResult = sShowResult & "NOT (vC > vD) คือ " & _

                                     Str(vResult) & Chr(13)

         vResult = NOT (vB > vA)

         sShowResult = sShowResult & "NOT (vB > vA) คือ " & _

                                     Str(vResult) & Chr(13)

         vResult = NOT (vA > vB) REM Returns 0

         sShowResult = sShowResult & "NOT (vA > vB) คือ " & _

                                    Str(vResult) & Chr(13)

         'แสดงผลบน MsgBox

         MsgBox sShowResult

END SUB

รูปที่ 6 ภาพตัวอย่างการทำงานของซับรูทีน subExampleNOT

ชุดคำสั่ง : EQV

ประเภทชุดคำสั่ง : Operator

ทำหน้าที่ เปรียบเทียบการเท่ากันทางตรรกศาสตร์ของค่าข้อมูล 2 ชุด โดยจะให้ค่าเป็นจริง (True) เมื่อค่าข้อมูลทั้งสองชุดเหมือนกัน (เป็นจริง หรือเป็นเท็จทั้งคู่) กรณีการดำเนินการระดับบิต ผลลัพธ์ที่ได้จะเป็นการกำหนดค่าบิตในตำแหน่งที่เหมือนกันให้เป็น 1 ถ้าต่างกันจะเป็น 0 แล้วเปลี่ยนคอมพลีเมนต์ของผลลัพธ์ที่ได้

ตารางที่ 4 : แสดงผลการดำเนินการแบบ EQV

ค่าของตัวตั้งหรือค่าบิต	ค่าของตัวกระทำหรือค่าบิต	ค่าผลลัพธ์หรือค่าบิต
ค่าเท็จ หรือ 0	ค่าเท็จ หรือ 0	ค่าจริง หรือ 1
ค่าเท็จ หรือ 0	ค่าจริง หรือ 1	ค่าเท็จ หรือ 0
ค่าจริง หรือ 1	ค่าเท็จ หรือ 0	ค่าเท็จ หรือ 0
ค่าจริง หรือ 1	ค่าจริง หรือ 1	ค่าจริง หรือ 1

รูปแบบชุดคำสั่ง :

           Result = Expression1 EQV Expression2

พารามิเตอร์ :

           Result หมายถึง ที่เก็บผลลัพธ์ของการดำเนินการ EQV

           Expression1 หมายถึง ค่าข้อมูลที่ใช้เป็นตัวตั้ง

           Expression2 หมายถึง ค่าข้อมูลที่จะมาเปรียบเทียบการเท่ากัน (Eqv)

ตัวอย่าง :

SUB subExampleEQV

         Dim vA As Variant, vB As Variant, vC As Variant, vD As Variant

         Dim vResult As Variant

         Dim sShowResult As String

         vA = 12: vB = 8: vC = 5: vD = Null

         sShowResult = "vA = 12, vB = 8, vC = 5, vD = Null" & Chr(13) & Chr(13)

         vResult = vA > vB EQV vB > vC

         sShowResult = sShowResult & "vA > vB EQV vB > vC ผลลัพธ์คือ " & _

                                    Str(vResult) & Chr(13)

         vResult = vB > vA EQV vB > vC

         sShowResult = sShowResult & "vB > vA EQV vB > vC ผลลัพธ์คือ " & _

                                     Str(vResult) & Chr(13)

         vResult = vA > vB EQV vB > vD

         sShowResult = sShowResult & "vA > vB EQV vB > vD ผลลัพธ์คือ " & _

                                    Str(vResult) & Chr(13)

         vResult = (vB > vD EQV vB > vA)

         sShowResult = sShowResult & "(vB > vD EQV vB > vA) ผลลัพธ์คือ " & _

                                    Str(vResult) & Chr(13)

        vResult = vB EQV vA

       sShowResult = sShowResult & "vB EQV vA ผลลัพธ์คือ " & _

                                   Str(vResult)

         'แสดงผลบน MsgBox

         MsgBox sShowResult

END SUB

รูปที่ 7 ภาพตัวอย่างการทำงานของซับรูทีน subExampleEQV

ชุดคำสั่ง : IMP

ประเภทชุดคำสั่ง : Operator

ทำหน้าที่ ดำเนินการเปรียบเทียบค่าข้อมูลแบบ implication (โดยนัย) โดยที่ผลการดำเนินการจะให้ค่าเป็นเท็จเมื่อค่าข้อมูลที่เป็นตัวตั้งมีค่าเป็นจริง และค่าข้อมูลที่เป็นตัวกระทำมีค่าเป็นเท็จ นอกจากนั้นจะให้ค่าเป็นจริงทั้งหมด ในกรณีที่เป็นการดำเนินการระดับบิต จะเป็นการกำหนดค่าบิตเป็น 0 กรณีที่บิตที่เป็นตัวตั้งเป็น 1 ส่วนบิทที่เป็นตัวกระทำเป็น 0 แล้วเปลี่ยนเป็นค่าคอมพลีเมนต์ ของผลลัพธ์ที่ได้

ตารางที่ 5 : แสดงผลการดำเนินการแบบ IMP

ค่าของตัวตั้งหรือค่าบิต	ค่าของตัวกระทำหรือค่าบิต	ค่าผลลัพธ์หรือค่าบิต
ค่าเท็จ หรือ 0	ค่าเท็จ หรือ 0	ค่าจริง หรือ 1
ค่าเท็จ หรือ 0	ค่าจริง หรือ 1	ค่าจริง หรือ 1
ค่าจริง หรือ 1	ค่าเท็จ หรือ 0	ค่าเท็จ หรือ 0
ค่าจริง หรือ 1	ค่าจริง หรือ 1	ค่าจริง หรือ 1

รูปแบบชุดคำสั่ง :

           Result = Expression1 IMP Expression2

พารามิเตอร์ :

      Result หมายถึงที่ ที่เก็บผลลัพธ์ Any numeric variable that contains the result of the implication.

           Expression1 หมายถึง ค่าข้อมูลที่ต้องการให้เป็นตัวตั้ง

           Expression2 หมายถึง ค่าข้อมูลที่ต้องการให้เป็นตัวกระทำสำหรับการ IMP

ตัวอย่าง :

SUB subExampleIMP

         Dim vA As Variant, vB As Variant, vC As Variant, vD As Variant

         Dim vResult As Variant

         Dim sShowResult As String

         vA = 12: vB = 8: vC = 5: vD = Null

         sShowResult = "vA = 12, vB = 8, vC = 5, vD = Null" & Chr(13) & Chr(13)

         vResult = vA > vB IMP vB > vC

        sShowResult = sShowResult & "vA > vB IMP vB > vC ผลลัพธ์คือ " & _

                                   Str(vResult) & Chr(13)

        vResult = vB > vA IMP vB > vC

        sShowResult = sShowResult & "vB > vA IMP vB > vC ผลลัพธ์คือ " & _

                                   Str(vResult) & Chr(13)

       vResult = vA > vB IMP vB > vD

       sShowResult = sShowResult & "vA > vB IMP vB > vD ผลลัพธ์คือ " & _

                                  Str(vResult) & Chr(13)

      vResult = (vB > vD IMP vB > vA)

      sShowResult = sShowResult & "(vB > vD IMP vB > vA) ผลลัพธ์คือ " & _

                                 Str(vResult) & Chr(13)

      vResult = vB IMP vA

     sShowResult = sShowResult & "vB IMP vA ผลลัพธ์คือ " & _

                                  Str(vResult)

      'แสดงผลบน MsgBox

      MsgBox sShowResult

END SUB

รูปที่ 8 ภาพตัวอย่างการทำงานของซับรูทีน subExampleIMP

บันทึกประจำวันที่ 14 พฤษภาคม พ.ศ. 2557 (2014)

เวลา	เหตุการณ์
00:30 น.	ตื่นนอน นั่งสมาธิ
01:00 น.	งานของกิจกรรมอาชีพ งานอินเตอร์เน็ต (18/2557):เชื่อมต่ออินเตอร์เน็ต โพสต์บทความเรื่องใหม่
02:30 น.	พักผ่อน เนื่องจากไฟฟ้าหมด
06:00 น.	ดื่มกาแฟ พักผ่อน
06:30 น.	กวาดเศษใบไม้รอบบ้าน
07:00 น.	งานของกิจกรรมอาชีพ กสิกรรมธรรมชาติ แปลงปลูกข้าวไรท์เบอรี่ (6/2557):ติดตั้งโครงล้อมมุ้งเขียวพื้นที่ปลูกข้าวไรท์เบอรี่
09:00 น.	0.อาบน้ำ กินข้าว ทำบันทึกประจำวันของวันก่อน 1.กับข้าว:แกงบอนหวารปลาดุก, แกงป่าใบขี้เหล็กปลาดุก, เนื้อหมูทอด
10:00 น.	ลองเชื่อมต่ออินเตอร์เน็ต (ต่อไม่ติด)
10:30 น.	งานของกิจกรรมอาชีพ งานคอมพิวเตอร์ (15/2557):อ่านเอกสารเตรียมทำบทความเรื่องใหม่
12:00 น.	0.กินข้าว พักผ่อน 1.กับข้าว:แกงบอนหวารปลาดุก, แกงป่าใบขี้เหล็กปลาดุก, เนื้อหมูทอด
13:15 น.	งานของกิจกรรมอาชีพ กสิกรรมธรรมชาติ บ้านแม่ทำ สีทา (3/2557):ประกอบมอเตอร์เข้ากับเครื่องโม่บด และบดข้าวโพดสำหรับเลี้ยงไก่
15:45 น.	งานของกิจกรรมอาชีพ งานอินเตอร์เน็ต (18/2557):ทำต้นฉบับบทความเรื่องใหม่
15:15 น.	งานของกิจกรรมอาชีพ กสิกรรมธรรมชาติ แปลงปลูกข้าวไรท์เบอรี่ (3/2557):ทำโครงไม้ไผ่สำหรับล้อมมุ้งเขียวบริเวณที่ปลูกข้าวไรท์เบอรี่
18:30 น.	0.อาบน้ำ กินข้าว พักผ่อน ดูทีวี 1.กับข้าว:แกงป่าใบขี้เหล็กปลาดุก, แกงบอบหวานปลาดุก
20:00 น.	เข้านอน