拯救不读SD卡的G1手机之无卡拍照

我的手机自从不读SD卡以后，手机的相机、播放器功能都变成了摆设。前段时间卡片相机丢失以后，痛感手机无法拍照的不便。

于是GOOGLE了一番，折腾了个APP，让拍照以后将照片直接保存到APP的私有目录而不是SD卡。

APK很小，只有15K，下载地址：http://app.smallsmartsolution.com/ttdc.apk

说明几点：

1、由于是调用系统API拍照的，分辨率是最大值。

2、设置成横屏预览模式。

3、文件保存的路径是/data/data/com.smallsmartsolution.ttdc/，文件名是生成日期时间+.jpg。

4、拍照完成以后系统自动进入照片查看模式，但只查看SD卡的内容，所以象我的情况，其实是没有显示任何内容，需要按返回键退出。这可能是系统API的设定。

5、文件的下载需要利用ADB工具进行，用ECLIPSE的DDMS可以批量下载，没有别的办法。

DestAlarm – an Android APP

DestAlarm is a useful tool for your travel, it will alarm you up ahead of your destination.
The handset GPS will update every 30 seconds or 200 meters, and check current location with your destination, as soon as the distance is less than your set, then it will alarm you by notification and ringtone.
So keep your travel cool with this personal assitance.
Developed by tallrain, any feedback pls contact: tallrain@gamil.com, or RT me @tallrain.

https://market.android.com/details?id=com.smallsmartsolution.destalarm

Xbox/Kinect Tips

1、左手挥向左下角退出KINECT游戏。

2、在XBOX操作面板中，右手扇形挥手可启动KINECT识别。

3、HDMI线的质量会影响视频传播，我之前碰到过电视偶尔黑屏的情况，换线就好了。

4、通过无线路由，XBOX可以和家里的PC组成家庭网(PC采用WIN7操作系统)，可以播放家庭网的视频、音频、照片。但是视频只支持WMV/AVI/MPG，音频只支持WMA。

5、在PC上安装TVersity软件和K-lite codec pack，可以直接在XBOX上播放PC上的RMVB/KMV等视频。

Use Excel to Read XML

Sub Button1_Click()

' clear data

J = Worksheets("Sheet1").UsedRange.Rows.Count + 1

Worksheets("Sheet1").Range(Cells(1, 1), Cells(J, 3)).Clear

 

' to create data

    Dim objDOM As Object

    Dim targetNode As Object

    Dim Clone As Object

    Dim Node As Object

    Dim ChartUnit As Object

    Dim targetNode2 As Object

    Dim Clone2 As Object

    Dim Node2 As Object

    Dim ChartUnit2 As Object

    Set objDOM = CreateObject("MSXML2.DOMDocument") 'UTF8

    'Set objDOM = CreateObject("MSXML.DOMDocument") 'Normal

    objDOM.async = False

    

    facility = "CFSW"

    fname = CStr(Worksheets("Sheet1").Cells(1, 6).Value)

    ret = objDOM.Load(fname)

    Dim objPageHeader As Object

    I = 1

    If ret Then

       Set targetNode = objDOM.DocumentElement.SelectSingleNode("//UserConfig/Facilities/Facility/Connectors").ChildNodes

       For Each Clone In targetNode

            Set ChartUnit = Clone.CloneNode(True)

            Set Node = ChartUnit.FirstChild

            If ChartUnit.HasChildNodes Then

                Connector = Node.Text

                Set targetNode2 = ChartUnit.ChildNodes.Item(11).ChildNodes.Item(0).ChildNodes.Item(10).ChildNodes

                For Each Clone2 In targetNode2

                  Set ChartUnit2 = Clone2.CloneNode(True)

                  Set Node2 = ChartUnit2.FirstChild

                  If ChartUnit2.HasChildNodes Then

                     Device = Node2.Text

                     Worksheets("Sheet1").Cells(I, 1).Value = facility

                     Worksheets("Sheet1").Cells(I, 2).Value = Connector

                     Worksheets("Sheet1").Cells(I, 3).Value = Device

                     I = I + 1

                  End If

                Next Clone2

            End If

       Next Clone

    End If

    

    J = Worksheets("Sheet1").UsedRange.Rows.Count + 1

    

    Columns("A:C").Select

    Range("C1").Activate

    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear

    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range(Cells(1, 2), Cells(J, 2)) _

        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range(Cells(1, 3), Cells(J, 3)) _

        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

    With ActiveWorkbook.Worksheets("Sheet1").Sort

        .SetRange Range(Cells(1, 1), Cells(J, 3))

        .Header = xlGuess

        .MatchCase = False

        .Orientation = xlTopToBottom

        .SortMethod = xlPinYin

        .Apply

    End With

    Rows("1:1").Select

    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

    Range("A1").Select

    ActiveCell.FormulaR1C1 = "Facility"

    Range("B1").Select

    ActiveCell.FormulaR1C1 = "Connector"

    Range("C1").Select

    ActiveCell.FormulaR1C1 = "Device"

    Range("A1:C1").Select

    Selection.Font.Bold = True

    Range("E2:F2").Select

    Selection.Cut

    Range("E1").Select

    ActiveSheet.Paste

    Range("E4").Select

    

End Sub