Android 開發人員選項 顯示觸控回應 / 螢幕上有會滑鼠一樣的點點 (以紅米為例)

想知道到底是手機當機 所以點了沒反應 ,

 還是只是因為太慢 其實有點到

就可以開啟顯示觸控回應,來知道到底手機有沒有反應

我是因為覺得很可愛才想用的

因為我的拍不出點點所以拿一張別人的螢幕照片當範例

以下紅米

其他Adroid方式也大同小異

1.先到 [設定] >[關於手機]  

(我的已經用了才會有開發人員選項,預設式隱藏的)

2. [Android版本] > 狂點他  >直到出現你已經是開發人員

3.[開發原選項] > [顯示觸控回應]

在設定觸控回應後

如果手機沒反應 連觸控回應也沒出來

那可以肯定 手機是當機沒錯

Excel VBA 格線變大 / Twip值

想要調整excel VBA表單格線

[工作選項] > [一般] >[表單格線設定]

Excel VBA 存檔後就不能用/活頁簿存檔後就找不到

最近剛開始練習excel VBA 遇到了一些問題

就是存檔之後就不能用了

是因為存檔後會產生副檔名

1.還沒有存檔之前 成功的新增了活頁簿

2.存成舊的副檔名 程式才會保留

 3.然後同樣的程式就發生了錯誤了

4.因為存檔後會產生副檔名 所以加入副檔名之後就可以了

解決方法 : 先存檔後再指定檔名

Excel VBA 工作表編號 /活頁簿編號出錯/即時運算 讓他告訴你活頁簿名稱

最近剛開始練習excel VBA 遇到了一些問題

我刪掉了一些活頁簿,然後想在活頁簿4新增工作表的時候出錯了

想要知道活頁簿的名子 就在即時運算打  ? Workbooks (編號).Name  讓他告訴你

ex : ? Workbooks (2).Name

1.[檢視] > [即時運算視窗]

2.[Enter] 之後就會告訴你他叫做活頁簿4

成功新增

PhotoImpact .ufo 檔無法刪除 / .ufo無法刪除

我的是windows 7 系統,用PhotoImpact 10 存成 .ufo檔之後就無法刪除了

1.要刪除它就不給你刪

2.去[工具] > [資料夾選項] > [一律顯示圖示,不顯示縮圖]

3.然後再重新開機,就可以刪了

參考網址:http://home.gamer.com.tw/creationDetail.php?sn=542527

Excel 2010 VBA 顯示開發人員選項

預設開發人員選項不會開啟,要寫excel VBA要先把開發人員選項開啟

1.按一下 [檔案] 索引標籤 > 按一下 [選項]

2.按一下 [自訂功能區] > 在 [自訂功能區] 下，選取 [主要索引標籤] 中的 [開發人員] 核取方塊

參考網址:http://office.microsoft.com/zh-tw/support/HA101819080.aspx

chrome 瀏覽器不能 ctrl + f 搜尋

chrome 瀏覽器不能 ctrl + f 搜尋的解決方法

1.設定 > 顯示進階設定 > 系統  > 在可用時使用硬體加速 (勾勾拿掉)

2.在重啟瀏覽器就可以了 

App Inventor 2 / 線上App 開發平台

我要介紹一個 線上App 開發平台 叫做 App Inventor 2 

以直覺、圖像化的拼塊方式開發App

要登入google帳號

網址：http://ai2.appinventor.mit.edu/#5708542469210112

這裡有關於 App Inventor 2 的教學

http://www.appinventor.tw/exm

關閉windows 7 硬碟掃描

造成壞軌的原因

壞軌的種類非常多，而大略上可以分為邏輯式壞軌及物理毀損兩大類。

邏輯式壞軌

