หน้าแรก | บล็อก | pnckruuciap's blog
user warning: Duplicate entry '536306482' for key 'PRIMARY' query: INSERT INTO accesslog (title, path, url, hostname, uid, sid, timer, timestamp) values('เผยแพร่ผลงาน บทคัดย่อ-ห้ามโฆษณาธุรกิจที่ก่อให้เกิดรายได้', 'forum/48', '', '18.226.164.197', 0, '256c3cf1015b9a49697254502a4863f3', 181, 1716641219) in /home/tgv/htdocs/modules/statistics/statistics.module on line 63.

ห้องเรียนคอมพิวเตอร์ วิชาการเขียนโปรแกรมบังคับหุ่นยนต์ 2 ม. 3/7 ภาคเรียนที่ 2

เมื่อ พุธ, 21/12/2011 - 12:51 | แก้ไขล่าสุด พุธ, 22/02/2012 - 14:52| โดย pnckruuciap
รูปภาพของ pnckruuciap

ข้อสอบปลายภาค
1. SLEEP  อยู่ในโหมด.....
2. READ  เป็นคำสั่งที่.....
3. RUN  เป็นคำสั่งที่.....
4. RETURN  เป็นคำสั่งที่....
5.ABS ....
6.คำสั่งเลี้ยวขวา....
7. เมื่อมีการสะท้อน (พื้นผิวสีขาว) ที่ขาสัญญาณเอาต์พุตจะมี.....
8. เมื่อไม่มีการสะท้อน (พื้นผิวสีดำ) ที่ขาสัญญาณเอาต์พุตจะมี ....
9. สวิตช์กันชนหน้าหลังแบ่งออกเป็น 2 ส่วน  มีอะไรบ้าง
10.เซอร์โวมอเตอร์ คืออะไร
11. เซนเซอร์แสง คืออะไร
12.ให้อธิบายการควบคุมหุ่นยนต์ให้เคลื่อนที่เป็นรูปสามเหลี่ยมพร้อมเขียนผังงาน
13.ให้อธิบายการควบคุมหุ่นยนต์ให้เคลื่อนที่เป็นรูปวงกลมพร้อมเขียนผังงาน
14.ให้อธิบายการควบคุมหุ่นยนต์ให้เคลื่อนที่เป็นรูปสี่เหลี่ยมพร้อมเขียนผังงาน
15.Output เป็นคำสั่งที่....

 

pnckruuciap's blog |  ล็อกอิน เพื่อแสดงความคิดเห็น |  อ่าน 1227 ครั้ง
pncnattapor เมื่อ พุธ, 22/02/2012 - 16:11

http://www.thaigoodview.com/node/128903

 ด.ญ ณัฐพร   จันบัวลา

pncsuppawit เมื่อ พุธ, 22/02/2012 - 16:06

 http://www.thaigoodview.com/node/128901

ด.ช ศุภวิชญ์   ผลทิพย์  ม3/7 เลขที่ 14

pisitbaoban เมื่อ พุธ, 22/02/2012 - 16:02

http://www.thaigoodview.com/node/128900

ด.ช พิสิษฐื บัวบาน ม3/7 เลขที่ 11

pncboonsak18 เมื่อ พุธ, 22/02/2012 - 15:52

http://www.thaigoodview.com/node/128896

บุญศักดิ์  เตโช  เลขที่ 18 ม.3/7

jetsada50 เมื่อ พุธ, 22/02/2012 - 15:49

http://thaigoodview.com/node/128894

เจษฎา  อยู่แก้ว  เลขที่ 3  ม.3/7

pncpetchladda เมื่อ พุธ, 22/02/2012 - 15:50

http://www.thaigoodview.com/node/128895

 

ด.ญ เพชรลัดดา  แซ่หวาง ม3/7 เลขที่  21

pncworamet เมื่อ พุธ, 22/02/2012 - 15:48

http://www.thaigoodview.com/node/128892

วรเมธ  โสภี เลขที่ 13 ชั้น 3/7

