Tautan Mikrokontroler Seluruh Dunia untuk Di Bawah $ 20: 15 Langkah

2024 Pengarang: John Day | [email protected]. Terakhir diubah: 2024-01-30 09:58

Kontrol termostat rumah Anda dari kantor. Nyalakan alat penyiram dari mana saja di dunia dengan menjentikkan sakelar. Instruksi ini menunjukkan cara menautkan dua atau lebih mikrokontroler $4 menggunakan tulang punggung internet dan beberapa kode VB. Net sederhana. Ini dibangun di atas Instruksi sebelumnya yang menunjukkan cara menautkan mikrokontroler ke PC dan menggunakan pot untuk mengontrol servo https://www.instructables.com/id/Control-real-world-devices-with-your-PC/ Kali ini kita memiliki mikrokontroler yang berbicara dengan program VB. Net lalu ke situs web ftp, kembali ke VB. Net lain program dan kemudian mikrokontroler kedua di mana saja di dunia, dengan atau tanpa campur tangan manusia. Bagaimana lagi mesin di The Matrix bisa mengambil alih jika mereka tidak bisa berbicara satu sama lain?

Langkah 1: Kumpulkan Bagian

Banyak bagian yang sama seperti di PC Control Instructable https://www.instructables.com/id/Control-real-world-devices-with-your-PC/ dan disarankan agar ini diselesaikan terlebih dahulu sebelum mencoba untuk menghubungkan dua mikrokontroler. Meskipun sangat mungkin untuk menggunakan pot untuk mengontrol servo, kali ini kita akan menggunakan sesuatu yang lebih sederhana - sakelar yang menyalakan led. Saklar dapat dengan mudah menjadi sensor level tangki dan led bisa menjadi pompa di dekat sungai tetapi mari kita lakukan sesuatu yang sederhana terlebih dahulu. Bagian - Dua chip Picaxe 08M - tersedia dari banyak sumber termasuk Rev Ed https://www.rev- ed.co.uk/picaxe/ (Inggris), PH Anderson https://www.phanderson.com/ (AS) dan Microzed https://www.microzed.com.au/ (Australia). Chip ini di bawah $4US. Dua dari: Protoboard, baterai 9V dan klip baterai, resistor 10k, resistor 22k, kapasitor 33uF 16V, kapasitor 0,1uF, regulator 5V daya rendah 7805L, kabel (kabel telepon/data inti padat misalnya Cat5/6), LED, resistor 1k. 1 dari: soket dan penutup D9 female dan 2 meter dari 3 (atau 4) kabel data inti (untuk diunduh) dan sakelar sakelar. 2 komputer dengan port serial 9 pin (dapat di-debug di satu komputer) dan koneksi internet. Untuk komputer tanpa port serial, perangkat USB ke serial https://www.rev-ed.co.uk/docs/axe027.pdf dan soket stereo kecil.

Langkah 2: Unduh dan Instal Beberapa Perangkat Lunak

Kami akan membutuhkan VB. Net gratis dan perangkat lunak pengontrol picaxe dan jika Anda telah melakukan pengontrol PC yang Dapat Diinstruksikan, Anda sudah memilikinya. VB. Net (Visual Basic Express) tersedia dari https://msdn2.microsoft.com/en -us/express/aa718406.aspxPerangkat lunak picaxe tersedia dari https://www.rev-ed.co.uk/picaxe/Anda harus mendaftar ke microsoft untuk mendapatkan unduhan - jika ini masalah gunakan email palsu atau sesuatu. Saya benar-benar merasa terbantu dengan memberikan email asli saya karena mereka mengirim pembaruan sesekali. Saya juga akan menyebutkan forum picaxe https://www.picaxeforum.co.uk/ karena ini adalah jenis forum yang dikelola oleh guru dan pendidik dan di mana siswa biasanya bisa mendapatkan jawaban atas pertanyaan dalam beberapa jam. Forum ini sangat memahami bahkan pertanyaan yang paling sederhana karena beberapa siswa masih di tingkat sekolah dasar. Tolong jangan takut untuk meminta bantuan!

Langkah 3: Bangun Sirkuit Unduh

