Enllaç de microcontroladors a tot el món per a menys de $ 20: 15 passos

2024 Autora: John Day | [email protected]. Última modificació: 2024-01-30 08:16

Controleu el termòstat de casa des de la feina. Activeu un aspersor des de qualsevol part del món fent clic amb un interruptor. Aquest instructable mostra com enllaçar dos o més microcontroladors de 4 dòlars mitjançant la columna vertebral d’Internet i un codi simple de VB. Net. Es basa en un instructable anterior que mostra com enllaçar un microcontrolador a un PC i utilitzar un pot per controlar un servo https://www.instructables.com/id/Control-real-world-devices-with-your-PC/ Aquesta vegada tenim un microcontrolador que parla amb un programa VB. Net i després amb un lloc web ftp, de tornada a un altre VB. Net programa i des d'allà un segon microcontrolador a qualsevol part del món, amb o sense intervenció humana. Com se suposa que les màquines de The Matrix s’han de fer càrrec si no saben parlar?

Pas 1: reuniu les parts

Moltes de les parts són les mateixes que a l’ordinador de control de PC https://www.instructables.com/id/Control-real-world-devices-with-your-PC/ i es recomana que es completi primer abans d’intentar per enllaçar dos microcontroladors. Tot i que és molt possible utilitzar una olla per controlar un servo, aquesta vegada anem a buscar quelcom més senzill: un interruptor encès d'un led. El commutador podria ser fàcilment un sensor de nivell del tanc i el led podria ser una bomba cap avall a prop d’un riu, però anem a treballar alguna cosa senzill. ed.co.uk/picaxe/ (Regne Unit), PH Anderson https://www.phanderson.com/ (EUA) i Microzed https://www.microzed.com.au/ (Austràlia). Aquests xips tenen menys de 4 dòlars EUA. Dos de: Protoboard, bateria de 9V i clips de bateria, resistència de 10k, resistència de 22k, condensador de 33uF 16V, condensador de 0,1uF, regulador de 5V de baixa potència 7805L, cables (cable de telèfon sòlid / cable de dades per exemple Cat5 / 6), LED, resistència de 1k. 1 de: sòcol i tapa femella D9 i 2 metres de cable de dades de nucli de 3 (o 4) (per descarregar) i un commutador de palanca. 2 ordinadors amb ports sèrie de 9 pins (però es poden depurar en un ordinador) i una connexió a Internet. Per a ordinadors sense port sèrie, un dispositiu USB a sèrie https://www.rev-ed.co.uk/docs/axe027.pdf i un petit sòcol estèreo.

Pas 2: descarregueu i instal·leu alguns programes

Necessitarem el programari VB. Net i el controlador de picaxe gratuïts i, si heu fet el controlador de PC instructable, ja els tindreu. VB. Net (Visual Basic Express) està disponible a https://msdn2.microsoft.com/en -us / express / aa718406.aspx El programari picaxe està disponible a https://www.rev-ed.co.uk/picaxe/ Haureu de registrar-vos a Microsoft per obtenir la descàrrega; si es tracta d’un problema, utilitzeu un correu electrònic fals o alguna cosa. De fet, em va semblar útil donar el meu correu electrònic real, ja que envien actualitzacions ocasionals. També mencionaré el fòrum de picaxe https://www.picaxeforum.co.uk/, ja que és el tipus de fòrum format per professors i educadors. on els estudiants solen obtenir respostes a preguntes en poques hores. El fòrum comprèn molt fins i tot les preguntes més senzilles, ja que alguns estudiants encara estan a l’escola primària. Si us plau, no us espanteu de demanar ajuda.

Pas 3: creeu un circuit de descàrrega

Aquest circuit de descàrrega utilitza un xip picaxe, un parell de resistències, un regulador i una bateria de 9 V. Hi ha més informació disponible a la documentació / ajuda de picaxe que apareix al menú d’ajuda del programa. El circuit només hauria de trigar uns minuts a construir-se un cop totes les parts estiguin a mà. Un cop programat un xip, manté el seu programa a EEPROM fins i tot quan s’apaga l’alimentació. Com que estem programant dos xips, potser val la pena etiquetar-los perquè sàpiga quin és quin. Sempre podeu tornar enrere i reprogramar un xip traient un enllaç i movent una resistència.

