คำสั่งสร้างภาพด้วยกระบวนความ

คำสั่งสร้างภาพรถไฟด้วยกระบวนความ ภาพรถไฟเกิดจากการนำกระบวนความ 3 ส่วนมาประกอบกันดังนี้      1. สร้างกระบวนความ Head ขึ้นมาก่อน      2. ต่อมาจึงสร้่างกระบวนความ Body เป็นชิ้นที่สอง      3. และสุดท้ายสร้างกระบวนความ Finish ขึ้่นมา      4. เมื่อได้กระบวนความครบทั้งสามกระบวนความแล้วจึงทำการแปลงขนาดของกระบวนความให้อยู่ในรูปตัวแปร Size ทั้งหมด      5. ดูได้จากกระบวนความแรกที่ชื่อ Train

To train :size      head :size      body :size      finish :size      pu setpos [200 200] pd      label [Penpitcha   Khamnon  M.3/1 No.27] ht End

To head :size      pu lt 90 fd :size*3.5 pd rt 90 arc 180 :size*0.5 pu bk :size*0.5 pd fd :size*1.0      bk :size*0.5 lt 90 pu fd :size*0.1 pd setfc [180 75 96] fill pu bk :size*0.1 rt 90      bk :size*0.5 pd rt 90 fd :size*1.5 lt 90 fd :size*1.0 lt 90 fd :size*1.5 bk :size*0.5      lt 90 pu fd :size*0.1 setfc [0 200 255] fill bk :size*0.1 lt 180 pd fd :size*0.7      rt 90 fd :size*1.0 rt 90 fd :size*1.0 bk :size*0.5 pu rt 90 fd :size*0.1 pd      setfc [180 75 96] fill pu bk :size*0.1 rt 90 fd :size*0.5 rt 90 pd fd :size*0.05      lt 90 fd :size*0.05 lt 90 fd :size*1.1 lt 90 fd :size*0.05 lt 90 fd :size*0.05 pu      lt 90 bk :size*0.7 rt 90 lt 180 rt 90 fd :size*0.7 fd :size*0.015 setfc [0 200 255] fill      bk :size*0.015 bk :size*0.7 lt 90 fd :size*0.2 bk :size*0.05 fd :size*0.05 bk :size*0.1      rt 90 pd fd :size*0.3 lt 90 fd :size*0.1 lt 90 fd :size*0.3 pu bk :size*0.05 lt 90      fd :size*0.05 setfc [255 105 255] fill bk :size*0.05 lt 90 bk :size*0.05 lt 90 fd :size*0.1      pd rt 90 fd :size*0.2 lt 90 fd :size*0.1 lt 90 lt 90 rt 90 fd :size*0.2 pu bk :size*0.05      lt 90 fd :size*0.05 setfc [255 105 255] fill bk :size*0.05 lt 90 bk :size*0.05 rt 90      lt 180 fd :size*0.1 rt 90 bk :size*1.0 rt 90 fd :size*0.35 pd circle :size*0.3 lt 90      pu bk :size*0.1 setfc [0 0 0] fill fd :size*0.2 setfc [0 0 0] fill bk :size*0.1 lt 90 rt 180      fd :size*1.15 bk :size*0.35 pd circle :size*0.3 lt 90 pu bk :size*0.1 setfc [0 0 0] fill      fd :size*0.2 setfc [0 0 0] fill bk :size*0.1 rt 90 fd :size*0.35 lt 90 fd :size*0.2 rt 90 pd      fd :size*0.3 lt 90 fd :size*0.1 lt 90 fd :size*0.3 bk :size*0.1 pu rt 90 bk :size*0.05      setfc [255 255 0]fill rt 90 lt 90 fd :size*0.05 rt 90 bk :size*0.1 lt 90 fd :size*0.1 rt 90      pd fd :size*0.3 lt 90 fd :size*0.1 lt 90 fd :size*0.3 bk :size*0.1 rt 90 pu bk :size*0.05      setfc [255 255 0]fill fd :size*0.05 lt 90 rt 180 bk :size*0.1 lt 90 bk :size*0.5 rt 90      fd :size*0.3 lt 90 End

