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