ከ 20: 15 ደረጃዎች በታች በዓለም አቀፍ ደረጃ የማይክሮ መቆጣጠሪያ አገናኝ

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

የቤትዎን ቴርሞስታት ከስራ ይቆጣጠሩ። ማብሪያ / ማጥፊያን በማንኳኳት ከየትኛውም የዓለም ክፍል መርጫውን ያብሩ። ይህ አስተማሪ የበይነመረብን አከርካሪ እና አንዳንድ ቀላል የ VB. Net ኮድ በመጠቀም ሁለት ወይም ከዚያ በላይ $ 4 ማይክሮ መቆጣጠሪያዎችን እንዴት ማገናኘት እንደሚቻል ያሳያል። ይህ ማይክሮ መቆጣጠሪያን ከፒሲ ጋር እንዴት ማገናኘት እና ድስት መጠቀምን ያሳያል።: //www.instructables.com/id/Control-real-world-devices-with-your-PC/ በዚህ ጊዜ አንድ ማይክሮ መቆጣጠሪያ ከ VB. Net ፕሮግራም ጋር ወደ ኤፍቲፒ ድር ጣቢያ ፣ ወደ ሌላ VB. Net ተመልሶ የሚናገር ማይክሮ መቆጣጠሪያ አለን። በሰው ልጅ ጣልቃ ገብነት ወይም በሌለበት በየትኛውም ቦታ በዓለም ላይ በየትኛውም ቦታ ቢሆን ሁለተኛውን ማይክሮ መቆጣጠሪያ ይቆጣጠሩ። እርስ በእርስ መነጋገር ካልቻሉ በማትሪክስ ውስጥ ያሉት ማሽኖች እንዴት ሌላ ቦታ ይይዛሉ ተብሎ ይታሰባል?

ደረጃ 1: ክፍሎቹን ይሰብስቡ

ብዙዎቹ ክፍሎች በፒሲ ቁጥጥር አስተማሪ ውስጥ አንድ ናቸው https://www.instructables.com/id/Control-real-world-devices-with-your-PC/ እና ይህ ከመሞከሩ በፊት በመጀመሪያ እንዲጠናቀቅ ተጠቁሟል ሁለት ማይክሮ መቆጣጠሪያዎችን ለማገናኘት። ሰርቨርን ለመቆጣጠር ድስት መጠቀም በጣም የሚቻል ቢሆንም ፣ በዚህ ጊዜ እኛ ወደ አንድ ቀላል ነገር እንሄዳለን - ማብሪያ / ማጥፊያ / ማብሪያ / ማጥፊያ። መቀየሪያው በቀላሉ የታንክ ደረጃ ዳሳሽ ሊሆን ይችላል እና መሪው በወንዝ አቅራቢያ ወደ ታች ፓምፕ ሊሆን ይችላል ነገር ግን መጀመሪያ ቀለል ያለ ሥራ እንሥራ። ክፍሎች - ሁለት ፒካክስ 08 ሜ ቺፕስ - Rev Ed ጨምሮ https://www.rev- ከብዙ ምንጮች ይገኛል ed.co.uk/picaxe/ (ዩኬ) ፣ PH አንደርሰን https://www.phanderson.com/ (አሜሪካ) እና ማይክሮዝድ https://www.microzed.com.au/ (አውስትራሊያ)። እነዚህ ቺፕስ ከ 4 የአሜሪካ ዶላር በታች ናቸው። ሁለቱ - ፕሮቶቦርድ ፣ 9 ቪ ባትሪ እና የባትሪ ክሊፖች ፣ 10 ኪ resistor ፣ 22k resistor ፣ 33uF 16V capacitor ፣ 0.1uF capacitor ፣ 7805L ዝቅተኛ ኃይል 5V ተቆጣጣሪ ፣ ሽቦዎች (ጠንካራ ዋና ስልክ/የውሂብ ሽቦ ለምሳሌ Cat5/6) ፣ LED ፣ 1k resistor። 1 ከ: D9 ሴት ሶኬት እና ሽፋን እና 2 ሜትር የ 3 (ወይም 4) ዋና የውሂብ ሽቦ (ለማውረድ) እና የመቀየሪያ መቀየሪያ። ባለ 9 ፒን ተከታታይ ወደቦች (2 ኮምፒተሮች) (በአንድ ኮምፒተር ላይ ማረም ይቻላል) እና የበይነመረብ ግንኙነት። ተከታታይ ወደብ ለሌላቸው ኮምፒተሮች ፣ ዩኤስቢ ወደ ተከታታይ መሣሪያ https://www.rev-ed.co.uk/docs/axe027.pdf እና ትንሽ የስቴሪዮ ሶኬት።

ደረጃ 2 አንዳንድ ሶፍትዌሮችን ያውርዱ እና ይጫኑ

