Maailmanlaajuinen mikrokontrollerilinkki alle 20 dollaria: 15 askelta

2024 Kirjoittaja: John Day | [email protected]. Viimeksi muokattu: 2024-01-30 09:04

Hallitse kodin termostaattia töistä. Käynnistä sprinkleri mistä päin maailmaa tahansa napsauttamalla kytkintä. Tämä opas näyttää kuinka yhdistää kaksi tai useampia 4 dollarin mikro -ohjaimia Internetin rungon ja yksinkertaisen VB. Net -koodin avulla. Tämä perustuu aiempaan Instructable -ohjelmaan, joka osoittaa, kuinka mikro -ohjain liitetään tietokoneeseen ja potin avulla voidaan ohjata servoa https://www.instructables.com/id/Control-real-world-devices-with-your-PC/ Tällä kertaa mikrokontrolleri puhuu VB. Net-ohjelmalle ja sitten ftp-verkkosivustolle, takaisin toiselle VB. Netille ohjelmaa ja sieltä toinen mikro -ohjain kaikkialla maailmassa, ihmisen väliintulolla tai ilman. Miten muuten Matrixin koneiden pitäisi koskaan ottaa valtaa, jos ne eivät voi puhua keskenään?

Vaihe 1: Kerää osat

Monet osat ovat samat kuin PC Control Instructable -ohjelmassa https://www.instructables.com/id/Control-real-world-devices-with-your-PC/, ja ehdotetaan, että tämä on suoritettu loppuun ennen kuin yrität yhdistää kaksi mikro -ohjainta. Vaikka on täysin mahdollista käyttää kattilaa servon ohjaamiseen, tällä kertaa aiomme etsiä jotain yksinkertaisempaa - kytkin, joka kytkee ledin päälle. Kytkin voisi helposti olla säiliön tason anturi ja ledi voisi olla pumppu alas lähellä jokea, mutta aloitetaan ensin jokin yksinkertainen toiminta. ed.co.uk/picaxe/ (Iso -Britannia), PH Anderson https://www.phanderson.com/ (USA) ja Microzed https://www.microzed.com.au/ (Australia). Nämä pelimerkit ovat alle 4 dollaria. Kaksi seuraavista: Protoboard, 9 V: n akku ja akun kiinnikkeet, 10 k: n vastus, 22 k: n vastus, 33 uF 16 V: n kondensaattori, 0,1 UF: n kondensaattori, 7805 L pienitehoinen 5 V: n säädin, johdot (kiinteäydinpuhelin/datakaapeli, esim. Cat5/6), LED, 1 k: n vastus. 1 of: D9 -naarasliitin ja kansi sekä 2 metriä 3 (tai 4) ydindatajohtoa (ladattavaksi) ja vaihtokytkin. 2 tietokonetta, joissa on 9 -nastainen sarjaportti (voidaan korjata yhdellä tietokoneella) ja Internet -yhteys. Tietokoneissa, joissa ei ole sarjaporttia, USB-sarjalaite https://www.rev-ed.co.uk/docs/axe027.pdf ja pieni stereoliitäntä.

Vaihe 2: Lataa ja asenna joitakin ohjelmistoja

Tarvitsemme ilmaisen VB. Net- ja picaxe -ohjainohjelmiston, ja jos olet tehnyt PC -ohjaimen Instructable -ohjelmiston, sinulla on jo nämä. VB. Net (Visual Basic Express) on saatavana osoitteesta https://msdn2.microsoft.com/en pic tai jotain. Minusta oli todella hyödyllistä antaa oikea sähköpostini, kun he lähettävät satunnaisia päivityksiä. Mainitsen myös picaxe -foorumin https://www.picaxeforum.co.uk/, koska tämä on sellainen foorumi, jossa on opettajia ja opettajia ja jossa opiskelijat voivat yleensä saada vastauksia kysymyksiin muutaman tunnin sisällä. Foorumi ymmärtää hyvin yksinkertaisimmatkin kysymykset, sillä osa oppilaista on vielä ala -asteella. Älä pelkää pyytää apua!

Vaihe 3: Luo latauspiiri

