16.11.2018 г.

BME680 BREAKOUT


Запяване на BME680 Breakout платката и свързване към пинове 1, 3, 5, 7 и 9  на вашият Raspberry pi.













Инсталиране на софтуер


Първо трябва да разрешите I2C интерфейса на вашето Raspberry pi

sudo raspi-config
избираме опция 5 Intefacing Options > P5 I2C > Enable > Yes или може да използвате скрипта по-долу
curl https://get.pimoroni.com/i2c | bash
След това в терминала въведете следното, за да клонирате хранилището и да го инсталирате:
git clone https://github.com/pimoroni/bme680
cd bme680/library
sudo python setup.py install

Сега библиотеката трябва да бъде инсталирана. Ще намерите примерите в 
bme680/examples.
sudo pip install bme680
Или можете да използвате инсталатора ни от една линия, който трябва да настрои и инсталира всичко в едно и да изтегли примерите в папката:
/home/pi/Pimoroni/bme680/examples
curl https://get.pimoroni.com/bme680 | bash

За да изпълните примера, въведете следното:

cd /home/pi/bme680/examples
python read-all.py
Оставете примера да работи за няколко минути или за поне 20 минути, ако не сте го използвали преди (наблюдавайте стабилизирането на показанията за устойчивост на газа). Можете да натиснете Ctrl+C, за да спрете изпълнението на примера.
Ако искате да регистрирате стойностите на датчика в текстов файл, лесно можете да направите това, като пренасочите изхода на програмата към текстов файл в терминала, както следва:
python read-all.py > bme680-data.txt

Split Word Document

В Microsoft Word  > ALT+ F11 > Insert > Module
Поставяте скрипта.
Run или F5 за да изпълни скрипта.
Скрипта ще раздели файла на страници в същата директория. Или ако примерно имате 100 страници ще ви създаде 100 файла в формат името_на_файла_0001.doc …_0002.doc и т.н.

MSWord_split.vbs

Sub SplitIntoPages()
Dim docMultiple As Document
Dim docSingle As Document
Dim rngPage As Range
Dim iCurrentPage As Integer
Dim iPageCount As Integer
Dim strNewFileName As String
Application.ScreenUpdating = False 'Makes the code run faster and reduces screen _
flicker a bit.
Set docMultiple = ActiveDocument 'Work on the active document _
(the one currently containing the Selection)
Set rngPage = docMultiple.Range 'instantiate the range object
iCurrentPage = 1
'get the document's page count
iPageCount = docMultiple.Content.ComputeStatistics(wdStatisticPages)
Do Until iCurrentPage > iPageCount
If iCurrentPage = iPageCount Then
rngPage.End = ActiveDocument.Range.End 'last page (there won't be a next page)
Else
'Find the beginning of the next page
'Must use the Selection object. The Range.Goto method will not work on a page
Selection.GoTo wdGoToPage, wdGoToAbsolute, iCurrentPage + 1
'Set the end of the range to the point between the pages
rngPage.End = Selection.Start
End If
rngPage.Copy 'copy the page into the Windows clipboard
Set docSingle = Documents.Add 'create a new document
docSingle.Range.Paste 'paste the clipboard contents to the new document
'remove any manual page break to prevent a second blank
docSingle.Range.Find.Execute Findtext:="^m", ReplaceWith:=""
'build a new sequentially-numbered file name based on the original multi-paged file name and path
strNewFileName = Replace(docMultiple.FullName, ".doc", "_" & Right$("000" & iCurrentPage, 4) & ".doc")
docSingle.SaveAs strNewFileName 'save the new single-paged document
iCurrentPage = iCurrentPage + 1 'move to the next page
docSingle.Close 'close the new document
rngPage.Collapse wdCollapseEnd 'go to the next page
Loop 'go to the top of the do loop
Application.ScreenUpdating = True 'restore the screen updating
'Destroy the objects.
Set docMultiple = Nothing
Set docSingle = Nothing
Set rngPage = Nothing
End Sub