ነፃውን VB. Net እና የ picaxe መቆጣጠሪያ ሶፍትዌሩን እንፈልጋለን እና የፒሲ መቆጣጠሪያውን አስተማሪ ካደረጉ አስቀድመው እነዚህን ያገኛሉ። VB. Net (Visual Basic Express) ከ https://msdn2.microsoft.com/en ይገኛል -us/express/aa718406.aspx የ picaxe ሶፍትዌሩ ከ https://www.rev-ed.co.uk/picaxe/ ማውረዱን ለማይክሮሶፍት መመዝገብ ይኖርብዎታል -ይህ ችግር ከሆነ የሐሰት ኢሜል ይጠቀሙ ወይም የሆነ ነገር። እኔ አልፎ አልፎ ዝመናዎችን ሲልኩ እውነተኛ ኢሜሌን መስጠቱ ጠቃሚ ሆኖ አግኝቼዋለሁ። ይህ በመምህራን እና በአስተማሪዎች የተሰማራ እና የመድረክ ዓይነት ስለሆነ የ picaxe መድረክን https://www.picaxeforum.co.uk/ መጥቀስ እሄዳለሁ። በጥቂት ሰዓታት ውስጥ ተማሪዎች ለጥያቄዎች መልስ ማግኘት የሚችሉበት። አንዳንድ ተማሪዎች አሁንም በአንደኛ ደረጃ ትምህርት ደረጃ ላይ ስለሆኑ መድረኩ በጣም ቀላል ጥያቄዎችን እንኳን በጣም ይረዳል። እርዳታ ለመጠየቅ እባክዎን አይፍሩ!

ደረጃ 3 የማውረጃ ወረዳ ይገንቡ

ይህ የማውረድ ወረዳ ፒካክስ ቺፕ ፣ ሁለት ተቃዋሚዎች ፣ ተቆጣጣሪ እና 9 ቪ ባትሪ ይጠቀማል። ተጨማሪ መረጃ በፕሮግራሙ የእገዛ ምናሌ ውስጥ በሚወጣው በ picaxe ሰነድ/እገዛ ውስጥ ይገኛል። ሁሉም ክፍሎች በእጅ ከተያዙ በኋላ ወረዳው ለመገንባት ጥቂት ደቂቃዎችን ብቻ ይወስዳል። አንድ ቺፕ ፕሮግራም ከተደረገ በኋላ ኃይሉ በሚጠፋበት ጊዜም እንኳ በ EEPROM ውስጥ ፕሮግራሙን ይይዛል። እኛ ሁለት ቺፖችን እያዘጋጀን ስለሆነ የትኛው እንደሆነ ለማወቅ ቺፖችን መሰየሙ ተገቢ ሊሆን ይችላል። አገናኝን በማስወገድ እና ተከላካይ በማንቀሳቀስ ሁል ጊዜ ተመልሰው ቺፕውን እንደገና ማረም ይችላሉ።

እኔ ደግሞ ፒካክሶች በ 3 AA ባትሪዎች ላይ በደስታ እንደሚሠሩ እጨምራለሁ። የ 5 ቪ ቁጥጥር የሚደረግበት አቅርቦት የማጣቀሻ ቮልቴጅዎች ስለማይለወጡ የአናሎግ ግብዓቶችን ለማስኬድ ይጠቅማል ፣ ነገር ግን ለቀላል ማብሪያ/ማጥፊያ ወረዳዎች ቁጥጥር የሚደረግበት አቅርቦት አያስፈልግም። በእነዚህ ሁኔታዎች ውስጥ 5V ሬጅ ሊተው ይችላል።

ደረጃ 4 - ቺፖችን ፕሮግራም ያድርጉ

አንድ ፕሮግራም Tx እና አንድ Rx ብለን እንጠራዋለን። Tx የመቆጣጠሪያ ቺፕ ነው እና ማብሪያ እና መሪ አለው። አርኤክስ እንዲሁ መሪ አለው። ማብሪያው ምልክቱን ከ Tx ወደ Rx ሲቀይር ፣ መሪውን ይለውጣል እንዲሁም ሁለተኛውን ተለዋዋጭ ይለውጣል ከዚያም ወደ Tx ይመለሳል። ስለዚህ መቀየሪያውን ያንሸራትቱ እና ከአንድ ደቂቃ ባነሰ ጊዜ ውስጥ በሁለቱም ወረዳዎች ላይ የመሪ ለውጦች መልእክቱ እዚያ እንደደረሰ እና አርኤክስ በአዲሱ የመቀየሪያ ቦታ ላይ እየሠራ መሆኑን ያሳያል። በቀላል ደረጃ ፒካክስ 14 ነጠላ ባይት መዝገቦች አሉት። ምናባዊ አውታረ መረብ ሲፈጠር እነዚያን መመዝገቢያዎች ሁሉ አንድ ላይ እናገናኛለን ፣ ስለዚህ በአንድ ባይት ውስጥ ቢት ቢቀየር በሁሉም ፒካክስ ውስጥ ይለወጣል። በግልጽ ለማየት እንደሚቻለው ሁለት picaxes አንድ ዓይነት ባይት ለመለወጥ እየሞከሩ ከሆነ በጣም ግራ የሚያጋባ ይሆናል ፣ ግን እያንዳንዱ picaxe አንድ ባይት ብቻ ከቀየረ ሁሉም ሌሎች ፒካክዎች ያንን ለውጥ ማየት እና በእሱ ላይ እርምጃ መውሰድ ይችላሉ። የተወሰነ ባይት በአንድ picaxe ብቻ ከተለወጠ ቀላል መልእክቶች ወደ ኋላ እና ወደ ፊት ሊተላለፉ ይችላሉ። አንድ ማሰሮ በመመዝገቢያ ውስጥ እሴቱን ሊለውጥ ይችላል እና አንድ ወይም ከዚያ በላይ ሌሎች ፒካክስዎች ያንን መለወጥ እና ሰርቪያን ወይም ማንኛውንም ነገር ማንቀሳቀስ እና ማሞቂያውን ማብራት ይችላሉ። ሁለተኛው መዝገብ በክፍሉ ውስጥ ያለውን የሙቀት መጠን ሊመልስ ይችላል። ፕሮግራሞቹን በተራ ወደ ፒካክስ ፕሮግራም አውጪ ይቅዱ እና ይለጥፉ እና ከ picaxe ፕሮግራመር ውስጥ ሰማያዊውን የማውረድ ቀስት በመጠቀም ወደ እያንዳንዱ ቺፕስ ያውርዷቸው። Tx: ዋና: serin 3 ፣ N2400 ፣ (“ውሂብ”) ፣ b0 ፣ b1 ፣ b2 ፣ b3 ፣ b4 ፣ b5 ፣ b6 ፣ b7 ፣ b8 ፣ b9 ፣ b10 ፣ b11 ፣ b12 ፣ b13 ‘ፒን 2 = ከኮምፒዩተር ፓኬት ያግኙ። 0 ከዚያ 'መቀየሪያውን ይፈትሹ እና ይመዝገቡ b0 በሁኔታው ላይ በመመስረት b0 = 0 ሌላ b0 = 1 endif b1 = 0 ከዚያም' ሌሎች picaxe ስብስቦች b1 ጥገኛ b0 ዝቅተኛ 1 'ወደ ሌላ ከፍ ያለ 1' በ endif serout 0 ፣ N2400 ፣ ("ውሂብ" ፣ b0 ፣ b1 ፣ b2 ፣ b3 ፣ b4 ፣ b5 ፣ b6 ፣ b7 ፣ b8 ፣ b9 ፣ b10 ፣ b11 ፣ b12 ፣ b13) ‘ወደ ኮምፒውተር ተመልሰው መላክ እና Rx: main: serin 3 ፣ N2400 ፣ (“መረጃ”) ፣ b0 ፣ b1 ፣ b2 ፣ b3 ፣ b4 ፣ b5 ፣ b6 ፣ b7 ፣ b8 ፣ b9 ፣ b10 ፣ b11 ፣ b12 ፣ b13 ‘ፓኬትን ከኮምፒዩተር ያግኙ b1 = b0’ ለውጥ መመዝገቢያ ለ 1 እኩል ምዝገባ ቢ 0 ከሆነ = 0 ከዚያ ዝቅተኛ 1 'በሌላ ከፍ ያለ 1' መሪ በ endif serout 0 ፣ N2400 ፣ (“ውሂብ” ፣ b0 ፣ b1 ፣ b2 ፣ b3 ፣ b4 ፣ b5 ፣ b6 ፣ b7 ፣ b8 ፣ b9 ፣ b10 ፣ b11 ፣ b12, b13) 'ወደ ኮምፒውተር goto main መልሰው ይላኩ