Tämä latauspiiri käyttää picaxe -sirua, pari vastusta, säädintä ja 9 V: n akkua. Lisätietoja on pikakuvakkeessa/ohjeessa, joka tulee ohjelman ohjevalikkoon. Piirin rakentaminen kestää vain muutaman minuutin, kun kaikki osat ovat käsillä. Kun siru on ohjelmoitu, se säilyttää ohjelmansa EEPROMissa, vaikka virta katkaistaan. Koska ohjelmoimme kahta pelimerkkiä, saattaa olla syytä merkitä sirut, jotta tiedät mikä on mikä. Voit aina palata ja ohjelmoida sirun uudelleen poistamalla linkin ja siirtämällä vastusta.

Voisin myös lisätä, että picaxit toimivat onnellisesti 3 AA -paristolla. 5 V: n säädetty syöttö on hyödyllinen analogisten tulojen käyttämisessä, koska vertailujännitteet eivät muutu, mutta yksinkertaisissa on/off -piireissä ei tarvita säädeltyä syöttöä. Näissä tilanteissa 5V: n säädin voidaan jättää pois.

Vaihe 4: Ohjelmoi sirut

Kutsumme yhtä ohjelmaa Tx ja yksi Rx. Tx on ohjaava siru ja siinä on kytkin ja led. Rx: ssä on myös led. Kun kytkin vaihtaa, signaali siirtyy Tx: stä Rx: ään, vaihtaa ledin ja myös toisen muuttujan, joka sitten palaa Tx: ään. Joten pyyhkäise kytkintä ja alle minuutissa ledi muuttuu molemmissa piireissä, mikä osoittaa, että viesti saapui ja Rx vaikuttaa uuteen kytkimen asentoon. Yksinkertaisimmalla tasolla pikakuvassa on 14 yksitavuista rekisteriä. Kun virtuaalinen verkko luodaan, linkitämme kaikki nämä rekisterit yhteen, joten jos tavu muuttuu yhdessä pikakuvassa, se muuttuu kaikissa pikakkeissa. On selvää, että jos kaksi pikaketta yrittää muuttaa samaa tavua, siitä tulee hyvin hämmentävää, mutta jos jokainen pikakuva muuttaa vain yhden tavun, kaikki muut pikakuvat näkevät muutoksen ja voivat toimia sen mukaan. Yksinkertaisia viestejä voidaan välittää edestakaisin, jos tiettyä tavua muuttaa vain yksi pikakuva. Potti voi muuttaa rekisterin arvon ja yksi tai useampi muu pikakuva voi havaita sen muuttavan ja siirtää servoa tai mitä tahansa ja käynnistää lämmittimen. Toinen rekisteri voisi lähettää takaisin huoneen lämpötilan. Kopioi ja liitä ohjelmat vuorostaan picaxe -ohjelmoijaan ja lataa ne kullekin vastaavalle sirulle käyttämällä picaxe -ohjelmointilaitteen sinistä latausnuolta. Tx: main: serin 3, N2400, ("Data"), b0, b1, b2, b3, b4, b5, b6, b7, b8, b9, b10, b11, b12, b13 'hanki paketti tietokoneelta, jos pin2 = 0 sitten 'testaa kytkintä ja aseta rekisteri b0 tilan mukaan b0 = 0 muu b0 = 1 endif jos b1 = 0 sitten' muut pikasarjat b1 riippuen b0 matalasta 1 'johti pois muu korkea 1' led endif serout 0, N2400, ("Data", b0, b1, b2, b3, b4, b5, b6, b7, b8, b9, b10, b11, b12, b13) 'lähetä takaisin tietokoneeseen goto mainand Rx: main: serin 3, N2400, ("Data"), b0, b1, b2, b3, b4, b5, b6, b7, b8, b9, b10, b11, b12, b13 'hanki paketti tietokoneelta b1 = b0' muuta rekisteriä b1 yhtä suureksi rekisteriksi b0, jos b1 = 0 sitten matala 1 'johti pois, muu korkea 1' johti endif -sarjassa 0, N2400, ("Data", b0, b1, b2, b3, b4, b5, b6, b7, b8, b9, b10, b11, b12, b13) 'Lähetä takaisin tietokoneelle goto main

Vaihe 5: Rakenna Tx -piiri

