Verdensomspennende mikrokontroller -lenke for trinn på under $ 20: 15

2024 Forfatter: John Day | [email protected]. Sist endret: 2024-01-30 11:25

Kontroller hjemmetermostaten din fra jobb. Slå på en sprinkler fra hvor som helst i verden ved å trykke på en bryter. Denne instruksjonsboken viser hvordan du kobler to eller flere $ 4 mikrokontrollere ved hjelp av ryggraden på internett og noen enkle VB. Net -koder. Dette bygger på en tidligere instruks som viser hvordan du kobler en mikrokontroller til en PC og bruker en pott for å kontrollere en servo https://www.instructables.com/id/Control-real-world-devices-with-your-PC/ Denne gangen har vi en mikrokontroller som snakker med et VB. Net-program og deretter til et ftp-nettsted, tilbake til et annet VB. Net program og derfra en andre mikrokontroller hvor som helst i verden, med eller uten menneskelig inngrep. Hvordan skal maskinene i The Matrix ellers ta over hvis de ikke kan snakke med hverandre?

Trinn 1: Samle delene

Mange av delene er de samme som i PC Control Instructable https://www.instructables.com/id/Control-real-world-devices-with-your-PC/, og det foreslås at dette fullføres først før du prøver å koble to mikrokontrollere. Selv om det er fullt mulig å bruke en gryte for å kontrollere en servo, vil vi denne gangen gå for noe enklere - en bryter som slår på en LED. Bryteren kan lett være en tanknivåsensor, og ledningen kan være en pumpe ned i nærheten av en elv, men la oss få noe enkelt til å fungere først. Deler - To Picaxe 08M -brikker - tilgjengelig fra mange kilder, inkludert Rev Ed https://www.rev- ed.co.uk/picaxe/ (Storbritannia), PH Anderson https://www.phanderson.com/ (USA) og Microzed https://www.microzed.com.au/ (Australia). Disse sjetongene er under $ 4US. To av: Protoboard, 9V batteri og batteriklips, 10k motstand, 22k motstand, 33uF 16V kondensator, 0.1uF kondensator, 7805L lav effekt 5V regulator, ledninger (solid kjerne telefon/datakabel f.eks. Cat5/6), LED, 1k motstand. 1 av: D9 hunkontakt og deksel og 2 meter med 3 (eller 4) kjernedatatråd (for nedlasting) og en vippebryter. 2 datamaskiner med 9 -pins serielle porter (kan feilsøke på en datamaskin) og en internettforbindelse. For datamaskiner uten seriell port, en USB til seriell enhet https://www.rev-ed.co.uk/docs/axe027.pdf og en liten stereokontakt.

Trinn 2: Last ned og installer noe programvare

Vi trenger gratis VB. Net og picaxe -kontrollerprogramvaren, og hvis du har gjort PC -kontrolleren Instructable, vil du allerede ha disse. VB. Net (Visual Basic Express) er tilgjengelig fra https://msdn2.microsoft.com/en -us/express/aa718406.aspx Picaxe -programvaren er tilgjengelig fra https://www.rev-ed.co.uk/picaxe/Du må registrere deg hos Microsoft for å laste ned -hvis dette er et problem, bruk en falsk e -post eller noe. Jeg syntes faktisk det var nyttig å gi min virkelige e -post når de sender sporadiske oppdateringer. Jeg kommer også til å nevne picaxe -forumet https://www.picaxeforum.co.uk/ ettersom dette er et slags forum bemannet av lærere og lærere og hvor elevene vanligvis kan få svar på spørsmål innen få timer. Forumet har stor forståelse for selv de enkleste spørsmålene, ettersom noen av elevene fortsatt er på barneskolenivå. Ikke vær redd for å be om hjelp!

Trinn 3: Bygg en nedlastningskrets

Denne nedlastningskretsen bruker en picaxe -brikke, et par motstander, en regulator og et 9V batteri. Mer informasjon er tilgjengelig i picaxe -dokumentasjonen/hjelpen som kommer opp i hjelpemenyen til programmet. Kretsen bør bare ta noen minutter å bygge når alle delene er tilgjengelige. Når en brikke er programmert, beholder den programmet i EEPROM, selv når strømmen er slått av. Siden vi programmerer to sjetonger, kan det være verdt å merke brikkene, slik at du vet hvilken som er hvilken. Du kan alltid gå tilbake og omprogrammere en brikke ved å fjerne en lenke og flytte en motstand.