nontacha เมื่อ พุธ, 22/02/2012 - 15:32

http://www.thaigoodview.com/node/128886

นนทชา  กสิวัฒน์ เลขที่ 7 ชั้น 3/7

pncatiwat เมื่อ พุธ, 11/01/2012 - 15:33

' {$STAMP BS2p}
LoopLeft     VAR  Word
LoopRight    VAR  Word
LoopStraight VAR  Word
ASCII             VAR Byte
OrderASCII   VAR  Word
AUXIO
PAUSE 1000
GOSUB InitiailCD
MAINIO
LoopMain:
IF(IN4=0 AND IN3=0 AND IN1=0 AND IN0=0)THEN MotorStop
IF(IN4=0 AND IN3=0 AND IN1=0 AND IN0=1)THEN MotorStop
IF(IN4=0 AND IN3=0 AND IN1=1 AND IN0=0)THEN MotorStop
IF(IN4=0 AND IN3=0 AND IN1=1 AND IN0=1)THEN MotorBackward
IF(IN4=0 AND IN3=1 AND IN1=0 AND IN0=0)THEN MotorStop
IF(IN4=0 AND IN3=1 AND IN1=0 AND IN0=1)THEN MotorStop
IF(IN4=0 AND IN3=1 AND IN1=1 AND IN0=0)THEN MotorStop
IF(IN4=0 AND IN3=0 AND IN1=1 AND IN0=1)THEN MotorEvadeLeft
IF(IN4=1 AND IN3=0 AND IN1=0 AND IN0=0)THEN MotorStop
IF(IN4=1 AND IN3=0 AND IN1=0 AND IN0=1)THEN MotorStop
IF(IN4=1 AND IN3=0 AND IN1=1 AND IN0=0)THEN MotorStop
IF(IN4=0 AND IN3=0 AND IN1=0 AND IN0=0)THEN MotorEvadeRight
IF(IN4=1 AND IN3=1 AND IN1=0 AND IN0=0)THEN MotorForward
IF(IN4=1 AND IN3=1 AND IN1=0 AND IN0=1)THEN MotorForward
IF(IN4=1 AND IN3=1 AND IN1=1 AND IN0=0)THEN MotorForward
IF(IN7=0 AND IN6=0 AND IN5=1 AND IN4=1 AND IN3=1 AND IN1=1 AND IN0=1)THEN MotorForward
IF(IN7=0 AND IN6=1 AND IN5=1 AND IN4=1 AND IN3=1 AND IN1=1 AND IN0=1)THEN MotorReturnRightGoLine
IF(IN7=0 AND IN6=1 AND IN5=0 AND IN4=1 AND IN3=1 AND IN1=1 AND IN0=1)THEN MotorForward
IF(IN7=0 AND IN6=1 AND IN5=1 AND IN4=1 AND IN3=1 AND IN1=1 AND IN0=1)THEN MotorReturnRight90
IF(IN7=1 AND IN6=0 AND IN5=0 AND IN4=1 AND IN3=1 AND IN1=1 AND IN0=1)THEN MotorReturnLeftGoLine
IF(IN7=1 AND IN6=0 AND IN5=1 AND IN4=1 AND IN3=1 AND IN1=1 AND IN0=1)THEN MotorForward
IF(IN7=1 AND IN6=1 AND IN5=0 AND IN4=1 AND IN3=1 AND IN1=1 AND IN0=1)THEN MotorReturnLeft90
IF(IN7=1 AND IN6=1 AND IN5=1 AND IN4=1 AND IN3=1 AND IN1=1 AND IN0=1)THEN MotorForward
GOTO LoopMain
MotorForward
AUXIO
ASCII=$1
GOSUB SendCommandLCD
FOR OrderASCII=0 TO 6
LOOKUP OrderASCII,["Forward"],ASCII
GOSUB SemdASCII
NEXT
MAINIO
PULSOUT 13,1250
PULSOUT 14,2500
PAUSE   20
GOTO LoopMain
MotorBackward:
AUXIO
ASCII=$1
GOSUB SendCommandLCD
FOR OrderASCII=0 TO 7
LOOKUP OrderASCII,["Backward"],ASCII
GOSUB SendASCII
NEXT
MAINIO
FOR LoopStraight= TO 50
PULSOUT 13,2500
PULSOUT 14,1250
PAUSE   20
NEXT
GOTO LoopMain
MotorStop:
AUXIO
ASCII=$1
GOSUB SemdCommandLCD
FOR OrderASCII=0 TO 3
LOOKUP OrderASCII,["Stop"]LASCII
GOSUB SandASCII
NEXT
MAINIO
LOW 13
LOW 14
FREQOUT 15,1000,1000,1000
GOTO LoopMain
MotorReturnLeft90:
AUXIO
ASCII=$1
GOSUB SemdCommandLCD
FOR OrderASCII=0 TO 13
LOOKUP OrderASCII,["Return Left 90"],ASCII
GOSUB SendASCII
NEXT
MAINIO
FOR LoopLeft = 1 TO 30
PULSOUT 13,1250
PULSOUT 14,2500
PAUSE   20
NEXT
FOR LoopLeft = 1 TO 40
PULSOUT 13,1250
PULSOUT 14,1200
PAUSE   20
NEXT
GOTO LoopMain
MotorEvadeRight
AUXIO
ASCII=$1
GOSUB SendCommabdLCD
FOR OrderASCII=0 TO 10
LOOKUP ORderASCII,["Evade Right"],ASCII
GOSUB SendASCII
NEXT
MAINIO
FOR LoopRight = 1 TO 40
PULSOUT 13,2500
PULSOUT 14,1250
PAUSE   20
NEXT
FOR LoopRight = 1 TO 20
PULSOUT 13,1250
PULSOUT 14,1250
PAUSE   20
GOTO LoopMain
MotorReturnLeftGoLine:
PULSOUT 13,1250
PULSOUT 14,1250
PAUSE   20
GOTO LoopMain
MotorReturnRight90:
AUXIO
ASCII=$1
GOSUB SendCommandLCD
FOR OrderASCII = 0 TO 14
LOOKUP OrderASCII,["Return Right 90"],ASCII
GOSUB SendASCII
NEXT
MAINIO
FOR LOOpRight = 1 TO 30
PULSOUT 13,1250
PULSOUT 14,2500
PAUSE 20
NEXT
FOR LoopRight = TO 40
PULSOUT 13,2500
PULSOUT 14,2500
PAUSE   20
NEXT
GOTO LoopMain
MotorEvadeLeft
AUXIO
ASCII = $1
GOSUB SendCommandLCD
FOR OrderSCII = 0 TO 9
LOOKUP OrderSCII,["Evade Left"],ASCII
GOSUB SendASCII
NEXT
MAINIO
FOR LoopLeft = 1 TO 40
PULSOUT 13,2500
PULSOUT 14,1250
PAUSE   20
NEXT
FOR LoopLeft = 1 TO 20
PULSOUT 13,2500
PULSOUT 14,2500
PAUSE   20
NEXT
GOTO LoopMain
MotorReturnRightGoLine:
PULSOUT 13,2500
PULSOUT 14,2500
PAUSE   20
GOTO LoopMain
InitialLCD:
ASCII=$33
GOSUB SendCommandLCD
ASCII=$32
GOSUB SendCommandLCD
ASCII=$28
GOSUB SendCommandLCD
ASCII=$C
GOSUB SendCommandLCD
ASCII=$6
GOSUB SendCommandLCD
ASCII=$1
GOSUB SendCommandLCD
RETURN
SendASCII
HIGH 10 : GOTO NextSend
SendCommandLCD
LOW 10
NextSend
HIGH 15: IF ASCILBIT7 = 1 THEN NextSand1: LOW 15
NextSand1:
HIGH 14: IF ASCILBIT6 = 1 THEN NextSand2: LOW 14
NextSand2:
HIGH 13: IF ASCILBIT5 = 1 THEN NextSand3: LOW 13
NextSand3:
HIGH 12: IF ASCILBIT4 = 1 THEN NextSand4: LOW 12
NextSand4:
PULSOUT 11,1:PAUSE 1
HIGH 15 : IF ASCII.BIT3=1THEN NextSand5:LOW 15
NextSand6:
HIGH 14 : IF ASCII.BIT2=1THEN NextSand6:LOW 14
NextSand7:
HIGH 13 : IF ASCII.BIT1=1THEN NextSand7:LOW 13
NextSand8
HIGH 12 : IF ASCII.BIT0=1THEN NextSand8:LOW 12
NextSand9
PULSOUT 11,1:PAUSE 1
RETURN