Jos selaat edestakaisin työskentelypiirin ja ohjelmointipiirin välillä, muista vaihtaa jalan 2 liitäntä ja 22k: n vastuksen sijainti jalasta 2 toiseen. Tai voit rakentaa erillisen latauspiirin ja siirtää siruja poikki. Huomaa vain, onko piiri käynnissä vai ladattavissa, koska se voi olla melko hämmentävää. Huomaa erityisesti, että juoksupiiri ei toimi, jos jalka 2 jätetään kellumaan - se on maadoitettava. Jalka 2 on latausnasta, ja jos se jätetään kellumaan, se poimii harhaisen RF: n flouro -valoista ja siru luulee, että toinen ohjelma ladataan.

On myös syytä mainita pikanimikkeistö, joka kutsuu fyysistä tappia jaloksi ja virtuaalista tappia tapiksi. Näin ollen koodin nastan 2 lähtö on itse asiassa ulostulo fyysisellä jalalla 5. Tämä saattaa tuntua oudolta, mutta se tarkoittaa, että koodi voidaan siirtää suurempiin pikakuviin, kuten 28- ja 40 -nastaisiin versioihin, ja ne toimivat edelleen.

Vaihe 6: Rakenna Rx -piiri

Tämä piiri on melkein sama kuin lähetin - siinä ei vain ole kytkintä.

Vaihe 7: Kirjoita jokin VB. Net -koodi

Olisin voinut koota koodin ja saattaa tämän ohjelman saataville kootuna.exe -tiedostona, mutta joidenkin VB. Netin oppiminen on niin uskomattoman hyödyllistä, että kannattaa käydä se läpi vaihe vaiheelta. Jos käytät tätä kahta eri tietokonetta, voit rakentaa ohjelman.exe -tiedostoksi, joka luo pienen asennusohjelman, joka voidaan asentaa toiseen tietokoneeseen. Tai voit laittaa VB. Netin molempiin tietokoneisiin ja suorittaa ohjelmat VB: stä. Oletetaan, että tiedät, kuinka voit avata uuden VB.net -projektin vaiheiden 7 ja 8 mukaisesti osoitteessa /Tyhjälle lomakkeelle lisätään työkalupalkista seuraavat komponentit ja laitetaan ne lomakkeeseen kuvan osoittamiin paikkoihin. Muuta tarrojen ja tekstiruutujen tekstiominaisuus (oikeassa alakulmassa) tarvittavaksi. Älä huolehdi ajastimen asetuksista - muutamme ne koodiin, mutta varmista, että asetat ajastimen sisään. Voit siirtää asioita ympäri, eikä sijaintia koskevia todellisia sääntöjä ole. Suuri tekstiruutu on RichTextBox ja pienemmät kolme ovat tavallisia tekstiruutuja. Järjestyksen kannalta aloitamme lomakkeen yläosasta ja siirrymme alaspäin. Jos jätät jotain pois, koodissa on virhe, jonka pitäisi antaa jonkinlainen vihje. Valitse satunnainen tiedostonimi Textbox3: lle - tämä on ainutlaatuisen pikseriryhmäsi nimi ftp -palvelimella ja tietenkin, jos käytämme sama nimi, niin tiedot menevät sekaisin! Pahoittelut tämän taulukon viivoista-välilyönnit menettävät taulukon muotoilun. ------------------------------ HuomautuksiaLabel1 ------------------ Picaxe CommunicationsLabel2 ------------------ FTP StatusLabel3 ------------------ StatusLabel4 ---------- -------- Picaxe-rekisteritLabel5 ------------------ Rekisteröidy 0-13Label6 ------------------ Arvo 0-255 Merkki 7 ------------------ FTP-linkin tiedostonimi Tekstilaatikko1 ---------------- 0 -------- -------------------------------------- 0 on nolla eikä OTextbox2 ----- ----------- 0Textbox3 ---------------- Oma tiedostonimi --------------------- ---------- Muuta niin ettei törmää! Button1 ------------------ ModifyRichtextbox1 Picturebox1 Picturebox2 Timer1

Vaihe 8: Lisää koodi

