Celosvětový odkaz na mikrokontrolér za méně než 20 $: 15 kroků

2024 Autor: John Day | [email protected]. Naposledy změněno: 2024-01-30 08:24

Ovládejte svůj domácí termostat z práce. Zapněte postřikovač odkudkoli na světě přepnutím přepínače. This Instructable shows how to link two or more $ 4 microcontrollers using the backbone of internet and some simple VB. Net code. This navazuje na dřívější Instructable which shows how to link a microcontroller to a PC and use pot to control a servo https://www.instructables.com/id/Control-real-world-devices-with-your-PC/ Tentokrát máme mikrokontrolér, který mluví s programem VB. Net, pak s webem ftp, zpět na jiný VB. Net program a odtud druhý mikrokontrolér kdekoli na světě, s lidským zásahem nebo bez něj. Jak jinak by stroje v Matrixu měly převzít moc, když spolu nemohou mluvit?

Krok 1: Shromážděte součásti

Mnoho částí je stejných jako v PC Control Instructable https://www.instructables.com/id/Control-real-world-devices-with-your-PC/ a je doporučeno, aby to bylo nejprve dokončeno před pokusem propojit dva mikrokontroléry. I když je docela možné použít hrnec k ovládání serva, tentokrát půjdeme na něco jednoduššího - spínač zapínající LED. Přepínačem může být snadno snímač hladiny nádrže a LED dioda může být pumpa poblíž řeky, ale pojďme si nejprve něco jednoduchého zařídit. Díly - dva čipy Picaxe 08M - dostupné z mnoha zdrojů včetně Rev Ed https://www.rev- ed.co.uk/picaxe/ (Spojené království), PH Anderson https://www.phanderson.com/ (USA) a Microzed https://www.microzed.com.au/ (Austrálie). Tyto čipy jsou pod 4 USD. Dva z nich: Protoboard, 9V baterie a svorky na baterie, odpor 10k, odpor 22k, kondenzátor 33uF 16V, kondenzátor 0,1uF, regulátor 5V s nízkým výkonem 7805L, vodiče (telefon s pevným jádrem/datový vodič např. Cat5/6), LED, odpor 1k. 1 z: Zásuvka a kryt D9 a 2 metry 3 (nebo 4) žilového datového vodiče (ke stažení) a přepínače. 2 počítače s 9kolíkovými sériovými porty (lze je však ladit na jednom počítači) a připojením k internetu. Pro počítače bez sériového portu použijte zařízení USB na sériové připojení https://www.rev-ed.co.uk/docs/axe027.pdf a malou stereofonní zásuvku.

Krok 2: Stáhněte a nainstalujte nějaký software

Budeme potřebovat bezplatný software VB. Net a ovladač picaxe, a pokud jste provedli instruktáž ovladače PC, budete je již mít. VB. Net (Visual Basic Express) je k dispozici na adrese https://msdn2.microsoft.com/en -us/express/aa718406.aspx Software picaxe je k dispozici na adrese https://www.rev-ed.co.uk/picaxe/ K získání stahování se budete muset zaregistrovat u společnosti Microsoft -pokud se jedná o problém, použijte falešný e -mail nebo něco. Vlastně mi přišlo užitečné dát svůj skutečný e -mail, protože posílají příležitostné aktualizace. Zmíním se také o fóru picaxe https://www.picaxeforum.co.uk/, protože toto je typ fóra, kde pracují učitelé a pedagogové a kde studenti obvykle mohou získat odpovědi na otázky během několika hodin. Fórum velmi dobře rozumí i těm nejjednodušším otázkám, protože někteří studenti jsou stále na úrovni základní školy. Nebojte se požádat o pomoc!

Krok 3: Vytvořte obvod pro stahování

