پیوند میکروکنترلر در سراسر جهان برای مراحل زیر 20 دلار: 15 دلار

2024 نویسنده: John Day | [email protected]. آخرین اصلاح شده: 2024-01-30 08:58

ترموستات خانه خود را از محل کار کنترل کنید. با تکان دادن یک سوئیچ ، آبپاش را از هر نقطه در جهان روشن کنید. این دستورالعمل نحوه اتصال دو یا چند میکروکنترلر 4 دلاری با استفاده از ستون فقرات اینترنت و چند کد ساده VB. Net را نشان می دهد. این بر اساس دستورالعمل قبلی است که نشان می دهد چگونه میکروکنترلر را به رایانه متصل کرده و از یک قابلمه برای کنترل سروو https استفاده کنید.: //www.instructables.com/id/Control-real-world-devices-with-your-PC/ این بار ما یک میکروکنترلر داریم که با یک برنامه VB. Net و سپس با یک وب سایت ftp صحبت می کند ، به یک VB. Net دیگر باز می گردد. برنامه ریزی و از آنجا میکروکنترلر دوم در هر نقطه از جهان ، با یا بدون دخالت انسان. در غیر اینصورت چگونه ماشینهای موجود در The Matrix اگر نتوانند با یکدیگر صحبت کنند؟

مرحله 1: قطعات را جمع آوری کنید

بسیاری از قطعات همانند PC Control Instructable هستند https://www.instructables.com/id/Control-real-world-devices-with-your-PC/ و پیشنهاد می شود ابتدا این کار را قبل از تلاش تکمیل کنید. اتصال دو میکروکنترلر در حالی که استفاده از قابلمه برای کنترل سروو کاملاً امکان پذیر است ، این بار ما به سراغ چیز ساده تری می رویم - سوئیچ روشن کردن LED. سوئیچ به راحتی می تواند یک سنسور سطح مخزن باشد و led می تواند یک پمپ در نزدیکی رودخانه باشد ، اما اجازه دهید ابتدا کار ساده ای انجام دهیم. قطعات - دو تراشه Picaxe 08M - از منابع زیادی از جمله Rev Ed https://www.rev- موجود است ed.co.uk/picaxe/ (انگلستان) ، PH اندرسون https://www.phanderson.com/ (ایالات متحده آمریکا) و Microzed https://www.microzed.com.au/ (استرالیا). قیمت این تراشه ها 4 دلار است. دو مورد: Protoboard ، باتری و گیره های باتری 9V ، مقاومت 10k ، مقاومت 22k ، خازن 33uF 16V ، خازن 0.1uF ، رگولاتور 5V کم مصرف 7805L ، سیم (سیم تلفن اصلی/سیم داده مانند Cat5/6) ، LED ، مقاومت 1k. 1 از: سوکت و کاور زن D9 و 2 متر سیم سیم 3 (یا 4) هسته (برای بارگیری) و سوئیچ ضامن. 2 رایانه با 9 پورت سریال 9 پین (در هر رایانه اشکال زدایی می شود) و اتصال به اینترنت. برای رایانه های بدون پورت سریال ، یک USB به دستگاه سریال https://www.rev-ed.co.uk/docs/axe027.pdf و یک سوکت استریو کوچک.

مرحله 2: برخی نرم افزارها را بارگیری و نصب کنید