Katso toisen ohjeen vaihe 12 lomakenäkymän ja koodinäkymän välillä kääntyvän painikkeen sijainnista. Vaihda koodinäkymään ja liitä seuraava koodi sisään. Värien pitäisi näkyä uudelleen kuten kuvakaappauksessa. Jos riviä ei ole kopioitu oikein sanakääreongelman vuoksi, poista välilyöntejä, kunnes virhesanoma katoaa. Olen yrittänyt kommentoida suurinta osaa riveistä, joten koodissa on ainakin jotain järkeä. Poista julkisen luokan bitti, jotta teksti on tyhjä ennen tämän liittämistä - tällä koodilla on jo julkinen luokka. Jos objektia, kuten tekstikenttää, ei ole sijoitettu lomakkeeseen tai sillä on väärä nimi, se tulee tekstikoodiin, jonka alla on kimaltava sininen viiva. Imports System. IOImports Strings = Microsoft. VisualBasic ', joten asioita, kuten vasen (ja oikea (merkkijonoille Public Class Form1 Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Integer) 'nukkumislausunnoille Dim WithEvents serialPort As New IO. Ports. SerialPort' sarjaportti ilmoittaa Dim PicaxeRegisters (0-13) As Byte 'rekisteröi b0 - b13 Dim ModifyFlag As Boolean Private Sub Form1_Load (ByVal -lähettäjä objektina, ByVal e As System. EventArgs) Käsittelee minua. Timer1. Enabled = True 'laita tämä koodi oletusarvoksi epätosi, kun se on luotu. jos muutat arvoa manuaalisesti, s kip download RichTextBox1. Multiline = True ', joten voi näyttää useamman kuin yhden rivin Call DisplayPicaxeRegisters ()' näyttää 14 rekisteriä Call ReadFTPFilename () 'lukee tiedostonimen levyltä (tallennettu 20 sekunnin välein) End Sub Sub SerialTxRx () Dim DataPacket (0 - 17) Tavuina 'koko datapaketti "Data" +14 tavua Dim i Kuten kokonaisluku "i on aina hyödyllinen silmukoille jne. I = 0-3 DataPacket (i) = Asc (Mid (" Data ", i + 1), 1)) 'lisää sana "Data" pakettiin Seuraava For i = 0 To 13 DataPacket (i + 4) = PicaxeRegisters (i)' lisää kaikki tavut pakettiin Seuraava If serialPort. IsOpen Sitten serialPort. Close () 'vain siinä tapauksessa, että se on jo avattu Lopeta Jos yrität serialPortilla. pienet pikakuvat. Parity = IO. Ports. Parity. None 'ei pariteettia. DataBits = 8' 8 bittiä. StopBits = IO. Ports. StopBits. One 'one stop bit. ReadTimeout = 1000' millisekuntia ds niin aikakatkaistaan 1 sekunnissa, jos vastausta ei ole. Open () 'avaa sarjaportti. vähintään odottamaan datan paluuta ja enemmän, jos tietovirta on pidempi. Lue (DataPacket, 0, 18) 'lue takaisin datapakettimatriisista. Sulje ()' sulje sarjaportti (i - 4) = DataPacket (i) 'siirtää uuden datapaketin rekisteriryhmään Seuraava PictureBox1. BackColor = Color. GreenYellow' toimiva Catch ex Poikkeuksena PictureBox1. BackColor = Color. Red 'ei toimi Lopeta Yritä Lopeta Sub Sub FTPUpload (ByVal -tiedostonimi merkkijonona) Dim localFile As String 'paikka tietojen tallentamiseen Dim remoteFile As String' tiedostonimi erottaa isot ja pienet kirjaimet, tämä on todella tärkeää Const host As String = "ftp://ftp.0catch.com" 'Huomaa, että 0 on nolla ei merkki O Const käyttäjänimi As String = "picaxe.0catch.com" Const salasana As String = "picaxetester" Dim URI merkkijonona localFile = Tiedostonimi 'ei ehkä välttämätön, mutta jos määrität sijainnin, esim. C: / oma hakemisto voi lisätä helposti tällä tavalla remoteFile = "/" + Tiedostonimi' tiedosto ftp -palvelimella tarvitsee "/" lisätään eteen URI = isäntä + etätiedosto Kokeile Dim ftp As System. Net. FtpWebRequest = CType (System. Net. FtpWebRequest. Create (URI), System. Net. FtpWebRequest) ftp. Credentials = New System. Net. NetworkCredential (käyttäjätunnus, salasana) 'kirjaudu sisään ftp. KeepAlive = False' yhteyden katkaiseminen, kun ftp. UseBinary = True 'käytä binäärikommentteja ftp. Timeout = 9000' aikakatkaisu 9 sekunnin kuluttua - erittäin hyödyllistä, koska ftp joskus kuolee (ja kellotaajuus 20 sekuntia) saattaa olla tarpeen hitaammin puhelinverkkoyhteyksissä ftp. Method = System. Net. WebRequestMethods. Ftp. UploadFile 'aloittaa tiedoston lähetyksen Dim fs As New FileStream (localFile, FileMode. Open)' avaa paikallinen tiedosto Dim filecontents (fs. Length) As Byte 'lukee muistiin fs. Read (filecontents, 0, fs. Length) fs. Close () 'sulje tiedosto Dim requestStream As Stream = ftp. GetRequestStream ()' aloita ftp -linkkipyyntöSt ream. Write (filecontents, 0, filecontents. Length) 'lähetä se requestStream. Close ()' sulje linkki PictureBox2. BackColor = Color. GreenYellow 'vaihda ruutu vihreäksi ja sano että toimi hyvin Label2. Text = "FTP Connected"' teksti sanomalla, että se on kytketty Saalis 'ei voi yhdistää PictureBox2. BackColor = Väri. Punainen' -ruutua punaiseksi, koska yhteyttä ei ole Label2. Text = "FTP -latausvirhe" 'teksti, jossa sanotaan, että yhteys epäonnistui Lopeta Kokeile Lopeta alaosa FTPDownload (ByVal -tiedostonimi merkkijonona) "lataa etätiedoston localfile -tiedostoon Dim localFile As String" tietojen tallennuspaikka Dim remoteFile As String -tiedostonimessä isot ja pienet kirjaimet erottavat tämän, se on todella tärkeää Const -isäntä As String = "ftp://ftp.0catch.com" Const -käyttäjänimi As String = "picaxe.0catch.com "Const password As String =" picaxetester "Dim URI As String 'localFile =" C: / " + Filename' tallentaa juurihakemistoon, mutta voi muuttaa tätä localFile = Filename ', joten voi lisätä c: / jos on tarpeen määrittää todellinen sijainti remoteFile = "/" + Tiedostonimi 'lisätty etä ftp -sijaintiin URI = host + remoteFile' make up koko osoite Kokeile Dim ftp As System. Net. FtpWebRequest = CType (System. Net. FtpWebRequest. Create (URI), System. Net. FtpWebRequest) ftp. Credentials = New System. Net. NetworkCredential (käyttäjätunnus, salasana) 'kirjaudu sisään ftp. KeepAlive = False 'katkeaa, kun ftp on valmis. UseBinary = True' binääritila ftp. Timeout = 9000 'aikakatkaisu 9 sekunnin jälkeen ftp. Method = System. Net. WebRequestMethods. Ftp. DownloadFile' lataa tiedosto ', joka lukee palasina en tiedä kuinka suuri tiedosto on Response As System. Net. FtpWebResponse = CType (ftp. GetResponse, System. Net. FtpWebResponse) ResponseStreamin käyttäminen IO. Stream = response. GetResponseStream Käyttämällä fs New IO. FileStream (localFile, IO. FileMode. Create) Dim -puskuri (2047) Byte Dim -lukuna kokonaislukuna = 0 Do read = responseStream. Read (puskuri, 0, puskuri. Pituus) 'pala ftp fs. Write (puskuri, 0, luku)' ja kirjoita tiedostoon Silmukka kunnes luku = 0 ', kunnes vastauksia ei enää oleStream. Close ()' sulje ftp -tiedosto fs. Flush () 'flush clear fs. Close ()' ja sulje th e tiedosto Lopeta vastauksenStream. Close () 'sulkeminen, vaikka mitään ei olisikaan Lopeta vastaus. Close () PictureBox2. BackColor = Color. GreenYellow' vihreä laatikko, koska se toimi Label2. Text = "FTP Connected" "ja teksti sanomalla sen työskenteli Loppu käyttämällä saaliita 'laita virhekoodit tähän PictureBox2. BackColor = Color. Red' punainen laatikko, koska se ei toiminut Kuten System. Object, ByVal e kuin System. EventArgs) käsittelee ajastinta1. Tick If ModifyFlag = False then 'jos käyttäjä muutti tavua, älä lataa Label3. Text = "Downloading" System. Windows. Forms. Application. DoEvents () "niin uusi tarrateksti näyttää Soita FTPDownload (TextBox3. Text)" lataa etätiedosto Label3. Text = "Ladattu" System. Windows. Forms. Application. DoEvents () Soita ReadRemoteFileToRegisters () "tallentaa tiedostonumerot rekisteriryhmään Label3. Text = "Puhuminen pikakuvalle" System. Windows. Forms. Application. DoEvents () Else ModifyFlag = False 'nollaa lippu Lopeta, jos puhelu SerialTxRx () 'lähettää pikakuvakkeelle ja lukee sen takaisin Label3. Text = "Uploading" System. Windows. Forms. Application. DoEvents () Soita FTPUpload (TextBox3. Text) 'lähetä takaisin ftp -sivustolle nimeltäni Label3. Text = "Lepo" Soita SaveFTPFilename ()' lukee sisään kun uudelleenkäynnistetään Lopeta Sub Sub DisplayPicaxeRegisters () Dim i kokonaislukuna Dim rekisterinumero merkkijonona RichTextBox1. Multiline = True ', joten voi näyttää useamman rivin RichTextBox1. Clear () -tekstikentässä rekisterinumero = Leikkaa (Str (i)) 'leikkaa pois välilyönnit Jos i <10 Sitten rekisterinumero = "0" + rekisterinumero' lisää 0 alle 10: n numeroihin Lopeta Jos RichTextBox1. AppendText (rekisterinumero + "=" + Str (PicaxeRegisters (i))) + Chr (13)) Seuraava 'chr (13) on vaunun palautus, joten uusi rivi Lopeta Sub Private Sub Button1_Click (ByVal -lähettäjä Kuten System. Object, ByVal e As System. EventArgs) Handles Button 1. Napsauta Dim i As Integer 'tarkista alue ensin i = Val (TextBox1. Text) Jos i <0 tai i> 13 Sitten TextBox1. Text = 0 End If i = Val (TextBox2. Text) Jos i <0 tai i> 255 Sitten TextBox2. Text = 0 End If PicaxeRegisters (Val (TextBox1. Text)) = Val (TextBox2. Text) 'muuta arvoa Call DisplayPicaxeRegisters ()' ja päivitä näyttö tekstiruudussa i = 0 To 13 PrintLine (1, Str (PicaxeRegisters (i))) 'save 14 values Next FileClose (1)' sulje tiedosto End Sub Sub ReadRemoteFileToRegisters () 'lukee paikallisen tekstitiedoston rekisteritaulukkoon Dim i kokonaislukuna Dim LineOfText merkkijonoina es PicaxeRegisters (i) = Val (LineOfText) 'muuntaa tekstin arvoiksi Seuraava FileClose (1) Catch ex Exception FileClose (1)' -tiedostoa ei ole olemassa, joten älä tee mitään Lopeta Yritä Lopeta Sub Sub ReadFTPFilename () ', joten etä ftp -tiedosto on sama seuraavan kerran, kun tämä ohjelma suoritetaan Dim LineOfText merkkijonona Kokeile FileOpen (1, "FTPFilename.txt", OpenMode. Input) 'avaa tiedosto LineOfText = LineInput (1) TextBox3. Text = LineOfText' lue nimi FileClose (1) Catch ex Poikkeuksena FileClose (1) End Try End Sub Sub SaveFTPFilename () FileOpen (1, "FTPFilename.txt", OpenMode. Output) 'tallenna ftp -etätiedoston nimi PrintLine (1, TextBox3. Text) FileClose (1) Lopeta alaluokka