jetsada50 เมื่อ พุธ, 11/01/2012 - 15:31

' {$STAMP BS2p}
LoopLeft     VAR  Word
LoopRight    VAR  Word
LoopStraight VAR  Word
ASCII             VAR Byte
OrderASCII   VAR  Word
AUXIO
PAUSE 1000
GOSUB InitiailCD
MAINIO
LoopMain:
IF(IN4=0 AND IN3=0 AND IN1=0 AND IN0=0)THEN MotorStop
IF(IN4=0 AND IN3=0 AND IN1=0 AND IN0=1)THEN MotorStop
IF(IN4=0 AND IN3=0 AND IN1=1 AND IN0=0)THEN MotorStop
IF(IN4=0 AND IN3=0 AND IN1=1 AND IN0=1)THEN MotorBackward
IF(IN4=0 AND IN3=1 AND IN1=0 AND IN0=0)THEN MotorStop
IF(IN4=0 AND IN3=1 AND IN1=0 AND IN0=1)THEN MotorStop
IF(IN4=0 AND IN3=1 AND IN1=1 AND IN0=0)THEN MotorStop
IF(IN4=0 AND IN3=0 AND IN1=1 AND IN0=1)THEN MotorEvadeLeft
IF(IN4=1 AND IN3=0 AND IN1=0 AND IN0=0)THEN MotorStop
IF(IN4=1 AND IN3=0 AND IN1=0 AND IN0=1)THEN MotorStop
IF(IN4=1 AND IN3=0 AND IN1=1 AND IN0=0)THEN MotorStop
IF(IN4=0 AND IN3=0 AND IN1=0 AND IN0=0)THEN MotorEvadeRight
IF(IN4=1 AND IN3=1 AND IN1=0 AND IN0=0)THEN MotorForward
IF(IN4=1 AND IN3=1 AND IN1=0 AND IN0=1)THEN MotorForward
IF(IN4=1 AND IN3=1 AND IN1=1 AND IN0=0)THEN MotorForward
IF(IN7=0 AND IN6=0 AND IN5=1 AND IN4=1 AND IN3=1 AND IN1=1 AND IN0=1)THEN MotorForward
IF(IN7=0 AND IN6=1 AND IN5=1 AND IN4=1 AND IN3=1 AND IN1=1 AND IN0=1)THEN MotorReturnRightGoLine
IF(IN7=0 AND IN6=1 AND IN5=0 AND IN4=1 AND IN3=1 AND IN1=1 AND IN0=1)THEN MotorForward
IF(IN7=0 AND IN6=1 AND IN5=1 AND IN4=1 AND IN3=1 AND IN1=1 AND IN0=1)THEN MotorReturnRight90
IF(IN7=1 AND IN6=0 AND IN5=0 AND IN4=1 AND IN3=1 AND IN1=1 AND IN0=1)THEN MotorReturnLeftGoLine
IF(IN7=1 AND IN6=0 AND IN5=1 AND IN4=1 AND IN3=1 AND IN1=1 AND IN0=1)THEN MotorForward
IF(IN7=1 AND IN6=1 AND IN5=0 AND IN4=1 AND IN3=1 AND IN1=1 AND IN0=1)THEN MotorReturnLeft90
IF(IN7=1 AND IN6=1 AND IN5=1 AND IN4=1 AND IN3=1 AND IN1=1 AND IN0=1)THEN MotorForward
GOTO LoopMain
MotorForward
AUXIO
ASCII=$1
GOSUB SendCommandLCD
FOR OrderASCII=0 TO 6
LOOKUP OrderASCII,["Forward"],ASCII
GOSUB SemdASCII
NEXT
MAINIO
PULSOUT 13,1250
PULSOUT 14,2500
PAUSE   20
GOTO LoopMain
MotorBackward:
AUXIO
ASCII=$1
GOSUB SendCommandLCD
FOR OrderASCII=0 TO 7
LOOKUP OrderASCII,["Backward"],ASCII
GOSUB SendASCII
NEXT
MAINIO
FOR LoopStraight= TO 50
PULSOUT 13,2500
PULSOUT 14,1250
PAUSE   20
NEXT
GOTO LoopMain
MotorStop:
AUXIO
ASCII=$1
GOSUB SemdCommandLCD
FOR OrderASCII=0 TO 3
LOOKUP OrderASCII,["Stop"]LASCII
GOSUB SandASCII
NEXT
MAINIO
LOW 13
LOW 14
FREQOUT 15,1000,1000,1000
GOTO LoopMain
MotorReturnLeft90:
AUXIO
ASCII=$1
GOSUB SemdCommandLCD
FOR OrderASCII=0 TO 13
LOOKUP OrderASCII,["Return Left 90"],ASCII
GOSUB SendASCII
NEXT
MAINIO
FOR LoopLeft = 1 TO 30
PULSOUT 13,1250
PULSOUT 14,2500
PAUSE   20
NEXT
FOR LoopLeft = 1 TO 40
PULSOUT 13,1250
PULSOUT 14,1200
PAUSE   20
NEXT
GOTO LoopMain
MotorEvadeRight
AUXIO
ASCII=$1
GOSUB SendCommabdLCD
FOR OrderASCII=0 TO 10
LOOKUP ORderASCII,["Evade Right"],ASCII
GOSUB SendASCII
NEXT
MAINIO
FOR LoopRight = 1 TO 40
PULSOUT 13,2500
PULSOUT 14,1250
PAUSE   20
NEXT
FOR LoopRight = 1 TO 20
PULSOUT 13,1250
PULSOUT 14,1250
PAUSE   20
GOTO LoopMain
MotorReturnLeftGoLine:
PULSOUT 13,1250
PULSOUT 14,1250
PAUSE   20
GOTO LoopMain
MotorReturnRight90:
AUXIO
ASCII=$1
GOSUB SendCommandLCD
FOR OrderASCII = 0 TO 14
LOOKUP OrderASCII,["Return Right 90"],ASCII
GOSUB SendASCII
NEXT
MAINIO
FOR LOOpRight = 1 TO 30
PULSOUT 13,1250
PULSOUT 14,2500
PAUSE 20
NEXT
FOR LoopRight = TO 40
PULSOUT 13,2500
PULSOUT 14,2500
PAUSE   20
NEXT
GOTO LoopMain
MotorEvadeLeft
AUXIO
ASCII = $1
GOSUB SendCommandLCD
FOR OrderSCII = 0 TO 9
LOOKUP OrderSCII,["Evade Left"],ASCII
GOSUB SendASCII
NEXT
MAINIO
FOR LoopLeft = 1 TO 40
PULSOUT 13,2500
PULSOUT 14,1250
PAUSE   20
NEXT
FOR LoopLeft = 1 TO 20
PULSOUT 13,2500
PULSOUT 14,2500
PAUSE   20
NEXT
GOTO LoopMain
MotorReturnRightGoLine:
PULSOUT 13,2500
PULSOUT 14,2500
PAUSE   20
GOTO LoopMain
InitialLCD:
ASCII=$33
GOSUB SendCommandLCD
ASCII=$32
GOSUB SendCommandLCD
ASCII=$28
GOSUB SendCommandLCD
ASCII=$C
GOSUB SendCommandLCD
ASCII=$6
GOSUB SendCommandLCD
ASCII=$1
GOSUB SendCommandLCD
RETURN
SendASCII
HIGH 10 : GOTO NextSend
SendCommandLCD
LOW 10
NextSend
HIGH 15: IF ASCILBIT7 = 1 THEN NextSand1: LOW 15
NextSand1:
HIGH 14: IF ASCILBIT6 = 1 THEN NextSand2: LOW 14
NextSand2:
HIGH 13: IF ASCILBIT5 = 1 THEN NextSand3: LOW 13
NextSand3:
HIGH 12: IF ASCILBIT4 = 1 THEN NextSand4: LOW 12
NextSand4:
PULSOUT 11,1:PAUSE 1
HIGH 15 : IF ASCII.BIT3=1THEN NextSand5:LOW 15
NextSand6:
HIGH 14 : IF ASCII.BIT2=1THEN NextSand6:LOW 14
NextSand7:
HIGH 13 : IF ASCII.BIT1=1THEN NextSand7:LOW 13
NextSand8
HIGH 12 : IF ASCII.BIT0=1THEN NextSand8:LOW 12
NextSand9
PULSOUT 11,1:PAUSE 1
RETURN