To body :size      pd fd :size*1.5 rt 90 fd :size*1.5 rt 90 fd :size*1.5 rt 90 fd :size*1.5 rt 90 fd :size*0.3 rt 90      fd :size*1.5 lt 90 fd :size*0.3 lt 90 fd :size*1.5 rt 90 fd :size*0.3 rt 90 fd :size*1.5 lt 90      fd :size*0.3 lt 90 fd :size*1.5 rt 90 fd :size*0.1 rt 90 pu fd :size*0.2lt 90setfc [150 100 100] fill      bk :size*0.2 setfc [150 100 100] fill bk :size*0.3 setfc [150 100 100] fill bk :size*0.3 setfc [150 100 100] fill      bk :size*0.4 setfc [150 100 100] fill bk :size*0.1 lt 90 fd :size*0.2 rt 180 fd :size*0.35 pd      circle :size*0.3 lt 90 pu bk :size*0.1 setfc [0 0 0] fill fd :size*0.2 setfc [0 0 0] fill bk :size*0.1      rt 90 fd :size*1.15 bk :size*0.35 pd circle :size*0.3 lt 90 pu bk :size*0.1 setfc [0 0 0] fill      fd :size*0.2 setfc [0 0 0] fill bk :size*0.1 rt 90 fd :size*0.35 lt 90 fd :size*0.2 rt 90      pd fd :size*0.3 lt 90 fd :size*0.1 lt 90 fd :size*0.3 bk :size*0.1 pu rt 90 bk :size*0.05      setfc [255 255 0] fill fd :size*0.05 rt 90 bk :size*0.1 lt 90 fd :size*0.1 rt 90 pd fd :size*0.3      lt 90 fd :size*0.1 lt 90 fd :size*0.3 bk :size*0.1 rt 90 pu bk :size*0.05 setfc [255 255 0] fill      fd :size*0.05 rt 90 bk :size*0.1 lt 90 bk :size*0.5 rt 90 fd :size*0.3 lt 90 pd fd :size*1.5 rt 90      fd :size*1.5 rt 90 fd :size*1.5 rt 90 fd :size*1.5 rt 90 fd :size*0.3 rt 90 fd :size*1.5 lt 90      fd :size*0.3 lt 90 fd :size*1.5 rt 90 fd :size*0.3 rt 90 fd :size*1.5 lt 90 fd :size*0.3 lt 90 fd :size*1.5      rt 90 fd :size*0.1 rt 90 pu fd :size*0.2 lt 90 setfc [150 100 100] fill bk :size*0.2 setfc [150 100 100] fill      bk :size*0.3 setfc [150 100 100] fill bk :size*0.3 setfc [150 100 100] fill bk :size*0.4 setfc [150 100 100] fill      bk :size*0.1 lt 90 fd :size*0.2 rt 180 fd :size*0.35 pd circle :size*0.3 lt 90 pu bk :size*0.1 setfc [0 0 0] fill      fd :size*0.2 setfc [0 0 0] fill bk :size*0.1 rt 90 fd :size*1.15 bk :size*0.35 pd circle :size*0.3      lt 90 pu bk :size*0.1 setfc [0 0 0] fill fd :size*0.2 setfc [0 0 0] fill bk :size*0.1 rt 90 fd :size*0.35      lt 90 fd :size*0.2rt 90 pd fd :size*0.3 lt 90 fd :size*0.1 lt 90 fd :size*0.3 bk :size*0.1 pu      rt 90 bk :size*0.05 setfc [255 255 0] fill fd :size*0.05 rt 90 bk :size*0.1 lt 90 fd :size*0.1      rt 90 pd fd :size*0.3 lt 90 fd :size*0.1 lt 90 fd :size*0.3 bk :size*0.1 rt 90 pu bk :size*0.05 setfc [255 255 0] fill      fd :size*0.05 rt 90 bk :size*0.1 lt 90 bk :size*0.5 rt 90 fd :size*0.3 lt 90 End

