電腦上的串列阜

Size: px

Start display at page:

Download "電腦上的串列阜"

亘卞庄
7 years ago
Views:

1 何謂串列通訊串列通訊 (Serial Communication) bit8 bit7 bit1 bit data bit7 bit8 bit1 bit0 並列轉串列 clk Time

2 串列傳輸方式及比較 RS-232,RS-422,RS-485 發送接收接收發送共地 RS-232 單點接 (Single-Ended), 傳輸距離 :15m 發送接收接收發送共地 RS-422,485 差動訊號傳輸距離 :1200m

3 串列埠的參數串列埠的參數 ( 通訊協定 ) 資料位元 : 日本 PLC 多用 JIS 字元碼只用 7 位元 (ASCII 0~127) 歐美多用 ASCII 碼 8 位元起始位元 : 開始傳輸電位從 Hi 變 Low( 固定為 1 個位元 ) 同位位元 : 防錯機制分偶同位 (Even Parity) 及奇 (Odd) 同位或不加入停止位元 : 有 1,1.5,2 位元一般為 1 個位元傳送速度 : 設資料為 1 個起始位元 +7 個資料位元 +1 個同位位元 +1 個停止位元 =10 位元傳送速度為 :19200bps(Bit Per Second) 則每秒可傳送 1920 byte

4 電腦上的串列埠電腦上的串列埠控制台系統裝置管理員連接埠串列通訊方式同步 : 共同 clk 非同步 : 個自具有獨立 clk 非同步串列通訊協定傳輸率 - 鮑率 (baud) 每秒位元 bps( bit per second), 資料位元同位位元起始位元停止位元

5 串列埠的接腳 (9 pin) 腳位簡寫 / 出入意義 Pin 1 CD /in 振鈴載波 Pin 2 RXD /in 接收資料 Pin 3 TXD /out 傳送資料 Pin 4 DTR /out Data Terminal Ready Pin 5 GND 接地 Pin 6 DSR /in Data Set Ready Pin 7 RTS /out Ready To Send Pin 8 CTS /in Clear To Send Pin 9 RI /in Ringing 振鈴

6 各種串列接線法 DcD RxD TxD DTR DSR RTS CTS RI GND DcD RxD TxD DTR DSR RTS CTS RI GND DcD RxD TxD DTR DSR RTS CTS RI GND DcD RxD TxD DTR DSR RTS CTS RI GND RS-232 最簡易連接 RS-232 虛擬連接 DcD RxD TxD DTR DSR RTS CTS RI GND DcD RxD TxD DTR DSR RTS CTS RI GND 為使兩台電腦完成全雙工交握協定, 須將 RS-232 連接線之一端打開並將第 2 腳與第 3 腳 4 腳與 6 腳第 7 腳與第 8 腳對調 RS-232 全雙工交握協定

RS-232 虛擬連接 1 2 3 4 6 7 8 9 5 DcD RxD TxD DTR DSR RTS CTS RI GND DcD RxD TxD DTR DSR RTS CTS RI GND 1 2 3 4 6 7 8 9 5

7 VB2005 串列通訊類別元件 SerialPort 位於 System.IO.Port 使用方法在程式最前面加入 Imports System.IO.Ports SerialPort 建構方式名稱說明 SerialPort() SerialPort(IContainer) SerialPort(Str) SerialPort(str,Int32) SerialPort(str,Int32,Parity) SerialPort(str,Int32,Parity,In t32) SerialPort(str,Int32,Parity,In t32,stopbits) 初始化 SerialPort 使用指定的 IContainer 初始化 SerialPort 使用指定的連接埠初始化 SerialPort 上項加上傳輸率上項加上同位檢查初始化 SerialPort 上項加上資料位元上項加上停止位元

Ports SerialPort 建構方式名稱說明 SerialPort() SerialPort(IContainer) SerialPort(Str) SerialPort(str,Int32)

8 使用工具箱之 SerialPort

9 SerialPort 常用屬性 BaseStream BaudRate BreakState ByteToRead ByteToWrite CDHolding CtsHolding DataBits DsrHolding DtrEnable Encding Handshake IsOpen NewLine Parity ParityReplace PortName ReadBufferSize ReadTimeOut ReceveBytesThreshold RtsEnable StopBit