Tento stahovací obvod používá čip picaxe, pár odporů, regulátor a 9V baterii. Další informace jsou k dispozici v dokumentaci/nápovědě k picaxe, která se nachází v nabídce nápovědy programu. Obvod by měl trvat jen několik minut, než budou všechny části po ruce. Jakmile je čip naprogramován, zachová si svůj program v EEPROM, i když je napájení vypnuto. Protože programujeme dva čipy, možná by stálo za to čipy označit, abyste věděli, který je který. Vždy se můžete vrátit zpět a přeprogramovat čip odstraněním odkazu a posunutím odporu.

Mohu také dodat, že picaxe běží šťastně na 3 AA baterie. Regulované napájení 5 V je užitečné pro spouštění analogových vstupů, protože referenční napětí se nemění, ale pro jednoduché obvody zapnutí/vypnutí není regulované napájení potřeba. V těchto situacích lze vynechat 5V reg.

Krok 4: Naprogramujte čipy

Jeden program budeme nazývat Tx a jeden Rx. Tx je řídicí čip a má vypínač a LED. Rx má také LED. Když přepínač změní signál, přejde z Tx na Rx, změní LED a také změní druhou proměnnou, která pak přejde zpět na Tx. Takže přepněte přepínač a za méně než minutu se LED změní na obou obvodech, což naznačuje, že se zpráva dostala tam a Rx působí na novou polohu spínače. Na nejjednodušší úrovni má picaxe 14 jednobajtových registrů. Když je vytvořena virtuální síť, propojíme všechny tyto registry dohromady, takže pokud se bajt změní v jednom picaxu, změní se ve všech picaxech. Je zřejmé, že pokud se dva picaxy pokoušejí změnit stejný bajt, bude to velmi matoucí, ale pokud každý picaxe změní pouze jeden bajt, pak všechny ostatní picaxe vidí tuto změnu a mohou na ní jednat. Jednoduché zprávy lze předávat zpět a vpřed, pokud je určitý bajt změněn pouze jedním picaxem. Hrnec může změnit hodnotu v registru a jeden nebo více dalších picaxů může tuto změnu vycítit a přesunout servo nebo cokoli a zapnout topení. Druhý registr by mohl poslat zpět teplotu v místnosti. Zkopírujte a vložte programy postupně do programátoru picaxe a stáhněte je do každého z příslušných čipů pomocí modré šipky stahování z programátoru picaxe. Tx: main: serin 3, N2400, ("Data"), b0, b1, b2, b3, b4, b5, b6, b7, b8, b9, b10, b11, b12, b13 'získejte paket z počítače, pokud pin2 = 0 pak 'otestujte přepínač a nastavte registr b0 v závislosti na stavu b0 = 0 else b0 = 1 endif pokud b1 = 0 pak' ostatní sady picaxe b1 v závislosti na b0 low 1 'LED off off else high 1' led on endif serout 0, N2400, ("Data", b0, b1, b2, b3, b4, b5, b6, b7, b8, b9, b10, b11, b12, b13) 'odeslat zpět do počítače přejít na hlavní Rx: hlavní: serin 3, N2400, („Data“), b0, b1, b2, b3, b4, b5, b6, b7, b8, b9, b10, b11, b12, b13 'získejte paket z počítače b1 = b0' změňte registr b1 na stejný registr b0, pokud b1 = 0 pak nízký 1 'vypnutý jinak vysoký 1' vedený na výstupu serif 0, N2400, ("Data", b0, b1, b2, b3, b4, b5, b6, b7, b8, b9, b10, b11, b12, b13) 'poslat zpět do počítače

Krok 5: Postavte Tx obvod

Pokud přecházíte sem a tam mezi pracovním obvodem a programovacím obvodem, nezapomeňte změnit připojení na 2. etapu a umístění 22k rezistoru z 2. etapy na 4. 4. Nebo můžete vytvořit vyhrazený stahovací obvod a přesouvat čipy přes. Všimněte si, zda obvod běží nebo se stahuje, protože to může být docela matoucí. Zejména si uvědomte, že běžící obvod nebude fungovat, pokud bude noha 2 ponechána plovoucí - musí být uzemněna. Noha 2 je pin ke stažení a pokud zůstane plovoucí, zachytí zbloudilý RF ze světel mouky a čip si myslí, že se stahuje jiný program.

