投影片 1

Size: px

Start display at page:

Download "投影片 1"

菜他塔喇
5 years ago
Views:

1 並列埠輸出入 printer 並列輸出特性提共 8bit 資料傳輸 ( 輸出或輸入 ) 具有閃控 (Strobe): 電腦通知印表機資料備妥具有確認 (ACK): 印表機通知電腦備妥 25Pin D-type 接頭信號分類資料 (Data) 埠 : 輸出 / 入 8bit 狀態 (Status) 埠 : 輸入 5-bit, 印表機至 PC 控制 (Control) 埠 : 輸出 4-bit,PC 至印表機

2 25Pin D-type 接頭圖一 25pin D-type 接腳圖 D0~D7: 資料埠 (I/O) S3~S7: 狀態埠 (I) C0~C3: 控制埠 (O) Pin18~pin25: 接地端 (GND)

3 印表機輸出埠操作模式 IEEE1284.1~4 規格定出五種操作模式 1. 相容模式 : 只能輸出資料 (SPP) 2. 半位元模式 (Nibble Mode): 可將資料分兩次 4bit 輸入 3. 位元模式 (Byte Mode): 雙向資料處理速度可達 200~300MB/S 4. 增強型並列模式 (Enhanced Parallel Port; EPP Mode): 雙向速度 500~2M MB/s, 週邊裝置可以有自己的識別碼,CPU 不再負責交握協定 5. 擴充功能並列埠模式 (Extended Capabilities Port:ECP Mode): 除 EPP 外增加 16Byte FUFO 記憶體增加速度, 支援 DMA 及 RLE(Run Length Encoding) 資料壓縮技術

4 印表機連接埠位址並列埠的位址 3BCH~3BFH: 使用結合影像卡並列埠不提供給 ECP 378H~37FH:LPT 位址 278H~27FH: LPT2 位址

5 378H

6 =379H

7 =37AH

9 輸入擴充至 8 位元圖二 4bit 輸入擴充為 8bit

10 基本輸出測試電路 20 5v 10 圖三資料埠測試

11 輸入測試電路圖四狀態埠測試圖五控制埠測試

12 並列 IO 驅動程式 XP 視窗系統並列 I/O 驅動程式下載 Inpout32.dll 可於 win98 Nt 200 及 xp 使用使用嵌入式驅動模式只須使用 inp32 及 out32 函式不須其它 API 此 DLL 可供 VB 及 VC 使用將 Inpout32.dll copy 至 :c:\windows\system32 增加模組檔 Inp32 及 Out32 Module inpout32t Public Declare Function Inp Lib "inpout32.dll" Alias "Inp32" (ByVal PortAddress As _ Integer) As Integer Public Declare Sub Out Lib "inpout32.dll" Alias "Out32" (ByVal PortAddress As _ Integer, ByVal Value As Integer) End Module

電腦喇叭測試 Public Class Form1 Dim inthz As Integer Private Sub BtnOpen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnOpen.Click Dim division, int_gate As Integer BtnOpen.

13 電腦喇叭測試 Public Class Form1 Dim inthz As Integer Private Sub BtnOpen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnOpen.Click Dim division, int_gate As Integer BtnOpen.BackColor = Color.Red BtnClose.BackColor = Color.DarkGray inthz = Val(TxtHz.Text) If inthz = 0 Then inthz = 10 End If Out(&H43, &HB6) division = / inthz Out(&H42, division Mod 256) `timer 低 byte Out(&H42, division \ 256) int_gate = Inp(&H61) Out(&H61, (int_gate Or 3)) `timer 高 byte End Sub

14 Private Sub BtnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnClose.Click Dim int_gate As Integer BtnClose.BackColor = Color.Red BtnOpen.BackColor = Color.DarkGray int_gate = Inp(&H61) Out(&H61, (int_gate And (Not 3))) End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load BtnOpen.BackColor = Color.DarkGray BtnClose.BackColor = Color.DarkGray End Sub End Class