Rangkaian unduhan ini menggunakan chip picaxe, sepasang resistor, regulator, dan baterai 9V. Informasi lebih lanjut tersedia di dokumentasi/bantuan picaxe yang muncul di menu bantuan program. Sirkuit hanya perlu beberapa menit untuk dibangun setelah semua bagian siap. Setelah sebuah chip diprogram, ia mempertahankan programnya di EEPROM bahkan ketika daya dimatikan. Karena kami memprogram dua chip, mungkin ada baiknya memberi label pada chip sehingga Anda tahu yang mana. Anda selalu dapat kembali dan memprogram ulang sebuah chip dengan menghapus tautan dan memindahkan resistor.

Saya mungkin juga menambahkan bahwa picax berjalan dengan senang hati menggunakan 3 baterai AA. Suplai teregulasi 5V berguna untuk menjalankan input analog karena tegangan referensi tidak berubah, tetapi untuk rangkaian on/off sederhana, suplai teregulasi tidak diperlukan. Reg 5V dapat ditinggalkan dalam situasi ini.

Langkah 4: Program Keripik

Kami akan memanggil satu program Tx dan satu Rx. Tx adalah chip pengontrol dan memiliki sakelar dan led. Rx juga memiliki led. Ketika saklar mengubah sinyal dari Tx ke Rx, mengubah led dan juga mengubah variabel kedua yang kemudian kembali ke Tx. Jadi jentik sakelar dan dalam waktu kurang dari satu menit led berubah pada kedua sirkuit yang menunjukkan bahwa pesan sampai di sana dan Rx bekerja pada posisi sakelar baru. Pada tingkat paling sederhana picaxe memiliki 14 register byte tunggal. Ketika jaringan virtual dibuat, kami menghubungkan semua register itu bersama-sama, jadi jika satu byte berubah dalam satu picaxe, itu akan berubah di semua picaxe. Jelas jika dua kapak mencoba mengubah byte yang sama maka itu akan menjadi sangat membingungkan tetapi jika masing-masing kapak hanya mengubah satu byte maka semua kapak lainnya dapat melihat perubahan itu dan dapat bertindak berdasarkan itu. Pesan sederhana dapat diteruskan dan diteruskan jika byte tertentu hanya diubah oleh satu picaxe. Sebuah pot dapat mengubah nilai dalam register dan satu atau lebih picax lainnya dapat merasakan perubahan itu dan memindahkan servo atau apa pun dan menyalakan pemanas. Sebuah register kedua bisa mengirim kembali suhu di dalam ruangan. Salin dan tempel program secara bergantian ke pemrogram picaxe dan unduh ke masing-masing chip menggunakan panah unduhan biru dari dalam pemrogram picaxe. Tx:main:serin 3, N2400, ("Data"), b0, b1, b2, b3, b4, b5, b6, b7, b8, b9, b10, b11, b12, b13' ambil paket dari komputer jika pin2= 0 kemudian' uji sakelar dan setel register b0 tergantung pada status b0=0 jika tidak b0=1 endif jika b1=0 maka' set picaxe lainnya b1 tergantung b0 rendah 1' led off else high 1' led pada endif serout 0, N2400 ("Data", b0, b1, b2, b3, b4, b5, b6, b7, b8, b9, b10, b11, b12, b13)' send back to computer goto mainand Rx:main:serin 3, N2400, ("Data"), b0, b1, b2, b3, b4, b5, b6, b7, b8, b9, b10, b11, b12, b13' ambil paket dari komputer b1=b0' ubah register b1 menjadi register b0 jika b1 =0 lalu rendah 1' led off lain tinggi 1' led pada endif serout 0, N2400, ("Data", b0, b1, b2, b3, b4, b5, b6, b7, b8, b9, b10, b11, b12, b13)' kirim kembali ke komputer goto main

Langkah 5: Bangun Sirkuit Tx

Jika Anda membalik bolak-balik antara sirkuit kerja dan sirkuit pemrograman, pastikan untuk mengubah koneksi ke kaki 2 dan lokasi resistor 22k dari kaki 2 ke kaki 4. Atau Anda dapat membangun sirkuit unduhan khusus dan memindahkan chip lintas. Perhatikan saja apakah sirkuit sedang berjalan atau mengunduh karena bisa sangat membingungkan. Secara khusus, perhatikan bahwa sirkuit yang sedang berjalan tidak akan berfungsi jika kaki 2 dibiarkan mengambang - sirkuit tersebut perlu diarde. Kaki 2 adalah pin unduhan dan jika dibiarkan mengambang, ia mengambil RF liar dari lampu flouro dan chip mengira program lain sedang diunduh.