ما به VB. Net رایگان و نرم افزار کنترل کننده picaxe احتیاج داریم و اگر کنترلر PC را به صورت Instructable انجام داده اید ، این موارد را در اختیار دارید. VB. Net (Visual Basic Express) از https://msdn2.microsoft.com/fa در دسترس است -us/express/aa718406.aspx نرم افزار picaxe از https://www.rev-ed.co.uk/picaxe/ در دسترس است برای دریافت بارگیری باید در مایکروسافت ثبت نام کنید -اگر این مشکل وجود دارد از یک ایمیل جعلی استفاده کنید یا چیزی من در واقع ارائه ایمیل واقعی خود را مفید می دانم زیرا آنها به روز رسانی های گاه به گاه ارسال می کنند. من همچنین قصد دارم به تالار گفتگو https://www.picaxeforum.co.uk/ اشاره کنم ، زیرا این نوعی از انجمن است که توسط معلمان و مربیان کار می کند و جایی که معمولاً دانش آموزان می توانند در عرض چند ساعت به سوالات پاسخ دهند. این تالار حتی از ساده ترین سوالات نیز بسیار فهمیده است زیرا برخی از دانش آموزان هنوز در سطح دبستان هستند. لطفاً از درخواست کمک نترسید!

مرحله 3: ایجاد یک مدار بارگیری

این مدار بارگیری از تراشه پیکاکس ، چند مقاومت ، تنظیم کننده و باتری 9 ولت استفاده می کند. اطلاعات بیشتر در اسناد/راهنمای پیککس موجود است که در منوی راهنمای برنامه آمده است. هنگامی که همه قطعات در دست قرار می گیرند ، ساخت مدار فقط باید چند دقیقه طول بکشد. هنگامی که یک تراشه برنامه ریزی می شود ، برنامه خود را در EEPROM حتی زمانی که برق خاموش است حفظ می کند. از آنجا که ما در حال برنامه ریزی دو تراشه هستیم ، ممکن است ارزش برچسب زدن تراشه ها را داشته باشیم تا بدانید کدام است. همیشه می توانید به عقب برگردید و با حذف یک پیوند و حرکت دادن یک مقاومت ، یک تراشه را دوباره برنامه ریزی کنید.

همچنین می توانم اضافه کنم که پیکاکس ها با 3 باتری AA با خوشحالی کار می کنند. منبع تغذیه تنظیم شده 5 ولت برای اجرای ورودی های آنالوگ مفید است زیرا ولتاژهای مرجع تغییر نمی کنند ، اما برای مدارهای روشن/خاموش ساده به منبع تنظیم شده نیازی نیست. در این شرایط می توان 5V reg را کنار گذاشت.

مرحله 4: تراشه ها را برنامه ریزی کنید

ما یک برنامه را Tx و یکی Rx می نامیم. Tx تراشه کنترل کننده است و دارای کلید و led است. Rx همچنین دارای led است. وقتی سوئیچ تغییر می کند ، سیگنال از Tx به Rx می رود ، led را تغییر می دهد و همچنین یک متغیر دوم را تغییر می دهد و سپس به Tx برمی گردد. بنابراین سوئیچ را تکان دهید و در کمتر از یک دقیقه led در هر دو مدار تغییر می کند و نشان می دهد که پیام به آنجا رسیده است و Rx در موقعیت جدید سوئیچ عمل می کند. در ساده ترین سطح ، پیکاکس دارای 14 رجیستر تک بایت است. هنگامی که یک شبکه مجازی ایجاد می شود ، همه آن ثبت ها را به هم پیوند می دهیم ، بنابراین اگر یک بایت در یک پیککس تغییر کند ، در همه پیککس ها تغییر می کند. واضح است که اگر دو پیککس سعی کنند یک بایت یکسان را تغییر دهند ، بسیار گیج کننده خواهد بود ، اما اگر هر پیککس فقط یک بایت تغییر کند ، همه پیککس های دیگر می توانند این تغییر را مشاهده کنند و می توانند بر اساس آن عمل کنند. اگر یک بایت خاص فقط با یک پیککس تغییر کند ، پیام های ساده را می توان به عقب و جلو منتقل کرد. یک قابلمه می تواند مقدار را در یک رجیستر تغییر دهد و یک یا چند پیککس دیگر می توانند حس کنند که سروو یا هر چیز دیگری را تغییر داده و حرکت می دهد و بخاری را روشن می کند. ثبت دوم می تواند دمای اتاق را به عقب برگرداند. برنامه ها را به نوبه خود در برنامه نویس picaxe کپی و جایگذاری کنید و با استفاده از پیکان آبی بارگیری از داخل برنامه نویس picaxe ، آنها را در هر یک از تراشه های مربوطه بارگیری کنید. Tx: main: serin 3، N2400، ("Data")، b0، b1، b2، b3، b4، b5، b6، b7، b8، b9، b10، b11، b12، b13 'در صورت pin2 = از کامپیوتر بسته دریافت کنید 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) 'ارسال مجدد به رایانه goto mainand Rx: main: serin 3، N2400، ("داده") ، b0 ، b1 ، b2 ، b3 ، b4 ، b5 ، b6 ، b7 ، b8 ، b9 ، b10 ، b11 ، b12 ، b13 ، b13 'دریافت بسته از رایانه b1 = b0' ثبت نام b1 را در برابر b0 در صورت b1 تغییر دهید = 0 سپس کم 1 'led off دیگر 1' led در endif serout 0 ، N2400 ، ("داده" ، b0 ، b1 ، b2 ، b3 ، b4 ، b5 ، b6 ، b7 ، b8 ، b8 ، b9 ، b10 ، b11 ، b12 ، b13) 'بازگشت به کامپیوتر goto main

