Kiungo cha Microcontroller Ulimwenguni Pote kwa Chini ya $ 20: 15 Hatua

2024 Mwandishi: John Day | [email protected]. Mwisho uliobadilishwa: 2024-01-30 12:55

Dhibiti thermostat yako ya nyumbani kutoka kazini. Washa dawa ya kunyunyiza kutoka mahali popote ulimwenguni kwa kuzungusha swichi. Hii inaweza kuonyeshwa jinsi ya kuunganisha wadhibiti wa microcontroller mbili au zaidi kwa kutumia uti wa mgongo wa mtandao na nambari rahisi ya VB. Net. Hii inajengwa kwa Agizo la mapema ambalo linaonyesha jinsi ya kuunganisha mdhibiti mdogo kwa PC na kutumia sufuria kudhibiti servo https: / mpango na kutoka hapo microcontroller wa pili popote ulimwenguni, na au bila uingiliaji wa mwanadamu. Je! Ni kwa njia gani nyingine mashine zilizo kwenye The Matrix zinastahili kuchukua nafasi ikiwa haziwezi kuzungumza kwa kila mmoja?

Hatua ya 1: Kusanya Sehemu

Sehemu nyingi ni sawa na katika Udhibiti wa PC unaoweza kupangiliwa https://www.instructables.com/id/Control-real-world-devices-with-your-PC/ na inashauriwa hii ikamilike kwanza kabla ya kujaribu kuunganisha wadhibiti wawili. Ingawa inawezekana kutumia sufuria kudhibiti servo, wakati huu tutaenda kwa kitu rahisi - kubadili kuwasha iliyoongozwa. Kubadilisha inaweza kuwa sensorer ya kiwango cha tank na inayoongozwa inaweza kuwa pampu chini karibu na mto lakini wacha tupate kitu rahisi kufanya kazi kwanza. Sehemu - Vipande viwili vya Picaxe 08M - vinapatikana kutoka vyanzo vingi pamoja na Mch Ed https://www.rev- ed.co.uk/picaxe/ (UK), PH Anderson https://www.phanderson.com/ (USA) na Microzed https://www.microzed.com.au/ (Australia). Chips hizi ziko chini ya $ 4US. Mbili kati ya: Protoboard, 9V betri na sehemu za betri, 10k resistor, 22k resistor, 33uF 16V capacitor, 0.1uF capacitor, 7805L low power 5V mdhibiti, waya (solid solid phone / data wire eg Cat5 / 6), LED, 1k resistor. 1 ya: D9 tundu la kike na kifuniko na mita 2 za waya wa msingi wa 3 (au 4) (kwa kupakua) na swichi ya kugeuza. Kompyuta 2 zilizo na bandari 9 za siri (zinaweza kusuluhishwa kwenye kompyuta moja) na unganisho la mtandao. Kwa kompyuta zisizo na bandari ya serial, USB kwa kifaa cha serial https://www.rev-ed.co.uk/docs/axe027.pdf na tundu ndogo la stereo.

Hatua ya 2: Pakua na usakinishe Programu zingine

Tutahitaji VB. Net ya bure na programu ya mtawala wa picaxe na ikiwa umefanya Kidhibiti cha PC kinachoweza kufundishwa tayari utakuwa na hizi. VB. Net (Visual Basic Express) inapatikana kutoka https://msdn2.microsoft.com/en -us / express / aa718406.aspx Programu ya picaxe inapatikana kutoka https://www.rev-ed.co.uk/picaxe/ Utahitaji kujiandikisha na Microsoft kupata upakuaji - ikiwa hii ni shida tumia barua pepe bandia au kitu. Kwa kweli nimeona inasaidia kutoa barua pepe yangu halisi kwani hutuma sasisho za mara kwa mara. ambapo wanafunzi wanaweza kupata majibu ya maswali ndani ya masaa machache. Mkutano huo unaelewa hata maswali rahisi kwani wanafunzi wengine bado wako katika kiwango cha shule ya msingi. Tafadhali usiogope kuomba msaada!

