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

วันจันทร์ที่ 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

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

เข้านอน

MyBanner

โฆษณา

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

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

โฆษณา a-ads.com

TraffiG Banner exchange.

เรื่องราวที่ฉันเขียน

FBS bonus $100 without deposit

ฝากไว้ในบล็อกเกอร์