ደረጃ 5 የ Tx ወረዳውን ይገንቡ

በስራ ወረዳ እና በፕሮግራም ወረዳ መካከል ወደ ኋላ እና ወደ ፊት የሚገለበጡ ከሆነ ግንኙነቱን ወደ እግር 2 እና የ 22k resistor ቦታን ከእግር 2 ወደ እግር መለወጥዎን እርግጠኛ ይሁኑ። ማዶ። በጣም ግራ ሊጋባ ስለሚችል አንድ ወረዳ እየሠራ ወይም እያወረደ መሆኑን ልብ ይበሉ። በተለይም ልብ ይበሉ 2 የሚንሳፈፍ ከሆነ የሩጫ ወረዳ አይሰራም - መሠረትን ይፈልጋል። እግር 2 የማውረጃ ፒን ነው እና ተንሳፋፊ ሆኖ ከተተወ የፍሎሮ መብራቶችን ያጣውን RF ይወስዳል እና ቺፕ ሌላ ፕሮግራም እየወረደ ነው ብሎ ያስባል።

እንዲሁም አካላዊ ፒን እግር እና ምናባዊ ፒን ፒን ብሎ የሚጠራውን picaxe ስያሜ መጥቀስ ተገቢ ነው። ስለዚህ በኮድ ውስጥ በፒን 2 ላይ ያለው ውጤት በእውነቱ በአካላዊ እግር ላይ ውፅዓት ነው። 5. ይህ እንግዳ ሊመስል ይችላል ፣ ግን ይህ ማለት ኮድ እንደ 28 እና 40 የፒን ስሪቶች ላሉት ትላልቅ picaxes ሊተላለፍ ይችላል እና አሁንም ይሠራል።

ደረጃ 6 የ Rx ወረዳውን ይገንቡ

ይህ ወረዳ ከማስተላለፊያው ጋር ተመሳሳይ ነው - እሱ ምንም ማብሪያ የለውም።

ደረጃ 7: አንዳንድ የ VB. Net ኮድ ይጻፉ

