投稿類別 : 資訊類篇名 : 8 8 十六位元行列轉換器的研究作者 : 林韋伸市立大安高工電子三甲陳建宏市立大安高工電子三甲王鍾諺市立大安高工電子三甲指導老師 : 楊仁元主任

Size: px

Start display at page:

Download "投稿類別 : 資訊類篇名 : 8 8 十六位元行列轉換器的研究作者 : 林韋伸市立大安高工電子三甲陳建宏市立大安高工電子三甲王鍾諺市立大安高工電子三甲指導老師 : 楊仁元主任"

右索于
4 years ago
Views:

1 投稿類別 : 資訊類篇名 : 作者 : 林韋伸市立大安高工電子三甲陳建宏市立大安高工電子三甲王鍾諺市立大安高工電子三甲指導老師 : 楊仁元主任

LED 點矩陣元件依照需求工作, 背後需要詳細的轉換及運算程式碼, 才能驅動硬體, 為了能在工作時能更有效率, 我們便研究了這 8x8 十六位元的行列轉換器, 能依照使用者的要求產生 16

2 壹前言何謂矩陣? 就是從多維的問題事件中, 找出成對的因素, 排列成矩陣圖 LED 點矩陣 (matrix tutorial) 就是將 8x8 的 LED 以矩陣的方式排列成形, 但在程式的世界中要讓這一 LED 點矩陣元件依照需求工作, 背後需要詳細的轉換及運算程式碼, 才能驅動硬體, 為了能在工作時能更有效率, 我們便研究了這 8x8 十六位元的行列轉換器, 能依照使用者的要求產生 16 進制數值, 利於燒錄單晶片的程式設計圖 1-1:8 8 LED 點矩陣來源 : 儲存檔案列變色開啟檔案版權頁行變色圖形規劃區行轉換行反轉列轉換全變色清除列反轉結果輸出區圖 1-2:8 8 十六位元行列轉換器 1

3 貳正文此次的專題主要是用 VisualBasi c 2008 這套軟體進行製作 8x8 行列轉換器, 使其能將圖形轉換成 16 進制數值, 以便之後單晶片的規劃及燒錄, 進而製作出各式產品, 如跑馬燈 LED 顯示器等一專題製作方法與步驟如圖 2-1, 根據此次題目先選擇所要使用的程式類型, 並且將 8x8 十六位元行列轉換器分開成行轉換列轉換兩種主要架構以及清除等次要功能, 在依次進行程式撰寫 VB 程式列行清除全變色儲存讀取列反轉列轉換行轉換行反轉行變色列變色二預期成果圖 2-1: 製作程式實施步驟本程式的目標成果是使其行與列轉換的十六進制數字轉換正確, 完整的讀取選取的 TXT 文件檔內之十六進制數字並顯示圖形在程式上, 且能完全的清除重置 (RESET), 及確保操控界面人性化, 以利使用者在設計 8x8 LED 點矩陣時, 得到所期望顯示之圖形此程式設計時, 需盡可能的簡短程式碼的行數達到所預期之功能, 以便之後的除錯 (DEBUG) 三運作方法此程式的畫面呈現一個 8x8 矩陣, 並在矩陣的上方及左方各加上 8 個按鈕及行轉換列轉換和清除等按鈕, 使用者可以依據所需要的圖形繪製在矩陣上, 平常矩陣呈現白色, 點其一下就會反黑, 等圖形繪製完後按下行轉換或者列轉換, 就會將所顯示的圖形轉換為 16 進制, 進而達到轉換的目的, 之後再延伸出了能將 16 進制數值儲存成 TXT 檔輸出與讀取 TXT 檔兩種功能, 接著利用行反轉和列反轉等按鈕將讀取入程式的 16 進制數值反轉成圖形 2

