Поиск по сайту
Результаты поиска по тегам 'Bluetooth'.
Найдено 1 результат
-
Всем привет! В этой теме я расскажу о своей программе "Bluetooth" на плате проводной или беспроводной сети. Что же она делает? Всё очень просто=) Отправляет файлы через модем. Рассмотрим её получше. Я на планшете открываю файл с произвольным именем.Пишу в него всякую ерунду: http://joxi.ru/gmv6e07IDRy4ma Сохраняю его и пишу bluetooth: http://joxi.ru/DmB1EQxhlYd0rP Мне надо отправить этот файл. Я подхожу к компьютеру и пишу : "bluetooth -get testTheBlue.lua 25" http://joxi.ru/823nja5FYl64mO Теперь выполняю команду на планшете: "bluetooth -send testTheBlue.lua 25" http://joxi.ru/RmzKg0zcDKW42O Нажимаю Enter! Компьютер получил код с планшета и вышел из программы: http://joxi.ru/gmv6e07IDRx4ma Запускаю программу и... ура! Вот,что написал компьютер: http://joxi.ru/xAeNen5hKqpPry Вот код: com=require("component") if com.isAvailable("modem") then modem=com.modem else error("Нет модема!") end event=require("event") term=require("term") fs=require("filesystem") args={...} func=args[1] fileNAME=args[2] PORT=tonumber(args[3]) ENDOFGETTHEFILE=true if func==nil or fileNAME==nil or PORT==nil then print("Использование: -get <filename> <port> для получения файла\n -send <filename> <port> для отправки") end function sendFile(filename, port) modem.open(port) for line in io.lines(filename) do modem.broadcast(port, line) end modem.broadcast(port, "ENDOFTHECURRENTLYFILE") modem.close(port) end function getFile(filename, port) modem.open(port) getted=io.open(filename, "w") while ENDOFGETTHEFILE do _, _, _, _, _, LINE = event.pull("modem_message") if LINE=="ENDOFTHECURRENTLYFILE" then getted:flush() getted:close() ENDOFGETTHEFILE=false else print(LINE) getted:write(LINE.."\n") end end end if func=="-get" then if fs.exists(fileNAME) then print("Данный файл уже существует! Задайте другое имя!"); error() else getFile(fileNAME, PORT) end elseif func=="-send" then if not fs.exists(fileNAME) then print("Такой файл не найден!"); error() else sendFile(fileNAME, PORT) end end
- 11 ответов
-
- 5
-
- modem
- OpenComputers
-
(и ещё 2 )
Теги: