Logbook of Martin

BOOT後變更PLL1Q頻率 相關暫存器 PLL1屬SYS_CLK時, 須將SYS_CLK切換到HSI_RC 待PLL1調整完後, 切換回PLL1當SYS_CLK /* Change SYS_CLK is HSI */ __HAL_RCC_SYSCLK_CONFIG(RCC_SYSCLKSOURCE_HSI); /* Disable the main PLL. */ __HAL_RCC_PLL_DISABLE(); /* Wait till PLL is ready */ while(__HAL_RCC_GET_FLAG(RCC_FLAG_PLLRDY) != 0U); RCC->PLL1DIVR &= ~0x007F0000; RCC->PLL1DIVR |= ((96 - 1) << 16); //vco1_ck/96 /* Enable the main PLL. */ __HAL_RCC_PLL_ENABLE(); /* Wait till PLL is ready */ while(__HAL_RCC_GET_FLAG(RCC_FLAG_PLLRDY) == 0U); /* Change SYS_CLK is PLL */ __HAL_RCC_SYSCLK_CONFIG(RCC_SYSCLKSOURCE_PLLCLK); 直接HAL Libray marco方式

設定->偏好設定->程式語言->縮排設定->使用空格

Keil 預設情形下 , 針對未呼叫的 Function 會發出警告 L16, compiler 也會分配其空間給未呼叫的 Function, 在 embedded system 中是相當浪費空間 *** WARNING L16: UNCALLED SEGMENT, IGNORED FOR OVERLAY PROCESS Keil 有提供參數 , 可關閉 Warning L16 與空間釋放 Step 1: 進入 Options for Target 的 Device 分頁 , 勾選 Use Extended Linker (LX51) instead of BL51 Step 2: 接著點選 LX 51 M isc 分頁 , 在 Misc controls 填入 REMOVEUNUSED , 點選 OK 完成設定 重新 compiler, L16 警告消失並且釋放占用的 memory space

使用 For Each 迴圈將 Split Func. 回傳的陣列傳入 Collection Object Dim tmp, x Dim buf As New Collection tmp = ListFiles(ActiveWorkbook.Path & "\config\", "*.txt") ' Split Function tmp = Split(tmp, "|") ' Assign to Collection Object For Each x In tmp buf.Add x Next x ' Print For Each x In buf Debug.Print x Next x

Silicon Laboratories IDE加入lib文件步驟 Project > Target Build Configuration > Customize > Files to Link > Add External OBJ

https://support.microsoft.com/zh-tw/help/291308/how-to-select-cells-ranges-by-using-visual-basic-procedures-in-excel Microsoft 僅提供示範性的程式設計範例，不做任何明示或默示的保證。 其中包括 (但不限於) 其適售性與適合某特定用途之默示擔保。 本文將假設您已相當熟悉示範所使用的程式設計語言，以及用於建立和偵錯程序的工具。 Microsoft 技術支援工程師可以協助說明特定程序的功能，但無法修改這些範例以提供附加功能或建構程序來滿足您的特定需求。  本文中的範例會使用下表中所列的 Visual Basic 方法。 方法 引數 ------------------------------------------ Activate none Cells rowIndex, columnIndex Application.Goto reference, scroll Offset rowOffset, columnOffset Range cell1 cell1, cell2 Resize rowSize, columnSize Select none Sheets index (or sheetName) Workbooks index (or bookName) End direction CurrentRegion none 本文中的範例會使用下表中的屬性。 屬性 用途 --------------------------------------------------------------------- ActiveSheet 指定使用中的工作表 ActiveWorkbook 指定使用中的活頁...

Private Sub SomeSub(Optional SomeParam As Integer = 0) ' user code End Sub Ref https://docs.microsoft.com/zh-tw/dotnet/visual-basic/programming-guide/language-features/procedures/optional-parameters https://stackoverflow.com/questions/4071820/default-value-for-function-parameters-in-vb6