To finish :size      pd fd :size*1.7 rt 90 fd :size*2.0 rt 90 fd :size*1.7 rt 90 fd :size*2.0 bk :size*0.3 rt 90 pu      fd :size*0.2 setfc [180 75 96] fill fd :size*1.2 rt 90 pd fd :size*1.4 rt 90 fd :size*0.75 rt 90      fd :size*1.4 rt 90 fd :size*0.75 bk :size*0.375 rt 90 fd :size*1.4 rt 90 fd :size*0.375 rt 90      fd :size*0.7 rt 90 fd :size*0.75 pu lt 90 fd :size*0.2 rt 90 bk :size*0.1 setfc [0 200 255] fill      bk :size*0.3 setfc [0 200 255] fill rt 90 fd :size*0.3 setfc [0 200 255] fill lt 90 fd :size*0.1      setfc [0 200 255] fill rt 90 fd :size*0.9 lt 90 fd :size*0.6 rt 90 pd fd :size*0.05 lt 90      fd :size*0.05 lt 90 fd :size*2.1 lt 90 fd :size*0.05 lt 90 fd :size*0.05 lt 90 pu      fd :size*0.02 setfc [0 200 255] fill bk :size*1.72 rt 90 fd :size*0.35 pd circle :size*0.3 pu      lt 90 bk :size*0.05 setfc [0 0 0] fill fd :size*0.1 setfc [0 0 0] fill bk :size*0.05 rt 90      fd :size*1.3 circle :size*0.3 pd circle :size*0.3 lt 90 pu bk :size*0.05 setfc [0 0 0] fill      fd :size*0.1setfc [0 0 0] fill bk :size*0.05 rt 90 End คำสั่งสร้างภาพปูด้วยกระบวนความ   ภาพปูเกิดจากการนำกระบวนความ 3 ส่วนมาประกอบกันดังนี้      1. สร้างกระบวนความ Head ขึ้นมาก่อน      2. หลังจากนั้นจึงสร้างกระบวนความ Gam เป็นชิ้นที่สอง      3. และสุดท้ายสร้างกระบวนความ Leg ขึ้นมา เมื่อได้ครบทั้งสามกระบวนความแล้วจึงนำมารวมกันเป็นกระบวนความสุดท้ายที่ชื่อ Poo และเมื่อได้กระบวนความครบ ก็ต้องทำการแปลงขนาดของภาพด้วยตัวแปร Size ด้วย      4. ดูได้จากกระบวนความแรกที่ชื่อ Poo To poo :size      head :size      gam :size      leg :size      pu setpos [0 150] pd      label [เด็กหญิงเพ็ญพิชชา คำนนท์  เลขที่ 27 ม.3/1] End To head :size      pd rt 90 fd :size*1.2 rt 90 fd :size*1.2 rt 90 fd :size*2.4 rt 90 fd :size*1.2      rt 90 fd :size*1.2 pu bk :size/2 lt 90 pd fd :size/2 pu fd :size*0.3 pd circle :size*0.3      setfc [200 255 255] fill circle :size/10 setfc [0 0 0] fill pu bk :size*0.8      rt 90 fd :size lt 90 pd fd :size/2 pu fd :size*0.3 pd circle :size*0.3 setfc [200 255 255] fill      setpc [0 0 0]circle :size/10 setfc [0 0 0] fill pu bk :size pd setfc [255 180 0] fill      setpc [0 0 0]pu home bk :size*0.7 lt 90 pd fd :size*0.4 rt 45 fd :size/5 pu home bk :size*0.7      rt 90 pd fd :size*0.4 lt 45 fd :size/5 End To gam :size      pu home rt 90 pd fd :size*1.8 lt 90 fd :size*0.3 lt 90 fd :size/10 rt 90      fd :size*0.8 rt 45 fd :size/10 rt 135 fd :size*0.3 lt 90 fd :size*0.3 lt 90 fd :size*0.3      rt 135 fd :size/10 rt 45 fd :size*0.8 rt 90 fd :size/10 lt 90 fd :size/2 rt 90 fd :size*0.85      rt 135 pu fd :size/10 pd setfc [255 170 0] fill      pu home lt 90 pd fd :size*1.8 rt 90 fd :size*0.3 rt 90 fd :size/10 lt 90      fd :size*0.8 lt 45 fd :size/10 lt 135 fd :size*0.3 rt 90 fd :size*0.3 rt 90 fd :size*0.3      lt 135 fd :size/10 lt 45 fd :size*0.8 lt 90 fd :size/10 rt 90 fd :size/2 lt 90 fd :size*0.85      lt 135 pu fd :size/10 pd setfc [255 170 0] fill pu End To leg :size      home bk :size*0.9 rt 90 fd :size*1.2 pd fd :size*0.3 rt 90 fd :size/2 lt 90 fd :size*0.3      rt 90 fd :size/10 rt 90 fd :size*0.4 rt 90 fd :size*0.4 lt 90 fd :size/5 rt 135      pu fd :size/10 setfc [255 200 0] fill pu home      bk :size*0.9 lt 90 fd :size*1.2 pd fd :size*0.3 lt 90 fd :size/2 rt 90 fd :size*0.3      lt 90 fd :size/10 lt 90 fd :size*0.4 lt 90 fd :size*0.4 rt 90 fd :size/5 lt 135      pu fd :size/10 setfc [255 200 0] fill pu End คำสั่งสร้างภาพปลาวาฬด้วยกระบวนความ To whale :size      body :size      head :size      water :size      pu setpos[100 -100]      pd label [Penpitcha  Khamnon M.3/1 No.27] ht End To body :size      pu setpos[-144 36] pd setpos[-120 48] setpos[-84 48] setpos[-48 36] setpos[-24 24] setpos[0 0]      setpos[24 -12] setpos[60 0]setpos[72 -12] setpos[48 -24] setpos[60 -36] setpos[48 -48]      setpos[24 -36] setpos[24 -12] pu setpos[48 -24] pd setpos[96 -24] setpos[144 24]      setpos[120 -36] setpos[72 -60] setpos[0 -60]setpos[-36 -60] setpos[-84 -48] setpos[-108 -24]      setpos[-72 -36] setpos[-36 -24] pu setpos[-108 -24] pd setpos[-132 -12] setpos[-144 36] pu      setpos[-108 24] pd arc 360 :size/10 pu bk :size*0.04 pd arc 360 :size*0.05 pu setpos[-48 0]      pd setfc[250 225 120] fillpu setpos[-108 24] fd :size*0.03 pd setfc[0 0 0] fill pu      setpos[36 -24] pd setfc[45 132 255] fill End To head :size      pu setpos[-144 36] pd setpos[-108 96] setpos[-48 120] setpos[12 108] setpos[60 60] setpos[84 24]      setpos[96 0]setpos[120 24] setpos[120 48] setpos[84 60] setpos[72 84] setpos[120 72]      setpos[144 96] setpos[144 72] setpos[132 48] setpos[144 24] pu setpos[0 48] pd      setfc[56 24 156] fill End To water :size      pu setpos[-48 120] pd setpos[-60 168] setpos[-72 180] setpos[-84 180] setpos[-108 144]      setpos[-96 192] setpos[-72 192] setpos[-48 168] setpos[-24 192] setpos[0 192] setpos[12 144]      setpos[-12 180] setpos[-24 180] setpos[-36 168] setpos[-48 120] pu setpos[-48 156] pd      setfc[46 125 225] fill End คำสั่งสร้างรูปช้างด้วยกระบวนความ to a :size pu home fd :size*1.50 rt 90 fd :size*1.00 rt 90 fd :size*0.25 rt 90 fd :size*0.10 fd :size*0.10 rt 90 pd fd :size*0.10 lt 25 fd :size*0.05 fd :size*0.05 lt 25 rt 10 fd :size*0.05 fd :size*0.05 lt 5 lt 20 fd :size*0.05 lt 25 fd :size*0.05 fd :size*0.05 lt 25 fd :size*0.10 lt 25 fd :size*0.05 fd :size*0.05 pu home fd :size*1.50 rt 90 fd :size*0.50 lt 90 lt 45 pd fd :size*0.05 fd :size*0.15 lt 25 rt 15 fd :size*0.15 lt 10 fd :size*0.10 lt 25 fd :size*0.10 lt 5 fd :size*0.10 lt 5 fd :size*0.10 lt 5 fd :size*0.10 lt 10 fd :size*0.15 lt 5 fd :size*0.10 lt 5 fd :size*0.10 pu home fd :size*1.75 rt 90 fd :size*0.50 bk :size*0.25 lt 90 bk :size*0.10 fd :size*0.05 pd fd :size*0.10 rt 5 fd :size*0.10 rt 5 fd :size*0.10 rt 25 fd :size*0.10 fd :size*0.10 fd :size*0.10 pu home fd :size*1.50 fd :size*0.50 bk :size*0.25 lt 90 fd :size*0.10 fd :size*0.10 lt 90 rt 180 bk :size*0.05 fd :size*0.10 bk :size*0.05 bk :size*0.05 pd fd :size*0.10 lt 5 fd :size*0.10 lt 5 fd :size*0.10 lt 25 fd :size*0.10 lt 5 fd :size*0.10 pu home end to body :size home lt 180 fd :size*1.50 rt 90 pd fd :size*0.20 lt 90 fd :size*0.20 pd  bk :size*0.20 fd :size*0.20 rt 90 fd :size*1.00 rt 90 fd :size*0.80 pu home lt 180 fd :size*1.50 lt 90 fd :size*0.20 rt 90 fd :size*0.20 pd bk :size*0.20 fd :size*0.20 lt 90 fd :size*1.00 lt 90 fd :size*0.80 pu home  fd :size*0.50 rt 90 fd :size*1.40 lt 45 pd fd :size*0.25 lt 25 fd :size*0.25 lt 25 fd :size*0.25 lt 50 fd :size*0.25 lt 25 fd :size*0.25 lt 25 fd :size*0.25 fd :size*0.05 fd :size*0.05 fd :size*0.05 pu home fd :size*0.50 lt 90 fd :size*1.40 rt 45 pd fd :size*0.25 rt 45 fd :size*0.25 rt 15 fd :size*0.25 rt 45 fd :size*0.25 rt 45 lt 20 fd :size*0.25 rt 20 fd :size*0.20 fd :size*0.05 pu lt 90 pd fd :size*0.25 rt 45 fd :size*0.15 rt 45 fd :size*0.15 rt 20 fd :size*0.10 fd :size*0.05 lt 90 pd pu home end to chang :size a :size body :size head :size pu setpos [150 150] rt 90 pd label [Penpitcha  Khamnon] ht ;[เด็กหญิงเพ็ญพิชชา คำนนท์] end to head :size pd circle :size*1.50 circle :size*0.30 pu  lt 180 fd :size*0.40 arc 180 :size*0.10 pd arc 180 :size*0.10 pu fd :size*0.10 pd pu fd :size*0.10 rt 180 arc 180 10 pd arc 180 10 pu  setfc [ 185 200 255] fill end