Jeg kan også legge til at picaxer kjører lykkelig på 3 AA -batterier. En 5V regulert forsyning er nyttig for å kjøre analoge innganger ettersom referansespenningene ikke endres, men for enkle på/av -kretser er det ikke nødvendig med en regulert forsyning. 5V reg kan utelates i disse situasjonene.

Trinn 4: Programmer sjetongene

Vi kaller ett program Tx og ett Rx. Tx er den kontrollerende brikken og har en bryter og en LED. Rx har også en led. Når bryteren endres, går signalet fra Tx til Rx, endrer LED og endrer også en andre variabel som deretter går tilbake til Tx. Så klikk på bryteren og på mindre enn et minutt endres leddene på begge kretsene som indikerer at meldingen kom dit og Rx virker på den nye bryterposisjonen. På det enkleste nivået har picaxen 14 enkeltbyte-registre. Når et virtuelt nettverk opprettes, kobler vi alle disse registrene sammen, så hvis en byte endres i en picaxe, endres den i alle picaxene. Det er klart at hvis to picaxer prøver å endre den samme byten, blir det veldig forvirrende, men hvis hver picaxe bare endrer en byte, kan alle de andre picaxene se den endringen og kan handle på den. Enkle meldinger kan sendes frem og tilbake hvis en bestemt byte bare endres med en picaxe. En gryte kan endre verdien i et register, og en eller flere andre pikser kan kjenne den endringen og flytte en servo eller hva som helst og slå på en varmeapparat. Et annet register kan sende tilbake temperaturen i rommet. Kopier og lim inn programmene etter tur i picaxe -programmereren og last dem ned til hver av de respektive sjetongene ved hjelp av den blå nedlastingspilen fra picaxe -programmereren. Tx: main: serin 3, N2400, ("Data"), b0, b1, b2, b3, b4, b5, b6, b7, b8, b9, b10, b11, b12, b13 'hent pakke fra datamaskinen hvis pin2 = 0 'test deretter bryteren og sett register b0 avhengig av status b0 = 0 annet b0 = 1 endif hvis b1 = 0 så' andre picaxe -sett b1 avhengig b0 lav 1 'led av annet høyt 1' ledet på endif serout 0, N2400, ("Data", b0, b1, b2, b3, b4, b5, b6, b7, b8, b9, b10, b11, b12, b13) 'send tilbake til datamaskinen gå til mainand Rx: main: serin 3, N2400, ("Data"), b0, b1, b2, b3, b4, b5, b6, b7, b8, b9, b10, b11, b12, b13 'hent pakke fra datamaskin b1 = b0' endre register b1 til lik register b0 hvis b1 = 0 deretter lav 1 'led av andre høy 1' led på endif serout 0, N2400, ("Data", b0, b1, b2, b3, b4, b5, b6, b7, b8, b9, b10, b11, b12, b13) 'send tilbake til datamaskinen gå til main

Trinn 5: Bygg Tx -kretsen

Hvis du blar frem og tilbake mellom en arbeidskrets og en programmeringskrets, må du endre tilkoblingen til etappe 2 og plasseringen av 22k -motstanden fra etappe 2 til etappe 4. Eller du kan bygge en dedikert nedlastingskrets og flytte sjetongene på tvers. Bare vær oppmerksom på om en krets kjører eller laster ned, da det kan bli ganske forvirrende. Vær spesielt oppmerksom på at en løpekrets ikke vil fungere hvis etappe 2 blir flytende - den må jordes. Ben 2 er nedlastingsnålen, og hvis den lar seg flyte, plukker den opp RF -strø fra melolamper og brikken tror et annet program blir lastet ned.

Det er også verdt å nevne picaxe -nomenklatur som kaller en fysisk pin et ben og en virtuell pin en pin. Således er en utgang på pin 2 i kode faktisk en output på fysisk etappe 5. Dette kan virke merkelig, men det betyr at koden kan portes til større picaxer som 28 og 40 pin versjoner og fortsatt fungere.

Trinn 6: Bygg Rx -kretsen

Denne kretsen er nesten den samme som senderen - den har bare ingen bryter.

Trinn 7: Skriv noen VB. Net -kode

