網頁

標籤雲

2014年10月30日 星期四

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














2014年10月24日 星期五

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

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

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




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



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



就有了

















103電腦硬體裝修術科_工具配置

上課時老師步驟講的有點快 所以很多同學來不及記上步驟

關於軟體除了老師給的也可以參考這篇

需要用到的元件跟要改的屬性

需要用到的元件: 1.TextBox  2.Button  3.Timer  4.OvalShape

需要改的屬性:
(一) From1的
        Text :電腦硬體裝修乙級第N題

(二) OvalShap的
       FillStyle: soid

(三)TextBox1
       TextAlign: Center

(四)Timer
      Enabled: Ture
      Interval: 1000

(五) Button
       Button1
       Text: 綠燈
       Button2
       Text: 紅燈
       Button3
       Text: 離開

1.一開始要先cmd C槽下的 USBHID.dll檔
教室試放在C槽電腦硬體裝修資料夾內所以

開始 >搜尋打上 cmd >右鍵 以系統管理員身分執行

再打上

cd   C:\電腦硬體裝修   (或打 cd c:\電 Tab) 打Tab會自動選字

 regsvr32 USBHID.dll







 2.開啟Microsoft Visual Studio 2010 >新增 >專案 >windows Form







  

       3.加入模組 WindowsApplication1右鍵 > 加入 >新增項目 >模組









Imports Microsoft.VisualBasic.PowerPacks
Module Module1
    Public Function GLED(ByVal i As Integer) As OvalShape
        GLED = Form1.ShapeContainer1.Shapes(i + 8)
    End Function
    Public Function RLED(ByVal i As Integer) As OvalShape
        RLED = Form1.ShapeContainer1.Shapes(i)
    End Function
End Module


繼續程式部份請參考此篇  103電腦硬體裝修術科_程式  http://jktt5230qq.blogspot.tw/2014/10/103_29.html




















2014年10月16日 星期四

如何PDF雙面列印


在PDF列印設定裡面沒有雙面列印的選項
如果要雙面列印的話


2014年10月1日 星期三

swf轉mp4 mpeg-4 Adobe Flash 轉檔

之前用Adobe Flash做好一個動畫檔案是 .swf 可是Adobe Flash又不能直接轉成 mp4

後來在這個網址找到可以轉檔的工具

http://download.cnet.com/Recool-SWF-to-MP4-Converter/3055-6676_4-75557513.html?tag=pdl-redir

如果不能下載的話:
http://download.bestdaylong.com/?s=swftomp4.zip&ok=%E5%B0%8B%E6%89%BE

1.下載完之後 開啟 Recool SWF to MP4 Converter 點 Add SWF



2.點選要轉的SWF檔案 就會出現在下面




3.然後再點Convert


4.   先按play and capture 跑完要轉的部分  (跑的部分他才會轉) 
在按 stop movie 停止  (不然會一直跑)
最後按 finish 完成





5.完成後就開始轉檔



 6.轉檔完成後 mp4檔就出現在原檔案目錄