Za zmínku stojí také nomenklatura picaxe, která nazývá fyzický pin noha a virtuální pin pin. Takže výstup na pinu 2 v kódu je ve skutečnosti výstup na fyzické noze 5. To se může zdát divné, ale znamená to, že kód může být přenesen na větší picaxe, jako jsou verze s 28 a 40 piny, a stále funguje.

Krok 6: Postavte obvod Rx

Tento obvod je téměř stejný jako vysílač - nemá žádný spínač.

Krok 7: Napište nějaký kód VB. Net

Mohl jsem zkompilovat kód a zpřístupnit tento program jako kompilovaný.exe, ale naučit se nějaký VB. Net je tak neuvěřitelně užitečné, že stojí za to jej projít krok za krokem. Pokud to používáte na dvou různých počítačích, můžete program sestavit do souboru.exe, který vytvoří malý instalační program, který lze nainstalovat na druhý počítač. Nebo můžete dát VB. Net na oba počítače a spouštět programy z VB. NetLet předpokládejme, že víte, jak otevřít nový projekt VB.net z kroku 7 a 8 https://www.instructables.com/id/S1MMU2XF82EU2GT /Na prázdný formulář přidáme z panelu nástrojů následující součásti a vložíme je do formuláře v místech, jak je znázorněno. U popisků a textových polí změňte vlastnost textu (vpravo dole) na to, co je potřeba. Nedělejte si starosti s nastavením časovače - změníme je v kódu, ale nezapomeňte vložit časovač. Můžete věci přesouvat a neexistují žádná skutečná pravidla týkající se polohy. Velké textové pole je RichTextBox a menší tři jsou obyčejná textová pole. Pokud jde o pořadí, začínáme v horní části formuláře a postupujeme dolů. Pokud něco vynecháte, v kódu bude chyba, která by měla poskytnout určité vodítko. Vyberte prosím náhodný název souboru pro Textbox3 - toto je název vaší jedinečné skupiny picaxů na serveru ftp a samozřejmě pokud všichni používáme stejný název, pak budou data zmatená! Omlouváme se za pomlčky v této tabulce-vkládání mezer ztrácí formátování v tabulce. Objekt Toolbox ------- Text ----------- ------------------------------ NotesLabel1 ------------------ Picaxe CommunicationsLabel2 ------------------ FTP StatusLabel3 ------------------ StatusLabel4 ---------- -------- Picaxe RegistersLabel5 ------------------ Register 0-13Label6 ------------------ Hodnota 0-255Label7 ------------------ FTP odkaz název_souboruTextbox1 ---------------- 0 -------- -------------------------------------- 0 je nula, nikoli OTextbox2 ----- ----------- 0Textbox3 ---------------- Myfilename --------------------- ---------- Změňte, aby nedocházelo ke střetům! Button1 ------------------ ModifyRichtextbox1 Picturebox1 Picturebox2 Timer1

Krok 8: Přidejte nějaký kód