Encding Handshake IsOpen NewLine Parity ParityReplace PortName

10 公用方法 Close createobref DiscardInBuffer DiscardOutBuffer Dispose Equals GetHashCode GetPortName GetType Open Read Read Byte ReadChar ReadExisting ReadLine ReadTo ToString Write WriteLine

11 公用事件 DataReceived Disposed ErrorReceived PinChanged 通訊錯誤事件 1. Frame: 框架錯誤一般為傳輸協定設定不符 2. Overrun: 字元緩衝區發生滿溢下一個字元將遺失 3. RXOver: 輸入緩衝區發生溢位或在 EOF 後還收到字元 4. RXParity: 硬體偵測到同位檢查錯誤 5. TXFull: 輸出緩衝區已滿但程式企圖傳送字元

12 Write 的多載 (Overload) SerialPort.Write(str) 將參數字元寫入並傳出 SerialPort.Write(Byte[],Int32,Int32) 將指定位元組數寫入輸出緩衝區 ( 陣列處理 ) SerialPort.Write(Char[],Int32,Int32) 將指定的字元寫入緩衝區 WriteLine 將指定字串和 NewLine 值寫入緩衝區

13 通訊步驟方法一 IMPORTS System.IO.Port Dim Rs232 as SerialPort 方法二選擇工具箱之 SerialPort 元件並將 name 改成 Rs232 使用 Open 方法打開通訊埠 ( 須選擇通訊埠編號 ) 使用 PinChanged 事件判別 CDHolding CtsHolding DsrHolding 使用 DtrEnable RtsEnable 達成交握使用 Write ReadExisting 傳送及接收使用完畢以 close 關閉通訊埠

14 串列埠開啟及使用流程開始加入 Imports System.IO.Port 宣告通訓物件 Dim Rs232 as SerialPort 設定通訊參數進行通訊埠操作以 Open 方法打開通訊埠失敗成功以 Close 關閉通訊埠顯式錯誤訊息結束串列埠開啟及使用流程

15 讀取電腦 Com Port 名稱方法一 : 使用 My.Computer.Ports.SerialPortName For Each sp As String In My.Computer.Ports.SerialPortName ListBox.Items.add(sp) Next 方法二 : 使用 GetProtNmae 公用方法 For Each sp As String in SerialPort.GetPorttName() CobCom.Iterms.Add(sp) Next 方法一使用 ListBox 方法二使用 ComboBox

16 開啟通訊埠 1. Rs232.PortName=CmbCom.SelectedItem.Tostring 2. If (Not Rs232.Isopen) Then 3. Rs232.Open() 4. Else 5. MsgBox( 通訊埠已開啟 ", MsgBoxStyle.Critical Or _ 6. MsgBoxStyle.OkCancel) 7. end 8. End if 1 使用 ComboBox 選取通訊埠後以 Rs232.PortNmae 設定通訊埠 2~8 檢查是否以開啟通訓埠若未開啟則以 Open 方法打開, 若已開啟則傳回錯誤訊息並結束程式

Critical Or _ 6. MsgBoxStyle.OkCancel) 7. end 8.

17 串列埠基本實驗目的 : 練習通訊埠傳輸資料步驟 : 使用以改裝之 Rs232 延長線 (9 pin 母 / 母 ), 將 pin2, pin3 以導線短路開啟 Vb2005 專案使化面如下 btnopenporton cmbcom btncloseporton picdtr btndtr btndtr picrts picoff picon

18 將兩顆發光二極體分別接在 pin4,pin5 及 pin7 pin5 Pin4(DTR) Pin7(RTS) Pin5(GND) 將下列程式鍵入執行程式

19 Imports System.IO.Ports Public Class Form1 ' 表單的 Load 事件中先將所有的通訊埠先列出來 ' 將通訊埠排序, 並將第一個通訊埠設為預設值 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load For Each sp As String In SerialPort.GetPortNames() cmbcom.items.add(sp) Next cmbcom.sorted = True ' 排序 cmbcom.selectedindex = 0 ' 第一個是預設選項 btndtr.enabled = False btnrts.enabled = False

設值 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.

