አንድ CMUCam2 ን ወደ OOPIC ማገናኘት 5 ደረጃዎች

2024 ደራሲ ደራሲ: John Day | [email protected]. ለመጨረሻ ጊዜ የተሻሻለው: 2024-01-30 07:34

በደራሲው ተጨማሪ ይከተሉ

አንድ CMUCam2 ን ወደ OOPIC እንዴት እንደሚገናኙ አጠቃላይ እይታ።

ደረጃ 1 - አስማሚውን ገመድ ማድረግ

1. Goto radioshack እና ከእነዚህ ውስጥ 2 ይግዙ-ወንድ DB-9 Solder Cup Connector2። በአገናኝ ላይ ሀ ለ መሰኪያ 5 ወደ አያያዥ B (መሰኪያውን በጥንቃቄ ከተመለከቱ ምልክት ይደረግባቸዋል) 3. በአያያዥ ሀ ላይ መሰኪያ ፒን 2 በአያያዥ B ላይ (በአገናኙ ላይ በጥንቃቄ ከተመለከቱ ምልክት ይደረግባቸዋል) 4. በአገናኝ B ላይ በአገናኝ ላይ ለ 2 መሰኪያ 3 (በአገናኙ ላይ በጥንቃቄ ከተመለከቱ ምልክት ይደረግባቸዋል)

ደረጃ 2 በ CMUCam ላይ ያለውን የባውድ ተመን ይለውጡ

የ CMUCamera የባውድ መጠን ወደ 9600 ባውድ ይለውጡ (ዝላይን ወደ ቦታ 0 ያክሉ)።

ደረጃ 3 ደረጃውን የጠበቀ የፕሮግራም ገመድ እና የመጫኛ ኮድ ያገናኙ

መደበኛውን የፕሮግራም ገመድ ያገናኙ እና ኮድዎን ይስቀሉ። ለመጀመር አንዳንድ የምሳሌ ኮድ አለ። ይህ ኮድ የኤልኤፍ እና ኤፍዲ ትዕዛዞችን በመጠቀም እንቅስቃሴን ይከታተላል። እሱ IOLine 7 ን (ከ LED ጋር ተጣብቋል) እና በ CMUCam ላይ የመከታተያ ሁኔታን LED ያንፀባርቃል።

