MyBanner

โฆษณา

วันจันทร์ที่ 30 มิถุนายน พ.ศ. 2557

กลุ่มชุดคำสั่งดำเนินการทางตรรกศาสตร์ (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

เทรด forex กับ exness

บันทึกประจำวันที่ 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 . เข้านอน


Adz2you.