昀淡風青: 硬體

顯示具有硬體標籤的文章。顯示所有文章

2017年4月12日星期三

出現錯誤訊息0x00000002 / 列印時出現錯誤訊息

最近要列印文件時 , 出現以下錯誤訊息

經過查詢後有兩種解決方法

若你是共用印表機 , 對印表機那台電腦執行此動作

÷點擊左下繼續閱讀

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日星期五

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

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

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

學校有的軟體資源 http://jktt5230qq.blogspot.tw/2014/06/blog-post_15.html

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

需要用到的元件: 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

2013年11月28日星期四

硬碟分割工具spfdisk

先準備一片spfdisk 光碟或iso檔
=================================================================
使用Oracle VM VirtualBox 如果直接使用本機請忽略分隔線內

新增 > DOS > other >DOS > 4MB >建立 >VDI >動態 >建立 winwin288(spfdisk的iso檔)