Hatua ya 3: Jenga Mzunguko wa Upakuaji

Mzunguko huu wa kupakua unatumia chip ya picaxe, vipingaji kadhaa, mdhibiti na betri ya 9V. Habari zaidi inapatikana katika hati ya usaidizi / msaada ambayo inakuja kwenye menyu ya msaada ya programu. Mzunguko unapaswa kuchukua dakika chache kujenga mara tu sehemu zote zitakapopeanwa. Mara tu chip inapopangwa huhifadhi programu yake katika EEPROM hata wakati umeme umezimwa. Kwa kuwa tunapanga chips mbili inaweza kuwa na thamani ya kuweka alama za chips ili ujue ni ipi. Unaweza kurudi tena na kupanga tena chip kwa kuondoa kiunga na kusonga kontena.

Ninaweza pia kuongeza kuwa piksesi hukimbia kwa furaha kwenye betri 3 za AA. Ugavi uliodhibitiwa wa 5V ni muhimu kwa kuendesha pembejeo za analog kwani voltages za kumbukumbu hazibadiliki, lakini kwa nyaya rahisi za kuzima / kuzima usambazaji uliodhibitiwa hauhitajiki. Rejista ya 5V inaweza kuachwa nje katika hali hizi.

Hatua ya 4: Panga Chips

Tutaita programu moja Tx na Rx moja. Tx ni chip inayodhibiti na ina swichi na iliyoongozwa. Rx pia ina uongozi. Wakati ubadilishaji unabadilisha ishara kutoka Tx kwenda Rx, inabadilisha iliyoongozwa na pia inabadilisha anuwai ya pili ambayo inarudi kwa Tx. Kwa hivyo bonyeza kitufe na chini ya dakika mabadiliko yaliyoongozwa kwenye nyaya zote zinaonyesha kuwa ujumbe umefika hapo na Rx inachukua nafasi mpya ya kubadili. Katika kiwango rahisi picaxe ina rejista 14 za baiti moja. Mtandao halisi unapoundwa tunaunganisha sajili zote hizo kwa pamoja ikiwa baiti inabadilika kwenye picaxe moja inabadilika kwenye picaxes zote. Ni wazi ikiwa picaxes mbili zinajaribu kubadilisha baiti moja basi itachanganya sana lakini ikiwa kila picaxe hubadilisha tu kaiti moja basi picaxes zingine zote zinaweza kuona mabadiliko hayo na zinaweza kuzifanyia kazi. Ujumbe rahisi unaweza kupitishwa nyuma na mbele ikiwa baiti fulani inabadilishwa tu na picaxe moja. Sufuria inaweza kubadilisha thamani katika rejista na moja au zaidi picaxes inaweza kuhisi mabadiliko hayo na kusogeza servo au chochote na kuwasha hita. Rejista ya pili inaweza kurudisha hali ya joto ndani ya chumba. Nakili na ubandike programu hizo kwa programu ya picaxe na uzipakue kwa kila moja ya vidonge husika ukitumia mshale wa kupakua bluu kutoka ndani ya programu ya picaxe. Tx: kuu: serin 3, N2400, ("Data"), b0, b1, b2, b3, b4, b5, b6, b7, b8, b9, b10, b11, b12, b13 'pata pakiti kutoka kwa kompyuta ikiwa pin2 = 0 kisha 'jaribu swichi na uweke rejista b0 kulingana na hali b0 = 0 mwingine b0 = 1 endif ikiwa b1 = 0 basi' picaxe nyingine huweka b1 kulingana na b0 chini 1 'imesababisha mwingine mwingine 1' iliyoongozwa kwenye endif serout 0, N2400, ("Takwimu", b0, b1, b2, b3, b4, b5, b6, b7, b8, b9, b10, b11, b12, b13) 'tuma tena kwenye kompyuta goto mainand Rx: kuu: serin 3, N2400, ("Takwimu"), b0, b1, b2, b3, b4, b5, b6, b7, b8, b9, b10, b11, b12, b13 'pata pakiti kutoka kwa kompyuta b1 = b0' badilisha rejista b1 kuwa sajili sawa b0 ikiwa b1 = 0 kisha chini 1 'imesababisha mwingine mwingine juu 1' iliyoongozwa kwenye endif serout 0, N2400, ("Data", b0, b1, b2, b3, b4, b5, b6, b7, b8, b9, b10, b11, b12, b12, b13) 'tuma tena kwa kompyuta kuu