& apos ******** ከተከታታይ ወደብ ጋር የተዛመዱ ዕቃዎች ******** ደደብ serialPort እንደ አዲስ oSerialPortDim txBuff እንደ አዲስ oBuffer27 & aposchange the 27/መጠባበቂያውን/ትልቅ ለማድረግ ዲም rxBuff እንደ አዲስ አዲስ oDIO1Dim ይቀያይራል ************************************** & apos*Generic Subroutines*& apos ****** ***** የጅምላ CMUCAM_setOutputMask (2 ፣ 3) ማእከልን ብቻ ይከተሉ እና የመጀመሪያ ልዩነታችንን ክፈፍ ይጫኑ CMUCAM_loadDiffFrame () እና ልዩነቱን ስሌት CMUCAM_startDiffCalc (10) ንዑስ ንዑስ ዋናውን_ኢኒት ያጠናቅቁ እና ሁኔታውን ያስተካክሉ LED statLED. IOLine = 7 statLI. መመሪያ) ጨርስ ሱ b & aposprocesses packets Packet Sub SubPakket () Dim mx As Byte Dim my As Byte & aposcheck for Mx and My 0 and be 0 & aposgranted they are 0 ካልሆነ ፣ ቦታው ይጠፋል (ማለትም & aposT 12 34).አከባቢ = 2 mx = rxBuff. Value rxBuff. Location = 4 my = rxBuff. Value & ክህደት የሚመራው በካሜራው ላይ ካለው የመከታተያ LED ጋር በአንድነት ብልጭ ድርግም ማለት አለበት (mx = "0") እና (የእኔ = "0") statLED = 0 ሌላ statLED = 1 መጨረሻው መጨረሻ እና መጨረሻ ***************************************** **** & apos*CMU Cam ተግባራት*& apos *************************************** ******* እና የተሰጠውን መሪ አብራ ፣ አጥፋ ፣ አውቶማቲክ እና አፖፓራም መሪ ቁጥር መሪ (0 ፣ 1) & aposparam val ጠፍቷል ፣ በርቷል ፣ አውቶማቲክ (0 ፣ 1 ፣ 2) ተግባር CMUCAM_ledSet (ledNum As Byte ፣ val As Byte)) እንደ ባይት & aposVString በአዲሱ አጠናቃሪ ውስጥ በትክክል እየሠራ… እና ስለ አሮጌው እርግጠኛ አይደለም። tr $ ተግባር ይጠፋል … ስለዚህ አሁን ይህ እየሆነ ነው txBuff. Value = serial_toChar (ledNum) txBuff. Location = 2 txBuff. Value = "" txBuff. Location = 3 txBuff. Value = serial_toChar (val) txBuff. Location = 4 = 13 & ትዕዛዙን serial_SendBufferEnd ንዑስ & aposloads የመጀመሪያውን ልዩነት ክፈፍ Sub CMUCAM_loadDiffFrame () & የትእዛዝ ሕብረቁምፊን በእጅ txBuff. Location = 0 txBuff. Value = "L" txBuff. Location = 1 txBuff. Value. Value እሴት = 13 & ትዕዛዙን ይዘዋል serial_SendBufferEnd ንዑስ & aposstar የክፈፍ ልዩነቶች እና የአፖፓራም ደፍ (0-9) ንዑስ CMUCAM_startDiffCalc (እንደ ባይት thresh) ዲም አስር እንደ ባይት & ትዕዛዞችን ሕብረቁምፊ በእጅ txBuff. Location = 0 txBuff. Val 1 txBuff. Value = "D" txBuff. Location = 2 txBuff. Value = "" txBuff. Location = 3 tens = thresh/10 txBuff. Value = serial_toChar (አስር) txBuff. Location = 4 tens = thresh/10 txBu = serial_toChar (thresh-tens) txBuff. Location = 5 txBuff. Value = 1 3 & ትዕዛዙን ይተይቡ serial_SendBufferEnd ንዑስ & የውጤት ጭምብልን እና የአፖፓራም ፓኬትን ይተይቡ ለመሸፈን የፓኬት ዓይነት (0 ፣ 1 ፣ 2 ፣ ወዘተ) ገጽ 46 ን ለማየት እና የአፖፓራም ጭምብል ጭምብል ዋጋ ለመተግበር (0-255) ንዑስ CMUCAM_setOutputMask (ፓኬት ዓይነት ባይት ፣ ጭምብል እንደ ባይት) እንደ ባይት ዲም አስር እንደ ባይት & apossetup የእኛን የትዕዛዝ ሕብረቁምፊ በእጅ txBuff. Location = 0 txBuff. Value = "O" txBuff. Location = 1 txBuff. Value = "M" txBuff. Location = 2 txBuff. Value = "" & apospacket type txBuff. Location. አካባቢ = 3 txBuff. Value = serial_toChar (packetType) txBuff. Location = 4 txBuff. Value = "" & aposmask txBuff. Location = 5 መቶዎች = ጭምብል/100 txBuff. Value = serial_toChar (መቶዎች) txBuff. (ጭንብል-መቶዎች)/10 txBuff. Value = serial_toChar (አስር) txBuff. Location = 7 txBuff. Value = serial_toChar (ጭምብል-መቶ-አስር) እና የአፖካርሲሽን መመለስ txBuff. Location = 8 txBuff. Value = 13 & ትዕዛዝን ያዝዙ ********************************************** & apos*አጠቃላይ ተከታታይ ንዑስ ክፍሎች *& ይቅርታ s ********************************************* እና ተከታታይውን aposinitializes portSub serial_init () & ተከታታይ ወደቡን ለማብራት እና ለማጥፋት አንድ አዝራር ያብጁ (ለመሮጥ ያብሩ ፣ ወደ ፕሮግራም ያጥፉ) toggleSerial_Button. IOLine = 5 toggleSerial_Button. Direction = cvInput toggleSerial_Wire. Input. Link (toggleSerial_Button. አገናኝ (toggleSerial_Event. Operate) toggleSerial_Wire. Operate = cvTrue & የውሂብ serialReceive_Wire. Input. Link (serialPort. Received) serialReceive_Wire. Output. Link (serialReceeReceeReceeure_Event = 0 & የእኛን ተከታታይ ወደብ serialPort. Baud = cv9600 & aialinalize የእኛን ተከታታይ ሁኔታ LED serialActive_LED. IOLine = 6 serialActive_LED. Direction = cvOutput & aposwait የእኛ ተከታታይ ወደብ እስኪነቃ ድረስ ተከታታይነት ያለው ፖርት። የጥቅል ማጠናቀቅ Sub serialRe ceive_Event_Code () & apos.received 4byte buffer ባዶ ሆኖ ሳለ (serialPort. Received = cvTrue) & aposcopy the bte to our buffer rxBuff. Value = serialPort. Value & aposcheck for packet If RxBuff. Value = 13 & ማስቀመጫውን ወደ መጀመሪያው rxBuff. Location = 0 ሌላ rxBuff. Location = rxBuff. Location + 1 EndIf WendEnd ንዑስ እና ለፕሮግራም ተከታታይ ወደብ ላይ እና ወደብ ያርቁ Sub toggleSerial_Event_Code () serialPort. Operate = cvFalse Serial serialPort. Operate = cv የውሸት serialActive_LED = 0 ጨርስ IfEnd ንዑስ & aposconverts አንድ አሃዝ ቁጥርን ወደ ቁምፊ ተግባር serial_toChar (inVal እንደ ባይት) እንደ ባይት ዲም retVal እንደ ባይት ይምረጡ ጉዳይ በቫል ጉዳይ 0 retVal = "0" ጉዳይ 1 retVal = "1" ጉዳይ 2 retVal = "2" መያዣ 3 retVal = "3" መያዣ 4 retVal = "4" መያዣ 5 retVal = "5" ኬዝ 6 retVal = "6" ጉዳይ 7 retVal = "7" ጉዳይ 8 retVal = "8" ጉዳይ 9 retVal = "9" ጨርስ ይምረጡ serial_toChar = retValEnd Function & apos sen dx በ txBuff & apos ማስታወሻ ውስጥ ያለው መረጃ ማስታወሻ -ቋት በመጨረሻው ላይ የጋሪ መመለሻ (13) መያዙን ያረጋግጡ!. Value ooPIC. Delay = 1 & aposmight የጋሪ መመለሻ ቢሆን ይህ አያስፈልገውም & tposBuff. Value = 13 & aposbreak ከኛ ሉፕ ተመለስ ተመለስ መጨረሻ ከሆነ & aposgo ወደሚቀጥለው ቁምፊ txBuff. Location = txBuff. Location + 1 WendEnd Sub

ደረጃ 4 - የፕሮግራም ማያያዣውን ያቋርጡ

አንዴ የፕሮግራም ማያያዣው ከተቋረጠ ፣ ከዚህ በታች እንደሚታየው አዲሱን የኬብል ስብሰባ ያያይዙ። በደረጃ 1 የተሠራው አስማሚ CMUCam በቀጥታ ወደ OOPIC እንዲገባ መፍቀድ አለበት

ደረጃ 5: ተከታታይ ግንኙነትን ለመጀመር አዝራሩን ይጫኑ

በ IOLine 5 ላይ ያለው ቁልፍ በ CMUCam እና በ OOPIC መካከል ተከታታይ ግንኙነት ይጀምራል። ተከታታይ ወደብ ለሁለቱም ለፕሮግራም እና ለ CMUCam ጥቅም ላይ የሚውል ስለሆነ በሁለቱ መካከል የመቆጣጠሪያ መንገድ ሊኖር ይችላል።

ይህ አዝራር እስኪጫን ድረስ ፕሮግራሙ አይሰራም። አዝራሩን እንደገና ከጫኑ ፣ ተከታታይ ወደቡ እንቅስቃሴ -አልባ ይሆናል ፣ ይህም እሱን ፕሮግራም እንዲያደርጉ ያስችልዎታል። በ IOLine 6 ላይ ያለው LED የአሁኑን ተከታታይ ወደብ ሁኔታ ያሳያል (በንቃት ማለት ፣ ለፕሮግራም ዝግጁ ነው ማለት ነው)።