També puc afegir que els picaxes funcionen alegrement amb 3 bateries AA. Una font regulada de 5 V és útil per executar entrades analògiques ja que les tensions de referència no canvien, però per als circuits simples d’encès / apagat no es necessita una font regulada. El registre de 5V es pot deixar de banda en aquestes situacions.

Pas 4: programa els xips

Anomenarem un programa Tx i un altre Rx. Tx és el xip de control i té un commutador i un led. Rx també té un led. Quan canvia el commutador, el senyal passa de Tx a Rx, canvia el led i també canvia una segona variable que torna a Tx. Per tant, toqueu l’interruptor i en menys d’un minut el led canvia en ambdós circuits indicant que el missatge ha arribat i el Rx actua sobre la nova posició del commutador. Al nivell més senzill, el picaxe té 14 registres d'un byte. Quan es crea una xarxa virtual, enllacem tots aquests registres, de manera que si un byte canvia en un picaxe, canvia en tots els picaxes. És evident que si dos picaxes intenten canviar el mateix byte, resultarà molt confús, però si cada picaxe només canvia un byte, tots els altres picaxes poden veure aquest canvi i poden actuar-hi. Els missatges simples es poden passar enrere i endavant si un byte determinat només es canvia per un picaxe. Una olla pot canviar el valor d'un registre i un o més picaxes poden percebre que canvien i mouen un servo o qualsevol cosa i activen un escalfador. Un segon registre podria tornar la temperatura a l'habitació. Copieu i enganxeu els programes al seu torn al programador de picaxe i descarregueu-los a cadascun dels xips respectius mitjançant la fletxa de descàrrega blava des del programador de picaxe. Tx: principal: serin 3, N2400, ("Dades"), b0, b1, b2, b3, b4, b5, b6, b7, b8, b9, b10, b11, b12, b13 'obtenir el paquet de l'ordinador si pin2 = 0 llavors "proveu l'interruptor i configureu el registre b0 depenent de l'estat b0 = 0 més b0 = 1 endif si b1 = 0 llavors" altres conjunts de picaxe b1 depenent de b0 baix 1 "apagat en cas contrari 1 alt led" endif serout 0, N2400, ("Dades", b0, b1, b2, b3, b4, b5, b6, b7, b8, b9, b10, b11, b12, b13) "envieu de nou a l'ordinador anar a mainand Rx: principal: serin 3, N2400, ("Dades"), b0, b1, b2, b3, b4, b5, b6, b7, b8, b9, b10, b11, b12, b13 'obtenir el paquet de l'ordinador b1 = b0' canviar el registre b1 al registre igual b0 si b1 = 0 llavors baix 1 'encès fora d'alt 1' encès a endif serout 0, N2400, ("Dades", b0, b1, b2, b3, b4, b5, b6, b7, b8, b9, b10, b11, b12, b13) 'enviar de nou a l'ordinador anar a main

Pas 5: Creeu el circuit Tx

Si canvieu entre un circuit de treball i un de programació, assegureu-vos de canviar la connexió a la pota 2 i la ubicació de la resistència de 22 k de la pota 2 a la pota 4. O bé podeu crear un circuit de descàrrega dedicat i moure els xips a través de. Només cal tenir en compte si s’està executant o descarregant un circuit, ja que pot resultar bastant confús. En particular, tingueu en compte que un circuit en marxa no funcionarà si es deixa la pota 2 flotant; cal posar-la a terra. La pota 2 és el pin de descàrrega i, si es deixa flotant, agafa la RF perduda de les llums fluorescents i el xip creu que es descarrega un altre programa.

