В прикладі показано, як, використовуючи датчик руху PIR з Raspberry Pi і маючи керування GPIO, за допомогою мови Wolfram говорити, захоплювати зображення і відправляти його електронною поштою щоразу, коли датчик виявить рух.
Щоб відтворити цей приклад знадобиться наступне обладнання (на додаток до самого Raspberry Pi):
Хоча сенсор PIR вимагає живлення 5В, його вихід має «дружелюбні» для Pi 3.3В, тому він може бути підключений безпосередньо до входу GPIO, для чого автор обрав контакт за номером 18. Налаштуйте все, як показано на малюнку нижче, встановіть затримку PIR до спрацювання (близько 2-4 секунд) і його чутливість точно, як зробив автор (переконайтеся, що помаранчеві ручки управління знаходяться в такому ж положенні):
Після того, як все встановили, Ви готові використовувати GPIO з мовою Wolfram на Raspberry Pi.
Налаштуємо вивід 18 для читання, і він повертатиме 1, якщо буде реєстрація руху, та 0 - в іншому випадку:
DeviceConfigure["GPIO",{18->"Input"}]
Ви можете перевірити, що датчик нормально працює наступним чином:
Dynamic[If[DeviceRead["GPIO",18]=={18->1}, Speak["Smile!"]]; UpdateInterval -> 3]
Зверніть увагу, що Raspberry Pi треба динамік, підключений до його 3,5-мм роз'єму.
Тепер можна, нарешті, переслати через електронну пошту зображення порушника за допомогою RaspiCam і наступного шматка коду:
Dynamic[If[DeviceRead["GPIO",18]=={18->1}, Speak["Smile!"]SendMail["To" -> "
Ця електронна адреса захищена від спам-ботів, Вам потрібно включити JavaScript для перегляду
", "Subject" -> "Intruder", "Body" -> {"Intruder's Portrait\n", DeviceRead["RaspiCam"]},"From" -> "
Ця електронна адреса захищена від спам-ботів, Вам потрібно включити JavaScript для перегляду
", "Server" -> "smtp.gmail.com", "UserName" -> "
Ця електронна адреса захищена від спам-ботів, Вам потрібно включити JavaScript для перегляду
", "Password" -> "yourPassword", "PortNumber" -> 587, "EncryptionProtocol" -> "StartTLS"]]; UpdateInterval -> 3]
Звичайно ж, в коді вкажіть адресу електронної пошти на gmail.com та пароль доступу в свою поштову скриньку.
До чого ж все просто з мовою Wolfram!
|