pncworamet เมื่อ พุธ, 11/01/2012 - 15:31

' {$STAMP BS2p}
LoopLeft     VAR  Word
LoopRight    VAR  Word
LoopStraight VAR  Word
ASCII             VAR Byte
OrderASCII   VAR  Word
AUXIO
PAUSE 1000
GOSUB InitiailCD
MAINIO
LoopMain:
IF(IN4=0 AND IN3=0 AND IN1=0 AND IN0=0)THEN MotorStop
IF(IN4=0 AND IN3=0 AND IN1=0 AND IN0=1)THEN MotorStop
IF(IN4=0 AND IN3=0 AND IN1=1 AND IN0=0)THEN MotorStop
IF(IN4=0 AND IN3=0 AND IN1=1 AND IN0=1)THEN MotorBackward
IF(IN4=0 AND IN3=1 AND IN1=0 AND IN0=0)THEN MotorStop
IF(IN4=0 AND IN3=1 AND IN1=0 AND IN0=1)THEN MotorStop
IF(IN4=0 AND IN3=1 AND IN1=1 AND IN0=0)THEN MotorStop
IF(IN4=0 AND IN3=0 AND IN1=1 AND IN0=1)THEN MotorEvadeLeft
IF(IN4=1 AND IN3=0 AND IN1=0 AND IN0=0)THEN MotorStop
IF(IN4=1 AND IN3=0 AND IN1=0 AND IN0=1)THEN MotorStop
IF(IN4=1 AND IN3=0 AND IN1=1 AND IN0=0)THEN MotorStop
IF(IN4=0 AND IN3=0 AND IN1=0 AND IN0=0)THEN MotorEvadeRight
IF(IN4=1 AND IN3=1 AND IN1=0 AND IN0=0)THEN MotorForward
IF(IN4=1 AND IN3=1 AND IN1=0 AND IN0=1)THEN MotorForward
IF(IN4=1 AND IN3=1 AND IN1=1 AND IN0=0)THEN MotorForward
IF(IN7=0 AND IN6=0 AND IN5=1 AND IN4=1 AND IN3=1 AND IN1=1 AND IN0=1)THEN MotorForward
IF(IN7=0 AND IN6=1 AND IN5=1 AND IN4=1 AND IN3=1 AND IN1=1 AND IN0=1)THEN MotorReturnRightGoLine
IF(IN7=0 AND IN6=1 AND IN5=0 AND IN4=1 AND IN3=1 AND IN1=1 AND IN0=1)THEN MotorForward
IF(IN7=0 AND IN6=1 AND IN5=1 AND IN4=1 AND IN3=1 AND IN1=1 AND IN0=1)THEN MotorReturnRight90
IF(IN7=1 AND IN6=0 AND IN5=0 AND IN4=1 AND IN3=1 AND IN1=1 AND IN0=1)THEN MotorReturnLeftGoLine
IF(IN7=1 AND IN6=0 AND IN5=1 AND IN4=1 AND IN3=1 AND IN1=1 AND IN0=1)THEN MotorForward
IF(IN7=1 AND IN6=1 AND IN5=0 AND IN4=1 AND IN3=1 AND IN1=1 AND IN0=1)THEN MotorReturnLeft90
IF(IN7=1 AND IN6=1 AND IN5=1 AND IN4=1 AND IN3=1 AND IN1=1 AND IN0=1)THEN MotorForward
GOTO LoopMain
MotorForward
AUXIO
ASCII=$1
GOSUB SendCommandLCD
FOR OrderASCII=0 TO 6
LOOKUP OrderASCII,["Forward"],ASCII
GOSUB SemdASCII
NEXT
MAINIO
PULSOUT 13,1250
PULSOUT 14,2500
PAUSE   20
GOTO LoopMain
MotorBackward:
AUXIO
ASCII=$1
GOSUB SendCommandLCD
FOR OrderASCII=0 TO 7
LOOKUP OrderASCII,["Backward"],ASCII
GOSUB SendASCII
NEXT
MAINIO
FOR LoopStraight= TO 50
PULSOUT 13,2500
PULSOUT 14,1250
PAUSE   20
NEXT
GOTO LoopMain
MotorStop:
AUXIO
ASCII=$1
GOSUB SemdCommandLCD
FOR OrderASCII=0 TO 3
LOOKUP OrderASCII,["Stop"]LASCII
GOSUB SandASCII
NEXT
MAINIO
LOW 13
LOW 14
FREQOUT 15,1000,1000,1000
GOTO LoopMain
MotorReturnLeft90:
AUXIO
ASCII=$1
GOSUB SemdCommandLCD
FOR OrderASCII=0 TO 13
LOOKUP OrderASCII,["Return Left 90"],ASCII
GOSUB SendASCII
NEXT
MAINIO
FOR LoopLeft = 1 TO 30
PULSOUT 13,1250
PULSOUT 14,2500
PAUSE   20
NEXT
FOR LoopLeft = 1 TO 40
PULSOUT 13,1250
PULSOUT 14,1200
PAUSE   20
NEXT
GOTO LoopMain
MotorEvadeRight
AUXIO
ASCII=$1
GOSUB SendCommabdLCD
FOR OrderASCII=0 TO 10
LOOKUP ORderASCII,["Evade Right"],ASCII
GOSUB SendASCII
NEXT
MAINIO
FOR LoopRight = 1 TO 40
PULSOUT 13,2500
PULSOUT 14,1250
PAUSE   20
NEXT
FOR LoopRight = 1 TO 20
PULSOUT 13,1250
PULSOUT 14,1250
PAUSE   20
GOTO LoopMain
MotorReturnLeftGoLine:
PULSOUT 13,1250
PULSOUT 14,1250
PAUSE   20
GOTO LoopMain
MotorReturnRight90:
AUXIO
ASCII=$1
GOSUB SendCommandLCD
FOR OrderASCII = 0 TO 14
LOOKUP OrderASCII,["Return Right 90"],ASCII
GOSUB SendASCII
NEXT
MAINIO
FOR LOOpRight = 1 TO 30
PULSOUT 13,1250
PULSOUT 14,2500
PAUSE 20
NEXT
FOR LoopRight = TO 40
PULSOUT 13,2500
PULSOUT 14,2500
PAUSE   20
NEXT
GOTO LoopMain
MotorEvadeLeft
AUXIO
ASCII = $1
GOSUB SendCommandLCD
FOR OrderSCII = 0 TO 9
LOOKUP OrderSCII,["Evade Left"],ASCII
GOSUB SendASCII
NEXT
MAINIO
FOR LoopLeft = 1 TO 40
PULSOUT 13,2500
PULSOUT 14,1250
PAUSE   20
NEXT
FOR LoopLeft = 1 TO 20
PULSOUT 13,2500
PULSOUT 14,2500
PAUSE   20
NEXT
GOTO LoopMain
MotorReturnRightGoLine:
PULSOUT 13,2500
PULSOUT 14,2500
PAUSE   20
GOTO LoopMain
InitialLCD:
ASCII=$33
GOSUB SendCommandLCD
ASCII=%32
GOSUB SendCommandLCD
ASCII=$28
GOSUB SendCommandLCD
ASCII=$C
GOSUB SendCommandLCD
ASCII=$6
GOSUB SendCommandLCD
ASCII=$1
GOSUB SendCommandLCD
RETURN
SendASCII
HIGH 10 : GOTO NextSend
SendCommandLCD
LOW 10
NextSend
HIGH 15: IF ASCILBIT7 = 1 THEN NextSand1: LOW 15
NextSand1:
HIGH 14: IF ASCILBIT6 = 1 THEN NextSand2: LOW 14
NextSand2:
HIGH 13: IF ASCILBIT5 = 1 THEN NextSand3: LOW 13
NextSand3:
HIGH 12: IF ASCILBIT4 = 1 THEN NextSand4: LOW 12
NextSand4:
PULSOUT 11,1:PAUSE 1
HIGH 15 : IF ASCII.BIT3=1THEN NextSand5:LOW 15
NextSand6:
HIGH 14 : IF ASCII.BIT2=1THEN NextSand6:LOW 14
NextSand7:
HIGH 13 : IF ASCII.BIT1=1THEN NextSand7:LOW 13
NextSand8
HIGH 12 : IF ASCII.BIT0=1THEN NextSand8:LOW 12
NextSand9
PULSOUT 11,1:PAUSE 1
RETURN