እኔ ኮዱን አጠናቅሬ ይህንን ፕሮግራም እንደ የተጠናከረ.exe እንዲገኝ ማድረግ እችል ነበር ነገር ግን አንዳንድ VB. Net ን መማር እጅግ በማይታመን ሁኔታ ጠቃሚ ስለሆነ ደረጃ በደረጃ ማለፍ ተገቢ ነው። ይህንን በሁለት የተለያዩ ኮምፒዩተሮች ላይ የሚያሄዱ ከሆነ ፕሮግራሙን በሁለተኛው ኮምፒተር ላይ ሊጫን የሚችል ትንሽ የማዋቀሪያ ፕሮግራም በሚፈጥርበት.exe ውስጥ መገንባት ይችላሉ። ወይም በሁለቱም ኮምፒተሮች ላይ VB. Net ን ማስቀመጥ እና ፕሮግራሞቹን ከ VB. Net ውስጥ ማስኬድ ይችላሉ። ከ https://www.instructables.com/id/S1MMU2XF82EU2GT አዲስ VB.net ፕሮጀክት እንዴት እንደሚከፍት ያውቁ እንበል። /በባዶው ቅጽ ላይ የሚከተሉትን ክፍሎች ከመሣሪያ አሞሌው እንጨምር እና በሚታየው ቦታ ላይ በቅጹ ላይ እናስቀምጣቸው። ለመለያዎች እና ለጽሑፍ ሳጥኖች የጽሑፍ ንብረቱን (ከታች በስተቀኝ በኩል) ወደሚፈለገው ይለውጡ። ስለ ሰዓት ቆጣሪ ቅንጅቶች አይጨነቁ - እኛ በኮዱ ውስጥ እንቀይራቸዋለን ፣ ግን ሰዓት ቆጣሪ ማስገባትዎን ያረጋግጡ። ነገሮችን ማዛወር ይችላሉ እና ስለ አካባቢ ምንም እውነተኛ ሕጎች የሉም። ትልቁ የጽሑፍ ሣጥን RichTextBox ሲሆን ትናንሽ ሦስቱ ተራ የጽሑፍ ሳጥኖች ናቸው። በቅደም ተከተል ከቅጹ አናት ጀምረን ወደ ታች እንንቀሳቀሳለን። የሆነ ነገር ከለቀቁ አንድ ዓይነት ፍንጭ ሊሰጥ የሚገባው በኮዱ ውስጥ ስህተት ይኖራል። እባክዎን ለ Textbox3 የዘፈቀደ የፋይል ስም ይምረጡ - ይህ በ ftp አገልጋዩ ላይ የእርስዎ ልዩ የፒያክስ ቡድን ስም ነው እና እኛ ሁላችንም የምንጠቀም ከሆነ ተመሳሳዩ ስም ከዚያ ውሂቡ ሁሉ ይደበዝዛል! በዚህ ሠንጠረዥ ውስጥ ስለ ሰረዞች ይቅርታ-ቦታዎችን ማስገባት በሠንጠረ in ውስጥ ያለውን ቅርጸት ያጣል። ------------------------------ NotesLabel1 ------------------ Picaxe የግንኙነቶች ላቤል 2 ------------------ ኤፍቲፒ ሁኔታ ላቤል 3 ------------------ ሁኔታ ላቤል 4 ---------- -------- Picaxe RegisterLabel5 ------------------ 0-13Label6 ይመዝገቡ ------------------ እሴት 0-255Label7 ------------------ ኤፍቲፒ አገናኝ የፋይል ስም ጽሑፍ ሳጥን 1 ---------------- 0 -------- -------------------------------------- 0 ዜሮ አይደለም OTextbox2 ----- ----------- 0 ጽሑፍ ሳጥን 3 ---------------- የእኔ ስም -------------------- ---------- ስለዚህ ግጭቶች እንዳይቀይሩ ይለውጡ!

ደረጃ 8: አንዳንድ ኮድ ያክሉ

