PC电脑远端控制器.pdfVIP

PC 電腦遠端控制器 篇名 PC 電腦遠端控制器 作者 謝彰哲。高雄高工。資訊三甲 1 PC 電腦遠端控制器 壹●前言 二年級上學期時，在微電腦課程中的 I/O 控制有敎到正反器，在電子學也談到了電壓調 整電路，如果能將這兩項原件結合並且加上時脈產生器，和七段顯示器…等等，就能在 七段顯示器上顯示一連串的循環數字。例如：我是用學號的最後一碼：2，往上加 1 加三 次，第一個數字是 2，然後是 3、4、5，第 4 個數字又回到原本的 2，諸如此類，不斷的 循環下去；由於每按一次時脈產生器才能加 1 而跳到下一個數字，所以我想了一個改良 的辦法：在個人電腦上用Visual Basic 程式控制，設計一連串的脈波訊號，如次一來，七 段顯示器上就會顯示出4 個不斷循環的數字。 貳●正文 一、功能說明 利用Visual Basic 控制RS232 介面，產生一連串的脈波訊號，再連接至數字產生電路。流 程圖如下： 個人電腦Visual Basic 程式控制 RS232 介面: RTS/ DTS MAX232 電壓介面轉換 脈波信號數位電路跳學號數字 圖一：系統流程圖 二、電路圖 01.電源電路(利用7805 穩壓IC):產生5 伏特直流電壓 圖二：電源穩壓電路 2 PC 電腦遠端控制器 02.MAX232 電壓介面轉換電路 圖三：MAX232 電壓介面轉換電路 參、軟體設計 01.軟體執行畫面 圖四：軟體執行畫面 02.程式碼 3 PC 電腦遠端控制器 使用命令按鈕控制項 使用Shape 外觀控制項 依不同的狀況變更Shape 物件的填滿顏色 並變更線路的電壓狀態 Private Sub cmdDTR_Click() MSComm 1.DTREnable = Not MSComm 1.DTREnable If MSComm 1.DTREnable Then spDTR.FillColor = RGB(255, 0, 0) Else spDTR.FillColor = RGB(0, 0, 0) End If End Sub 使用命令按鈕控制項 關閉通訊埠 結束系統 Private Sub cmdEND_Click() MSComm 1.PortOpen = False End End Sub 使用命令按鈕控制項 使用Shape 外觀控制項 依不同的狀況變更Shape 物件的填滿顏色 並變更線路的電壓狀態 Private Sub cmdRTS_Click() MSComm 1.RTSEnable = Not MSComm 1.RTSEnable If MSComm 1.RTSEnable Then spRTS.FillColor = RGB(255, 0, 0) Else spRTS.FillColor = RGB(0, 0, 0) End If End Sub 表單的載入事件 開啟通訊埠，通訊埠的參數也可以在開啟之前作 設定，然後再開啟通訊埠 Private Sub Form_Load() MSComm 1.PortOpen = True End Sub 4 PC 電腦遠端