มหาวิทยาลัยศรีปทุม ผู้ใหญ่ใจดี
 

Thaigoodview

 ช่วยด้วยครับ
นักเรียนที่สร้างบล็อก กรุณาอย่า
คัดลอกข้อมูลจากเว็บอื่นทั้งหมด
ควรนำมาจากหลายๆ เว็บ แล้ววิเคราะห์ สังเคราะห์ และเขียนขึ้นใหม่
หากคัดลอกทั้งหมด จะถูกดำเนินคดี
ตามกฎหมายจากเจ้าของลิขสิทธิ์
มีโทษทั้งจำคุกและปรับในอัตราสูง

ช่วยกันนะครับ 
ไทยกู๊ดวิวจะได้อยู่นานๆ 
ไม่ถูกปิดเสียก่อน
ขอขอบคุณในความร่วมมือครับ

อ่านรายละเอียด

ด่วน...... ขณะนี้
พระราชบัญญัติลิขสิทธิ์ (ฉบับที่ 2) พ.ศ. 2558 
มีผลบังคับใช้แล้ว 
ขอให้นักเรียนและคุณครูที่ใช้งาน
เว็บ thaigoodview ในการส่งการบ้าน
ระมัดระวังการละเมิดลิขสิทธิ์ด้วย
อ่านรายละเอียดที่นี่ครับ

 

สมาชิกที่ออนไลน์

ขณะนี้มี สมาชิก 0 คน และ ผู้เยี่ยมชม 221 คน กำลังออนไลน์

Creative Commons License

Copyright © 2000-2024 thaigoodview.com | ออกแบบและพัฒนาระบบโดย ไทยกู๊ดวิวดอทคอม
สงวนสิทธิ์ภายใต้สัญญาอนุญาต Creative Commons Attribution-Noncommercial-Share Alike 3.0 Unported License.
ท่านสามารถนำเนื้อหาไปใช้ แสดง ดัดแปลง เผยแพร่ โดยต้องอ้างอิงที่มา ห้ามใช้เพื่อการค้า และต้องใช้สัญญาอนุญาตชนิดเดียวกันนี้ไปกับงานดัดแปลงต่อยอดที่เผยเผยแพร่ต่อ