També cal esmentar la nomenclatura de picaxe, que anomena un pin físic a una cama i un pin virtual. Per tant, una sortida al pin 2 del codi és en realitat una sortida a la cama física 5. Això pot semblar estrany, però vol dir que el codi es pot portar a picaxes més grans com les versions de 28 i 40 pins i encara funciona.

Pas 6: Creeu el circuit Rx

Aquest circuit és gairebé el mateix que el transmissor, simplement no té commutador.

Pas 7: escriviu alguns codis VB. Net

Podria haver compilat el codi i fer que aquest programa estigués disponible en format.exe compilat, però aprendre una mica de VB. Net és tan increïblement útil que val la pena passar-lo pas a pas. Si esteu executant-lo en dos equips diferents, podeu construir el programa en un fitxer.exe, que crea un petit programa de configuració que es pot instal·lar al segon equip. O bé podeu posar VB. Net als dos equips i executar els programes des de VB. Net Suposem que sabeu com obrir un nou projecte VB.net des dels passos 7 i 8 de https://www.instructables.com/id/S1MMU2XF82EU2GT / Al formulari en blanc afegim els components següents de la barra d'eines i els posem al formulari a les ubicacions tal com es mostra. Per a les etiquetes i els quadres de text, canvieu la propietat del text (a la part inferior dreta) pel que calgui. No us preocupeu per la configuració del temporitzador: els canviarem al codi, però assegureu-vos de posar un temporitzador. Podeu moure les coses i no hi ha regles reals sobre la ubicació. El quadre de text gran és un RichTextBox i els tres més petits són quadres de text normals. Pel que fa a l’ordre, comencem a la part superior del formulari i anem baixant. Si deixeu alguna cosa fora, hi haurà un error al codi que hauria de donar algun tipus de pista. Escolliu un nom de fitxer aleatori per a Textbox3: aquest és el nom del vostre grup únic de picaxes al servidor ftp i, òbviament, si tots fem servir el el mateix nom, doncs, les dades quedaran desordenades. Disculpeu els guions d’aquesta taula: posar espais perd el format de la taula. Objecte Toolbox ------- Text ----------- ------------------------------ NotesLabel1 ------------------ Picaxe CommunicationsLabel2 ------------------ FTP StatusLabel3 ------------------ StatusLabel4 ---------- -------- Picaxe RegistersLabel5 ------------------ Registre 0-13Label6 ------------------ Valor 0-255 Etiqueta7 ------------------ Nom de fitxer d'enllaç FTPTextbox1 ---------------- 0 -------- -------------------------------------- 0 és un zero no un OTextbox2 ----- ----------- 0Textbox3 ---------------- Myfilename --------------------- ---------- Canvia perquè no hi hagi cap enfrontament! Botó1 ------------------ ModificaRichtextbox1 Picturebox1 Picturebox2 Temporitzador1

Pas 8: afegiu una mica de codi