20 '************************************************************* ' 開啟通訊埠按鈕的 Click 事件 ' 此事件將設定通訊埠參數, 並開啟通訊埠 '************************************************************* Private Sub btnopenport_click(byval sender As System.Object, ByVal e As System.EventArgs) Handles btnopenport.click Dim mportname As String mportname = cmbcom.selecteditem.tostring ' 欲開啟的通訊埠 RS232.PortName = mportname ' 指定通訊埠 If Not RS232.IsOpen Then ' 尚未開啟 RS232.Open() ' 開啟通訊埠 RS232.DtrEnable = False RS232.RtsEnable = False picdtr.image = picoff.image picrts.image = picoff.image btndtr.enabled = True btnrts.enabled = True Else MsgBox("~~ 通訊埠開啟錯誤 ( 通訊埠已被開啟 )~~", MsgBoxStyle.Critical Or MsgBoxStyle.OkCancel) End End If

click Dim mportname As String mportname = cmbcom.selecteditem.tostring ' 欲開啟的通訊埠 RS232.PortName = mportname ' 指定通訊埠 If Not RS232.IsOpen Then ' 尚未開啟 RS232.

21 '************************************************************* ' 關閉通訊埠按鈕的 Click 事件 ' 以 Close 方法關閉通訊埠, 並釋放物件所佔用的資源 '************************************************************* Private Sub btncloseport_click(byval sender As System.Object, ByVal e As System.EventArgs) Handles btncloseport.click If RS232 Is Nothing OrElse Not RS232.IsOpen Then ' 尚未開啟 MsgBox("~~ 通訊埠尚未開啟 ~~", MsgBoxStyle.Critical Or MsgBoxStyle.OkCancel) Else RS232.Close() btndtr.enabled = False btnrts.enabled = False End If '************************************************************* ' 結束程式按鈕的 Click 事件 ' 此事件將設定通訊埠參數, 並開啟通訊埠 '************************************************************* Private Sub btnend_click(byval sender As System.Object, ByVal e As System.EventArgs) Handles btnend.click If Not RS232 Is Nothing Then ' 判斷是否已建立通訊物件 If RS232.IsOpen Then RS232.Close() ' 若已開啟, 就將其關閉 End If End

22 ' DTR 控制按鈕的 Click 事件 ' 此事件將使得 DTR 線路狀態發生改變 Private Sub btndtr_click(byval sender As System.Object, ByVal e As System.EventArgs) Handles btndtr.click RS232.DtrEnable = Not RS232.DtrEnable ' 變更狀態 If RS232.DtrEnable Then picdtr.image = picon.image ' 變更為白色圖示 Else picdtr.image = picoff.image ' 變更為紅色圖示 End If ' RTS 控制按鈕的 Click 事件 ' 此事件將使得 RTS 線路狀態發生改變 Private Sub btnrts_click(byval sender As System.Object, ByVal e As System.EventArgs) Handles btnrts.click RS232.RtsEnable = Not RS232.RtsEnable ' 變更狀態 If RS232.RtsEnable Then picrts.image = picon.image ' 變更為白色圖示 Else picrts.image = picoff.image ' 變更為紅色圖示 End If

23 '************************************************************* ' 通訊埠的 KeyPress 事件, 在此不讓使用者輸入資料 '************************************************************* Private Sub cmbcom_keypress(byval sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles cmbcom.keypress e.keychar = ChrW(0) ' 禁止使用者在其中輸入任何的文字 End Class 習題 8-1: 串列埠 Digital Out 練習增加 Timer 使兩 LED 輪流閃滅使用 HScrollBar 控制閃動速度

24 串列埠 Digital In/Out 實驗目的 : 練習串列埠中 Digital IN/Out 步驟 : 完成右邊表單畫面完成 SerialPinChange 事件程式執行程式將 DTR 接到 DSR 及 CTS 將 RTS 接到 DCD 及 RI 觀察輸入情況提示 : 利用 Timer 使 DTR 及 RTS 自動閃滅