Vaihe 9: Suorita ohjelma molemmilla tietokoneilla

Aloita ohjelman suorittaminen napsauttamalla vihreää kolmiota näytön yläreunassa - Aloita virheenkorjaus -painiketta. Mitään ei tapahdu 20 sekuntiin ja sitten ohjelma yrittää muodostaa yhteyden ftp -palvelimeen ja yrittää muodostaa yhteyden pikakiinteistöön. Kuvaruudut muuttuvat punaisiksi tai vihreiksi. FTP -sijainti on ilmainen verkkosivusto, ja kuka tahansa voi käyttää tätä, mutta sinun on käytettävä eri ftp -työtiedostonimeä (minun on DoctorAcula1), muuten voimme kaikki päätyä toistensa tietoihin, jos käytämme samaa tiedostonimeä! Jos haluat, voit lopulta saada oman ftp -sivustosi - muuta vain ftp -sijainti, käyttäjätunnus ja salasana kahdessa paikassa koodissani 0Catch -verkkosivustoltani. Useimmat sivustot sallivat ftp: n. Useat tietokoneet voivat käyttää samaa ftp -tiedostoa - ftp -tiedostopalvelin lajittelee, missä järjestyksessä nämä tapahtuvat. Ajoittain on tietoyhteentörmäyksiä tai jumittuu, ja nämä näyttävät tapahtuvan joka 20 tiedoston lukemisen jälkeen. Jos näin tapahtuu, koodissa on aikakatkaisu, joten se ei palauta tietoja eikä vioittuneita tietoja. Laajakaistayhteyden käyttäminen 128 kb: n lähetysnopeudella tarkoittaa, että tiedoston lataaminen kestää noin 3 sekuntia, mutta joskus jopa 8 sekuntia, joista suurin osa on käytössä kädenpuristuksessa tiedonsiirron sijaan. Tämä asettaa ajastimen1 keston vähintään noin 20 sekunniksi ottaen huomioon lataamisen, lataamisen ja pikaviestinnän. Erittäin nopealla laajakaistalla saatat pystyä lyhentämään jaksoaikaa. Voit muuttaa rekisteriä manuaalisesti VB -ohjelmassa. Jos teet niin, seuraava ajastinjakso ohittaa lataamisen ftp -sivustolta ja lähettää uudet tiedot pikakuvakkeelle ja lukee sen sitten takaisin ja lataa sen. Uudet tiedot löytävät tiensä kaikkiin tähän ryhmään liittyviin pikakuviin. Tästä on apua virheenkorjauksessa ja/tai PC -ohjelmiston linkittämisessä mikro -ohjaimen laitteistosilmukkaan. Verkkosivustot voivat myös käyttää laitteistosilmukkaa käyttämällä PERL -skriptiä tai vastaavaa uuden tiedoston kirjoittamiseen ftp -sivustoon. Tämä kuvakaappaus on otettu Tx -sirulla, kytkin oli päällä ja rekisteri b0 = to 1 oli lähetetty Rx -sirulle oli sitten muuttanut myös rekisterin b1 arvoon 1. LED -valo syttyi siten molemmilla levyillä. Tämä on triviaali sovellus, mutta 3,6 kW: n pumppu on helppo kytkeä päälle ledin sijaan. Lisää ideoita on osoitteessa https://drvernacula.topcities.com/, mukaan lukien pikakuvien linkittäminen aurinkoenergialla toimivien radiolinkkien kautta. Radiolinkkien ja Internetin avulla "The Machines" voi päästä moniin maapallon kulmiin. Picaxe -foorumilla on ideoita viedä tätä ajatusta eteenpäin ja korvata PC- ja ftp -sivusto omilla verkkopalvelinsiruilla, jotka kytketään suoraan reitittimeen. Ilmeisesti tämä vähentäisi linkin virrankulutusta. Jos olet kiinnostunut tulevista keskusteluista, kirjoita Intstructable -kommentteihin ja/tai picaxe -foorumiin. Tohtori James Moxham

Vaihe 10: Kuvakaappauksia koodista

Pyynnöstä tässä on sarja kuvakaappauksia vb.net -koodista ja kaikki muotoilut paikallaan. Tämä koodi kopioitiin takaisin tästä ohjeesta ja muotoilu ilmestyi automaattisesti uudelleen. Olisi parempi kopioida ja liittää teksti kuin yrittää lukea nämä kuvat, mutta niistä on hyötyä, jos olet Internet -kahvilassa etkä voi asentaa vb.net -verkkoa.

Vaihe 11: Kuvakaappaus 2

Kuvakaappaus 2

Vaihe 12: Kuvakaappaus 3

Kuvakaappaus 3

Vaihe 13: Kuvakaappaus 4

Kuvakaappaus 4

Vaihe 14: Kuvakaappaus 5

Kuvakaappaus 5

Vaihe 15: Kuvakaappaus 6

Kuvakaappaus 6