4 四軟體架構 ( 功能介紹 ) 1. 行轉換 ( 列轉換以此類推 ) Private Sub line_click(byval sender As System.Object, ByVal e As System.EventArgs) Handles line.click Dim pbout As PictureBox ` 定義出暫存的 PictureBox Dim X, Y As Integer ` 定義出回圈計算變數 Dim out As String = "" ` 預設轉換用字串為空白 result.text = "" ` 預設結果輸出字串為空白 For X = 0 To 7 out = "" For Y = 1 To 8 pbout = Me.Controls("PictureBox" & (8 * X + Y)) ` 抓取 PictureBox 控制權 If pbout.backcolor = Color.White Then ` 判斷 PictureBox 顏色 out &= "0" ` 白色為 0 out &= "1" ` 黑色為 1 dec(out) ` 二進制轉乘十六進制 result.text &= ("{0x" & (out) & "} ") ` 輸出成 C 語言用的十六進制表示法 2. 二進制轉十六進制函式 Sub dec(byref out As String) out = Hex(Val(Mid(out, 5, 1)) * 2 ^ 0 + Val(Mid(out, 6, 1)) * 2 ^ 1 + Val(Mid(out, 7, 1)) * 2 ^ 2 + Val(Mid(out, 8, 1)) * 2_ ^ 3) & Hex(Val(Mid(out, 1, 1)) * 2 ^ 0 + Val(Mid(out, 2, 1)) * 2 ^ 1 + Val(Mid(out, 3, 1)) * 2 ^ 2 + Val(Mid(out, 4, 1)) *_ 2 ^ 3) 3. 行反轉 ( 列反轉以此類推 ) Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If result.text = "" Then ` 判斷結果區是否為空 MsgBox(" 請讀取數值再轉換!!!!!", MsgBoxStyle.Critical) 3

5 Dim pbout As PictureBox ` 定義出暫存的 PictureBox Dim X, Y As Integer ` 定義出回圈計算變數 Dim tempx, tempy As String ` 定義出暫存字串的變數 Dim setin As String = "" ` 定義出暫存結果的字串變數 Dim temp As String ` 定義出暫存字串的變數 For X = 0 To 7 bin(mid(result.text, 7 * X + 5, 1)) ` 抓取十六進制轉成二進制 tempy = Module1.tempB ` 將二進制存入暫存 bin(mid(result.text, 7 * X + 4, 1)) ` 抓取十六進制轉成二進制 tempx = Module1.tempB ` 將二進制存入暫存 temp = StrReverse(tempX & tempy) ` 反轉整個字串 For Y = 1 To 8 setin = Mid(temp, Y, 1) pbout = Me.Controls("PictureBox" & (8 * X + Y)) ` 抓取 PictureBox 控制權 If setin = 1 Then ` 判斷字串結果 pbout.backcolor = Color.Black ` 結果為 1 變色為黑 pbout.backcolor = Color.White ` 結果為 1 變色為黑 4. 十六進制轉二進制函式 Sub bin(byref x As String) Select Case x Case "F" tempb = "1111" Case "E" tempb = "1110" Case "D" tempb = "1101" Case "C" tempb = "1100" Case "B" 4

6 tempb = "1011" Case "A" tempb = "1010" Case "9" tempb = "1001" Case "8" tempb = "1000" Case "7" tempb = "0111" Case "6" tempb = "0110" Case "5" tempb = "0101" Case "4" tempb = "0100" Case "3" tempb = "0011" Case "2" tempb = "0010" Case "1" tempb = "0001" Case "0" tempb = "0000" End Select 5. 單行變色函式 ( 單列變色函式以此類推 ) Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Dim pbout As PictureBox Dim X, Y As Integer Y = 1 ` 第一行變色, 其他行以此類推 For X = 0 To 7 pbout = Me.Controls("PictureBox" & (8 * X + Y)) ` 抓取 PictureBox 控制權 change(pbout) ` 改變顏色函式 5