Jeg kunne ha samlet koden og gjort dette programmet tilgjengelig som en kompilert.exe, men å lære litt VB. Net er så utrolig nyttig at det er verdt å gå gjennom det trinnvis. Hvis du kjører dette på to forskjellige datamaskiner, kan du bygge programmet til en.exe som lager et lite oppsettprogram som kan installeres på den andre datamaskinen. Eller du kan sette VB. Net på begge datamaskinene og kjøre programmene fra VB. Net La oss anta at du vet hvordan du åpner et nytt VB.net -prosjekt fra trinn 7 og 8 på https://www.instructables.com/id/S1MMU2XF82EU2GT /På det blanke skjemaet la oss legge til følgende komponenter fra verktøylinjen og sette dem på skjemaet på plasseringene som vist. For etikettene og tekstboksene, endre tekstegenskapen (over nederst til høyre) til det som trengs. Ikke bekymre deg for innstillingene for timeren - vi endrer dem i koden, men sørg for å sette inn en timer. Du kan flytte ting rundt, og det er ingen reelle regler for plassering. Den store tekstboksen er en RichTextBox og de tre mindre er vanlige tekstbokser. Når det gjelder rekkefølge starter vi øverst i skjemaet og beveger oss nedover. Hvis du lar noe være ute, vil det være en feil i koden som burde gi en slags ledetråd. Velg et tilfeldig filnavn for Textbox3 - dette er navnet på din unike gruppe picaxer på ftp -serveren, og åpenbart hvis vi alle bruker samme navn, så blir data forvirret! Beklager bindestrekene i denne tabellen-å sette inn mellomrom mister formateringen i tabellen. Toolbox-objekt ------- Tekst ----------- ------------------------------ NotesLabel1 ------------------ Picaxe CommunicationsLabel2 ------------------ FTP StatusLabel3 ------------------ StatusLabel4 ---------- -------- Picaxe RegistersLabel5 ------------------ Register 0-13Label6 ------------------ Verdi 0-255Label7 ------------------ FTP-lenke filnavnTextbox1 ---------------- 0 -------- -------------------------------------- 0 er et null, ikke en OTextbox2 ----- ----------- 0Tekstboks3 ---------------- Myfilnavn --------------------- ---------- Endre så ingen sammenstøt! Knapp1 ------------------ EndreRichtextbox1 Picturebox1 Picturebox2 Timer1

Trinn 8: Legg til litt kode