Parameter ตัวแปร

การเขียนโปรแกรมที่มีการใช้ตัวแปร ในการเขียนโปรแกรมภาษาโลโก เราสามารถกำหนดตัวแปรไว้ที่ชื่อโปรแกรมย่อย โดยใช้เครื่องหมาย colon ( : ) ตามด้วยชื่อตัวแปร เช่น :side คือตัวแปรชื่อ side หรือ :color หมายถึงตัวแปรชื่อ color เมื่อเรียกใช้โปรแกรมย่อยนั้นตามด้วยค่าตัวแปร (ตามปกติจะเป็นตัวเลข) จะมีผลทำให้เกิดการส่งผ่านค่าตัวแปรไปยังโปรแกรมย่อยนั้น และโปรแกรมย่อยจะนำค่าตัวแปรไปคำนวณและแสดงผลอีกทีหนึ่ง ประโยชน์ที่เห็นได้ง่าย ๆ จากการกำหนดตัวแปรไว้ที่โปรแกรมย่อย ทำให้เราไม่ต้องเขียนโปรแกรมย่อยซ้ำ ๆ กัน เช่นการสร้างภาพดอกไม้ 3 ดอก 3 สี 3 ขนาด และวางไว้ที่ตำแหน่งต่าง ๆ กัน สามารถทำได้ง่ายขึ้น โดยสร้างโปรแกรมย่อยชื่อ flower เพียง 1 โปรแกรมย่อย และกำหนดตัวแปรดังนี้คือ  flower  :side  :color  :x  :y ตัวแปร :side หมายถึงด้านของรูปสี่เหลี่ยมที่จะหมุนให้เกิดดอกไม้ ตัวแปร :color หมายถึงสีของดอกไม้ ตัวแปร :x หมายถึงพิกัด x ตัวแปร :y หมายถึงพิกัด y เมื่อต้องการสร้างภาพดอกไม้ 1 ดอก ก็ส่งค่าตัวแปร 4 ตัวไปยังโปรแกรมย่อย flower เช่น flower  35  4  -10  0 (หมายถึงกำหนดค่าตัวแปร side=35 , color=4 , x=-10 และ y=0) จะได้ดอกไม้ที่มีขนาด 35 (ความยาวด้านของสี่เหลี่ยม) สีแดง (สีหมายเลข 4) ณ พิกัด (-10,0) ทันที รูปสี่เหลี่ยมที่เป็นตัวแปรโดยใช้คำสั่งกระบวนความด้วย

 to rec :s :x

  repeat 4[fd :x rt 360/4]