Perlu juga disebutkan nomenklatur picaxe yang menyebut pin fisik sebagai kaki dan pin virtual sebagai pin. Jadi output pada pin 2 dalam kode sebenarnya merupakan output pada kaki fisik 5. Ini mungkin tampak aneh tetapi ini berarti bahwa kode dapat di-porting ke picax yang lebih besar seperti versi 28 dan 40 pin dan masih berfungsi.

Langkah 6: Bangun Sirkuit Rx

Sirkuit ini hampir sama dengan pemancar - hanya saja tidak memiliki sakelar.

Langkah 7: Tulis Beberapa Kode VB. Net

Saya bisa saja mengkompilasi kode dan membuat program ini tersedia sebagai.exe yang dikompilasi tetapi mempelajari beberapa VB. Net sangat berguna sehingga layak untuk melaluinya langkah demi langkah. Jika Anda menjalankan ini di dua komputer yang berbeda, Anda dapat membuat program menjadi.exe yang membuat program pengaturan kecil yang dapat diinstal pada komputer kedua. Atau Anda dapat meletakkan VB. Net di kedua komputer dan menjalankan program dari dalam VB. Net. Anggap Anda tahu cara membuka proyek VB.net baru dari langkah 7 dan 8 https://www.instructables.com/id/S1MMU2XF82EU2GT /Pada formulir kosong mari tambahkan komponen berikut dari bilah alat dan letakkan di formulir di lokasi seperti yang ditunjukkan. Untuk label dan kotak teks, ubah properti teks (di kanan bawah) menjadi yang diperlukan. Jangan khawatir tentang pengaturan pengatur waktu - kami akan mengubahnya dalam kode tetapi pastikan untuk memasukkan pengatur waktu. Anda dapat memindahkan barang-barang dan tidak ada aturan nyata tentang lokasi. Kotak teks besar adalah RichTextBox dan tiga yang lebih kecil adalah Kotak Teks biasa. Dalam hal urutan kita mulai dari atas formulir dan bergerak ke bawah. Jika Anda meninggalkan sesuatu di luar sana akan ada kesalahan dalam kode yang seharusnya memberikan semacam petunjuk. Silakan pilih nama file acak untuk Textbox3 - ini adalah nama grup unik picax Anda di server ftp dan jelas jika kita semua menggunakan nama yang sama maka data akan menjadi kacau! Maaf tentang tanda hubung di tabel ini - menempatkan spasi akan menghilangkan pemformatan tabel. Objek kotak alat-------Teks----------- ------------------------------NotesLabel1------------------Picaxe CommunicationsLabel2------------------FTP StatusLabel3------------------StatusLabel4---------- --------Picaxe RegistersLabel5------------------Daftar 0-13Label6------------------ Nilai 0-255Label7------------------FTP link filenameTextbox1-----------------0-------- --------------------------------------0 adalah nol bukan OTextbox2----- -----------0Textbox3----------------Namafile saya--------------------- ----------Ubah sehingga tidak ada bentrokan!Tombol1------------------ModifyRichtextbox1 Picturebox1 Picturebox2 Timer1

Langkah 8: Tambahkan Beberapa Kode

