ชุดบอร์ด micro:bit ชุดทดลองที่น้าสนใจ โดยเฉพาะเด็กๆ และผู้เริ่มต้นเขียนโปรแกรมแบบ บล็อค ของเล่ยนมากมาย
ครูโป้ง ก็ไปเรียนเพิ่มได้ความรู้มาเพิ่มพูน ไม่หยุดนิ่ง ลงทุนบ้าง เสาะหาบ้าง
iot คือทุกอย่างสามารถเชิ่อมต่อบนโลกอินเตอร์เน็ต เชื่อมโลกได้ สั่งได้ทั่วโลก
โครงงานรถยนต์กับ Aruino
เชื่อมโลกเสมือนไปกับ AR และ VR
Sub arabic_to_thai()
For i = 0 To 9
With Selection.Find
.Text = Chr(48 + i)
.Replacement.Text = ChrW(3664 + i)
.Wrap = wdFindContinue
End With
Selection.Find.Execute Replace:=wdReplaceAll
Next
End Sub
Sub thai_to_arabic()
For i = 0 To 9
With Selection.Find
.Text = ChrW(3664 + i)
.Replacement.Text = Chr(48 + i)
.Wrap = wdFindContinue
End With
Selection.Find.Execute Replace:=wdReplaceAll
Next
End Sub
| คำสั่งเต็ม | คำสั่งลัด | ความหมาย |
| SETPENCOLOR | SETPC | กำหนดสีของปากกา |
| SETSCREENCOLOR | SETSC | กำหนดสีของแบ็คกราวนด์ |
| SETFLOODCOLOR | SETFC | กำหนดสีที่จะใช้ระบายด้วยคำสั่ง FILL |
| สี | หมายเลข | ค่า RGB | คำสั่งกำหนดสีปากกา |
| Black | 0 | [0 0 0] | SETPC 0 |
| Blue | 1 | [0 0 255] | SETPC 1 |
| Green | 2 | [0 255 0] | SETPC 2 |
| Cyan | 3 | 0 255 255] | SETPC 3 |
| Red | 4 | [255 0 0] | SETPC 4 |
| Magenta | 5 | [255 0 255] | SETPC 5 |
| Yellow | 6 | [255 255 0] | SETPC 6 |
| White | 7 | [255 255 255] | SETPC 7 |
| Brown | 8 | [155 96 59] | SETPC 8 |
| Light brown | 9 | [197 136 18] | SETPC 9 |
| Mid-green | 10 | [100 162 64] | SETPC 10 |
| Blue-green | 11 | [120 187 187] | SETPC 11 |
| Salmon | 12 | [255 149 119] | SETPC 12 |
| Blue-ish | 13 | [144 113 208] | SETPC 13 |
| Orange | 14 | [255 163 0] | SETPC 14 |
| Silver | 15 | [183 183 183] | SETPC 15 |