Consulteu el pas 12 de l’altra instrucció per obtenir la ubicació del botó que passa entre la vista de formulari i la vista de codi. Canvieu a la visualització de codi i enganxeu-hi el codi següent. Tots els colors haurien de tornar a aparèixer com a la captura de pantalla. Si una línia no s'ha copiat correctament a causa d'un problema d'ajust de paraules, suprimiu espais fins que el missatge d'error desaparegui. He intentat comentar la majoria de les línies, de manera que el codi té com a mínim sentit. Suprimiu el bit de classe pública perquè el text quedi en blanc abans d'enganxar-lo; aquest codi ja té una classe pública. Si un objecte com un quadre de text no s’ha col·locat al formulari o té un nom incorrecte, apareixerà al codi de text amb una línia blava esquitxada a sota. Importacions System. IOImports Strings = Microsoft. VisualBasic coses com left (and right (for stringsPublic Class Form1 Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Integer)) per a les declaracions de sonoritat With Withvents serialPort Com a nou port serial IO. Ports. SerialPort declaren Dim PicaxeRegisters (0 a 13) Com Byte 'registra de b0 a b13 Dim ModifyFlag com a subformulari privat booleà1_Load (emissor ByVal com a objecte, ByVal i com a System. EventArgs) Handles Me. Load' necessita tot això de les escombraries. Timer1. Enabled = True 'posa això al codi com a valor predeterminat a false quan es crea Timer1. Interval = 20000' cada 20 segons PictureBox1. BackColor = Color. Gray 'comença amb les caixes de comunicacions grises PictureBox2. BackColor = Color. Gray ModifyFlag = False' si modifiqueu un valor manualment, s kip download RichTextBox1. Multiline = True ', per tant, pot mostrar més d'una línia Call DisplayPicaxeRegisters ()' mostra els 14 registres Call ReadFTPFilename () 'llegeix el nom del fitxer del disc (es guarda cada 20 segons) End Sub Sub SerialTxRx () Dim DataPacket () 0 a 17) Com a paquet de dades sencer "Byte '" Data "+14 bytes Dim i Com a enter' i sempre és útil per a bucles, etc Per a = 0 a 3 DataPacket (i) = Asc (Mid (" Data ", i + 1, 1)) 'afegiu la paraula "Dades" al paquet Següent Per a i = 0 a 13 DataPacket (i + 4) = PicaxeRegisters (i) "afegiu tots els bytes al paquet Següent Si serialPort. IsOpen Then serialPort. Close () 'per si ja s'ha obert Finalitza Si intenta amb serialPort. PortName = "COM1"' La majoria dels equips nous tenen per defecte com1, però qualsevol ordinador anterior al 1999 amb un ratolí sèrie probablement serà com2 per defecte. BaudRate = 2400 '2400 és la velocitat màxima picaxes petits. Parity = IO. Ports. Parity. None 'no parity. DataBits = 8' 8 bits. StopBits = IO. Ports. StopBits. One 'bit one stop. ReadTimeout = 1000' milisecon ds so s'espera en 1 segon si no hi ha resposta. Open () "obriu el port sèrie. DiscardInBuffer ()" esborreu la memòria intermèdia d'entrada. Escriviu (DataPacket, 0, 18) "envieu la matriu de paquets de dades Call Sleep (300)" 100 mil·lisegons mínim per esperar que les dades tornin i més si el flux de dades és més llarg. Llegiu (DataPacket, 0, 18) "torneu a llegir a la matriu de paquets de dades. (i - 4) = DataPacket (i) "moure el nou paquet de dades a la matriu de registres. Següent PictureBox1. BackColor = Color. GreenYellow" funcionant Captura ex com a excepció PictureBox1. BackColor = Color. Red "no funciona Finalitza Prova Finalitza Sub Sub FTPUpload (ByVal Filename As String) Atenuar localFile As String 'lloc per emmagatzemar dades Dim fileFile remote As String' distingeix entre majúscules i minúscules, això és realment important Const host As String = "ftp://ftp.0catch.com" 'el 0 és un zero no un caràcter O Nom d'usuari Const As String = "picaxe.0catch.com" Contrasenya Const As String = "picaxetester" Dim URI Com a cadena localFile = Nom de fitxer 'potser no cal, però si es defineix una ubicació, per exemple, c: / mydirectory es pot afegir fàcilment d'aquesta manera remoteFile = "/" + El fitxer de nom de fitxer' al servidor ftp necessita "/" afegit a URI frontal = host + remoteFile Prova Dim FTP com a sistema. Net. FtpWebRequest = CType (System. Net. FtpWebRequest. Create (URI), System. Net. FtpWebRequest) ftp. Credentials = Nou System. Net. NetworkCredential (nom d'usuari, contrasenya) 'inici de sessió ftp. KeepAlive = False' serà desconnexió un cop fet ftp. UseBinary = True 'utilitza comunicacions binàries ftp. Timeout = 9000' temps d'espera després de 9 segons - molt útil ja que el temps d'espera de ftp (i la freqüència de rellotge de 20 segons) pot ser que sigui més lent per a les connexions de marcatge ftp. Method = System. Net. WebRequestMethods. Ftp. UploadFile 'comença a enviar el fitxer Dim fs com a nou FileStream (localFile, FileMode. Open)' obre el fitxer local Dim filecontents (fs. Length) Com Byte 'es llegeix a la memòria fs. Llegeix (filecontents, 0, fs. Length) fs. Close () 'tanca el fitxer Dim requestStream As Stream = ftp. GetRequestStream ()' start ftp link requestSt ream. Write (filecontents, 0, filecontents. Length) 'envia-la requestStream. Close ()' tanca l'enllaç PictureBox2. BackColor = Color. GreenYellow 'canvia el quadre a verd per dir que funciona bé Label2. Text = "FTP connectat"' text que diu que està connectat Catch 'no pot connectar PictureBox2. BackColor = Color. Red' a vermell sense connexió Label2. Text = "Error de pujada FTP" 'text que diu que la connexió ha fallat Finalitza Intenta Finalitzar Sub Sub FTPDownload (nom de fitxer ByVal com a cadena) 'descarrega fitxer remot a fitxer local Dim localFile As String' lloc per emmagatzemar dades Dim remoteFile As String 'el nom del fitxer distingeix entre majúscules i minúscules, això és realment important Const host As String = "ftp://ftp.0catch.com" Nom d'usuari Const As String = "picaxe.0catch.com "Const password As String =" picaxetester "Dim URI As String 'localFile =" C: / "+ Nom del fitxer' emmagatzema al directori arrel però pot canviar aquest localFile = Nom del fitxer ', de manera que podeu afegir c: / si cal definir ubicació actual remoteFile = "/" + nom del fitxer 'afegit a la ubicació ftp remota URI = host + remoteFile' make up adreça completa Proveu Dim ftp As System. Net. FtpWebRequest = CType (System. Net. FtpWebRequest. Create (URI), System. Net. FtpWebRequest) ftp. Credentials = Nou registre de System. Net. NetworkCredential (nom d’usuari, contrasenya) ftp. KeepAlive = False es desconnectarà després de finalitzar ftp. UseBinary = True 'mode binari ftp. Timeout = 9000' temps d'espera després de 9 segons ftp. Method = System. Net. WebRequestMethods. Ftp. DownloadFile 'descarrega un fitxer' llegit en trossos no sé quant de gran és el fitxer Usant resposta com a System. Net. FtpWebResponse = CType (ftp. GetResponse, System. Net. FtpWebResponse) Usant responseStream com a IO. Stream = response. GetResponseStream Usant fs com a nou IO. FileStream (localFile, IO. FileMode. Create) Dim buffer (2047) As Byte Dim read As Integer = 0 Do read = responseStream. Read (buffer, 0, buffer. Length) 'peça de ftp fs. Write (buffer, 0, read)' i escriu al fitxer Bucle Fins que es llegeixi = 0 'fins que no hi hagi més peces responseStream. Close ()' tanqueu el fitxer ftp fs. Flush () 'flush clear fs. Close ()' i tanqueu th Arxiu Finalitza fent servir responseStream. Close () 'tanqueu-lo encara que no hi hagi res Finalitzeu fent servir response. Close () PictureBox2. BackColor = Color. GreenYellow' caixa verda mentre funcionava Label2. Text = "FTP connectat" 'i text que ho digui treballat Finalitza amb la captura 'posa els codis d'error aquí PictureBox2. BackColor = Color. Red' caixa vermella ja que no funcionava Label2. Text = "FTP de descàrrega fallida" 'i missatge per dir-ho Finalitza Intenta finalitzar sub temporitzador privat sub1 Tic (remitent ByVal) Com System. Object, ByVal i As System. EventArgs) gestiona el temporitzador 1. Marqueu si ModifyFlag = False Aleshores, si l'usuari ha canviat un byte, llavors no descarregueu Label3. Text = "Descarregant" System. Windows. Forms. Application. DoEvents () 'tan nou text de l'etiqueta mostra Call FTPDownload (TextBox3. Text)' descarrega el fitxer remot Label3. Text = "Descarregat" System. Windows. Forms. Application. DoEvents () Truca a ReadRemoteFileToRegisters () 'desa els números de fitxer a la matriu de registres Label3. Text = "Parlant amb picaxe" System. Windows. Forms. Application. DoEvents () Else ModifyFlag = False 'restableix el senyalador Finalitza si Truca a SerialTxRx () 'envia'l al picaxe i llegeix-lo de nou Label3. Text = "Enviat i rebut de picaxe" System. Windows. Forms. Application. DoEvents () Truca a DisplayPicaxeRegisters () Truca a SaveRegistersToLocalFile ()' desa els números al fitxer Label3. Text = "S'està carregant" System. Windows. Forms. Application. DoEvents () Truca a FTPUpload (TextBox3. Text) 'envia una còpia de seguretat al lloc ftp anomenat com el meu nom Label3. Text = "Descansat" Truca a SaveFTPFilename ()' així es llegeix en reiniciar End Sub Sub DisplayPicaxeRegisters () Dim i Integer Dim registernumber As String RichTextBox1. Multiline = True ', de manera que es pot mostrar més d'una línia al quadre de text RichTextBox1. Clear ()' esborreu el quadre de text Per a = 0 a 13 registre_número = Retalla (Str (i)) 'retalla els espais inicials Si i <10 Llavors registernumber = "0" + registre_numero' afegeix 0 als números inferiors a 10 Finalitza si RichTextBox1. AppendText (registernumber + "=" + Str (PicaxeRegisters (i)) + Chr (13)) Següent 'chr (13) és retorn de carro, així que la nova línia Finalitza el botó secundari privat 1_Feu clic (remitent ByVal Com a System. Object, ByVal i As System. EventArgs) Maneja el botó 1. Feu clic a Dim i As Integer 'primer fora del rang i = Val (TextBox1. Text) Si i <0 O i> 13 Llavors TextBox1. Text = 0 Finalitza si i = Val (TextBox2. Text) Si i <0 O i> 255 Llavors TextBox2. Text = 0 Finalitza si PicaxeRegisters (Val (TextBox1. Text)) = Val (TextBox2. Text) "canvieu el valor Crida DisplayPicaxeRegisters ()" i actualitzeu la pantalla ModifyFlag = True 'i el següent enllaç ftp ometeu la descàrrega End Sub Sub SaveRegistersToLocalFile ()' deseu la matriu de registre en un fitxer de text local Dim i As Integer FileOpen (1, TextBox3. Text, OpenMode. Output) 'obriu el fitxer de text anomenat al quadre de text Per a i = 0 a 13 PrintLine (1, Str (PicaxeRegisters (i))) "desa 14 valors Següent fitxer Tanca (1)" tanca el fitxer Finalitza Sub Sub ReadRemoteFileToRegisters () 'llegeix el fitxer de text local a la matriu de registres Dim i Integer Dim LineOfText As String Intenteu FileOpen (1, TextBox3. Text, OpenMode. Input) "llegiu el nom del fitxer remot Per a i = 0 a 13 LineOfText = LineInput (1)" llegit a la línia 14 es PicaxeRegisters (i) = Val (LineOfText) 'converteix text en valors Següent Fitxer Tancar (1) Captura ex com a fitxer Excepció Fitxer Tancar (1)' no existeix, així que no feu res Finalitzar Proveu Finalitzar Sub Sub LlegirFTPFilename () 'de manera que el nom de el fitxer ftp remot és el mateix la propera vegada que s’executa aquest programa Dim LineOfText As String Prova FileOpen (1, "FTPFilename.txt", OpenMode. Input) 'obre el fitxer LineOfText = LineInput (1) TextBox3. Text = LineOfText' llegeix el name FileClose (1) Catch ex As Exception FileClose (1) End Prova Finalitza Sub Sub SaveFTPFilename () FileOpen (1, "FTPFilename.txt", OpenMode. Output) 'desa el nom del fitxer ftp remot PrintLine (1, TextBox3. Text) FileClose (1) End SubEnd Class