邏輯式壞軌的形成原因實在是多如牛毛，諸如應用程式 Bug 所造成的檔案配置表錯誤覆蓋、電腦病毒直接清洗檔案配置表、硬碟格式化不完全、硬碟遭受外力強磁磁化之類的意外情形都會造成資料式的毀損，不過邏輯式壞軌的硬碟壞軌卻出乎意料的好修復，只要進行低階格式化或是將備份的檔案配置表回復就可以了。 

物理式毀損

物理式的毀損又稱之為實體壞軌，造成的原因幾乎全是使用者或是外力的問題，例如最常見的直接關閉電腦電源、或是停電造成硬碟讀寫頭直接降落在磁盤上，刮傷磁片，或是搬運硬碟中不小心的碰撞或是直接摔在地上，硬碟讀取頭直接的撞上磁盤等方式直接的毀損了硬碟的磁盤，而這類的實體壞軌是無論你如何的格式化都無法修復的，只能使用軟體去標示起來讓系統跳過讀取壞軌的區域，以免系統錯誤以至於當機。

每次開機都會跑出硬碟掃描,如果確定不是自己的問題或是誤判就可以強制關閉硬碟掃描

1.強制關閉：
指令  chkntfs /x 磁碟機代號

ex:     chkntfs /x c: d:

2.恢復自動掃描的功能：

指令  chkntfs /d

參考網址:

http://pensieve4me.wordpress.com/2007/12/18/%E7%A1%AC%E7%A2%9F%E5%A3%9E%E8%BB%8C%E7%9A%84%E6%88%90%E5%9B%A0%E3%80%81%E7%A8%AE%E9%A1%9E%E8%88%87%E4%BF%AE%E5%BE%A9%E5%AF%A6%E6%88%B0/

http://chengbin.pixnet.net/blog/post/23822069-063-%E5%A6%82%E4%BD%95%E9%97%9C%E9%96%89%E9%96%8B%E6%A9%9F%E6%99%82%E7%9A%84%E7%A1%AC%E7%A2%9F%E8%87%AA%E5%8B%95%E6%8E%83%E6%8F%8F

PDF壓縮 / PDF檔案太大無法寄e-mail

昨天有人問我掃描成圖片後PDF檔案太大無法寄e-mail怎麼辦

然後我就找到了一個網站 關於PDF壓縮的

smallpdf 網址：       http://smallpdf.com/cn

1.選PDF壓縮

 2.把PDF拖曳到框內 或是點選擇文件

3.上傳需要點等待時間 

4.完成壓縮 >下載文件  下載壓縮好的PDF 

相關文章

PDF壓縮 / PDF檔案太大無法寄e-mail

http://jktt5230qq.blogspot.tw/2014/11/pdf-pdfe-mail.html

如何PDF雙面列印

http://jktt5230qq.blogspot.tw/2014/10/pdf.html

線上word PDF 轉換

http://jktt5230qq.blogspot.tw/2014/02/word-pdf.html

資料庫應用 上課複習題目

1.      利用Access建立一個”客戶資料表”,包含以下欄位:

§客戶編號(文字,10)(主索引鍵)

§客戶名稱(文字,200)

§客戶電話(文字,12)

§客戶地址(備忘)

將excel裡的客戶資料匯入客戶資料表

說明=空白資料庫 >檢視 >檔名 客戶資料表 > 識別碼 右鍵 刪除列 >

打入欄位 >建立主索引 >儲存

Microsoft Excel 2010  =   Microsoft Excel 2013

文字                                      簡短文字

備忘                                      長文字

2.新增一查詢,查詢姓孫的客戶名稱所有資料

說明=反白孫 >選取項目開始於孫>進階篩選>點全部欄位>儲存

3.利用表單精靈新增一表格式表單,包含客戶資料表所有欄位

說明=建立 >表單精靈 >所有欄位 >表格式

4.利用報表精靈新增一單欄式報表,包含客戶編號.客戶名稱,客戶電話三個欄位

說明=報表精靈 >客戶編號.客戶名稱,客戶電話三個欄位 >有無排序都可 題目沒要求>單欄式