end

  เมื่อเราพิมพ์คำสั่ง rec  4  100  ก็จะเป็นดังรูป

รูปห้าเหลี่ยมที่เป็นตัวแปร โดยใช้คำสั่งกระบวนความด้วย  


to rec :s :x
   cs
   lt 90
   repeat 5[fd :x rt 360/5]
end

เมื่อเราพิมพ์คำสั่ง rec  5  100  ก็จะเป็นดังรูป

รูปสามเหลี่ยมที่เป็นตัวแปร โดยใช้คำสั่งกระบวนความด้วย  

to rec :s :x

   cs

   lt 90

   repeat 3[fd :x rt 360/3]

end

 เมื่อเราพิมพ์คำสั่ง rec  3   100  ก็จะเป็นดังรูป

คำสั่งเพิ่มเติม ภาษา Logo

คำสั่งเกี่ยวกับขนาดและสี
setpensize   เป็นคำสั่งกำหนดขนาดของปากกาตามขนาดที่ต้องการ
  Ex. setpensize [5 15]
setpencolor  เป็นคำสั่งกำหนดเส้นสีของปากการ
  Ex.  setpencolor [0 254 190]
setfloodcolor เป็นคำสั่งเทสีลงบนรูปที่เราวาดขึ้นมา ใช้คำสั่งว่า fill ต่อท้ายเพื่อเทสีรูปภาพที่เราวาดขึ้น
  Ex  setfloodcolor [174 185 90] fill