15 印表機輸出入測試電路如圖三及圖四所示使用物件 : 1. picturebox1~14 其中 1~12 為顯示燈號 13 為紅燈 14 為白燈 2. ButtonBox1 2: 啟動及停止 3. Timer1 2:Timer1 為輸出 bit 切換時間 Timer2 為輸入取樣時間 4. GroupBox1 2: 輸出及輸入群組 5. Label 1: 顯示 " 印表機輸出入埠測試

16 Public Class Form1 Dim intoutdata As Integer Dim intcounter As Integer Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Picbit0.Image = Picoff.Image Picbit1.Image = Picoff.Image Picbit2.Image = Picoff.Image Picbit3.Image = Picoff.Image Picbit4.Image = Picoff.Image Picbit5.Image = Picoff.Image Picbit6.Image = Picoff.Image Picbit7.Image = Picoff.Image Picerr.Image = Picoff.Image PicSel.Image = Picoff.Image PicPout.Image = Picoff.Image PicAck.Image = Picoff.Image Timer1.Enabled = False Timer2.Enabled = False intoutdata = 1 intcounter = 0 End Sub 說明 : 程式開始關閉 Timer 將所有燈號設為 off( 白燈 ) Module inpout32t Public Declare Function Inp Lib "inpout32.dll" _ Alias "Inp32" (ByVal PortAddress As Integer) As Integer Public Declare Sub Out Lib "inpout32.dll" _ Alias "Out32" (ByVal PortAddress As Integer, ByVal Value As Integer) End Module

17 Private Sub Btnstart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnstart.Click Timer1.Enabled = True ` 啟動 Timer1 2 Timer2.Enabled = True End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Select Case intcounter Case 0 Picbit0.Image = Picon.Image Picbit7.Image = Picoff.Image `Timer1 時間到副程式 ` 計數器 intcounter0~7 依序亮燈並把 ` 前一個燈關閉 Case 1 Picbit1.Image = Picon.Image Picbit0.Image = Picoff.Image Case 2 Picbit2.Image = Picon.Image Picbit1.Image = Picoff.Image Case 3 Picbit3.Image = Picon.Image Picbit2.Image = Picoff.Image

18 Case 4 Picbit4.Image = Picon.Image Picbit3.Image = Picoff.Image Case 5 Picbit5.Image = Picon.Image Picbit4.Image = Picoff.Image Case 6 Picbit6.Image = Picon.Image Picbit5.Image = Picoff.Image Case 7 Picbit7.Image = Picon.Image Picbit6.Image = Picoff.Image Case Else End Select intoutdata = 2 ^ intcounter Out(&H378, intoutdata) intcounter += 1 If intcounter = 8 Then intcounter = 0 End If End Sub ` 輸出到 printer port 資料圍 2 的 intcounter 次方 `intcunter 加一若達到最高位元則歸零重新計算