Umístění tlačítka, které se převrací mezi formulářovým zobrazením a kódovým zobrazením, najdete v kroku 12 další instrukce. Přepněte do zobrazení kódu a vložte následující kód. Barvy by se měly znovu objevit jako na snímku obrazovky. Pokud se řádek z důvodu problému se zalomením slova nezkopíruje správně, odstraňte mezery, dokud chybová zpráva nezmizí. Snažil jsem se okomentovat většinu řádků, aby kód alespoň dával nějaký smysl. Odstraňte bit veřejné třídy, aby byl text před vložením prázdný - tento kód již má veřejnou třídu. Pokud objekt jako textové pole nebyl umístěn ve formuláři nebo má nesprávný název, objeví se v textovém kódu s vlnitou modrou čarou pod ním. Import System. IOImports Strings = Microsoft. VisualBasic ', takže lze použít věci jako left (and right (for stringsPublic Class Form1 Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Integer) 'for sleep commands Dim WithEvents serialPort As New IO. Ports. SerialPort' serial port declare Dim PicaxeRegisters (0 To 13) As Byte 'registers b0 to b13 Dim ModifyFlag As Boolean Private Sub Form1_Load (ByVal sender As Object, ByVal e As System. EventArgs) Handles Me. Load' need all this smetish things -.net gets it in automatically when go form1events above/load Timer1. Enabled = True 'při vytváření vloží do kódu jako výchozí hodnotu false; Timer1. Interval = 20 000' každých 20 sekund PictureBox1. BackColor = Color. Gray 'začněte s šedými políčky obrázku PictureBox2. BackColor = Color. Gray ModifyFlag = False' pokud ručně upravíte hodnotu, pak s kip download RichTextBox1. Multiline = True 'so can display more than one line Call DisplayPicaxeRegisters ()' display the 14 registers Call ReadFTPFilename () 'read the filename off the disk (resaved every 20 secs) End Sub Sub SerialTxRx () Dim DataPacket (0 až 17) Jako celý bytový datový paket „Data“+14 bajtů Dim i As Integer 'i je vždy užitečný pro smyčky atd. Pro i = 0 až 3 DataPacket (i) = Asc (střední („Data“, i + 1), 1)) 'přidejte do paketu slovo „Data“Další pro i = 0 až 13 DataPacket (i + 4) = PicaxeRegisters (i)' přidejte všechny pakety do paketu Další If serialPort. IsOpen Then serialPort. Close () '' jen v případě, že již byl otevřen End If Try With serialPort. PortName = "COM1" 'Většina nových počítačů je standardně nastavena na com1, ale jakýkoli počítač z roku 1999 se sériovou myší bude pravděpodobně ve výchozím nastavení nastaven na com2. BaudRate = 2400' 2400 je maximální rychlost pro malé picaxy. Parity = IO. Ports. Parity. None 'žádná parita. DataBits = 8' 8 bitů. StopBits = IO. Ports. StopBits. One 'jeden stop bit. ReadTimeout = 1000' millisecon ds tak vyprší časový limit za 1 sekundu, pokud žádná odezva. Otevřít () „otevřít sériový port. minimum na čekání, až se data vrátí, a více, pokud je datový tok delší. Přečtěte si (DataPacket, 0, 18) 'přečtěte si zpět v poli datových paketů. Zavřete ()' zavřete sériový port Konec Pro Pro i = 4 až 17 PicaxeRegisters (i - 4) = DataPacket (i) 'přesunout nový datový paket do pole registru Další PictureBox1. BackColor = Color. GreenYellow' fungující Catch ex As Exception PictureBox1. BackColor = Color. Red 'nefunguje Konec Zkuste End Sub Sub FTPUpload (ByVal Název souboru jako řetězec) Dim localFile As String 'místo pro ukládání dat Dim remoteFile As String' název souboru rozlišuje velká a malá písmena, to je opravdu důležité Const host As String = "ftp://ftp.0catch.com" 'poznámka 0 je nula není znak O Const uživatelské jméno As String = "picaxe.0catch.com" Const heslo jako String = "picaxetester" Dim URI jako řetězec localFile = Název souboru 'možná není potřeba, ale pokud definujete umístění, např. C: / mydirectory lze snadno přidat tímto způsobem remoteFile = "/" + soubor názvu souboru' na ftp serveru potřebuje "/" přidán na začátek URI = host + remoteFile Zkuste Dim ftp jako systém. Net. FtpWebRequest = CType (System. Net. FtpWebRequest. Create (URI), System. Net. FtpWebRequest) ftp. Credentials = New System. Net. NetworkCredential (username, password) 'log in ftp. KeepAlive = False' will be odpojení po dokončení ftp. UseBinary = True 'use binary comms ftp. Timeout = 9000' timeout after 9 seconds - very useful as ftp sometimes dies 'timeout (and the clock frequency of 20 sec) might be be slower for dialup connections ftp. Metoda = System. Net. WebRequestMethods. Ftp. UploadFile 'start odesílání souboru Dim fs As New FileStream (localFile, FileMode. Open)' otevřít místní soubor Dim filecontents (fs. Length) As Byte 'read into memory fs. Read (filecontents, 0, fs. Length) fs. Close () 'close the file Dim requestStream As Stream = ftp. GetRequestStream ()' start ftp link requestSt ream. Write (filecontents, 0, filecontents. Length) 'send it requestStream. Close ()' close the link PictureBox2. BackColor = Color. GreenYellow 'change the box to green to say working ok Label2. Text = "FTP Connected"' text říká, že je připojeno Chyťte 'nelze připojit PictureBox2. BackColor = Color. Red' na červenou jako žádné připojení Label2. Text = "FTP Upload Fail" 'text říká připojení se nezdařilo Konec Zkuste End Sub Sub FTPDownload (ByVal Název souboru jako řetězec) 'downloads remotefile to localfile Dim localFile As String' místo pro ukládání dat Dim remoteFile As String 'název souboru rozlišuje velká a malá písmena, to je opravdu důležité Const host As String = "ftp://ftp.0catch.com" Const uživatelské jméno jako řetězec = "picaxe.0catch.com "Const heslo jako řetězec =" picaxetester "Dim URI jako řetězec 'localFile =" C: / " + Název_souboru' uložte do kořenového adresáře, ale můžete změnit tento localFile = Název_souboru ', takže můžete přidat c: / v případě potřeby definovat skutečné umístění remoteFile = "/" + název souboru 'přidán do vzdáleného umístění ftp URI = hostitel + remoteFile' doplnění plná adresa Zkuste Dim ftp As System. Net. FtpWebRequest = CType (System. Net. FtpWebRequest. Create (URI), System. Net. FtpWebRequest) ftp. Credentials = New System. Net. NetworkCredential (uživatelské jméno, heslo) 'přihlásit se ftp. KeepAlive = False 'se odpojí po dokončení ftp. UseBinary = True' binární režim ftp. Timeout = 9000 'časový limit po 9 sekundách ftp. Method = System. Net. WebRequestMethods. Ftp. DownloadFile' stáhnout soubor 'číst po částech jako nevím, jak velký soubor používá odpověď jako System. Net. FtpWebResponse = CType (ftp. GetResponse, System. Net. FtpWebResponse) using responseStream As IO. Stream = response. GetResponseStream Using fs As New IO. FileStream (localFile, IO. FileMode. Create) Dim buffer (2047) As Byte Dim read As Integer = 0 Do read = responseStream. Read (buffer, 0, buffer. Length) 'piece from ftp fs. Write (buffer, 0, read)' and zapisovat do souboru Smyčka Dokud číst = 0 ', dokud žádné další kusy responseStream. Close ()' zavřít soubor ftp fs. Flush () 'flush clear fs. Close ()' a zavřít th e Soubor Konec Použití responseStream. Close () 'zavřete jej, i když tam nic nebylo. fungovalo End Using Catch 'sem vložil chybové kódy PictureBox2. BackColor = Color. Red' červené pole, protože nefungovalo Label2. Text = "FTP Stahování se nezdařilo" "a zpráva s tímto koncem Konec Zkuste End Sub Private Sub Timer1_Tick (ByVal sender As System. Object, ByVal e As System. EventArgs) Handles Timer1. Tick If ModifyFlag = False Then 'if user changed a byte then not download Label3. Text = "Downloading" System. Windows. Forms. Application. DoEvents () 'so new text text displays Call FTPDownload (TextBox3. Text)' download remote file Label3. Text = "Downloaded" System. Windows. Forms. Application. DoEvents () Call ReadRemoteFileToRegisters () 'save file numbers to the register array Label3. Text = "Talking to picaxe" System. Windows. Forms. Application. DoEvents () Else ModifyFlag = False 'reset the flag End If Call SerialTxRx () 'send to the picaxe and read it back Label3. Text = "Odesláno a přijato z picaxe" System. Windows. Forms. Application. DoEvents () Call DisplayPicaxeRegisters () Call SaveRegistersToLocalFile ()' save numbers to file Label3. Text = "Odesílání" System. Windows. Forms. Application. DoEvents () Volání FTPUpload (TextBox3. Text) 'odeslání zpět na ftp web pojmenovaný jako moje jméno Label3. Text = "Resting" Call SaveFTPFilename ()' so reads in when restart End Sub Sub DisplayPicaxeRegisters () Dim i As Integer Dim registernumber As String RichTextBox1. Multiline = True 'so can display more than one line in the text box RichTextBox1. Clear ()' clear the text box For i = 0 To 13 registernumber = Oříznout (Str (i)) 'oříznout úvodní mezery Pokud i <10 Pak registernumber = "0" + registernumber' přidat 0 k číslům pod 10 Konec If RichTextBox1. AppendText (registernumber + "=" + Str (PicaxeRegisters (i)) + Chr (13)) Další 'chr (13) je návrat vozíku, takže nový řádek End Sub Private Sub Button1_Click (ByVal sender As System. Object, ByVal e As System. EventArgs) Handles Button1. Click Dim i As Integer 'check out of range first i = Val (TextBox1. Text) If i <0 Or i> 13 Then TextBox1. Text = 0 End If i = Val (TextBox2. Text) If i <0 Nebo i> 255 Then TextBox2. Text = 0 End If PicaxeRegisters (Val (TextBox1. Text)) = Val (TextBox2. Text) 'change the value Call DisplayPicaxeRegisters ()' and obnovit zobrazení ModifyFlag = True 'a další odkaz ftp přeskočit stahování End Sub Sub SaveRegistersToLocalFile ()' uložit pole registru v místním textovém souboru Dim i As Integer FileOpen (1, TextBox3. Text, OpenMode. Output) 'otevřít textový soubor s názvem v textovém poli Pro i = 0 až 13 PrintLine (1, Str (PicaxeRegisters (i))) 'uložit 14 hodnot Další FileClose (1)' zavřít soubor Konec Sub Sub Sub ReadRemoteFileToRegisters () 'načíst místní textový soubor do pole registru Dim i jako celé číslo Dim LineOfText jako řetězec Zkuste FileOpen (1, TextBox3. Text, OpenMode. Input) 'přečtěte si název vzdáleného souboru pro i = 0 až 13 LineOfText = LineInput (1)' přečtěte 14 řádků es PicaxeRegisters (i) = Val (LineOfText) 'převést text na hodnoty Další FileClose (1) Catch ex As Exception Soubor FileClose (1)' neexistuje, takže nic nedělejte End Try End Sub Sub ReadFTPFilename () ', takže název vzdálený soubor ftp je stejný při příštím spuštění tohoto programu Dim LineOfText jako řetězec Zkuste FileOpen (1, "FTPFilename.txt", OpenMode. Input) 'otevřete soubor LineOfText = LineInput (1) TextBox3. Text = LineOfText' přečtěte si název FileClose (1) Catch ex As Exception FileClose (1) End Try End End Sub SaveFTPFilename () FileOpen (1, "FTPFilename.txt", OpenMode. Output) 'save the remote ftp file name PrintLine (1, TextBox3. Text) FileClose (1) End SubEnd Class