مرحله 5: ساخت مدار Tx

اگر بین یک مدار کار و یک مدار برنامه نویسی رفت و برگشت می کنید ، مطمئن شوید که اتصال را به پایه 2 و محل مقاومت 22k از پایه 2 به پایه 4 تغییر دهید. یا می توانید یک مدار بارگیری اختصاصی ایجاد کرده و تراشه ها را حرکت دهید. در سراسر فقط توجه داشته باشید که آیا مدار در حال اجرا یا بارگیری است زیرا ممکن است گیج کننده باشد. به طور خاص ، توجه داشته باشید که اگر مدار 2 در حالت شناور باقی بماند ، یک مدار در حال کار نخواهد بود - باید به زمین متصل شود. پای 2 پین بارگیری است و در صورت شناور ماندن ، RF سرگردان را از چراغ های فلورو می گیرد و تراشه فکر می کند برنامه دیگری در حال بارگیری است.

همچنین لازم به ذکر است نامگذاری پیکاکس که یک پین فیزیکی را یک پا و یک پین مجازی را یک پین می نامد. بنابراین خروجی روی پین 2 در کد در واقع یک خروجی در پایه 5 است. این ممکن است عجیب به نظر برسد اما این بدان معناست که کد را می توان به پیککس های بزرگتر مانند نسخه های 28 و 40 پین منتقل کرد و هنوز کار می کند.

مرحله 6: ساخت مدار Rx

این مدار تقریباً شبیه فرستنده است - فقط سوئیچ ندارد.

مرحله 7: مقداری کد VB. Net بنویسید