Pas 9: executeu el programa als dos equips

Comenceu a executar el programa fent clic al triangle verd a la part superior central de la pantalla: el botó "Inicia la depuració". No passarà res durant 20 segons i el programa intentarà connectar-se al servidor ftp i intentarà connectar-se al picaxe. Les caixes d'imatges es tornaran vermelles o verdes. La ubicació ftp és un lloc web gratuït i tothom pot utilitzar-lo, però heu d’utilitzar un nom de fitxer de treball ftp diferent (el meu és DoctorAcula1), si no, podríem acabar amb les dades de l’altre si fem servir el mateix nom de fitxer. Si voleu, podeu obtenir el vostre propi lloc ftp; només heu de canviar la ubicació ftp, el nom d’usuari i la contrasenya en dos llocs del codi del meu lloc web 0Catch. La majoria de llocs web permeten ftp. Diversos ordinadors poden accedir al mateix fitxer ftp: el servidor de fitxers ftp ordena en quin ordre succeeixen. De vegades, es produeixen enfrontaments o bloquejos de dades, que semblen ocórrer cada 20 fitxers llegits. Hi ha un temps d’espera al codi si això passa, de manera que no retorna dades en lloc de dades danyades. L’ús d’una connexió de banda ampla amb una velocitat de càrrega de 128 kb significa que la càrrega de fitxers triga uns 3 segons, però de vegades fins a 8 segons, la majoria dels quals es prenen en apretament de mans més que en transferència de dades. Això defineix el temps del temporitzador1 com a mínim uns 20 segons tenint en compte la descàrrega, la pujada i el xat amb el picaxe. Amb una banda ampla molt ràpida, podeu reduir el temps del cicle. Podeu canviar un registre manualment dins del programa VB. Si ho feu, el següent cicle de temporitzador omet la descàrrega del lloc ftp i envia les dades noves al picaxe i les llegeix de nou i les penja. Les noves dades troben així el seu camí cap a tots els picaxes vinculats a aquest grup. Això és útil per depurar i / o enllaçar programari de PC al bucle de maquinari del microcontrolador. Els llocs web també poden accedir al bucle de maquinari mitjançant un script PERL o similar per escriure un nou fitxer al lloc ftp. Aquesta captura de pantalla es va fer executant el xip Tx, l’interruptor estava activat i el registre b0 = a 1 s’havia enviat al xip Rx que llavors també havia canviat el registre b1 per 1. El led es va encendre així a les dues taules. Es tracta d’una aplicació trivial, però és fàcil encendre una bomba de 3,6 kW en lloc d’un led. Hi ha algunes idees més a https://drvernacula.topcities.com/, incloses les connexions de picaxes mitjançant enllaços de ràdio amb energia solar. Amb els enllaços de ràdio i Internet és possible que "The Machines" arribi a molts racons del món. Al fòrum de picaxe hi ha algunes idees sobre com portar aquesta idea més enllà i substituir el lloc del PC i el ftp per xips de servidor web dedicats que es connectin directament a un enrutador. És evident que això disminuiria el consum d'energia d'un enllaç. Si esteu interessats en més discussions, publiqueu als comentaris Intstructable i / o al fòrum picaxe. Dr. James Moxham Adelaide, Sud d’Austràlia

Pas 10: captures de pantalla de Code

A petició, aquí teniu una sèrie de captures de pantalla del codi vb.net amb tot el format al seu lloc. Aquest codi es va tornar a copiar d’aquest instructiu i el format va tornar a aparèixer automàticament. Seria millor copiar i enganxar el text que provar de llegir aquestes imatges, però seran útils si sou a un cibercafè i no podeu instal·lar vb.net.

Pas 11: captura de pantalla 2

Captura de pantalla 2

Pas 12: captura de pantalla 3

Captura de pantalla 3

Pas 13: captura de pantalla 4

Captura de pantalla 4

Pas 14: captura de pantalla 5

Captura de pantalla 5

Pas 15: captura de pantalla 6

Captura de pantalla 6