Hatua ya 5: Jenga Mzunguko wa Tx

Ikiwa unaruka nyuma na kurudi kati ya mzunguko wa kazi na mzunguko wa programu hakikisha ubadilishe unganisho kwa mguu 2 na eneo la kipinga 22k kutoka mguu 2 hadi mguu 4. Au unaweza kujenga mzunguko wa kupakua wa kujitolea na songa chips hela. Kumbuka tu kama mzunguko unaendesha au unapakua kwani inaweza kuchanganya kabisa. Hasa, kumbuka kuwa mzunguko unaofanya kazi hautafanya kazi ikiwa mguu 2 umeachwa ukielea - inahitaji kuwekwa chini. Mguu 2 ni pini ya kupakua na ikiwa imesalia ikielea inachukua RF iliyopotea kutoka kwa taa za unga na chip inadhani programu nyingine inapakuliwa.

Inafaa pia kutaja nomenclature ya picaxe ambayo huita pini ya mwili mguu na pini halisi pini. Kwa hivyo pato kwenye pini 2 katika kificho ni pato kwenye mguu wa mwili 5. Hii inaweza kuonekana kuwa ya kushangaza lakini inamaanisha kuwa nambari inaweza kusafirishwa kwa piksesi kubwa kama matoleo ya pini 28 na 40 na bado inafanya kazi.

Hatua ya 6: Jenga Mzunguko wa Rx

Mzunguko huu ni karibu sawa na mtumaji - hauna ubadilishaji tu.

Hatua ya 7: Andika Nambari fulani ya VB. Net

Ningeweza kukusanya nambari hiyo na kuifanya programu hii ipatikane kama Exex iliyokusanywa lakini kujifunza VB. Net ni muhimu sana kwamba inastahili kuipitia hatua kwa hatua. Ikiwa unaendesha hii kwenye kompyuta mbili tofauti unaweza Kuunda programu kwenye.exe ambayo inaunda mpango mdogo wa usanidi ambao unaweza kusanikishwa kwenye kompyuta ya pili. Au unaweza kuweka VB. Net kwenye kompyuta zote mbili na uendeshe programu kutoka kwa VB. NetLet kudhani unajua jinsi ya kufungua mradi mpya wa VB.net kutoka hatua ya 7 na 8 ya https://www.instructables.com/id/S1MMU2XF82EU2GT / Kwenye fomu tupu wacha tuongeze vifaa vifuatavyo kutoka kwa mwambaa zana na kuziweka kwenye fomu katika maeneo kama inavyoonyeshwa. Kwa lebo na visanduku vya maandishi, badilisha mali ya maandishi (juu kulia chini) kwa kile kinachohitajika. Usijali kuhusu mipangilio ya kipima muda - tutabadilisha kwenye nambari lakini hakikisha kuweka kipima muda. Unaweza kusogeza vitu karibu na hakuna sheria halisi kuhusu eneo. Sanduku kubwa la maandishi ni RichTextBox na tatu ndogo ni Sanduku za maandishi za kawaida. Kwa suala la utaratibu tunaanzia juu ya fomu na kusonga chini. Ikiwa utaacha kitu nje kutakuwa na hitilafu katika nambari ambayo inapaswa kutoa aina fulani ya kidokezo. Tafadhali chagua jina la faili bila mpangilio kwa Textbox3 - hili ni jina la kikundi chako cha kipekee cha picaxes kwenye seva ya ftp na ni wazi ikiwa sote tunatumia jina moja basi data itachakachuliwa! Samahani juu ya vichaka kwenye jedwali hili - kuweka katika nafasi hupoteza muundo kwenye meza. Kitu cha kisanduku cha sanduku ------- Nakala ---------- ------------------------------ VidokezoLabel1 ------------------ Picaxe MawasilianoLabel2 ----------------- Hali ya FTPLabel3 ------------------ HaliLabel4 ------ -------- Picaxe RejistaLabel5 ------------------ Jisajili 0-13Label6 ------------------ Thamani 0-255Label7 ------------------ Jina la faili la kiungo la FTP Sanduku la maandishi1 ------ -------------------------------------- 0 ni sifuri sio OTextbox2 ----- ----------- 0 Sanduku la maandishi3 ------------- Jina la jina langu ------------ ---------- Badilisha kwa hivyo hakuna mapigano! Kitufe1 ------------------ Badilisha Richtextbox1 Photobox1 Photobox2 Timer1