25 ' 通訊埠物件的 PinChanged 事件程式 ' 當有硬體線路電位發生變化時, 會引發此事件 ' 接收的程式可以寫在此事件程序中 Private Sub RS232_PinChanged(ByVal sender As Object, ByVal e As System.IO.Ports.SerialPinChangedEventArgs) Handles RS232.PinChanged Dim pinstate As SerialPinChange = e.eventtype ' 那一個事件發生 Timer1.Enabled = False Select Case pinstate Case SerialPinChange.CDChanged 'CD 發生變化 If RS232.CDHolding Then ' 判斷電位高低 picdcd.image = picon.image fdcd = True Else picdcd.image = picoff.image fdcd = False End If Case SerialPinChange.CtsChanged 'CTS 發生變化 If RS232.CtsHolding Then ' 判斷電位高低 piccts.image = picon.image fcts = True Else piccts.image = picoff.image fcts = False End If 註 :fdcd,fcts,fdsr 為布林變數當成旗標 (flag) 使用

26 Case SerialPinChange.DsrChanged 'DSR 發生變化 If RS232.DsrHolding Then ' 判斷電位高低 picdsr.image = picon.image fdsr = True Else picdsr.image = picoff.image fdsr = False End If Case SerialPinChange.Ring 'RI 發生變化 If picri.tag = 0 Then ' 由於沒有相應的屬性可用, 故以狀態予以辨認 picri.image = picon.image picri.tag = 1 ' 狀態記錄 fri = True Else picri.image = picoff.image picri.tag = 0 ' 狀態記錄 fri = False End If End Select Timer1.Enabled = True

27 串列傳輸及 I/O 實驗目的 : 學習串列資料傳輸及 I/O 步驟 : 完成以下表單 btnsend btnrec

28 增加下列程式 Private Sub Btnsend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnsender.Click Rs232.Write(Txtsender.Text.ToString) Private Sub BtnRec_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnRecive.Click TxtRecive.Text = Rs232.ReadExisting 將 Rxd(Pin2),TxD(Pin3) 連接,DTR,DSR 連接 RTS,CTS 連接執行程式, 觀察資料是否正確傳輸作業 8-2: 交握協定通訊 (p2p 之 bbs): 完成兩台電腦交握協定通訊 (1) 以 DTR 通知對方可送資料 (2) 以收到 DSR 才傳送資料 (3) 在 TxT 顯示雙方傳送資料

29 使用 Timer 自動接收資料實驗目的 : 利用 Timer 自動檢查輸入緩衝區並讀回資料步驟 : 安排表單畫面如下