በቅፅ እይታ እና በኮድ እይታ መካከል የሚንሸራተተው የአዝራር ቦታ የሌላውን አስተማሪ ደረጃ 12 ይመልከቱ። ወደ ኮድ እይታ ይቀይሩ እና የሚከተለውን ኮድ በ ውስጥ ይለጥፉ። ቀለሞች በቅጽበታዊ ገጽ እይታ ውስጥ እንዳሉት ሁሉም እንደገና መታየት አለባቸው። በቃለ መጠቅለያ ችግር ምክንያት አንድ መስመር በትክክል ካልተገለበጠ የስህተት መልዕክቱ እስኪጠፋ ድረስ ቦታዎችን ይሰርዙ። እኔ አብዛኞቹን መስመሮች አስተያየት ለመስጠት ሞክሬአለሁ ስለዚህ ኮዱ ቢያንስ የተወሰነ ትርጉም ይሰጣል። ይህንን ከመለጠፍዎ በፊት ጽሑፉ ባዶ እንዲሆን የሕዝቡን ክፍል ቢት ይሰርዙ - ይህ ኮድ አስቀድሞ የህዝብ ክፍል አለው። እንደ የጽሑፍ ሣጥን ያለ ነገር በቅጹ ላይ ካልተቀመጠ ወይም የተሳሳተ ስም ካለው በጽሑፉ ኮድ ውስጥ በስሱ ሰማያዊ መስመር ስር ይመጣል። ስርዓትን ያስገባል። ኢ.ኦ.ኦ.ኦ.ኦ.ኦ.ኦ. ሕብረትን = ማይክሮሶፍት። እንደ ግራ (እና ቀኝ) (ለህብረቁምፊዎች ክፍል ፎርም 1 የህዝብ መግለጫ ንዑስ እንቅልፍ ሊብ “kernel32” (ByVal dwMilliseconds As Integer)’ለእንቅልፍ መግለጫዎች Dim WithEvents serialPort እንደ አዲስ IO. Ports. እንደ ባይት 'b0 ን ለ b13 ዲም ቀይር' ፍሎግ እንደ ቡሊያን የግል ንዑስ ቅጽ1_Load (በቫል ላኪ እንደ ዕቃ ፣ በቫል ኢ እንደ ሲስተም ኤቨንትስ) ያስተናግደኛል። ሎድ 'ይህ ሁሉ የቆሻሻ መጣያ ያስፈልገዋል -.net በሚሄድበት ጊዜ ክስተቶች 1 ከላይ/ጭነት የሰዓት ቆጣሪ 1 እሴትን በእጅ ካሻሻሉ ከዚያ s kip አውርድ RichTextBox1. Multiline = True 'ስለዚህ ከአንድ በላይ መስመር ማሳየት ይችላል Call DisplayPicaxeRegisters ()' 14 መዝገቦችን አሳይ Call ReadFTPFilename () 'የፋይሉን ስም ከዲስክ ላይ አንብብ (በየ 20 ሰከንዶች የተቀመጠ) የመጨረሻ ንዑስ SerialTxRx () ዲም DataPacket () ከ 0 እስከ 17) እንደ ባይት 'አጠቃላይ የውሂብ ፓኬት "ውሂብ" +14 ባይት ዲም እንደ ኢንቲጀር "እኔ ሁል ጊዜ ለሉፕስ ወዘተ ጠቃሚ ነው ለ i = 0 ለ 3 DataPacket (i) = Asc (መካከለኛ (" ውሂብ "፣ i + 1), 1)) '' እሽግ '' የሚለውን ቃል ወደ ጥቅሉ ውስጥ ያክላል ቀጣይ ለ i = 0 ለ 13 DataPacket (i + 4) = PicaxeRegisters (i) '' ሁሉንም ባይት ወደ ፓኬት ያክላል ቀጣይ ከሆነ serialPort. IsOpen ከዚያም serialPort. Close () 'ልክ ቀድሞውኑ ከተከፈተ ጨርስ ከ serialPort ጋር ይሞክሩ ።PortName = "COM1"' አብዛኛዎቹ አዲስ ኮምፒውተሮች ለ com1 ነባሪ ናቸው ፣ ግን ማንኛውም ተከታታይ 1999 ኮምፒውተር አይጥ ያለው ምናልባት ለ com2. BaudRate = 2400 '2400 የ maxiumum ፍጥነት ነው አነስተኛ picaxes. Parity = IO. Ports. Parity. None 'no parity. DataBits = 8' 8 ቢት. StopBits = IO. Ports. StopBits. One 'one stop bit. ReadTimeout = 1000' millisecon መልስ ከሌለ በ 1 ሰከንድ ውስጥ ጊዜው ያበቃል። ክፍት () 'ተከታታይ ወደቡን ይክፈቱ ።DiscardInBuffer ()' የግብዓት ቋቱን ያጽዱ። ይፃፉ (DataPacket ፣ 0 ፣ 18) 'የውሂብ ፓኬት ድርድር ጥሪ እንቅልፍ (300)' 100 ሚሊሰከንዶች የውሂብ ዥረት ረዘም ያለ ከሆነ ውሂብ ተመልሶ እንዲመጣ እና እንዲጠብቅ ዝቅተኛው። (DataPacket ፣ 0, 18) 'በውሂብ ጥቅል ድርድር ውስጥ መልሰው ያንብቡ። ዝጋ ()' 'ተከታታይ ወደቡን ይዝጉ ለ i = 4 ለ 17 PicaxeRegisters (i - 4) = DataPacket (i) 'አዲሱን የውሂብ ፓኬት ወደ መመዝገቢያ ድርድር ያንቀሳቅሱት ቀጣይ PictureBox1. BackColor = Color. GreenYellow' working Catch ex As Exception PictureBox1. BackColor = Color. Red 'አይሰራም End End Sub Sub FTPUpload (በቫል ፋይል ስም እንደ ሕብረቁምፊ) መረጃን ለማከማቸት አካባቢያዊ ፋይል እንደ ሕብረቁምፊ ቦታን ዲም የርቀት ፋይልን እንደ ሕብረቁምፊ ‹ፋይል ስም ለጉዳዩ ትኩረት የሚስብ ነው ይህ በእርግጥ አስፈላጊ Const አስተናጋጅ እንደ ሕብረቁምፊ ነው \u003d ftp://ftp.0catch.com '' ማስታወሻ 0 ነው ዜሮ ቁምፊ አይደለም O Const የተጠቃሚ ስም እንደ ሕብረቁምፊ = "picaxe.0catch.com" Const password As String = "picaxetester" Dim URI As String localFile = የፋይል ስም 'ምናልባት ላይፈለግ ይችላል ነገር ግን ቦታን ከገለጸ ለምሳሌ ሐ: / mydirectory በቀላሉ በዚህ መንገድ ማከል ይችላል remoteFile = "/" + የፋይል ስም በፋይፕ አገልጋይ ፍላጎቶች ላይ "/" በ URI = አስተናጋጅ + የርቀት ፋይል ተጨምሯል ዲም ftp እንደ ስርዓት. Net. አንድ ጊዜ ተገናኝቷል ftp. UseBinary = True 'use binary comms ftp. Timeout = 9000' timeout ከ 9 ሰከንዶች በኋላ - በጣም ጠቃሚ ሆኖ ftp አንዳንድ ጊዜ ሲሞት (እና የ 20 ሰከንድ የሰዓት ድግግሞሽ) ለደዋላይ ግንኙነት ትስስሮች ቀርፋፋ ሊሆን ይችላል። ዘዴ = System. Net. WebRequestMethods. Ftp. UploadFile 'ፋይል መላክ ይጀምሩ ዲም fs እንደ አዲስ FileStream (localFile, FileMode. Open)' 'አካባቢያዊ ፋይል ዲም ፋይል ይዘቶች (fs. Length) እንደ ባይት' ወደ ማህደረ ትውስታ fs ያንብቡ። ያንብቡ (የፋይል ይዘቶች ፣ 0 ፣ fs. ርዝመት) fs. Close () 'ፋይሉን ይዝጉ የዲም ጥያቄ ዥረት እንደ ዥረት = ftp. GetRequestStream ()' የ ftp አገናኝ ጥያቄን ይጀምሩ ream. Write (filecontents, 0, filecontents. Length) 'request requestream. Close ()' የሚለውን አገናኝ ይዝጉ PictureBox2. BackColor = Color. GreenYellow '' እሺ Label2. Text = "FTP ተገናኝቷል" ለማለት ሳጥኑን ወደ አረንጓዴ ይለውጡ። ተገናኝቷል የሚል ጽሑፍ Catch 'PictureBox2. BackColor = Color. Red' ሣጥን ምንም ግንኙነት እንደሌለው ወደ ቀይ ማገናኘት አይችልም Label2. Text = "የኤፍቲፒ ሰቀላ አልተሳካም" የሚለው ጽሑፍ ግንኙነቱ አልተሳካም የሚል ጨርስ ንዑስ ንዑስ ንዑስ ኤፍቲፒ አውርድ (በቫል ፋይል ስም እንደ ሕብረቁምፊ) 'የርቀት ፋይልን ወደ አካባቢያዊ ፋይል ዲም አካባቢያዊ ፋይልን እንደ ሕብረቁምፊ' ውሂብን ለማከማቸት ቦታን ዲም የርቀት ፋይልን እንደ ሕብረቁምፊ 'የፋይሉ ስም ለጉዳዩ ትኩረት የሚስብ ነው ይህ በእርግጥ አስፈላጊ Const አስተናጋጅ እንደ ሕብረቁምፊ = "ftp://ftp.0catch.com" Const የተጠቃሚ ስም እንደ ሕብረቁምፊ = "picaxe 0 ትክክለኛው አካባቢ remoteFile = "/" + የፋይል ስም 'ወደ የርቀት ftp አካባቢ ታክሏል URI = አስተናጋጅ + የርቀት ፋይል' ማካካሻ ሙሉ አድራሻ ይሞክሩ Dim ftp As System. Net. FtpWebRequest = CType (System. Net. FtpWebRequest. Create (URI) ፣ System. Net. FtpWebRequest) ftp. Credentials = New System. Net. የአውታረ መረብ ማረጋገጫ (የተጠቃሚ ስም ፣ የይለፍ ቃል) መግባት. KeepAlive = ሐሰት 'ከተጠናቀቀ በኋላ ግንኙነቱን ያቋርጣል። አላውቅም ፋይሉ ምን ያህል ትልቅ ነው እንደ ምላሽ በመጠቀም እንደ System. Net. FtpWebResponse = CType (ftp. GetResponse, System. Net. FtpWebResponse) responseStream As IO. Stream = response. GetResponseStream using fs as New IO. FileStream (localFile, IO. FileMode. Create) ዲም ቋት (2047) እንደ ባይት ዲም እንደ ኢንቲጀር = 0 አንብብ = ምላሽStream. አንብብ (ቋት ፣ 0 ፣ ቋት። ርዝመት) ቁራጭ ከኤፍኤፍ fs። ጻፍ (ቋት ፣ 0 ፣ አንብብ) 'እና ወደ ፋይል ይፃፉ Loop እስከሚነበብ ድረስ = 0 'ተጨማሪ ቁርጥራጮች ምላሽ እስኪያገኙ ድረስ Stream. Close ()' የ ftp ፋይልን ይዝጉ። ፍሰትን () 'ን አጥራ fs. ዝጋ ()' እና ዝጋ ሠ ፋይልን በመጠቀም መጠቀሙን ጨርስ Stream. Close () '' ምንም ነገር ባይኖር እንኳ ይዝጉት ምላሽ መጠቀሙን ያቁሙ () PictureBox2. BackColor = Color. GreenYellow '' አረንጓዴ ሣጥን ሲሠራ መለያ 2. ጽሑፍ = "ኤፍቲፒ ተገናኝቷል" እና ጽሑፍ እያለ ሠርቷል Catch ን በመጠቀም የስህተት ኮዶችን እዚህ አስቀምጡ PictureBox2. BackColor = Color. Red 'red box is not work as Label2. Text = "FTP Download Fail"' and message to End End End Private Sub Timer1_Tick (ByVal ላኪ እንደ ስርዓት. 'ስለዚህ አዲስ የመለያ ጽሑፍ ጥሪ FTPDownload ን (TextBox3. Text)' ን ያውርዱ የርቀት ፋይል Label3. Text = "ወርዷል" System. Windows. Forms. Application. DoEvents () Call ReadRemoteFileToRegisters () '' ፋይል ቁጥሮችን ወደ መመዝገቢያ ድርድር Label3. Text = "Picaxe ጋር ማውራት" System. Windows. Forms. Application. DoEvents () Else ModifyFlag = የውሸት 'ባንዲራውን ዳግም ያስጀምሩ ይደውሉ SerialTxRx () 'ወደ ፒካሴው ይላኩ እና መልሰው ያንብቡት Label3. Text = "ከ picaxe ተላከ እና ተቀበለ" System. Windows. Forms. Application. DoEvents () DisplayPicaxeRegisters () SaveRegistersToLocalFile ()' 'ቁጥሮችን ወደ ፋይል ያስቀምጡ። Label3. Text = "Uploading" System. Window. Forms. Application. DoEvents () FTPUpload ን ይደውሉ (TextBox3. Text) '' እንደ ስሙ ወደ ተጠራው ወደ ftp ጣቢያ መልሰው ይልኩ Label3. Text = "እረፍት" ይደውሉ SaveFTPFilename () እንደገና ሲጀመር መጨረሻ ንዑስ ንዑስ DisplayPicaxeRegisters () Dim i As Integer Dim registernumber As String RichTextBox1. Multiline = True’ስለዚህ በጽሑፍ ሳጥኑ ውስጥ ከአንድ በላይ መስመር ማሳየት ይችላል RichTextBox1. registernumber = Trim (Str (i)) 'መሪ ቦታዎችን ይቆርጡ i <10 ከዚያም registernumber = "0" + registernumber' ከ 10 መጨረሻ በታች ላሉ ቁጥሮች 0 ያክሉ RichTextBox1. AppendText (registernumber + "=" + Str (PicaxeRegisters (i)) + Chr (13)) ቀጣዩ ‹rr› (13) ሰረገላ መመለሻ ነው ስለዚህ አዲስ መስመር ጨርስ ንዑስ ንዑስ ንዑስ አዝራር1_Click (በቫል ላኪ እንደ ስርዓት. i = ቫል (TextBox2. Text) እኔ <0 ወይም i> 255 ከሆነ TextBox2. Text = 0 End PicaxeRegisters (Val (TextBox1. Text)) = Val (TextBox2. Text) 'እሴቱን ይለውጡ Call DisplayPicaxeRegisters ()' እና ማሳያውን ያድሱ ModifyFlag = True 'እና የሚቀጥለው የ ftp አገናኝ ማውረድ ዝለል ንዑስ ንዑስ SaveRegistersToLocalFile ()' የመመዝገቢያ ድርድርን በአካባቢያዊ የጽሑፍ ፋይል ውስጥ አስቀምጥ Dim i As Integer FileOpen (1 ፣ TextBox3. ጽሑፍ ፣ OpenMode. Output) 'የተባለውን የጽሑፍ ፋይል ይክፈቱ በጽሑፍ ሳጥኑ ውስጥ ለ i = 0 ለ 13 PrintLine (1 ፣ Str (PicaxeRegisters (i))) '' 14 እሴቶችን አስቀምጥ ቀጣይ FileClose (1) '' ፋይሉን ይዝጉ End Sub Sub ReadRemoteFileToRegisters () '' የአከባቢውን የጽሑፍ ፋይል በመዝገቡ ድርድር ውስጥ ያንብቡ Dim i as Integer Dim LineOfText As String ይሞክሩ FileOpen (1 ፣ TextBox3. Text ፣ OpenMode. Input) 'የርቀት ፋይል ስም ያንብቡ ለ i = 0 እስከ 13 LineOfText = LineInput (1)' በ 14 ሊን ውስጥ ያንብቡ es PicaxeRegisters (i) = Val (LineOfText) '' ጽሑፍን ወደ እሴቶች ቀይር ቀጣይ FileClose (1) Exatch Exceptions FileClose (1) 'ፋይል የለም ስለዚህ ምንም ነገር አያድርጉ ሞክሩ ንዑስ ንባብ ንባብ ኤፍኤፍኤፍል ስም ()' ስለዚህ ስም የርቀት ኤፍቲኤፍ ፋይል ይህ ፕሮግራም በሚሠራበት በሚቀጥለው ጊዜ ተመሳሳይ ነው Dim LineOfText As String Try FileOpen (1, "FTPFilename.txt", OpenMode. Input) 'ፋይሉን ይክፈቱ LineOfText = LineInput (1) TextBox3. Text = LineOfText' ን ያንብቡ ስም FileClose (1) Exatch Ex እንደ Exception FileClose (1) End End End Sub Sub SaveFTPFilename () FileOpen (1, "FTPFilename.txt", OpenMode. Output) '' የርቀት የ ftp ፋይል ስም አስቀምጥ PrintLine (1, TextBox3. Text) FileClose (1) ንዑስ መጨረሻ ክፍል