من می توانستم کد را جمع آوری کرده و این برنامه را به صورت کامپایل.exe در دسترس قرار دهم ، اما یادگیری برخی از VB. Net آنقدر مفید است که ارزش قدم به قدم گذراندن آن را دارد. اگر این برنامه را بر روی دو رایانه مختلف اجرا می کنید ، می توانید برنامه را به صورت.exe بسازید که یک برنامه راه اندازی کوچک ایجاد می کند که می تواند بر روی رایانه دوم نصب شود. یا می توانید VB. Net را روی هر دو رایانه قرار دهید و برنامه ها را از داخل VB اجرا کنید. فرض کنید می دانید چگونه می توانید یک پروژه جدید VB.net را از مرحله 7 و 8 https://www.instructables.com/id/S1MMU2XF82EU2GT باز کنید /در فرم خالی اجازه دهید اجزای زیر را از نوار ابزار اضافه کرده و آنها را بر روی فرم در مکان های مطابق شکل قرار دهیم. برای برچسب ها و جعبه های متن ، ویژگی متن (در سمت راست پایین) را به آنچه مورد نیاز است تغییر دهید. نگران تنظیمات تایمر نباشید - ما آنها را در کد تغییر می دهیم اما مطمئن شوید که یک تایمر در آن قرار داده شده است. شما می توانید همه چیز را جابجا کنید و هیچ قانون واقعی در مورد مکان وجود ندارد. جعبه متن بزرگ یک RichTextBox است و سه مورد کوچکتر Textbox های معمولی هستند. از نظر ترتیب ما از بالای فرم شروع کرده و به سمت پایین حرکت می کنیم. اگر چیزی را کنار بگذارید ، خطایی در کد ایجاد می شود که باید نوعی سرنخ را بدهد. لطفاً نام فایل تصادفی را برای Textbox3 انتخاب کنید - این نام گروه منحصر به فرد شما در سرور ftp است و بدیهی است اگر همه ما از با همان نام ، داده ها به هم ریخته می شوند! متاسفم برای خط تیره در این جدول-قرار دادن فاصله ها قالب بندی جدول را از دست می دهد. شیء ابزار جعبه ------- متن ----------- ------------------------------ NotesLabel1 ------------------ پیککس CommunicationsLabel2 ------------------ FTP StatusLabel3 ------------------ StatusLabel4 ---------- -------- Picaxe RegistersLabel5 ------------------ ثبت نام 0-13Label6 ------------------ مقدار 0-255 Label7 ------------------ نام فایل پیوند FTP Textbox1 ---------------- 0 -------- ------------------------------------------ 0 صفر است نه OTextbox2 ----- ----------- 0Textbox3 ---------------- نام فایل --------------------- ---------- تغییر دهید تا درگیری ایجاد نشود! Button1 ------------------ ModifyRichtextbox1 Picturebox1 Picturebox2 Timer1

مرحله 8: مقداری کد اضافه کنید