Lihat langkah 12 dari instruksi lainnya untuk lokasi tombol yang membalik antara tampilan formulir dan tampilan kode. Beralih ke tampilan kode dan rekatkan kode berikut. Semua warna akan muncul kembali seperti pada tangkapan layar. Jika suatu baris tidak disalin dengan benar karena masalah wordwrap, hapus spasi hingga pesan kesalahan hilang. Saya sudah mencoba mengomentari sebagian besar baris sehingga kode setidaknya masuk akal. Hapus bit kelas publik sehingga teksnya kosong sebelum menempelkannya - kode ini sudah memiliki kelas publik. Jika objek seperti kotak teks belum ditempatkan pada formulir atau memiliki nama yang salah maka akan muncul dalam kode teks dengan garis biru berlekuk-lekuk di bawahnya. Impor System. IOImports Strings = Microsoft. VisualBasic ' sehingga dapat digunakan hal-hal seperti kiri (dan kanan (untuk stringsPublic Class Form1 Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Integer) ' untuk pernyataan tidur Dim WithEvents serialPort As New IO. Ports. SerialPort ' port serial mendeklarasikan Dim PicaxeRegisters (0 Hingga 13) Saat Byte ' mendaftar b0 ke b13 Dim ModifyFlag Sebagai Boolean Private Sub Form1_Load(ByVal sender As Object, ByVal e As System. EventArgs) Menangani Me. Load ' membutuhkan semua hal sampah ini -.net memasukkannya secara otomatis ketika pergi form1events di atas/memuat Timer1. Enabled = True ' masukkan kode ini sebagai default ke false saat dibuat Timer1. Interval = 20000 ' setiap 20 detik PictureBox1. BackColor = Color. Gray ' mulai dengan kotak komunikasi abu-abu PictureBox2. BackColor = Color. Gray ModifyFlag = False ' jika mengubah nilai secara manual maka s kip download RichTextBox1. Multiline = True ' sehingga dapat menampilkan lebih dari satu baris Call DisplayPicaxeRegisters() ' menampilkan 14 register Call ReadFTPFilename() ' membaca nama file dari disk (disimpan setiap 20 detik) End Sub SerialTxRx() Dim DataPacket(0 Sampai 17) Sebagai Byte ' seluruh paket data "Data"+14 byte Dim i As Integer ' i selalu berguna untuk loop dll Untuk i = 0 Sampai 3 DataPacket(i) = Asc(Mid("Data", i + 1, 1)) ' tambahkan kata "Data" ke paket Next For i = 0 To 13 DataPacket(i + 4) = PicaxeRegisters(i) ' tambahkan semua byte ke paket Next If serialPort. IsOpen Then serialPort. Close() ' untuk berjaga-jaga jika sudah dibuka Akhiri Jika Coba Dengan serialPort. PortName = "COM1" ' Kebanyakan komputer baru default ke com1 tetapi komputer pra 1999 dengan mouse serial mungkin akan default ke com2. BaudRate = 2400 ' 2400 adalah kecepatan maksimum untuk picaxes kecil. Parity = IO. Ports. Parity. None ' tidak ada paritas. DataBits = 8' 8 bit. StopBits = IO. Ports. StopBits. Satu ' satu stop bit. ReadTimeout = 1000' milidetik ds waktu habis dalam 1 detik jika tidak ada respons. Open() ' buka port serial. DiscardInBuffer() ' hapus buffer input. Write(DataPacket, 0, 18) ' send array datapacket Call Sleep(300) ' 100 milidetik minimum menunggu data kembali dan lebih banyak lagi jika aliran data lebih lama. Read(DataPacket, 0, 18) ' read back in the data packet array. Close() ' tutup port serial End With For i = 4 To 17 PicaxeRegisters (i - 4) = DataPacket(i) ' pindahkan paket data baru ke dalam array register Next PictureBox1. BackColor = Color. GreenYellow ' working Catch ex As Exception PictureBox1. BackColor = Color. Red ' not working End Try End Sub Sub FTPUpload (ByVal Filename As String) Dim localFile As String 'tempat menyimpan data Dim remoteFile As String' nama file peka huruf besar-kecil ini sangat penting Const Host As String = "ftp://ftp.0catch.com" ' perhatikan 0 adalah a nol bukan karakter O Const username As String = "picaxe.0catch.com" Const password As String = "picaxetester" Redupkan URI As String localFile = Filename ' mungkin tidak diperlukan tetapi jika menentukan lokasi misalnya c:\mydirectory dapat menambahkan dengan mudah dengan cara ini remoteFile = "/" + Filename ' file di server ftp membutuhkan "/" ditambahkan di depan URI = Host + remoteFile Coba Dim ftp As System. Net. FtpWebRequest = CType(System. Net. FtpWebRequest. Create(URI), System. Net. FtpWebRequest) ftp. Credentials = Sistem Baru. Net. NetworkCredential(nama pengguna, kata sandi) ' masuk ftp. KeepAlive = Salah ' akan menjadi pemutusan setelah selesai ftp. UseBinary = True ' use binary comms ftp. Timeout = 9000 ' timeout setelah 9 detik - sangat berguna karena ftp terkadang mati 'timeout (dan frekuensi clock 20 detik) mungkin perlu lebih lambat untuk koneksi dialup ftp. Metode = System. Net. WebRequestMethods. Ftp. UploadFile ' mulai mengirim file Dim fs As New FileStream(localFile, FileMode. Open) ' buka file lokal Dim filecontents(fs. Length) As Byte ' baca ke memori fs. Read(filecontents, 0, fs. Length) fs. Close() ' tutup file Dim requestStream As Stream = ftp. GetRequestStream() ' start ftp link requestSt ream. Write(filecontents, 0, filecontents. Length) ' send it requestStream. Close() ' tutup link PictureBox2. BackColor = Color. GreenYellow ' ubah kotak menjadi hijau untuk mengatakan bekerja ok Label2. Text = "FTP Connected" ' teks mengatakan terhubung Tangkap 'tidak dapat terhubung PictureBox2. BackColor = Color. Red ' kotak menjadi merah karena tidak ada koneksi Label2. Text = "FTP Upload Fail" ' teks mengatakan koneksi gagal End Try End Sub FTPDownload(ByVal Filename As String) ' mengunduh file jarak jauh ke file lokal Dim localFile As String 'tempat menyimpan data Dim remoteFile As String ' nama file peka huruf besar-kecil ini sangat penting Const Host As String = "ftp://ftp.0catch.com" Const username As String = "picaxe.0catch.com" Const password As String = "picaxetester" Redupkan URI As String 'localFile = "C:\" + Filename ' simpan di direktori root tetapi dapat mengubah ini localFile = Filename ' sehingga dapat menambahkan c:\ jika perlu mendefinisikan lokasi aktual remoteFile = "/" + Filename ' ditambahkan ke lokasi ftp jarak jauh URI = host + remoteFile ' make up alamat lengkap Coba Dim ftp As System. Net. FtpWebRequest = CType(System. Net. FtpWebRequest. Create(URI), System. Net. FtpWebRequest) ftp. Credentials = New System. Net. NetworkCredential(nama pengguna, kata sandi) ' log in ftp. KeepAlive = False ' akan terputus setelah selesai ftp. UseBinary = True ' binary mode ftp. Timeout = 9000 ' timeout setelah 9 detik ftp. Method = System. Net. WebRequestMethods. Ftp. DownloadFile ' download file ' baca berkeping-keping sebagai tidak tahu seberapa besar file tersebut Menggunakan response As System. Net. FtpWebResponse = CType(ftp. GetResponse, System. Net. FtpWebResponse) Using responseStream As IO. Stream = response. GetResponseStream Using fs As New IO. FileStream(localFile, IO. FileMode. Create) Dim buffer(2047) As Byte Dim read As Integer = 0 Do read = responseStream. Read(buffer, 0, buffer. Length) ' potongan dari ftp fs. Write(buffer, 0, read) ' dan write to file Loop Hingga read = 0 ' sampai tidak ada lagi potongan responseStream. Close() ' close the ftp file fs. Flush() ' flush clear fs. Close() ' dan close th e file End Using responseStream. Close() ' tutup meskipun tidak ada apa-apa End Using response. Close() PictureBox2. BackColor = Color. GreenYellow ' kotak hijau saat berfungsi Label2. Text = "FTP Connected" ' dan teks mengatakannya bekerja Akhiri Menggunakan Catch ' taruh kode kesalahan di sini PictureBox2. BackColor = Color. Red ' kotak merah karena tidak berfungsi Label2. Text = "FTP Download Fail" ' dan pesan untuk mengatakan ini Akhiri Coba Akhiri Sub Private Sub Timer1_Tick(Pengirim ByVal Sebagai System. Object, ByVal e As System. EventArgs) Menangani Timer1. Tick If ModifyFlag = False Kemudian 'jika pengguna mengubah satu byte maka jangan unduh Label3. Text = "Mengunduh" System. Windows. Forms. Application. DoEvents() ' sehingga teks label baru menampilkan Call FTPDownload(TextBox3. Text) ' download file jarak jauh Label3. Text = "Downloaded" System. Windows. Forms. Application. DoEvents() Panggil ReadRemoteFileToRegisters() ' simpan nomor file ke array register Label3. Text = "Berbicara dengan picaxe" System. Windows. Forms. Application. DoEvents() Else ModifyFlag = Salah 'setel ulang bendera End If Call SerialTxRx() ' kirim ke picaxe dan baca kembali Label3. Text = "Sent and recieved from picaxe" System. Windows. Forms. Application. DoEvents() Panggil DisplayPicaxeRegisters() Panggil SaveRegistersToLocalFile() ' simpan nomor ke file Label3. Text = "Uploading" System. Windows. Forms. Application. DoEvents() Panggil FTPUpload(TextBox3. Text) ' kirim kembali ke situs ftp bernama sebagai nama saya Label3. Text = "Beristirahat" Panggil SaveFTPFilename() ' begitu bunyinya di saat restart End Sub DisplayPicaxeRegisters() Dim i As Integer Dim registernumber As String RichTextBox1. Multiline = True ' sehingga dapat menampilkan lebih dari satu baris dalam kotak teks RichTextBox1. Clear() ' kosongkan kotak teks Untuk i = 0 Sampai 13 registernumber = Trim(Str(i)) ' potong spasi awal Jika i < 10 Kemudian registernumber = "0" + registernumber ' tambahkan 0 ke angka di bawah 10 End If RichTextBox1. AppendText(registernumber + " = " + Str(PicaxeRegisters(i)) + Chr(13)) Selanjutnya ' chr(13) adalah carriage return jadi baris baru End Sub Private Sub Button1_Click(ByVal sender Sebagai System. Object, ByVal e As System. EventArgs) Menangani Button1. Klik Dim i As Integer ' check out of range dulu i = Val(TextBox1. Text) If i <0 Atau i> 13 Kemudian TextBox1. Text = 0 End If i = Val(TextBox2. Text) If i <0 Atau i> 255 Kemudian TextBox2. Text = 0 End If PicaxeRegisters(Val(TextBox1. Text)) = Val(TextBox2. Text) ' ubah nilainya Panggil DisplayPicaxeRegisters() ' dan refresh tampilan ModifyFlag = True ' dan next ftp link skip download End Sub SaveRegistersToLocalFile() ' save register array in a local text file Dim i As Integer FileOpen(1, TextBox3. Text, OpenMode. Output) ' buka file teks bernama in the text box For i = 0 To 13 PrintLine(1, Str(PicaxeRegisters(i))) ' simpan 14 nilai Next FileClose(1) ' tutup file End Sub ReadRemoteFileToRegisters() ' baca file teks lokal ke dalam array register Dim i As Integer Dim LineOfText As String Coba FileOpen(1, TextBox3. Text, OpenMode. Input) ' baca nama file jarak jauh For i = 0 To 13 LineOfText = LineInput(1) ' baca di baris 14 es PicaxeRegisters(i) = Val(LineOfText) ' mengonversi teks menjadi nilai Berikutnya FileClose(1) Tangkap ex Sebagai Pengecualian FileClose(1) ' file tidak ada jadi jangan lakukan apa pun End Coba Akhiri Sub ReadFTPFilename() ' jadi nama file ftp jarak jauh sama saat program ini dijalankan Dim LineOfText As String Coba FileOpen(1, "FTPFilename.txt", OpenMode. Input) ' buka file LineOfText = LineInput(1) TextBox3. Text = LineOfText ' baca name FileClose(1) Tangkap ex Sebagai Pengecualian FileClose(1) End Try End Sub SaveFTPFilename() FileOpen(1, "FTPFilename.txt", OpenMode. Output) ' simpan nama file ftp jarak jauh PrintLine(1, TextBox3. Text) FileClose(1) Akhiri Kelas SubEnd