19 Private Sub Btnstop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnstop.Click Out(&H378, 0) ` 程式結束時清除 printer port 輸出 End End Sub Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick Dim instatus As Short Dim errlamp, Poutlamp, sellamp, acklamp As Boolean instatus = Inp(&H379) ` 讀入 printer port 狀態位元值 errlamp = instatus And 8 sellamp = instatus And 16 ` 判別 bit 狀態並顯示燈號為 On 或 Off Poutlamp = instatus And 32 acklamp = instatus And 64 If errlamp Then Picerr.Image = Picon.Image Else Picerr.Image = Picoff.Image If sellamp Then PicSel.Image = Picon.Image Else PicSel.Image = Picoff.Image If Poutlamp Then PicPout.Image = Picon.Image Else PicPout.Image = Picoff.Image If acklamp Then PicAck.Image = Picon.Image Else PicAck.Image = Picoff.Image End Sub End Class

20 步進馬達驅動電路及驅動方式 ComA ComB Data 0 A B A B Vcc Data 1 Data 2 Data 3 圖六步進馬達驅動電路步數 A B A B 步數 A B A B A COM A A 一相激磁兩相激磁 B COM B B 圖七步進馬達接線

21 步數 A B A B A B A B 一相激磁抖動最大 2. 兩相激磁抖動較小 3. 半步激磁運動最平順半步激磁

22 步進馬達控制使用物件 : 1. picturebox1~6:picturebox1~4 顯示四相激磁情況 5~6 為紅燈及白燈 2. TextBox1 2: 輸入預停步數及顯示已行走之步數 3. RadioButton1~5: 激磁方式及正逆轉選擇 4. GroupBox1~3: 激磁狀況群, 激磁方式群及正逆轉群 5. ButtonBox1~2: 啟動及停止按鈕 6. Timer1: 激磁切換速度 7. HScrolBar: 速度調整 8.Label: 各項顯示說明

23 Public Class Form1 Dim singalphase() As Integer = {1, 2, 4, 8, 1, 2, 4, 8} ` 一相激磁 bit0~bit3 Dim twophase() As Integer = {9, 3, 6, 12, 9, 3, 6, 12} ` 兩相激磁 Dim halfstep() As Integer = {9, 1, 3, 2, 6, 4, 12, 8} ` 半步激磁 Dim outputvalue, direct, mode, totalstep As Integer Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Picbit0.Image = Picoff.Image ` 初值設定將 4 個燈號顯示為 off Picbit1.Image = Picoff.Image Picbit2.Image = Picoff.Image Picbit3.Image = Picoff.Image Timer1.Enabled = False End Sub Private Sub Btnstop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnstop.Click Timer1.Enabled = False ` 結束程式將輸出清除 Out(&H378, 0) End End Sub Private Sub BtnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnStart.Click Timer1.Enabled = True ` 啟動程式清除累計步數 totalstep = 0 End Sub

24 Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick Static counter As Integer = -1 ` 使用靜態變數可以將 counter 值保留 If Val(txtsetnum.Text) > 0 Then If totalstep >= Val(txtsetnum.Text) Then Timer1.Enabled = False Out(&H378, 0) ` 若不累進步數達到設定值則停止馬達 Else totalstep += 1 Timer1.Interval = Speedbar.Value ` 讀回 HScrolBar 的值設定 timer If Rdbfor.Checked Then direct = 1 ` 正逆轉旗號正轉 counter+1 If RdbRev.Checked Then direct = -1 ` 逆轉 counter-1 If Rdbsing.CheckAlign Then mode = 1 ` 激磁模式 mode=1 單相 mode=2 兩相 If Rdbfull.Checked Then mode = 2 `mode=3 半步 If Rdbhalf.Checked Then mode = 3 counter += direct If counter > 7 Then counter = 0 ElseIf counter < 0 Then counter = 7 End If

25 Select Case mode ` 依照激磁模式選擇輸出資料表 Case 1 outputvalue = singalphase(counter) Case 2 outputvalue = twophase(counter) Case 3 outputvalue = halfstep(counter) End Select Out(&H378, outputvalue) If (outputvalue And 1) Then Picbit0.Image = Picon.Image Else Picbit0.Image = Picoff.Image End If If (outputvalue And 2) Then Picbit1.Image = Picon.Image Else Picbit1.Image = Picoff.Image End If ` 由輸出資料決定燈號亮滅情況

26 If (outputvalue And 4) Then Picbit2.Image = Picon.Image Else Picbit2.Image = Picoff.Image End If If (outputvalue And 8) Then Picbit3.Image = Picon.Image Else Picbit3.Image = Picoff.Image End If TxtstepNum.Text = totalstep End If End If End Sub End Class ` 顯示目前行走步數

Visual Basic D 3D

Visual Basic D 3D Visual Basic 2008 2D 3D 6-1 6-1 - 6-2 - 06 6-2 STEP 1 5-2 (1) STEP 2 5-3 (2) - 6-3 - Visual Basic 2008 2D 3D STEP 3 User1 6-4 (3) STEP 4 User1 6-5 (4) - 6-4 - 06 STEP 5 6-6 (5) 6-3 6-3-1 (LoginForm) PictureBox1