Hatua ya 8: Ongeza Nambari kadhaa

Tazama hatua ya 12 ya nyingine inayoweza kufundishwa kwa eneo la kitufe ambacho kinaruka kati ya mtazamo wa fomu na mwonekano wa nambari. Nenda kwenye mwonekano wa nambari na ubandike nambari ifuatayo. Rangi zinapaswa kuonekana tena kama kwenye skrini. Ikiwa laini haikunakili vizuri kwa sababu ya shida ya kuandika neno kisha futa nafasi hadi ujumbe wa kosa uondoke. Nimejaribu kutoa maoni kwenye mistari mingi kwa hivyo nambari angalau ina maana. Futa darasa la umma kidogo ili maandishi yawe wazi kabla ya kubandika hii - nambari hii tayari ina darasa la umma. Ikiwa kitu kama kisanduku cha maandishi hakijawekwa kwenye fomu au ina jina lisilo sahihi basi itakuja kwenye nambari ya maandishi na laini ya samawati iliyo chini yake. Mfumo wa Imports. vitu kama kushoto (na kulia (kwa kambaFomu ya Jamii ya Umma1 Tangaza Umma Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Integer) 'kwa taarifa za usingizi Punguza na Matukio serialPort Kama New IO. Ports. SerialPort' bandari ya serial hutangaza Dim PicaxeRegisters (0 hadi 13) Kama Byte inasajili b0 hadi b13 Dim ModifyFlag Kama Boolean Private Sub Form1_Load (mtumaji wa ByVal As Object, ByVal e As System. EventArgs) Hushughulikia Me. Timer1. Enabled = True 'weka hii kwenye kificho kama chaguo-msingi kwa uwongo wakati imeundwa Timer1. Interval = 20000' kila sekunde 20 PictureBox1. BackColor = Colour. Gray 'anza na sanduku za comms kijivu PictureBox2. BackColor = Colour. Gray ModifyFlag = False' ukibadilisha thamani kwa mikono basi s download kip. 0 hadi 17) Kama pakiti yote ya data ya Byte "Takwimu" + 14 kaa Dim i As Integer 'i huwa muhimu kila wakati kwa loops nk Kwa i = 0 To 3 DataPacket (i) = Asc (Mid ("Data", i + 1, 1)) 'ongeza neno "Takwimu" kwenye pakiti Ifuatayo Kwa i = 0 hadi 13 DataPacket (i + 4) = PicaxeRegisters (i)' ongeza kaiti zote kwenye pakiti Ijayo Ikiwa serialPort. IsOpen Kisha serialPort. Close (ikiwa tu tayari imefunguliwa Mwisho Ikiwa Jaribu na serialPort. PortName = "COM1" 'Kompyuta nyingi mpya chaguomsingi kwa com1 lakini kompyuta yoyote ya mapema ya 1999 iliyo na panya ya serial labda itakuwa default kwa com2. BaudRate = 2400' 2400 ndio kasi ya maxiumum kwa picaxes ndogo. Parity = IO. Ports. Parity. Hakuna 'hakuna usawa. DataBits = 8' bits 8StopBits = IO. Ports. StopBits. Ikiba moja ya kusimama kidogo. ReadTimeout = 1000 'millisecon ds mara nyingi nje kwa sekunde 1 ikiwa hakuna majibu. Fungua () 'fungua bandari ya serial. TupaInBuffer ()' futa bafa ya kuingiza. Andika (DataPacket, 0, 18) 'tuma safu ya daftari Piga simu ya Kulala (300)' millisecond 100 kiwango cha chini cha kusubiri data irudi na zaidi ikiwa mtiririko wa data ni mrefu. Soma (DataPacket, 0, 18) 'soma tena katika safu ya pakiti ya data. (i - 4) = DataPacket (i) 'songa pakiti mpya ya data kwenye safu ya usajili Next PictureBox1. BackColor = Colour. GreenYellow' Catch ex Ex Exception PictureBox1. BackColor = Colour. Red 'not working End End End Sub Sub FTPUpload (Jina la faili la ByVal kama Kamba) Futa eneo laFile kama Kamba ya kuhifadhi data Punguza kijijiniFile Kama Kamba 'jina la faili ni nyeti kwa kesi hii ni muhimu sana kwa mwenyeji wa Kamba kama "Kamba =" ftp://ftp.0catch.com "' kumbuka 0 ni sifuri si tabia O jina la jina la Const Const As String = "picaxe.0catch.com" Const password As String = "picaxetester" Dim URI As String localFile = Jina la faili 'labda halihitajiki lakini ikiwa inafafanua eneo mfano c: / directory yangu inaweza kuongeza kwa urahisi njia hii remoteFile = "/" + Faili ya jina la faili kwenye mahitaji ya seva ya ftp "/" imeongezwa mbele ya URI = mwenyeji + kijijiniFile Jaribu Dim ftp Kama Mfumo. Net. FtpWebRequest = CType (System. Net. FtpWebRequest. Create (URI), System. Net. FtpWebRequest) ftp. Credentials = New System. Net. NetworkCredential (jina la mtumiaji, nywila) 'ingia ftp. KeepAlive = False' itakuwa kukatwa mara moja baada ya kufanywa ftp. UseBinary = Kweli 'tumia comms binary ftp Timeout = muda wa 9000' baada ya sekunde 9 - muhimu sana kwani ftp wakati mwingine hufa 'muda wa kuisha (na mzunguko wa saa ya sekunde 20) inaweza kuhitaji polepole kwa unganisho la dialup ftp. Method = System. Net. WebRequestMethods. Ftp. UploadFile 'anza kutuma faili Dim fs As New FileStream (localFile, FileMode. Open)' open file local Dim filecontents (fs. Length) As Byte 'read in memory fs. Soma (filecontents, 0, fs. Urefu) fs Funga () 'funga faili Dim ombi Mkondo Kama Mkondo = ftp. GetRequestStream ()' anza ombi la kiungo la ftpSt Andika tena (andika yaliyomo kwenye faili, 0, yaliyomo kwenye faili. Urefu) 'tuma ombiStream. Close ()' funga kiunga cha PictureBox2. BackColor = Colour. GreenYellow 'badilisha kisanduku kuwa kijani kusema Label2. Text = "FTP Imeunganishwa" maandishi akisema imeunganisha Catch 'haiwezi kuunganisha PictureBox2. BackColor = Rangi. Red' box to red as no connection Label2. Text = "FTP Upload Fail" 'maandishi yakisema unganisho limeshindwa End End End Sub Sub FTPDownload (ByVal Filename As String) 'downloads filefile to localfile Dim localFile as String' place to data data Dim remoteFile As String 'filename is case nyeti hii ni muhimu sana kwa mwenyeji wa Const As As String = "ftp://ftp.0catch.com" Jina la mtumiaji la Constring As String = "picaxe 0 eneo halisi anwani kamili Jaribu Dim ftp Kama System. Net. FtpWebRequest = CType (System. Net. FtpWebRequest. Create (URI), System. Net. FtpWebRequest) ftp. Credentials = New System. Net. NetworkCredential (jina la mtumiaji, nywila) 'ingia ftp. KeepAlive = Uongo 'itakuwa ikikatisha baada ya kumaliza ftp. UseBinary = Kweli' mode ya binary ftp. Timeout = 9000 'timeout after 9 seconds ftp. Method = System. Net. WebRequestMethods. Ftp. DownloadFile' download a file 'read in pieces as as Sijui faili ni kubwa kiasi gani Kutumia majibu Kama Mfumo. Net. FtpWebResponse = CType (ftp. GetResponse, System. Net. FtpWebResponse) Kutumia majibuStream Kama IO. Stream = response. GetResponseStream Kutumia fs Kama New IO. FileStream (localFile, IO. FileMode. Create) Punguza bafa (2047) Kama Byte Dim soma kama Nambari kamili = 0 Soma = responseStream. Soma (bafa, 0, bafa. Urefu) kipande kutoka kwa ftp fs. Andika (bafa, 0, soma) 'na andika kwa faili Kitanzi Hadi usome = 0 'mpaka hakuna majibu zaidi e faili Endisha Kutumia responseStream. Close () 'ifunge hata kama hakuna chochote Kumaliza Kutumia majibu. Close () PictureBox2. BackColor = Rangi. GreenYellow' sanduku la kijani wakati ilifanya kazi Label2. Text = "FTP Imeunganishwa" 'na maandishi ukisema ilifanya kazi Mwisho Kutumia Catch 'weka nambari za hitilafu hapa PictureBox2. BackColor = Rangi. Sanduku nyekundu' nyekundu kwani haikufanya kazi Label2. Text = "Upakuaji wa FTP Imeshindwa" 'na ujumbe kusema hii End End End Sub Sub Sub Timer1_Tick (mtumaji wa ByVal) Kama System. Object, ByVal e As System. EventArgs) Hushughulikia Timer1. Gusa ikiwa ModifyFlag = Uongo Basi 'ikiwa mtumiaji amebadilisha kaa basi usipakue Label3. Text = "Kupakua" System. Windows. Forms. Application. DoEvents () 'maandishi mpya ya lebo huonyesha Wito FTPDownload (TextBox3. Text)' pakua faili ya mbali Label3. Text = "Imepakuliwa" Mfumo. Windows. Forms. Application. DoEvents () Piga ReadRemoteFileToRegisters () 'weka nambari za faili kwenye orodha ya usajili wa Label3. Text = "Kuzungumza na picaxe" System. Windows. Forms. Application. DoEvents () Else ModifyFlag = Uongo 'weka upya bendera Mwisho Ikiwa Simu SerialTxRx () 'tuma kwa picaxe na uisome tena Label3. Text = "Imetumwa na kupokelewa kutoka kwa picaxe" System. Windows. Forms. Application. DoEvents () Piga DisplayPicaxeRegisters () Piga simu za SaveRegistersToLocalFile ()' weka nambari za kuweka faili Label3. Text = "Kupakia" System. Windows. Forms. Application. DoEvents () Piga FTPUpload (TextBox3. Text) 'tuma tena kwenye tovuti ya ftp inayoitwa jina langu Label3. Text = "Resting" Call SaveFTPFilename ()' hivyo inasoma katika wakati wa kuanza tena End Sub Sub DisplayPicaxeRegisters () Punguza I Kama nambari kamili ya usajili kama Kamba ya RichTextBox1. Multiline = Kweli 'ili iweze kuonyesha zaidi ya mstari mmoja kwenye kisanduku cha maandishi RichTextBox1. Clear ()' futa kisanduku cha maandishi Kwa i = 0 Kwa 13 nambari ya usajili = Punguza (Str (i)) punguza nafasi zinazoongoza Ikiwa i <10 Kisha usajili = nambari = "0" + nambari ya usajili 'ongeza 0 kwa nambari chini ya Mwisho wa 10 Ikiwa RichTextBox1. AppendText (registernumber + "=" + Str (PicaxeRegisters (i Chr) (13) Ijayo 'chr (13) ni kurudi kwa gari kwa laini mpya End End Sub Private Button1_Click (mtumaji wa ByVal Kama System. Object, ByVal e As System. EventArgs) Hushughulikia Kitufe 1. Bonyeza Dim i Kama Integer 'angalia masafa ya kwanza i = Val (TextBox1. Text) Ikiwa i <0 Au i> 13 Kisha TextBox1. Text = 0 End If If i = Val (TextBox2. Text) Ikiwa i <0 Au i> 255 Kisha TextBox2. Text = 0 End ikiwa PicaxeRegisters (Val (TextBox1. Text)) = Val (TextBox2. Text) 'badilisha thamani Call DisplayPicaxeRegisters ()' na onyesha onyesha ModifyFlag = Kweli 'na kiungo cha ftp kinachofuata upakue kupakua End Sub Sub SaveRegistersToLocalFile ()' sajili safu ya sajili katika faili ya maandishi ya ndani Dim i As Integer FileOpen (1, TextBox3. Text, OpenMode. Output) 'fungua faili ya maandishi iliyoitwa kwenye kisanduku cha maandishi Kwa i = 0 Kwa 13 PrintLine (1, Str (PicaxeRegisters (i))) 'kuokoa maadili 14 Next FileClose (1)' funga faili End Sub Sub Read ReadRemoteFileToRegisters () 'soma faili ya maandishi ya ndani kwenye safu ya rejista Punguza mimi kama Line Line ya Upeo wa Kukata Kama Kamba Jaribu FileOpen (1, TextBox3. Nakala, OpenMode. Input) 'soma jina la faili la mbali Kwa i = 0 Kwa 13 LineOfText = LineInput (1)' iliyosomwa kwenye lin 14 es PicaxeRegisters (i) = Val (LineOfText) 'badilisha maandishi kuwa maadili Faili inayofuataClose (1) Catch ex As Exception FileClose (1)' faili haipo kwa hivyo usifanye chochote End End End Sub Sub ReadFTPFilename () 'kwa hivyo jina la faili ya ftp ya mbali ni sawa wakati mwingine wakati programu hii inaendeshwa na Dim LineOfText Kama Kamba Jaribu FileOpen (1, "FTPFilename.txt", OpenMode. Input) 'fungua faili LineOfText = LineInput (1) TextBox3. Text = LineOfText' soma kusoma jina FileClose (1) Catch ex Kama Isipokuwa FileClose (1) Mwisho Jaribu Kumaliza Sub Sub SaveFTPFilename () FileOpen (1, "FTPFilename.txt", OpenMode. Output) 'ila jina la faili ya ftp ya mbali PrintLine (1, TextBox3. Text) FileClose (1) Maliza Darasa la SubEnd