Se trinn 12 i den andre instruksen for plasseringen av knappen som blar mellom skjermvisning og kodevisning. Bytt til kodevisning og lim inn følgende kode. Fargene skal alle dukke opp igjen som på skjermbildet. Hvis en linje ikke er kopiert ordentlig på grunn av et wordwrap -problem, må du slette mellomrom til feilmeldingen forsvinner. Jeg har prøvd å kommentere de fleste linjene, så koden gir i det minste mening. Slett den offentlige klassen, slik at teksten er tom før du limer inn denne - denne koden har allerede en offentlig klasse. Hvis et objekt som en tekstboks ikke har blitt plassert på skjemaet eller har feil navn, vil det komme opp i tekstkoden med en blå blå linje under det. Import System. IOImports Strings = Microsoft. VisualBasic 'så kan bruke ting som venstre (og høyre) As Byte 'registrerer b0 til b13 Dim ModifyFlag As Boolean Private Sub Form1_Load (ByVal sender As Object, ByVal e As System. EventArgs) Handles Me. Load' need all this rubbish stuff -.net setter det inn automatisk når go form1events over/load Timer1. Enabled = True 'sett dette i koden som standard til false når det opprettes Timer1. Interval = 20000' hvert 20. sekund PictureBox1. BackColor = Color. Gray 'start med kommeboksene grå PictureBox2. BackColor = Color. Gray ModifyFlag = False' hvis du endrer en verdi manuelt så s kip download RichTextBox1. Multiline = True 'så kan vise mer enn én linje Call DisplayPicaxeRegisters ()' vise de 14 registrene Call ReadFTPFilename () 'lese filnavnet fra disken (lagres hvert 20. sekund) End Sub Sub SerialTxRx () Dim DataPacket (0 til 17) As Byte 'hele datapakken "Data" +14 byte Dim i As Integer' i er alltid nyttig for sløyfer osv. For i = 0 Til 3 DataPacket (i) = Asc (Mid ("Data", i + 1, 1)) 'legg til ordet "Data" i pakken Next For i = 0 To 13 DataPacket (i + 4) = PicaxeRegisters (i)' legg til alle byte i pakken Next If serialPort. IsOpen Then serialPort. Close () 'bare i tilfelle allerede åpnet Slutt hvis du prøver med serialPort. PortName = "COM1"' De fleste nye datamaskiner er standard på com1, men alle datamaskiner fra før 1999 med en seriell mus vil sannsynligvis være standard com2. BaudRate = 2400 '2400 er maks. hastighet for små pikser. Parity = IO. Ports. Parity. None 'no parity. DataBits = 8' 8 bits. StopBits = IO. Ports. StopBits. One 'one stop bit. ReadTimeout = 1000' millisekon ds timeout på 1 sekund hvis det ikke er noe svar. Åpne () 'åpne seriell port. DiscardInBuffer ()' tøm inndatabufferen. Skrive (DataPacket, 0, 18) 'send datapakkeserien Call Sleep (300)' 100 millisekunder minimum for å vente på at data kommer tilbake og mer hvis datastrømmen er lengre. Les (DataPacket, 0, 18) 'les tilbake i datapakkearrayen. Lukk ()' lukk den serielle porten Slutt med For i = 4 til 17 PicaxeRegisters (i - 4) = DataPacket (i) 'flytt den nye datapakken til registermatrisen Neste PictureBox1. BackColor = Color. GreenYellow' working Catch ex As Exception PictureBox1. BackColor = Color. Red 'fungerer ikke Avslutt Slutt Sub Sub FTPUpload (ByVal Filnavn Som String) Dim localFile As String 'sted for lagring av data Dim remoteFile As String' filnavn er store og små bokstaver, dette er veldig viktig Const host As String = "ftp://ftp.0catch.com" 'merk at 0 er en null ikke et tegn O Konst brukernavn As String = "picaxe.0catch.com" Const password As String = "picaxetester" Dim URI As String localFile = Filnavn 'kanskje ikke nødvendig, men hvis du definerer et sted f.eks. C: / mydirectory kan enkelt legge til på denne måten remoteFile = "/" + Filnavn' fil på ftp serverbehov "/" lagt til foran URI = host + remoteFile Prøv Dim ftp som system. Net. FtpWebRequest = CType (System. Net. FtpWebRequest. Create (URI), System. Net. FtpWebRequest) ftp. Credentials = Ny System. Net. NetworkCredential (brukernavn, passord) 'logg inn ftp. KeepAlive = False' blir koble fra en gang gjort ftp. UseBinary = True 'bruk binære komms ftp. Timeout = 9000' timeout etter 9 sekunder - veldig nyttig ettersom ftp noen ganger dør 'timeout (og klokkefrekvensen på 20 sekunder) må kanskje være tregere for oppringte tilkoblinger ftp. Method = System. Net. WebRequestMethods. Ftp. UploadFile 'begynne å sende filen Dim fs As New FileStream (localFile, FileMode. Open)' åpne lokal fil Dim filecontents (fs. Length) As Byte 'les inn i minnet fs. Read (filinnhold, 0, fs. Length) fs. Close () 'lukk filen 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 'endre ruten til grønn for å si fungerte ok Label2. Text = "FTP Connected"' tekst som sier at den er tilkoblet Fange 'kan ikke koble til PictureBox2. BackColor = Color. Red' -boks til rød som ingen tilkobling Label2. Text = "FTP -opplasting mislykkes" 'tekst som sier tilkobling mislyktes Slutt Prøv Slutt Sub Sub FTPDownload (ByVal filnavn som streng) 'nedlastinger remotefile til localfile Dim localFile As String' sted for lagring av data Dim remoteFile As String 'filnavn er store og små bokstaver, dette er veldig viktig Const host As String = "ftp://ftp.0catch.com" Konst brukernavn As String = "picaxe.0catch.com "Const password As String =" picaxetester "Dim URI As String 'localFile =" C: / " + Filename' store i rotkatalogen, men kan endre dette localFile = Filename 'så kan legge til c: / hvis du trenger å definere faktisk plassering remoteFile = "/" + Filnavn 'lagt til ekstern ftp -plassering URI = host + remoteFile' make up full adresse Prøv Dim ftp As System. Net. FtpWebRequest = CType (System. Net. FtpWebRequest. Create (URI), System. Net. FtpWebRequest) ftp. Credentials = Ny System. Net. NetworkCredential (brukernavn, passord) 'logg inn ftp. KeepAlive = False 'kobles fra etter ferdig ftp. UseBinary = True' binær modus ftp. Timeout = 9000 'timeout etter 9 sekunder ftp. Method = System. Net. WebRequestMethods. Ftp. DownloadFile' last ned en fil 'lest i stykker som vet ikke hvor stor filen er Å bruke response As System. Net. FtpWebResponse = CType (ftp. GetResponse, System. Net. FtpWebResponse) Bruke responseStream Som IO. Stream = response. GetResponseStream Bruke fs Som Ny 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)' og skrive til fil Loop Inntil read = 0 'til ingen flere stykker responseStream. Close ()' lukk ftp -filen fs. Flush () 'flush clear fs. Close ()' og lukk th e fil Slutt å bruke responseStream. Close () 'lukk den selv om ingenting var der Slutt å bruke response. Close () PictureBox2. BackColor = Color. GreenYellow' grønn boks som den virket Label2. Text = "FTP Connected" 'og tekst som sier det fungerte Slutt å bruke Catch 'legg feilkoder her PictureBox2. BackColor = Color. Red' rød boks ettersom den ikke fungerte Label2. Text = "FTP -nedlasting mislyktes" 'og melding om å si dette Slutt Prøv Avslutt Sub Private Sub Timer1_Tick (ByVal sender As System. Object, ByVal e As System. EventArgs) Håndterer Timer1. Tick If ModifyFlag = False Da 'hvis brukeren endret en byte, ikke last ned Label3. Text = "Last ned" System. Windows. Forms. Application. DoEvents () 'så ny etiketttekst viser Call FTPDownload (TextBox3. Text)' last ned ekstern fil Label3. Text = "Nedlastet" System. Windows. Forms. Application. DoEvents () Call ReadRemoteFileToRegisters () 'lagre filnumre til registermatrisen Label3. Text = "Talking to picaxe" System. Windows. Forms. Application. DoEvents () Else ModifyFlag = False 'reset flagget Avslutt hvis Call SerialTxRx () 'send til picaxe og les den tilbake Label3. Text = "Sendt og mottatt fra picaxe" System. Windows. Forms. Application. DoEvents () Call DisplayPicaxeRegisters () Call SaveRegistersToLocalFile ()' lagre tall til fil Label3. Text = "Laster opp" System. Windows. Forms. Application. DoEvents () Call FTPUpload (TextBox3. Text) 'send back up to ftp site named as my name Label3. Text = "Resting" Call SaveFTPFilename ()' så står det 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 text box For i = 0 To 13 registernumber = Trim (Str (i)) 'trim off leading spaces If i <10 Then registernumber = "0" + registernumber' add 0 to numbers under 10 End If RichTextBox1. AppendText (registernumber + "=" + Str (PicaxeRegisters (i)) + Chr (13)) Neste 'chr (13) er vognretur, så ny linje 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) Hvis i <0 Eller i> 255 Da endrer TextBox2. Text = 0 End If PicaxeRegisters (Val (TextBox1. Text)) = Val (TextBox2. Text) 'endre verdien Call DisplayPicaxeRegisters ()' og oppdatere skjermen ModifyFlag = True 'og neste ftp -lenke hoppe over nedlasting End Sub Sub SaveRegistersToLocalFile ()' lagre registermatrise i en lokal tekstfil Dim i As Integer FileOpen (1, TextBox3. Text, OpenMode. Output) 'åpne tekstfilen som heter i tekstboksen For i = 0 Til 13 PrintLine (1, Str (PicaxeRegisters (i))) 'lagre 14 verdier Neste FileClose (1)' lukk filen End Sub Sub ReadRemoteFileToRegisters () 'les lokal tekstfil i registermatrisen Dim i As Integer Dim LineOfText As String Try FileOpen (1, TextBox3. Text, OpenMode. Input) 'read the remote file name For i = 0 To 13 LineOfText = LineInput (1)' read in the 14 lin es PicaxeRegisters (i) = Val (LineOfText) 'konvertere tekst til verdier Neste FileClose (1) Catch ex As Exception FileClose (1)' filen eksisterer ikke, så ingenting Slutt Prøv End Sub Sub ReadFTPFilename () 'så navnet på den eksterne ftp -filen er den samme neste gang dette programmet kjøres Dim LineOfText As String Prøv FileOpen (1, "FTPFilename.txt", OpenMode. Input) 'åpne filen LineOfText = LineInput (1) TextBox3. Text = LineOfText' les den navn FileClose (1) Catch ex As Exception FileClose (1) End Try End Sub Sub SaveFTPFilename () FileOpen (1, "FTPFilename.txt", OpenMode. Output) 'lagre det eksterne ftp -filnavnet PrintLine (1, TextBox3. Text) FileClose (1) End SubEnd Class