7 6 全變色函式 Private Sub Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.Click Dim X, Y As Integer Dim pbout As PictureBox For Y = 1 To 8 ` 掃描所有 PictureBox For X = 0 To 7 pbout = Me.Controls("PictureBox" & (8 * X + Y)) ` 抓取 PictureBox 控制權 change(pbout) ` 改變顏色函式 7. 改變顏色函式 Sub change(byref pbout As PictureBox) If pbout.backcolor = Color.White Then pbout.backcolor = Color.Black pbout.backcolor = Color.White ` 判斷背景顏色 ` 白色就轉成黑色 ` 黑色就轉成白色 8. 圖形製作函式 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load For Each pbout As Control In Me.Controls ` 掃描所有物件 If TypeName(pbout) = "PictureBox" Then ` 判斷是否為 PictureBox pbout.backcolor = Color.White ` 預設所有 PictureBox 為白色 AddHandler pbout.click, AddressOf All_PictureBox_click ` 交控制權給改變函式 Private Sub All_PictureBox_click(ByVal sender As System.Object, ByVal e As System.EventArgs) Dim pbout As Object = CType(sender, PictureBox) change(pbout) ` 使每次點取後變色 6

8 9. 清除函式 Private Sub clear_click(byval sender As System.Object, ByVal e As System.EventArgs) Handles clear.click result.text = "" ` 預設結果輸出字串為空白 For Each pbout As Control In Me.Controls ` 掃描所有物件 If TypeName(pbout) = "PictureBox" Then ` 判斷是否為 PictureBox pbout.backcolor = Color.White ` 預設所有 PictureBox 為白色 10. 儲存檔案函式 Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles_ ToolStripButton1.Click If result.text = "" Then ` 判斷結果區是否為空 MsgBox(" 請輸出數值再儲存!!!!!", MsgBoxStyle.Critical) Me.SaveFileDialog1.Filter = " 文字檔 (*.txt) *.txt" ` 設定存檔類型 If Me.SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then ` 判斷是否存檔 My.Computer.FileSystem.WriteAllText(Me.SaveFileDialog1.FileName, Me.result.Text, False,_ System.Text.Encoding.Default) ` 將檔案存檔 11. 開啟檔案函式 Private Sub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles_ ToolStripButton2.Click Me.OpenFileDialog1.Filter = " 文字檔 (*.txt) *.txt" ` 設定開啟類型 Me.OpenFileDialog1.FileName = "" ` 預設開啟檔案名稱區空白 If Me.OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then ` 判斷是否開啟 Me.result.Text = My.Computer.FileSystem.ReadAllText(Me.OpenFileDialog1.FileName,_ System.Text.Encoding.Default) ` 將檔案開啟 7

12. 關閉反悔函式 Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs)_ Handles Me.FormClosing If MsgBox(" 您確定要關閉本程式?", MsgBoxStyle.

9 12. 關閉反悔函式 Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs)_ Handles Me.FormClosing If MsgBox(" 您確定要關閉本程式?", MsgBoxStyle.Question or MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then e.cancel = False ` 執行關閉 e.cancel = True ` 取消關閉參結論一. 結論原先我們專題是製作圓柱形 LED 暫態顯示器, 其中的程式碼部分太過簡單, 故屬於程式組的我們決定額外開發協助軟體, 而要驅動 LED 點矩陣發亮需利用到掃描 16 進制數值, 故我們開發出來的這個程式是以圖形化製作再將其轉為 16 進制數值, 且為了更方便的圖形化製作, 我們還設計了行跟列的反白跟全反白, 為了保存我們的圖形及 16 進制數值我們還設定了儲存跟讀取, 以利使用二. 成果展示圖 3-1: 行列變色圖 3-2: 全變色圖 3-3: 確認關閉 8

10 圖 3-4: 行轉換圖 3-5: 列轉換圖 3-4: 檔案儲存圖 3-5: 檔案開啟 9

11 肆引註資料 [1] 董大偉. 許雅婷 (2005) VisualBasic2005 程式設計與案例剖析台北市杭州路一段 15-1 號 19 樓旗標出版股份有限公司 [2] 李啟龍. 俞冠廷 (2008) VisualBasic2008 程式設計 16 堂特訓台北市忠孝西路一段 50 號 B3 文魁資訊股份有限公司 [3] 吳進北. 江漢榕. 黃建霖 (2005) 學會寫程式 VisualBasic2005 台北市南港區南港路三段 52 號 7 樓碁峰資訊股份有限公司 [4] 江嘉頡. 李長沛 (2008) VisualBasic2008 網路遊戲程式設計台北市南港區南港路三段 52 號 7 樓碁峰資訊股份有限公司 [5] 資訊教育研究室 (2008) VisualBasic2008 從零開始台灣台北縣汐止市新台五路一段 94 號 6 樓 C 棟博碩文化股份有限公司 [6] 康庭數位 (2008) VisualBasic2008 程式設計學習教本台北市文山區秀明路二段 112 巷 1 弄 18 號 4 樓藍海文化事業股份有限公司 [7] 數位新知 (2008) VisualBasic2008 程式實例教學範本台灣台北縣汐止市新台五路一段 94 號 6 樓 C 棟博碩文化股份有限公司 [8] 曹祖聖蔡文龍林義証吳昱欣 (2008) VisualBasic2008 程式設計精典台北市南港區南港路三段 52 號 7 樓碁峰資訊股份有限公司 10

Microsoft PowerPoint - VB14.ppt

Microsoft PowerPoint - VB14.ppt VB 列表盒 LISTBOX 應用資科系林偉川執行畫面 1 2 1 重要屬性 LISTBOX 物件 (VB6) 新增至 LISTBOX 物件中 ADDITEM 自 LISTBOX 物件中刪除選取物件 REMOVEITEM 自 LISTBOX 物件中取出選取物件 ListIndex 顯示 LISTBOX 物件中紀錄個數 Listcount 3 LISTBOX 物件 (VB.NET) 重要屬性新增至

投稿類別 : 資訊類 篇名 : 8 8 十六位元行列轉換器的研究 作者 : 林韋伸 市立大安高工 電子三甲陳建宏 市立大安高工 電子三甲王鍾諺 市立大安高工 電子三甲 指導老師 : 楊仁元主任

投稿類別 : 資訊類篇名 : 8 8 十六位元行列轉換器的研究作者 : 林韋伸市立大安高工電子三甲陳建宏市立大安高工電子三甲王鍾諺市立大安高工電子三甲指導老師 : 楊仁元主任