Hatua ya 9: Endesha Programu kwenye PC zote mbili

Anza kuendesha programu kwa kubofya pembetatu ya kijani katikati ya juu ya skrini - kitufe cha 'Anza Kutatua'. Hakuna kitakachotokea kwa sekunde 20 na kisha programu itajaribu kuungana na seva ya ftp na itajaribu kuungana na picaxe. Masanduku ya picha yatakuwa nyekundu au kijani. Mahali pa ftp ni tovuti ya bure na mtu yeyote anaweza kutumia hii lakini unahitaji kutumia jina la faili tofauti la ftp (yangu ni DoctorAcula1) vinginevyo tunaweza kuishia na data ya kila mmoja ikiwa tutatumia jina la faili moja! Ikiwa ungependa mwishowe unaweza kupata tovuti yako ya ftp - badilisha tu eneo la ftp, jina la mtumiaji na nywila katika sehemu mbili kwenye nambari kutoka kwa wavuti yangu ya 0Catch. Tovuti nyingi huruhusu ftp. Kompyuta nyingi zinaweza kupata faili moja ya ftp - seva ya faili ya ftp inaunda kwa mpangilio gani haya yanatokea. Wakati mwingine kuna mapigano ya data au hutegemea na hizi zinaonekana kutokea kila faili 20 inasomwa. Kuna wakati wa kuisha katika nambari ikiwa hii itatokea kwa hivyo hairudishi data badala ya data iliyoharibiwa Kutumia muunganisho wa broadband na kasi ya kupakia 128kbs inamaanisha upakiaji wa faili huchukua sekunde 3 lakini wakati mwingine hadi sekunde 8, ambazo nyingi huchukuliwa kwa kupeana mikono badala ya kuhamisha data. Hii inaweka wakati wa timer1 wa kiwango cha chini cha sekunde 20 kwa kuzingatia kupakua, kupakia na kuzungumza na picaxe. Ukiwa na mkanda wa haraka sana unaweza kufupisha wakati wa mzunguko. Unaweza kubadilisha rejista kwa mikono ndani ya programu ya VB. Ukifanya hivyo, mzunguko wa saa inayofuata unaruka kuruka kutoka kwa tovuti ya ftp na kutuma data mpya kwa picaxe na kisha kuisoma tena na kuipakia. Takwimu mpya kwa hivyo hupata njia kwa piksesi zote zilizounganishwa na kikundi hiki. Hii inasaidia kwa utatuzi na / au kwa kuunganisha programu ya PC kwenye kitanzi cha vifaa vya microcontroller. Tovuti zinaweza pia kupata kitanzi cha vifaa kwa kutumia hati ya PERL au sawa na kuandika faili mpya kwenye wavuti ya ftp. Picha hii ya skrini ilichukuliwa ikiendesha chip ya Tx, swichi ilikuwa imewashwa na rejista b0 = hadi 1 ilikuwa imetumwa kwa chip ya Rx ambayo alikuwa amebadilisha rejista b1 kuwa 1 pia. Uongozi ulikuwa umewashwa kwa bodi zote mbili. Huu ni maombi yasiyo na maana lakini ni rahisi kuwasha pampu 3.6Kw badala ya kuongozwa. Mawazo mengine yako kwenye https://drvernacula.topcities.com/ pamoja na kuunganisha picaxes kupitia viungo vya redio vinavyotumia jua. Pamoja na viungo vya redio pamoja na mtandao inawezekana kwa 'Mashine' kufikia katika pembe nyingi za ulimwengu. Kuna maoni kadhaa karibu na jukwaa la picaxe juu ya kuchukua wazo hili zaidi na kuchukua nafasi ya wavuti ya PC na ftp na chipu za wavuti zilizojitolea ambazo huziba moja kwa moja kwenye router. Kwa wazi hii itapunguza matumizi ya nguvu ya kiunga. Ikiwa una nia ya majadiliano zaidi tafadhali weka maoni yasiyoweza kubadilika na / au kwenye jukwaa la picaxe. Dr James MoxhamAdelaide, Australia Kusini

Hatua ya 10: Picha za Skrini

Kwa ombi, hapa kuna safu ya viwambo vya nambari ya vb.net na muundo wote uliopo. Nambari hii kweli ilinakiliwa nyuma ya hii inayoweza kufundishwa na muundo ukaonekana tena kiatomati. Ingekuwa bora kunakili na kubandika maandishi kuliko kujaribu kusoma picha hizi lakini hizi zitakuwa muhimu ikiwa uko kwenye cafe ya mtandao na hauwezi kusakinisha vb.net.

Hatua ya 11: Picha ya skrini 2

Picha ya skrini 2

Hatua ya 12: Picha ya skrini 3

Picha ya skrini 3

Hatua ya 13: Picha ya 4

Picha ya 4

Hatua ya 14: Picha ya skrini 5

Picha ya skrini 5

Hatua ya 15: Picha ya skrini 6

Picha ya skrini 6