30 ' 開啟通訊埠按鈕的 Click 事件 ' 此事件將設定通訊埠參數, 並開啟通訊埠 Private Sub btnopenport_click(byval sender As System.Object, ByVal e As System.EventArgs) Handles btnopenport.click Dim mportname As String mportname = cmbcom.selecteditem.tostring ' 欲開啟的通訊埠 RS232.PortName = mportname RS232.Encoding = Encoding.ASCII ` 限定為 ASCII 字元 0~127 If Not RS232.IsOpen Then ' 尚未開啟 RS232.Open() ' 開啟通訊埠 btnsend.enabled = True ' 致能傳送按鈕 Timer1.Interval = 100 Timer1.Enabled = True ` 啟動 Timer Else MsgBox("~~ 通訊埠開啟錯誤 ( 通訊埠已被開啟 )~~", MsgBoxStyle.Critical Or MsgBoxStyle.OkCancel) End End If

31 ' 計時器控制項的 Timer 事件 ' 將接收的動作放於其中, 只要有資料就會被接收進來 Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Dim InString As String InString = "" Try ` 使用 try Catch End Try RS232.ReadTimeout = 1000 ` 加入 TimeOut 若超時仍無資料則為錯誤 InString = RS232.ReadExisting() If InString.Length = 0 Then ' 若無資料則跳出 Exit Sub Else txtreceive.text += InString ' 若有資料則加到接收的文字框 End If Catch ex As Exception MessageBox.Show(" 讀取錯誤 :" + ex.tostring, " 錯誤通知 ", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) End Try

32 接收事件處理實驗目的 : 利用接收事件完成資料接收步驟 : 安排表單如上一實驗但不使用 Timer 利用 DataReceived 配合 ReceivedBytesThreshold 表單畫面如下鍵入以下程式

33 Imports System.IO.Ports Imports System.Text Public Class Form1 ' 宣告一個委派類別, 並宣告符合函式參數有一個, 而其型態是字串 Delegate Sub SetTextCallback(ByVal InputString As String) ' 表單的 Load 事件中先將所有的通訊埠先列出來 ' 將通訊埠排序, 並將第一個通訊埠設為預設值 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load For Each sp As String In SerialPort.GetPortNames() cmbcom.items.add(sp) Next cmbcom.sorted = True ' 排序 cmbcom.selectedindex = 0 ' 第一個是預設選項

34 ' 開啟通訊埠按鈕的 Click 事件 ' 此事件將設定通訊埠參數, 並開啟通訊埠 Private Sub btnopenport_click(byval sender As System.Object, ByVal e As System.EventArgs) Handles btnopenport.click Dim mportname As String mportname = cmbcom.selecteditem.tostring ' 欲開啟的通訊埠 RS232.PortName = mportname RS232.Encoding = Encoding.ASCII If Not RS232.IsOpen Then ' 尚未開啟 RS232.Open() ' 開啟通訊埠 Else MsgBox("~~ 通訊埠開啟錯誤 ( 通訊埠已被開啟 )~~", MsgBoxStyle.Critical Or MsgBoxStyle.OkCancel) End End If ' 關閉通訊埠按鈕的 Click 事件 ' 以 Close 方法關閉通訊埠, 並釋放物件所佔用的資源 Private Sub btnclose_click(byval sender As System.Object, ByVal e As System.EventArgs) Handles btnclose.click If RS232 Is Nothing OrElse Not RS232.IsOpen Then ' 尚未開啟 MsgBox("~~ 通訊埠尚未開啟 ~~", MsgBoxStyle.Critical Or MsgBoxStyle.OkCancel) Else RS232.Close() End If

35 Imports System.IO.Ports Imports System.Text Public Class Form1 ' 宣告一個委派類別, 並宣告符合函式參數有一個, 而其型態是字串 Delegate Sub SetTextCallback(ByVal InputString As String) ' 表單的 Load 事件中先將所有的通訊埠先列出來 ' 將通訊埠排序, 並將第一個通訊埠設為預設值 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load For Each sp As String In SerialPort.GetPortNames() cmbcom.items.add(sp) Next cmbcom.sorted = True ' 排序 cmbcom.selectedindex = 0 ' 第一個是預設選項

36 ' 開啟通訊埠按鈕的 Click 事件 ' 此事件將設定通訊埠參數, 並開啟通訊埠 Private Sub btnopenport_click(byval sender As System.Object, ByVal e As System.EventArgs) Handles btnopenport.click Dim mportname As String mportname = cmbcom.selecteditem.tostring ' 欲開啟的通訊埠 RS232.PortName = mportname RS232.Encoding = Encoding.ASCII If Not RS232.IsOpen Then ' 尚未開啟 RS232.Open() ' 開啟通訊埠 Else MsgBox("~~ 通訊埠開啟錯誤 ( 通訊埠已被開啟 )~~", MsgBoxStyle.Critical Or MsgBoxStyle.OkCancel) End End If

37 ************************************************************** ' 關閉通訊埠按鈕的 Click 事件 ' 以 Close 方法關閉通訊埠, 並釋放物件所佔用的資源 Private Sub btnclose_click(byval sender As System.Object, ByVal e As System.EventArgs) Handles btnclose.click If RS232 Is Nothing OrElse Not RS232.IsOpen Then ' 尚未開啟 MsgBox("~~ 通訊埠尚未開啟 ~~", MsgBoxStyle.Critical Or MsgBoxStyle.OkCancel) Else RS232.Close() End If ' 結束程式按鈕的 Click 事件 ' 此事件將設定通訊埠參數, 並開啟通訊埠 Private Sub btnend_click(byval sender As System.Object, ByVal e As System.EventArgs) Handles btnend.click If Not RS232 Is Nothing Then ' 判斷是否已建立通訊物件 If RS232.IsOpen Then RS232.Close() ' 若已開啟, 就將其關閉 End If End

38 ' 通訊埠的 KeyPress 事件, 在此不讓使用者輸入資料 Private Sub cmbcom_keypress(byval sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles cmbcom.keypress e.keychar = ChrW(0) ' 禁止使用者在其中輸入任何的文字 ' 通訊埠物件的 DataReceived 事件程式 ' 當有資料超過 ReceivedBytesThreshold 屬性設定值會引發此事件 ' 接收的程式可以寫在此事件程序中 ' 由於此事件的引發是在另一個執行緒, 因此必須使用委派來處理 Private Sub RS232_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles RS232.DataReceived If e.eventtype <> SerialData.Chars Then Exit Sub ' 判斷接收的資料是否為字元 Dim InString As String InString = RS232.ReadExisting ' 取得字串 DisplayText(InString) ' 顯示資料

39 ' 委派副程式 ' 處理上述通訊埠的接收事件 ' 由於欲將資料顯示到接收文字框中, 因此必須檢查是否由另外的 Thread ' 所呼叫的, 若是, 則必須先建立委派物件 'Invoke 用於在擁有控制項基礎視窗控制代碼的執行緒上執行委派 Private Sub DisplayText(ByVal comdata As String) ' 如果呼叫 txtreceive 的是另外的執行緒, 傳回 True If Me.txtReceive.InvokeRequired Then ' 利用委派型別建立委派物件, 並指定委派的函式 Dim d As New SetTextCallback(AddressOf DisplayText) ' 用大括號 {} 括住初始值, 藉以初始化陣列的值 Me.Invoke(d, New Object() {comdata}) ' 以指定的引數清單叫用函式 Else ' 相同的執行緒 txtreceive.text += comdata ' 將收到的資料入接收文字框中 End If ************************************************************** ' 傳送按鈕的 Click 事件 ' 以 Write 方法送出文字框內的資料 Private Sub btnsend_click(byval sender As System.Object, ByVal e As System.EventArgs) Handles btnsend.click RS232.Write(txtSend.Text & vbcr) End Class

40 ' 結束程式按鈕的 Click 事件 ' 此事件將設定通訊埠參數, 並開啟通訊埠 Private Sub btnend_click(byval sender As System.Object, ByVal e As System.EventArgs) Handles btnend.click If Not RS232 Is Nothing Then ' 判斷是否已建立通訊物件 If RS232.IsOpen Then RS232.Close() ' 若已開啟, 就將其關閉 End If End ' 通訊埠的 KeyPress 事件, 在此不讓使用者輸入資料 Private Sub cmbcom_keypress(byval sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles cmbcom.keypress e.keychar = ChrW(0) ' 禁止使用者在其中輸入任何的文字 ' 通訊埠物件的 DataReceived 事件程式 ' 當有資料超過 ReceivedBytesThreshold 屬性設定值會引發此事件 ' 接收的程式可以寫在此事件程序中 ' 由於此事件的引發是在另一個執行緒, 因此必須使用委派來處理 Private Sub RS232_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles RS232.DataReceived If e.eventtype <> SerialData.Chars Then Exit Sub ' 判斷接收的資料是否為字元 Dim InString As String InString = RS232.ReadExisting ' 取得字串 DisplayText(InString) ' 顯示資料

41 ' 委派副程式 ' 處理上述通訊埠的接收事件 ' 由於欲將資料顯示到接收文字框中, 因此必須檢查是否由另外的 Thread ' 所呼叫的, 若是, 則必須先建立委派物件 'Invoke 用於在擁有控制項基礎視窗控制代碼的執行緒上執行委派 Private Sub DisplayText(ByVal comdata As String) ' 如果呼叫 txtreceive 的是另外的執行緒, 傳回 True If Me.txtReceive.InvokeRequired Then ' 利用委派型別建立委派物件, 並指定委派的函式 Dim d As New SetTextCallback(AddressOf DisplayText) ' 用大括號 {} 括住初始值, 藉以初始化陣列的值 Me.Invoke(d, New Object() {comdata}) ' 以指定的引數清單叫用函式 Else ' 相同的執行緒 txtreceive.text += comdata ' 將收到的資料入接收文字框中 End If

Microsoft Word - 第四章.doc

Microsoft Word - 第四章.doc 第四章 - 試分別說明組合邏輯電路與序向邏輯電路之定義解 : 組合邏輯電路由基本邏輯閘所組成的此種邏輯電路之輸出為電路所有輸入的組合因此輸出狀態可完全由目前之輸入來決定而組合邏輯電路之示意圖如圖所 a 示 ; 而序向邏