Krok 9: Spusťte program na obou počítačích

Spusťte program kliknutím na zelený trojúhelník v horní polovině obrazovky - na tlačítko „Spustit ladění“. Po dobu 20 sekund se nic nestane a poté se program pokusí připojit k serveru ftp a pokusí se připojit k picaxe. Krabice s obrázky budou buď červené nebo zelené. Umístění ftp je bezplatná webová stránka a může ji používat kdokoli, ale musíte použít jiný pracovní název ftp (můj je DoctorAcula1), jinak bychom mohli všichni skončit s daty toho druhého, pokud použijeme stejný název souboru! Pokud chcete, můžete si nakonec pořídit vlastní ftp web - stačí změnit umístění ftp, uživatelské jméno a heslo na dvou místech v kódu z mého webu 0Catch. Většina webových stránek umožňuje ftp. Ke stejnému souboru ftp může přistupovat více počítačů - souborový server ftp třídí v jakém pořadí k tomu dochází. Občas dochází ke střetům nebo zablokování dat a zdá se, že k nim dochází každých 20 přečtení souboru. Pokud k tomu dojde, v kódu je časový limit, takže nevrací žádná data, než poškozená data. Použití širokopásmového připojení s rychlostí odesílání 128 kB znamená, že odeslání souboru trvá přibližně 3 sekundy, ale někdy až 8 sekund, z nichž většina je zabrána při podání ruky spíše než při přenosu dat. Tím se nastaví časovač1 na minimálně asi 20 sekund, přičemž se vezme v úvahu stahování, nahrávání a chatování s picaxe. Díky velmi rychlému širokopásmovému připojení můžete zkrátit dobu cyklu. V rámci programu VB můžete registr změnit ručně. Pokud tak učiníte, další cyklus časovače přeskočí stahování z webu ftp a odešle nová data do picaxe a poté je načte zpět a nahraje. Nová data si tak nacházejí cestu ke všem picaxům propojeným s touto skupinou. To je užitečné pro ladění a/nebo pro propojení PC softwaru s hardwarovou smyčkou mikrokontroléru. Webové stránky mohou také přistupovat k hardwarové smyčce pomocí skriptu PERL nebo podobného a zapisovat nový soubor na server ftp. Tento snímek obrazovky byl pořízen pomocí čipu Tx, přepínač byl zapnutý a registr b0 = až 1 byl odeslán na čip Rx, který poté také změnil registr b1 na 1. LED dioda tak byla rozsvícena na obou deskách. Jedná se o triviální aplikaci, ale je snadné zapnout čerpadlo 3,6 kW místo LED. Několik dalších nápadů je na adrese https://drvernacula.topcities.com/, včetně propojení picaxů pomocí rádiových spojů napájených solární energií. Díky rádiovým spojením a internetu je možné, aby se „The Machines“dostaly do mnoha koutů světa. Na fóru picaxe existuje několik nápadů, jak tuto myšlenku posunout dále a nahradit stránky pro počítače a ftp vyhrazenými čipy webového serveru, které se připojují přímo do routeru. Je zřejmé, že by to snížilo spotřebu energie odkazu. Máte -li zájem o další diskuse, napište prosím na Nestrukturovatelné komentáře a/nebo na fórum picaxe. Dr. James MoxhamAdelaide, Jižní Austrálie

Krok 10: Snímky obrazovky kódu

Na vyžádání je zde řada snímků obrazovky kódu vb.net s veškerým formátováním. Tento kód byl ve skutečnosti zkopírován zpět z tohoto pokynu a formátování se znovu objevilo automaticky. Bylo by lepší zkopírovat a vložit text, než se pokusit přečíst tyto obrázky, ale budou užitečné, pokud jste v internetové kavárně a nemůžete nainstalovat vb.net.

Krok 11: Snímek obrazovky 2

Snímek obrazovky 2

Krok 12: Snímek obrazovky 3

Snímek obrazovky 3

Krok 13: Snímek obrazovky 4

Snímek obrazovky 4

Krok 14: Snímek obrazovky 5

Snímek obrazovky 5

Krok 15: Snímek obrazovky 6

Snímek obrazovky 6