5.     再新增一”客戶訂單資料表”, 包含以下欄位:

§訂單編號(文字,10)(主索引鍵)

§客戶編號(文字,10)

§訂單數量(數字)

§訂單金額(數字)

說明=建立 >資料表 > 下步驟同第一題(略)

6.建立客戶及客戶訂單二資料表的資料庫關聯圖.

§以客戶編號

§勾選強迫參考完整性

說明=資料庫工具 >資料表關聯圖 >顯示資料表>CTRL 點選兩個 >客戶編號拉到客戶編號

> 勾 強迫參考完整性 >建立

103電腦硬體裝修術科_程式

繼上次的 103電腦硬體裝修術科_元件配置 http://jktt5230qq.blogspot.tw/2014/10/103.html

以下為程式部份

1.對Form1,Button1,Button2,Button3,Timer 點兩下就可以寫程式,上面部分就不用打,自己會產生

2.打入程式後 USBHID 下面會出現毛毛蟲代表尚未把 USBHID.dll加入參考

3.加入步驟= 專案 >加入參考 >com >USBHID

4.加入後就沒有毛毛蟲了

4.最後按下 開始偵錯 就可以插入板子開始測了

程式如下

Imports Microsoft.VisualBasic.PowerPacks
Imports USBHID

Public Class Form1
    Dim usbHID As New HID
    Dim send(8) As Byte
    Dim A, B(99), c
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        B(0) = 1
        B(1) = 2
        B(2) = 4
        B(3) = 8
        B(4) = 16
        B(5) = 32
        B(6) = 64
        B(7) = 128

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        A = 1
        c = 0

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        A = 2
        c = 0
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        A = 3

    End Sub

    Private Sub display(ByVal no)
        For i = 0 To 7
            If no Mod 2 = 1 And A = 1 Then GLED(i).FillColor = Color.LightGreen
            If no Mod 2 = 1 And A = 2 Then RLED(i).FillColor = Color.Red
            no = no \ 2
        Next i
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        TextBox1.Text = "Current Time:" & TimeOfDay()
        For i = 0 To 7
            GLED(i).FillColor = Color.White
            RLED(i).FillColor = Color.White
        Next
        If usbHID.OpenHIDDevice(&H1234, &H6789) Then
            For i = 0 To 7
                GLED(i).FillColor = Color.DarkGreen
                RLED(i).FillColor = Color.DarkRed

            Next i
            send(0) = 0
            send(1) = 0
            usbHID.HIDSetReport(send)
            send(0) = 0
            send(1) = 16
            usbHID.HIDSetReport(send)
            If A = 2 And c <= 7 Then
                send(0) = 2 ^ c
                send(1) = 32
                usbHID.HIDSetReport(send)
                send(0) = 2 ^ c
                send(1) = 48
                usbHID.HIDSetReport(send)
                display(2 ^ c)
            Else
                display(0)

            End If
            If A = 1 Then
                send(0) = B(c)
                send(1) = 0
                usbHID.HIDSetReport(send)
                display(B(c))
            End If
        End If
        If A = 3 Then usbHID.CloseHIDDevice() : End
        If c > 15 Then c = 15 Else c = c + 1
    End Sub

End Class

Visual Studio 2013 新增工具 Microsoft Visual Basic Power Packs 的ovalshape工具

Visual Studio 2013 預設沒有ovalshape工具所以要另外裝

點此下載 http://go.microsoft.com/fwlink/?LinkId=321343

1.下載完之後 右鍵 >內容 >以相容模式執行 >以系統管理員身分執行

2.在工具箱右鍵 >加入索引標籤 >在標籤222裡右鍵 >選擇項目

3.篩選裡打 oval > 打勾 > 確定

就有了

參考網址:http://ntcoder.com/bab/2013/12/20/visualbasic-powerpack-missing-from-visual-studio-2013/

參考網址:http://www.microsoft.com/en-us/download/details.aspx?id=25169