ደረጃ 9 ፕሮግራሙን በሁለቱም ፒሲዎች ላይ ያሂዱ

በማያ ገጹ አናት መሃል ላይ ያለውን አረንጓዴ ሶስት ማእዘን - ‹ማረም ጀምር› ቁልፍን ጠቅ በማድረግ ፕሮግራሙን ማስኬድ ይጀምሩ። ለ 20 ሰከንዶች ምንም ነገር አይከሰትም እና ከዚያ ፕሮግራሙ ከኤፍፒ አገልጋዩ ጋር ለመገናኘት ይሞክራል እና ከ picaxe ጋር ለመገናኘት ይሞክራል። የስዕል ሳጥኖቹ ወይ ቀይ ወይም አረንጓዴ ይሆናሉ። የኤፍቲፒ ሥፍራ ነፃ ድር ጣቢያ ነው እና ማንም ይህንን ሊጠቀም ይችላል ፣ ግን የተለየ የ ftp የሥራ ፋይል ስም መጠቀም አለብዎት (የእኔ DoctorAcula1 ነው) ያለበለዚያ ሁላችንም ተመሳሳይ የፋይል ስም የምንጠቀም ከሆነ እያንዳንዳችን የሌላውን ውሂብ ልንጨርስ እንችላለን! ከወደዱ በመጨረሻ የእራስዎን የ ftp ጣቢያ ማግኘት ይችላሉ - ከ ‹0Catch› ድር ጣቢያዬ ውስጥ በኮድ ውስጥ በሁለት ቦታዎች ላይ የ ftp ቦታን ፣ የተጠቃሚ ስም እና የይለፍ ቃልን ብቻ ይለውጡ። አብዛኛዎቹ ድርጣቢያዎች ftp ን ይፈቅዳሉ። ብዙ ኮምፒውተሮች ተመሳሳዩን የ ftp ፋይል ማግኘት ይችላሉ - የ ftp ፋይል አገልጋዩ እነዚህ በምን ቅደም ተከተል እንደሚከናወኑ ይለያል። አልፎ አልፎ የውሂብ ግጭቶች ወይም ተንጠልጥለዋል እና እነዚህ በየ 20 ፋይል የሚነበቡ ይመስላሉ።ይህ ከተከሰተ ከተበላሸ መረጃ ይልቅ ምንም ውሂብ አይመልስም። በኮድ ውስጥ የእረፍት ጊዜ አለ። ከ 128 ኪ.ቢ የሰቀላ ፍጥነት ጋር የብሮድባንድ ግንኙነትን መጠቀም ማለት የፋይል ሰቀላ 3 ሰከንዶች ያህል ይወስዳል ፣ ግን አንዳንድ ጊዜ እስከ 8 ሰከንዶች ድረስ ፣ አብዛኛዎቹ ይወሰዳሉ ከመተላለፍ ይልቅ በእጅ መጨባበጥ። ይህ ከፒሲክስ ጋር ማውረድ ፣ መጫን እና መወያየት ከግምት ውስጥ በማስገባት የሰዓት ቆጣሪ 1 ጊዜን ቢያንስ ለ 20 ሰከንዶች ያዘጋጃል። በጣም ፈጣን በሆነ ብሮድባንድ የዑደት ጊዜውን ማሳጠር ይችሉ ይሆናል። በቪቢ ፕሮግራም ውስጥ መዝገብን በእጅ መለወጥ ይችላሉ። ይህን ካደረጉ ፣ ቀጣዩ የሰዓት ቆጣሪ ዑደት ከኤፍቲ ጣቢያ ማውረድን ይዘልላል እና አዲሱን ውሂብ ወደ ፒክሴክስ ይልካል ከዚያም መልሰው ያነበቡት እና ይሰቅላል። ስለዚህ አዲሱ መረጃ ከዚህ ቡድን ጋር ለተያያዙ ሁሉም ፒካክስ መንገዱን ያገኛል። ይህ ለማረም እና/ወይም የፒሲ ሶፍትዌርን ወደ ማይክሮ መቆጣጠሪያ ሃርድዌር ዑደት ለማገናኘት ይረዳል። ድርጣቢያዎች የ PERL ስክሪፕት ወይም ተመሳሳይ ፋይልን ወደ ኤፍቲፒ ጣቢያው ለመፃፍ የሃርድዌር loop ን መድረስ ይችላሉ። ይህ ቅጽበታዊ ገጽ እይታ የተወሰደው በ Tx ቺፕ ላይ ነው ፣ ማብሪያው በርቷል እና መዝገቡ b0 = ወደ 1 ወደ Rx ቺፕ ተልኳል። ከዚያ ምዝገባ b1 ን ወደ 1 እንዲሁም ቀይሮ ነበር። በዚህ መንገድ መሪው በሁለቱም ሰሌዳዎች ላይ በርቷል። ይህ ተራ ትግበራ ነው ግን ከመሪ ይልቅ 3.6 ኪ.ወ ፓምፕ ማብራት ቀላል ነው። አንዳንድ ተጨማሪ ሀሳቦች https://drvernacula. በሬዲዮ አገናኞች እና በይነመረብ አማካኝነት ‹ማሽኖቹ› ወደ ብዙ የዓለም ማዕዘኖች መድረስ ይችላሉ። ይህንን ሀሳብ የበለጠ ስለመውሰድ እና ፒሲውን እና የ ftp ጣቢያውን በቀጥታ ወደ ራውተር በሚሰኩ የድረ -ገጽ አገልጋይ ቺፖችን በመተካት በ picaxe መድረክ ዙሪያ አንዳንድ ሀሳቦች አሉ። በግልጽ እንደሚታየው ይህ የአገናኝን የኃይል ፍጆታ ይቀንሳል። ለተጨማሪ ውይይቶች ፍላጎት ካለዎት በማይነጣጠሉ አስተያየቶች እና/ወይም በ picaxe መድረክ ላይ ይለጥፉ።