برای تعیین محل دکمه ای که بین نمای فرم و نمای کد قرار می گیرد ، مرحله 12 سایر دستورالعمل ها را ببینید. به نمای کد بروید و کد زیر را در آن بچسبانید. همه رنگها باید مانند تصویر صفحه ظاهر شوند. اگر خطی به دلیل مشکل بسته بندی کلمه به درستی کپی نشده است ، فاصله ها را حذف کنید تا پیام خطا از بین برود. من سعی کردم بیشتر خطوط را کامنت کنم تا کد حداقل منطقی باشد. بیت کلاس عمومی را حذف کنید تا متن قبل از چسباندن آن خالی باشد - این کد قبلاً یک کلاس عمومی دارد. اگر شیئی مانند یک جعبه متن روی فرم قرار نگرفته یا نام اشتباهی داشته باشد ، در کد متن با یک خط آبی تیره در زیر آن ظاهر می شود. Systems Import. IOImports Strings = Microsoft. VisualBasic 'بنابراین می توانید از آن استفاده کنید مواردی مانند سمت چپ (و راست (برای رشته های کلاس عمومی فرم 1 Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Integer) 'for statement As Byte 'b0 to b13 Dim ModifyFlag As Boolean Private Sub Form1_Load (ByVal sender As Object، ByVal e As System. EventArgs) Me را مدیریت می کند. Load' نیاز به همه این زباله ها دارد. Timer1. Enabled = True "هنگام ایجاد Timer1 این کد را بصورت پیش فرض روی false قرار دهید. Interval = 20000" هر 20 ثانیه PictureBox1. BackColor = Color. Gray 'با کادرهای خاکستری خاکستری شروع می شود PictureBox2. BackColor = Color. Gray ModifyFlag = False' اگر مقدار را به صورت دستی تغییر دهید ، سپس s kip download RichTextBox1. Multiline = درست است "بنابراین می تواند بیش از یک خط نمایش دهد Call DisplayPicaxeRegisters ()" نمایش 14 رجیستر Call ReadFTPFilename () "خواندن نام فایل از دیسک (ذخیره مجدد هر 20 ثانیه) End Sub Sub SerialTxRx () Dim DataPacket () 0 تا 17) به عنوان Byte 'کل بسته داده "Data" +14 بایت Dim i As Integer' i همیشه برای حلقه ها و غیره مفید است برای i = 0 تا 3 DataPacket (i) = Asc (Mid ("Data"، i + 1 ، 1)) 'کلمه "Data" را به بسته اضافه کنید Next For i = 0 To 13 DataPacket (i + 4) = PicaxeRegisters (i)' تمام بایت ها را به بسته اضافه کنید Next If serialPort. IsOpen سپس serialPort. Close () 'فقط در صورت باز شدن End If Try With serialPort. PortName = "COM1"' اکثر رایانه های جدید به طور پیش فرض com1 هستند ، اما هر کامپیوتر پیش از 1999 با ماوس سریال احتمالاً com2 است. BaudRate = 2400 '2400 حداکثر سرعت برای پیککس های کوچک. Parity = IO. Ports. Parity. None 'no parity. DataBits = 8' 8 بیت. StopBits = IO. Ports. StopBits. One 'bit stop. ReadTimeout = 1000' میلی ثانیه ds در صورت عدم پاسخگویی در 1 ثانیه به پایان می رسد. باز کردن () 'بازکردن پورت سریال. DiscardInBuffer ()' حذف بافر ورودی. نوشتن (DataPacket ، 0 ، 18) 'ارسال آرایه بسته اطلاعاتی Call Sleep (300)' 100 میلی ثانیه حداقل منتظر بمانید تا داده ها بازگردند و اگر جریان داده بیشتر است. خواندن (DataPacket، 0، 18) 'read back in the packet pack array. Close ()' بستن پورت سریال End With For i = 4 تا 17 PicaxeRegisters (i - 4) = DataPacket (i) 'بسته جدید داده ها را به آرایه ثبات منتقل می کند Next PictureBox1. BackColor = Color. GreenYellow' working Catch ex As Exception PictureBox1. BackColor = Color. Red 'کار نمی کند پایان سعی کنید End Sub Sub FTPUpload (نام فایل ByVal به عنوان رشته) Dim localFile As String 'محل ذخیره داده ها Dim remoteFile As String' نام فایل به حروف بزرگ و کوچک حساس است ، این واقعاً مهم است Const host As String = "ftp://ftp.0catch.com" "توجه داشته باشید 0 یک صفر نه یک کاراکتر O نام کاربری به عنوان رشته = "picaxe.0catch.com" رمز عبور به عنوان رشته = "picaxetester" Dim URI به عنوان رشته localFile = نام فایل 'شاید لازم نباشد اما در صورت تعریف مکان مثلاً c: / mydirectory می تواند به این ترتیب به راحتی اضافه شود. Net. FtpWebRequest = CType (System. Net. FtpWebRequest. Create (URI) ، System. Net. FtpWebRequest) ftp. Credentials = New System. Net. NetworksCredential (نام کاربری ، رمز عبور) 'log in ftp. KeepAlive = False' خواهد بود قطع شدن یکبار انجام شده ftp. UseBinary = True 'از فرمت های باینری ftp استفاده کنید. تایم تایم = 9000' timeout پس از 9 ثانیه - بسیار مفید است زیرا ftp گاهی می میرد '(و فرکانس ساعت 20 ثانیه) ممکن است برای اتصالات شماره گیری ftp کندتر باشد. Method = System. Net. WebRequestMethods. Ftp. UploadFile شروع به ارسال فایل Dim fs As New FileStream (localFile، FileMode. Open) 'باز کردن فایل محلی فایل کم محتویات فایل (fs. Length) به عنوان Byte' در حافظه fs. Read (فایل محتوا ، 0 ، fs. Length) fs. Close () 'بستن فایل Dim requestStream As Stream = ftp. GetRequestStream ()' شروع درخواست پیوند ftp ream. Write (filecontents، 0، filecontents. Length) 'send it requestStream. Close ()' پیوند را ببندید PictureBox2. BackColor = Color. GreenYellow 'کادر را به سبز تغییر دهید تا بگویید کار کرده است Label2. Text = "FTP متصل است" متن که می گوید متصل است Catch 'can't connect PictureBox2. BackColor = Color. Red' box to red as no connection Label2. Text = "FTP Upload Fail" متن عدم اتصال پایان یافتن امتحان Sub Sub FTPDownload (نام فایل ByVal به عنوان رشته) 'downloads remotefile to localfile Dim localFile As String' محل ذخیره داده Dim remoteFile As String 'نام فایل به حروف کوچک و بزرگ حساس است ، این بسیار مهم است Const host As String = "ftp://ftp.0catch.com" نام کاربری Const As String = "picaxe.0catch.com "گذرواژه Const As String =" picaxetester "Dim URI As String 'localFile =" C: / " + Filename' در فهرست اصلی ذخیره می شود اما می تواند این localFile = Filename را تغییر دهد تا در صورت نیاز c: / را اضافه کند مکان واقعی remoteFile = "/" + نام فایل 'به مکان ftp راه دور اضافه شد URI = host + remoteFile' تشکیل می دهد آدرس کامل سعی کنید Dim ftp As System. Net. FtpWebRequest = CType (System. Net. FtpWebRequest. Create (URI)، System. Net. FtpWebRequest) ftp. Credentials = New System. Net. Net. NetworkCredential (نام کاربری ، رمز عبور) 'ورود به سیستم ftp. KeepAlive = False 'پس از اتمام ftp قطع می شود. Usbinary = True' binary mode ftp. Timeout = 9000 'timeout after 9 seconds ftp. Method = System. Net. WebRequestMethods. Ftp. DownloadFile' بارگیری یک فایل 'به صورت قطعات نمی دانم حجم فایل چقدر است. IO. FileMode. Create) Dim buffer (2047) As Byte Dim read as Integer = 0 Do read = respondStream. Read (buffer، 0، buffer. Length) 'piece from ftp fs. Write (buffer، 0، read)' و ارسال به فایل حلقه تا زمان خواندن = 0 'تا زمانی که قطعات بیشتری نباشندStream. Close ()' بستن فایل ftp پایان فایل با استفاده از answerStream. Close () 'آن را ببندید حتی اگر هیچ چیزی وجود نداشت پایان استفاده از answer. Close () PictureBox2. BackColor = Color. GreenYellow' کادر سبز کار می کند Label2. Text = "FTP متصل است" و متن آن را می گویند کار کرد با استفاده از Catch 'کدهای خطا را در اینجا قرار دهید PictureBox2. BackColor = Color. Red' کادر قرمز به دلیل کار نکردن Label2. Text = "FTP Download Fail" و پیامی برای گفتن این End Try End Sub Private Sub Timer1_Tick (فرستنده ByVal As System. Object، ByVal e As System. EventArgs) Timer Handles1. Tick If ModifyFlag = False سپس 'اگر کاربر یک بایت را تغییر داد ، Label3. Text = "بارگیری" System. Windows. Forms. Application. DoEvents () را بارگیری نکنید. "متن جدید برچسب Call FTPDownload (TextBox3. Text)" را بارگیری می کند فایل Label3. Text = "بارگیری شده" System. Windows. Forms. Application. DoEvents () ReadRemoteFileToRegisters () Call (شماره) را در آرایه ثبت Label3 ذخیره کنید. متن = "Talking to picaxe" System. Windows. Forms. Application. DoEvents () Else ModifyFlag = اشتباه تنظیم مجدد پرچم End If Call SerialTxRx () 'به پیککس ارسال و آن را مجدداً بخوانید Label3. Text = "Uploading" System. Windows. Forms. Application. DoEvents () با FTPUpload تماس بگیرید (TextBox3. Text) 'ارسال مجدد به سایت ftp به نام من Label3. Text = "در حال استراحت" با SaveFTPFilename () تماس بگیرید در هنگام راه اندازی مجدد End Sub Sub DisplayPicaxeRegisters () Dim i As Integer Dim registernumber As String RichTextBox1. Multiline = True 'بنابراین می تواند بیش از یک خط در کادر متن RichTextBox1. Clear ()' را برای i = 0 تا 13 پاک کند registernumber = Trim (Str (i)) 'shkurt کردن فضاهای پیشرو اگر i <10 سپس registernumber = "0" + registernumber' 0 را به اعداد زیر 10 اضافه کنید اگر RichTextBox1. AppendText (registernumber + "=" + Str (PicaxeRegisters (i)) + Chr (13)) chr بعدی (13) بازگشت کالسکه است بنابراین خط جدید End Sub Private Sub Button1_Click (فرستنده ByVal به عنوان System. Object ، ByVal e As System. EventArgs) دکمه Handles1. روی Dim i As Integer کلیک کنید 'ابتدا از محدوده خارج شوید i = Val (TextBox1. Text) اگر i <0 یا i> 13 سپس TextBox1. Text = 0 پایان اگر i = Val (TextBox2. Text) اگر i <0 یا i> 255 سپس TextBox2. Text = 0 End If PicaxeRegisters (Val (TextBox1. Text)) = Val (TextBox2. Text) 'مقدار را تغییر دهید Call DisplayPicaxeRegisters ()' و تازه کردن صفحه نمایش ModifyFlag = True 'و پیوند ftp بعدی از بارگیری حذف کنید. در جعبه متن برای i = 0 تا 13 PrintLine (1، Str (PicaxeRegisters (i))) 'save 14 values Next 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) Catch ex as Exception FileClose (1)' فایل وجود ندارد بنابراین هیچ کاری انجام ندهید End Try End Sub ReadFTPFilename () 'بنابراین نام فایل ftp راه دور دفعه بعد که این برنامه اجرا می شود یکسان است Dim LineOfText As String Try FileOpen (1 ، "FTPFilename.txt" ، OpenMode. Input) "فایل را باز کنید LineOfText = LineInput (1) TextBox3. Text = LineOfText" نام FileClose (1) Catch ex به عنوان استثنا FileClose (1) End Try End Sub Sub SaveFTPFilename () FileOpen (1، "FTPFilename.txt"، OpenMode. Output) 'ذخیره نام فایل ftp از راه دور PrintLine (1، TextBox3. Text) FileClose (1) End SubEnd Class