Trinn 9: Kjør programmet på begge PCene

Start å kjøre programmet ved å klikke på den grønne trekanten øverst i midten av skjermen - knappen "Start feilsøking". Ingenting vil skje i 20 sekunder, og deretter vil programmet prøve å koble til ftp -serveren og prøve å koble til picaxe. Bildeboksene blir enten røde eller grønne. FTP -plasseringen er et gratis nettsted, og alle kan bruke dette, men du må bruke et annet ftp -fungerende filnavn (mitt er DoctorAcula1) ellers kan vi alle ende opp med hverandres data hvis vi bruker det samme filnavnet! Hvis du vil kan du til slutt få ditt eget ftp -nettsted - bare endre ftp -plassering, brukernavn og passord på to steder i koden fra 0Catch -nettstedet mitt. De fleste nettsteder tillater ftp. Flere datamaskiner kan få tilgang til den samme ftp -filen - ftp -filserveren sorterer ut i hvilken rekkefølge disse skjer. Noen ganger er det datakollisjoner eller henger, og disse ser ut til å skje hver 20. fil som leses. Det er en timeout i koden hvis dette skjer, så det returnerer ingen data i stedet for ødelagte data. Bruk av en bredbåndstilkobling med en opplastningshastighet på 128 kbs betyr at en filopplasting tar omtrent 3 sekunder, men noen ganger opptil 8 sekunder, hvorav de fleste blir tatt opp i håndtrykk i stedet for dataoverføring. Dette angir timer1 -tiden på minimum 20 sekunder med tanke på nedlasting, opplasting og chat med picaxe. Med veldig raskt bredbånd kan du kanskje forkorte syklustiden. Du kan endre et register manuelt i VB -programmet. Hvis du gjør det, hopper den neste timersyklusen over nedlasting fra ftp -siden og sender de nye dataene til picaxen og leser den deretter tilbake og laster den opp. De nye dataene finner dermed veien til alle picaxes knyttet til denne gruppen. Dette er nyttig for feilsøking og/eller for å koble PC -programvare til mikrokontrollerens maskinvaresløyfe. Nettsteder kan også få tilgang til maskinvaresløyfen ved hjelp av PERL -skript eller lignende for å skrive en ny fil til ftp -nettstedet. Dette skjermbildet ble tatt med Tx -brikken, bryteren var på og registret b0 = to 1 var blitt sendt til Rx -brikken som hadde da endret register b1 til 1 også. Lysdioden var dermed tent på begge brettene. Dette er en triviell applikasjon, men det er lett å slå på en 3,6Kw pumpe i stedet for en LED. Noen flere ideer er på https://drvernacula.topcities.com/ inkludert å koble picaxer via soldrevne radiokoblinger. Med radiokoblinger pluss internett er det mulig for 'The Machines' å nå ut til mange verdenshjørner. Det er noen ideer rundt på picaxe -forumet om å ta denne ideen videre og erstatte PC- og ftp -siden med dedikerte webserverbrikker som kobles rett til en ruter. Dette vil klart redusere strømforbruket til en lenke. Hvis du er interessert i ytterligere diskusjoner, vennligst legg ut på Intstructable -kommentarene og/eller på picaxe -forumet. Dr James MoxhamAdelaide, Sør -Australia

Trinn 10: Skjermbilder av kode

På forespørsel, her er en serie skjermbilder av vb.net -koden med all formatering på plass. Denne koden ble faktisk kopiert tilbake av denne instruerbare og formateringen dukket opp igjen automatisk. Det ville være bedre å kopiere og lime inn teksten enn å prøve å lese disse bildene, men disse vil være nyttige hvis du er på en internettkafé og ikke kan installere vb.net.

Trinn 11: Skjermbilde2

Skjermbilde 2

Trinn 12: Skjermbilde 3

Skjermbilde 3

Trinn 13: Skjermbilde 4

Skjermbilde 4

Trinn 14: Skjermbilde 5

Skjermbilde 5

Trinn 15: Skjermbilde 6

Skjermbilde 6