ደረጃ 10 - የኮድ ቅጽበታዊ ገጽ እይታዎች

በጥያቄ ፣ ሁሉም ቅርጸት በቦታው ያለ የ vb.net ኮድ ተከታታይ ቅጽበታዊ ገጽ እይታዎች እዚህ አሉ። ይህ ኮድ በእውነቱ ከዚህ አስተማሪ ወደ ኋላ ተገልብጦ ቅርጸቱ በራስ -ሰር እንደገና ታየ። እነዚህን ሥዕሎች ለማንበብ ከመሞከር ይልቅ ጽሑፉን መቅዳት እና መለጠፍ የተሻለ ይሆናል ነገር ግን እነዚህ በበይነመረብ ካፌ ውስጥ ከሆኑ እና vb.net ን መጫን ካልቻሉ ጠቃሚ ይሆናሉ።

ደረጃ 11 ቅጽበታዊ ገጽ እይታ 2

ቅጽበታዊ ገጽ እይታ 2

ደረጃ 12: ቅጽበታዊ ገጽ እይታ 3

ቅጽበታዊ ገጽ እይታ 3

ደረጃ 13 ቅጽበታዊ ገጽ እይታ 4

ቅጽበታዊ ገጽ እይታ 4

ደረጃ 14 ቅጽበታዊ ገጽ እይታ 5

ቅጽበታዊ ገጽ እይታ 5

ደረጃ 15 ቅጽበታዊ ገጽ እይታ 6

ቅጽበታዊ ገጽ እይታ 6