مرحله 9: برنامه را روی هر دو رایانه اجرا کنید

با کلیک بر روی مثلث سبز در وسط بالای صفحه - دکمه "شروع اشکال زدایی" ، برنامه را اجرا کنید. 20 ثانیه هیچ اتفاقی نمی افتد و سپس برنامه سعی می کند به سرور ftp متصل شود و سعی می کند به پیککس وصل شود. جعبه های تصویر یا قرمز یا سبز می شوند. مکان ftp یک وب سایت رایگان است و هر کسی می تواند از آن استفاده کند ، اما شما باید از یک نام فایل ftp متفاوت استفاده کنید (نام من DoctorAcula1 است) در غیر این صورت اگر از یک نام فایل مشابه استفاده کنیم ، همه ما می توانیم به داده های یکدیگر دست پیدا کنیم! اگر دوست دارید در نهایت می توانید سایت ftp خود را دریافت کنید - فقط مکان ftp ، نام کاربری و رمز عبور را در دو قسمت کد از وب سایت 0Catch من تغییر دهید. اکثر وب سایت ها ftp را مجاز می دانند. چندین رایانه می توانند به یک فایل ftp یکسان دسترسی داشته باشند - سرور فایل ftp به چه ترتیب این اتفاق می افتد. گاهی اوقات داده ها با هم درگیر می شوند یا قطع می شوند و به نظر می رسد این موارد در هر 20 پرونده خوانده می شود.اگر این اتفاق بیفتد ، یک کد زمانی وجود دارد ، بنابراین هیچ داده ای را به جای داده های خراب بر نمی گرداند. استفاده از اتصال پهن باند با سرعت بارگذاری 128 کیلوبایت به این معنی است که بارگذاری فایل حدود 3 ثانیه طول می کشد ، اما گاهی اوقات تا 8 ثانیه ، که بیشتر آن گرفته می شود در دست دادن به جای انتقال داده. این زمان را با در نظر گرفتن بارگیری ، بارگذاری و چت با پیککس حداقل 20 ثانیه تنظیم می کند. با پهنای باند بسیار سریع ممکن است بتوانید زمان چرخه را کوتاه کنید. می توانید ثبت نام را به صورت دستی در برنامه VB تغییر دهید. اگر این کار را انجام دهید ، چرخه تایمر بعدی بارگیری از سایت ftp را نادیده می گیرد و داده های جدید را به پیککس ارسال می کند و سپس آنها را می خواند و بارگذاری می کند. بنابراین داده های جدید به همه پیککس های مرتبط با این گروه راه پیدا می کند. این برای اشکال زدایی و/یا اتصال نرم افزار رایانه به حلقه سخت افزاری میکروکنترلر مفید است. وب سایت ها همچنین می توانند به حلقه سخت افزاری با استفاده از اسکریپت PERL یا مشابه آن برای نوشتن یک فایل جدید در سایت ftp دسترسی داشته باشند. این تصویر از تراشه Tx گرفته شده است ، سوئیچ روشن است و ثبت نام b0 = to 1 به تراشه Rx ارسال شده است که سپس ثبت نام b1 را به 1 نیز تغییر داده بود. بنابراین لید روی هر دو تخته روشن شد. این یک برنامه بی اهمیت است اما به راحتی می توان پمپ 3.6 کیلووات را به جای چراغ روشن کرد. برخی از ایده های بیشتر در https://drvernacula.topcities.com/ از جمله پیوند پیککس ها از طریق پیوندهای رادیویی خورشیدی وجود دارد. با پیوندهای رادیویی به علاوه اینترنت ، این امکان وجود دارد که "ماشین ها" به گوشه و کنار جهان برسند. ایده هایی در انجمن picaxe در مورد پیشبرد این ایده و جایگزینی رایانه شخصی و سایت ftp با تراشه های وب سرور اختصاصی که مستقیماً به روتر متصل می شوند وجود دارد. بدیهی است که این امر باعث کاهش مصرف برق یک پیوند می شود. اگر علاقه مند به بحث های بیشتر هستید ، لطفاً نظرات Intstructable و/یا انجمن انجمن را ارسال کنید. دکتر James Moxham آدلاید ، استرالیای جنوبی

مرحله 10: تصاویری از کد

در صورت درخواست ، در اینجا مجموعه ای از اسکرین شات های کد vb.net با تمام قالب بندی موجود است. این کد در واقع در پشت این دستورالعمل کپی شد و قالب بندی به طور خودکار دوباره ظاهر شد. بهتر است متن را کپی و جایگذاری کنید تا سعی کنید این تصاویر را بخوانید ، اما اگر در کافه اینترنتی هستید و نمی توانید vb.net را نصب کنید ، مفید خواهد بود.

مرحله 11: تصویر صفحه 2

تصویر صفحه 2

مرحله 12: تصویر صفحه 3

تصویر صفحه 3

مرحله 13: تصویر صفحه 4

تصویر صفحه 4

مرحله 14: تصویر صفحه 5

تصویر صفحه 5

مرحله 15: تصویر صفحه 6

تصویر صفحه 6