Langkah 9: Jalankan Program di Kedua PC

Mulai jalankan program dengan mengklik segitiga hijau di tengah atas layar - tombol 'Mulai Debugging'. Tidak ada yang akan terjadi selama 20 detik dan kemudian program akan mencoba menyambung ke server ftp dan akan mencoba menyambung ke picaxe. Kotak gambar akan menjadi merah atau hijau. Lokasi ftp adalah situs web gratis dan siapa pun dapat menggunakan ini tetapi Anda perlu menggunakan nama file kerja ftp yang berbeda (milik saya adalah DoctorAcula1) jika tidak, kita semua dapat berakhir dengan data satu sama lain jika kita menggunakan nama file yang sama! Jika Anda suka, Anda akhirnya bisa mendapatkan situs ftp Anda sendiri - cukup ubah lokasi ftp, nama pengguna dan kata sandi di dua tempat dalam kode dari situs web 0Catch saya. Sebagian besar situs web mengizinkan ftp. Beberapa komputer dapat mengakses file ftp yang sama - file server ftp memilah dalam urutan apa ini terjadi. Kadang-kadang ada bentrokan data atau hang dan ini sepertinya terjadi setiap 20 file dibaca. Ada batas waktu dalam kode jika ini terjadi sehingga tidak mengembalikan data daripada data yang rusak. Menggunakan koneksi broadband dengan kecepatan unggah 128kbs berarti unggahan file membutuhkan waktu sekitar 3 detik tetapi terkadang hingga 8 detik, sebagian besar diambil dalam handshaking daripada transfer data. Ini menetapkan waktu timer1 minimal sekitar 20 detik dengan mempertimbangkan unduhan, unggah, dan obrolan akun dengan picaxe. Dengan broadband yang sangat cepat, Anda mungkin dapat mempersingkat waktu siklus. Anda dapat mengubah register secara manual dalam program VB. Jika Anda melakukannya, siklus pengatur waktu berikutnya akan melewatkan pengunduhan dari situs ftp dan mengirimkan data baru ke picaxe dan kemudian membacanya kembali dan mengunggahnya. Dengan demikian, data baru menemukan jalannya ke semua picax yang terhubung ke grup ini. Ini berguna untuk debugging dan/atau untuk menghubungkan perangkat lunak PC ke loop perangkat keras mikrokontroler. Situs web juga dapat mengakses loop perangkat keras menggunakan skrip PERL atau yang serupa untuk menulis file baru ke situs ftp. Tangkapan layar ini diambil dengan menjalankan chip Tx, sakelar dihidupkan dan register b0 = ke 1 telah dikirim ke chip Rx yang kemudian mengubah register b1 menjadi 1 juga. Dengan demikian, led menyala di kedua papan. Ini adalah aplikasi sepele tetapi mudah untuk menyalakan pompa 3.6Kw alih-alih led. Beberapa ide lainnya ada di https://drvernacula.topcities.com/ termasuk menghubungkan picaxes melalui tautan radio bertenaga surya. Dengan tautan radio plus internet, 'The Machines' dapat menjangkau berbagai penjuru dunia. Ada beberapa ide di forum picaxe tentang mengambil ide ini lebih jauh dan mengganti situs PC dan ftp dengan chip server web khusus yang langsung dicolokkan ke router. Jelas ini akan mengurangi konsumsi daya tautan. Jika Anda tertarik untuk berdiskusi lebih lanjut, silakan posting di komentar Intstructable dan/atau di forum picaxe. Dr James MoxhamAdelaide, Australia Selatan

Langkah 10: Tangkapan Layar Kode

Berdasarkan permintaan, berikut adalah serangkaian tangkapan layar kode vb.net dengan semua pemformatan yang ada. Kode ini sebenarnya disalin kembali dari instruksi ini dan pemformatan muncul kembali secara otomatis. Akan lebih baik untuk menyalin dan menempel teks daripada mencoba membaca gambar-gambar ini tetapi ini akan berguna jika Anda berada di warnet dan tidak dapat menginstal vb.net.

Langkah 11: Tangkapan layar2

Tangkapan layar 2

Langkah 12: Tangkapan layar 3

Tangkapan layar 3

Langkah 13: Tangkapan layar 4

Tangkapan layar 4

Langkah 14: Tangkapan layar 5

Tangkapan layar 5

Langkah 15: Tangkapan layar 6

Tangkapan layar 6