song1st

一般無消費型相機都沒有含GPS模組，其原因是會定位很久，也會增加耗電

股溝了一下，發現可以用手機APP紀錄ＧＰＳ，然後匯出ＧＰＸ，再到電腦上用軟體寫入位置

以下我覺得還不錯用的搭配

iPhone下載Endomondo這個APP，要拍照之前就開啟他然後開始紀錄

通常出國玩我就是一起床就開使讓他紀錄，睡前停止，這樣一整天拍的照片就可以對到位置

 

在MAC OS上，使用GeoTagster這個軟體

1. 先去Endomondo網站下載軌跡(GPX)

2. 打開GeoTagster，先把ＧＰＸ餵給他

3. 把當天的相片全部在餵給他

這樣他就會自動配對位置了

 

用手機紀錄ＧＰＳ給相機拍的相片使用有一點非常重要

就是手機跟相機的時間要對時對準，這是最重要的！

不然到時候位置配對就會有誤差，不過這個軟體有offset可以讓人家調整還不錯

 

然後，因為通常會有室內活動的時間，這時候的ＧＰＳ就會很不準，甚至沒紀錄到

所以這個軟體也可以調整最大配對時間，他預設是60秒內，若有逛一些博物館還是室內展覽通常會配對不到

我的經驗是直接把秒改成分就可以配對到了XD

 

因為我懶得抓圖，所以只有文字說明ＯＲＺ 

 

在左下開始->"搜尋程式及檔案"輸入regedit，開啟修改機碼的視窗
找到HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\Power\CsEnabled
CsEnabled點兩下後，把1改成0
這樣再去"電源計畫"那邊點選"變更計畫設定"，就只會出現"關閉顯示器"的時間調整了
原本的休眠跟關機就沒了
這樣就可以更省電的讓T100變成動物機或是server啦!!!

在顯示器被關閉時只要碰螢幕或按任意鍵，螢幕就會亮起來啦

參考網址:http://spreadsheetpage.com/index.php/tip/chart_trendline_formulas/

最近在分析資料時會需要用到EXCEL圖表產生的趨勢線(Trendline)，這功能很方便可以自動產出趨勢線的公式及誤差(R)，但是圖表產生的公式參數用VBA好像取不出來...(倒)
找到另一個近似的方法

Linear Trendline
Equation: y = m * x + b
m: =SLOPE(y,x)
b: =INTERCEPT(y,x)

Logarithmic Trendline
Equation: y = (c * LN(x)) + b
c: =INDEX(LINEST(y,LN(x)),1)
b: =INDEX(LINEST(y,LN(x)),1,2)

Power Trendline
Equation: y=c*x^b
c: =EXP(INDEX(LINEST(LN(y),LN(x),,),1,2))
b: =INDEX(LINEST(LN(y),LN(x),,),1)

Exponential Trendline
Equation: y = c *e ^(b * x)
c: =EXP(INDEX(LINEST(LN(y),x),1,2))
b: =INDEX(LINEST(LN(y),x),1)

2nd Order Polynomial Trendline
Equation: y = (c2 * x^2) + (c1 * x ^1) + b
c2: =INDEX(LINEST(y,x^{1,2}),1)
C1: =INDEX(LINEST(y,x^{1,2}),1,2)
b = =INDEX(LINEST(y,x^{1,2}),1,3)

3rd Order Polynomial Trendline
Equation: y = (c3 * x^3) + (c2 * x^2) + (c1 * x^1) + b
c3: =INDEX(LINEST(y,x^{1,2,3}),1)
c2: =INDEX(LINEST(y,x^{1,2,3}),1,2)
C1: =INDEX(LINEST(y,x^{1,2,3}),1,3)
b: =INDEX(LINEST(y,x^{1,2,3}),1,4)

參考網址:http://linux.byexamples.com/archives/342/python-how-to-identify-the-type-of-your-variable/
下面這個不能放在print後面
type(var)

所以要用下面這個，就可以在run time時印出變數的type
print var.__class__

若想要在VBA運作時，先關掉所有的conrtrols，等運作完再打開可以參考以下的做法 Controls項目昰在UserForm上

 

Private Sub CommandButton_Click()
    'Disable All Controls while running
    DisableAllControls Me
 
    'Do anything you want...

    'Enable All Controls after finish
    EnableAllControls Me
End Sub


Function EnableAllControls(frm As UserForm)
    Dim ctrl As Controls
    For Each ctrl In frm.Control
        If TypeName(ctrl) = "CommandButton" Or TypeName(ctrl) = "ListBox" Or TypeName(ctrl) = "CheckBox" Or TypeName(ctrl) = "TextBox" Then
            ctrl.Enabled = True
        End If
    Next
    Set ctrl = Nothing
End Function

Function DisableAllControls(frm As UserForm)
    Dim ctrl As Controls
    For Each ctrl In frm.Control
        
        If TypeName(ctrl) = "CommandButton" Or TypeName(ctrl) = "ListBox" Or TypeName(ctrl) = "CheckBox" Or TypeName(ctrl) = "TextBox" Then
            ctrl.Enabled = False
        End If
    Next
    Set ctrl = Nothing
End Function

 

如果Controls昰放在Workbook上的

Private Sub CommandButton_Click()
    'Disable All Controls while running
    DisableAllControls
 
    'Do anything you want...

    'Enable All Controls after finish
    EnableAllControls
End Sub

Function EnableAllControls()
    Dim wks As Worksheet
    For Each wks In Worksheets
        Worksheet.DrawingObjects.Enabled = True
    Next
End Function

Function DisableAllControls()
    Dim wks As Worksheet
    For Each wks In Worksheets
        Worksheet.DrawingObjects.Enabled = False
    Next
End Function

測試...