คำสั่งที่ใช้ในการวาดรูปวงกลม
  1.arc 360 แล้วกำหนดวาดส่วนของวงกลม
  2.circle แล้วกำหนดขนาดของวงกลม

คำสั่งที่ใช้ในการวาดภาพซ้ำ
repeat  คำสั่งวนซ้ำทำซ้ำไปซ้ำมา   repeat n[คำสั่่่งที่อยากให้ทำซ้ำไปซ้ำมา

    Ex. repeat  3[fd 100 rt 90]  

คำสั่งที่ใช้เป็นกระบวนความ

   Procedure คือ กระบวนความคำสั่งต่างๆ ของภาษาโลโก้ เพื่อสร้างงานต่างๆ รูปแบบต่างๆ เก็บไว้ได้

สามเหลี่ยม  Triangle  

สี่เหลี่ยม  Sqare 

ห้าเหลี่ยม  Pentagonal

คำสั่ง รูปห้าเหลี่ยม

setpensize[5 3]

setpencolor[189 145 156]

rt 90

pd

repeat 5[fd 50 lt 72]

pu

home

rt 90

lt 90

rt 45

fd 41

setfloodcolor[174 85 174] fill

คำสั่ง รูปหกเหลี่ยม

setpensize[5 3]

setpencolor[185 158 78]

pd

repeat 6[fd 50 rt 60]

pu

home

rt 45

fd 45

setfloodcolor[189 154 129] fill

คำสั่ง รูปสามเหลี่ยม

setpensize[5 3]

setpencolor[78 174 156]

pd

rt 90

repeat 3[fd 100 lt 120]

pu

home

rt 45

fd 14

fd 45

setfloodcolor[189 25 254] fill

คำสั่ง รูปอักษร

setpensize[5 3]

pd

setpencolor[174 185 195]

Arw                                       Arw คำสั่งที่ใช้เป็นกระบวนความ ที่สร้างรูปแบบออกมาเอง  คือ  Procedure

pu

home

rt 45

fd 15

fd 41

setfloodcolor[174 185 152] fill

คำสั่ง รูปวงกลม

setpensize[5 3]

setpencolor[78 189 156]

pd

circle 30

circle 90

circle 60

setfloodcolor[184 251 54] fill

pu 

fd 41

setfloodcolor[253 174 78] fill

fd 41

bk 14

setfloodcolor[78 156 244] fill

สยามเมืองยิ้ม

                     เป็นดินแดนที่เราเกิดมา ทุกคนในประเทศไทยต้องยิ้มและไหว้ให้แก่กันเสมอ
         ทุกคนจะถามไถ่ทุกสุขต่างๆ ในเมืองไทยคนไทยต้องรู้จักแป่งปันเผื่อแผ่กัน ไม่ว่าจะเป็นภาคไหนๆก็ตาม เพราะเราคือ คนไทยเหมือนกัน