Skip to main content

Search This Blog

實作色彩系統轉換程式 (VB 6.0)

實作色彩系統轉換程式 (VB 6.0)

實作色彩系統轉換程式（VB 6.0）

下載原始碼及執行檔

介紹

RGB轉HSI

image.png

HSI轉RGB

當0°≦H<120°時，B值最小，因此如下式：

image.png

當120°<H≦240°時。

image.png

CMYK轉RGB

　　tCMYK = {C,M,Y,K}
轉換成三分色
　　tCMY = {C',M',Y'} = {C(1 - K) + K,M(1 - K) + K,Y(1 - K) + K}
然後再轉換成RGB
　　tRGB = {R,G,B} = {1 - C',1 - M',1 - Y'}
同理結果如下：
　　tRGB = {1 - (C(1 - K) + K),1 - (M(1 - K) + K),1 - (Y(1 - K) + K)} = {1 - C(1 - K) - K,1 - M(1 - K) - K,1 - Y(1 - K) - K} 　　 　　

RGB轉CMYK

　　tRGB = {R,G,B}
先轉換成三分色
　　tCMY = {C',M',Y'} = {1 - R,1 - G,1 - B}
　　if min{C',M',Y'} = 1
　　tCMYK = {0,0,0,1}
再轉換成四分色
　　K = min{C',M',Y'}
image.png

RGB轉YUV

Y=0.299R+0.587G+0.114B
U=0.493(B-Y)=0.439(-0.29R-0.587G+0.886B)
V=0.877(0.701R-0.587G-0.114B)
YUV與RGB關係如下：
image.png

RGB與YUV關係如下：
image.png

將其正規化，可以將RGB和YUV都在0到255之間轉換。所以可以採用下列的程式：

R = Y + (1.4075 * (V - 128))    
G = Y - (0.3455 * (U - 128) - (0.7169 * (V - 128))     
B = Y + (1.7790 * (U - 128)    
Y = R * .299 + G * .587 + B * .114    
U = R * -.169 + G * -.332 + B * .500 + 128    
V = R * .500 + G * -.419 + B * -.0813 + 128

YIQ與RGB之間的關係如下：
image.png

RGB與YIQ之間的關係如下：

image.png

YCbCr與RGB的關係如下：
image.png

RGB與YCbCr關係如下：
image.png

環境

作業系統：Microsoft Windows 7 (64 bit)
開發工具：Microsoft Visual Basic 6.0

用法

image.png

程式碼


'設定所有變數必須宣告才能使用
Option Explicit
Private Sub Form_Load()
    '載入影像
    Picture1.Picture = LoadPicture(App.Path & "\Lai, Tai-Yu.bmp")
    '設定picture1計算單位為像素
    Picture1.ScaleMode = 3
    '設定picture1自動重繪有效
    Picture1.AutoRedraw = True
End Sub

'Picture1滑鼠移動事件
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    '宣告RGB變數
    Dim intR, intG, intB
    '獲取RGB值
    intR = (Picture1.Point(X, Y) And &HFF)
    intG = (Picture1.Point(X, Y) \ &H100) And &HFF
    intB = (Picture1.Point(X, Y) \ &H10000) And &HFF
    '顯示RGB值
    labRGB_R.Caption = "R = " & intR
    labRGB_G.Caption = "G = " & intG
    labRGB_B.Caption = "B = " & intB
    '宣告轉換至HSV所需變數
    Dim intS
    Dim dobH, dobS, dobV
    Dim intMax, intMin, intD
    '開始轉換HSV
    intMin = min(intR, intG, intB)
    intMax = max(intR, intG, intB)
    dobV = intMax / 255
    intD = intMax - intMin
    If (intR = intG) And (intG = intB) Then
       dobH = 0
    Else
       dobH = Arccos((0.5 * ((intR - intG) + (intR - intB))) / _
              (Sqr(((intR - intG) * (intR - intG) + (intR - intB) * (intG - intB)))))
    End If
    If intB > intG Then
       dobH = 2 * 3.1415 - dobH
    End If
    If intMax > 0 Then
       dobS = intD / intMax
    Else
       dobS = 0
    End If
    '顯示HSV數值
    labHSV_H.Caption = "H = " & Format(dobH, "0.##")
    labHSV_S.Caption = "S = " & Format(dobS, "0.##")
    labHSV_V.Caption = "V = " & Format(dobV, "0.##")
    '宣告YUV變數
    Dim YUV_Y, YUV_U, YUV_V
    '開始轉換，矩陣相乘
    YUV_Y = 0.299 * intR + 0.587 * intG + 0.114 * intB
    YUV_U = 0.439 * (-0.29 * intR - 0.587 * intG + 0.886 * intB)
    YUV_V = 0.877 * (0.701 * intR - 0.587 * intG - 0.114 * intB)
    '顯示YUV數值
    labYUV_Y.Caption = "Y = " & Format(YUV_Y, "0.##")
    labYUV_U.Caption = "U = " & Format(YUV_U, "0.##")
    labYUV_V.Caption = "V = " & Format(YUV_V, "0.##")
    '宣告YIQ變數
    Dim YIQ_Y, YIQ_I, YIQ_Q
    '開始轉換，矩陣相乘
    YIQ_Y = 0.299 * intR + 0.587 * intG + 0.114 * intB
    YIQ_I = 0.596 * intR + (-0.275 * intG) + (-0.321 * intB)
    YIQ_Q = 0.212 * intR + (-0.523 * intG) + 0.311 * intB
    '顯示YIQ數值
    labYIQ_Y.Caption = "Y = " & Format(YIQ_Y, "0.##")
    labYIQ_I.Caption = "I = " & Format(YIQ_I, "0.##")
    labYIQ_Q.Caption = "Q = " & Format(YIQ_Q, "0.##")
    '宣告YCbCr變數
    Dim YCbCr_Y, YCbCr_Cb, YCbCr_Cr
    '開始轉換，矩陣相乘
    YCbCr_Y = 0.299 * intR + 0.587 * intG + 0.114 * intB
    YCbCr_Cb = (-0.1687 * intR) + (-0.3313 * intG) + 0.5 * intB + 128
    YCbCr_Cr = 0.5 * intR + (-0.4187 * intG) + (-0.0813 * intB) + 128
    '顯示YCbCr數值
    labYCbCr_Y.Caption = "Y = " & Format(YCbCr_Y, "0.##")
    labYCbCr_Cb.Caption = "Cb = " & Format(YCbCr_Cb, "0.##")
    labYCbCr_Cr.Caption = "Cr = " & Format(YCbCr_Cr, "0.##")
    '宣告CMYK變數
    Dim CMYK_C, CMYK_M, CMYK_Y, CMYK_K
    '開始轉換CMYK
    CMYK_C = 255 - intR
    CMYK_M = 255 - intG
    CMYK_Y = 255 - intB
    If CMYK_C < CMYK_M Then
       CMYK_K = CMYK_C
    Else
       CMYK_K = CMYK_M
    End If
    If CMYK_Y < CMYK_K Then
       CMYK_K = CMYK_Y
    End If
    If CMYK_K > 0 Then
       CMYK_C = CMYK_C - CMYK_K
       CMYK_M = CMYK_M - CMYK_K
       CMYK_Y = CMYK_Y - CMYK_K
    End If
    '顯示CMYK數值
    labCMYK_C.Caption = "C = " & Format(CMYK_C, "0.##")
    labCMYK_M.Caption = "M = " & Format(CMYK_M, "0.##")
    labCMYK_Y.Caption = "Y = " & Format(CMYK_Y, "0.##")
    labCMYK_K.Caption = "K = " & Format(CMYK_K, "0.##")
End Sub

'尋找最小值函式
Private Function min(intA As Variant, intB As Variant, intC As Variant)
    '宣告最小值變數
    Dim intMin As Integer
    'A若小於等於B
    If intA <= intB Then
       '最小值為A
       intMin = intA
    '反之
    Else
       '最小值為B
       intMin = intB
    End If
    '最小值變數大於C
    If intMin > intC Then
       '最小值設定為C
       intMin = intC
    End If
    '回傳最小值
    min = intMin
'結束函式
End Function

'搜尋最大值函式
Private Function max(intA As Variant, intB As Variant, intC As Variant)
    '宣告最大值變數
    Dim intMax As Integer
    '當A值大於等於B值
    If intA >= intB Then
       '最大值為A
       intMax = intA
    '反之
    Else
       '最大值為B
       intMax = intB
    End If
    '當最大值變數小於C
    If intMax < intC Then
       '則最大值變數設定為C
       intMax = intC
    End If
    '回傳最大值
    max = intMax
'結束函式
End Function

' Inverse Cosine (反餘弦)函式
Private Function Arccos(X)
    '避免除以零的情況
    On Error Resume Next
    ' Inverse Cosine (反餘弦)函式
    Arccos = Atn(-X / Sqr(-X * X + 1)) + 2 * Atn(1)
'結束函式
End Function

例外

如果執行檔不能執行，請先安裝vbrun60sp6.exe。

參考

[1] https://www.wikipedia.org/

致謝

感謝 (維基自由百科) 提供的知識。

下載原始碼及執行檔

Posted by -
Newer Posts Home Older Posts

Popular posts from this blog

數位影像處理：最佳化處理策略之快速消除扭曲演算法

Image
最佳化處理策略之快速消除扭曲演算法 我們的論文（最佳化處理策略之快速消除扭曲演算法；A Quickly Dewarping Algorithm of Optimization Processing Strategy）被 2019 工程科技應用研討會 接受了。 會議地點在台北城市科技大學的工程學院，舉辦日期是西元二零一九年四月十二日。 最近，全景影像的應用逐漸變得越來越有用。優點是一個能夠捕捉3​​60度影像的相機。但是，360度影像是圓形影像。因此，Dewarping技術有助於圓形影像轉換為平面影像。在本研究中，不需要參考額外的信息，如攝像機參數，鏡頭參數，視頻或影像參數等。本研究提出了去扭曲演算法的優化處理策略。策略和演算法進一步改善了性能。快速去扭曲演算法能夠將圓（全景影像）快速變換為平面影像。優化處理策略能夠提高演算法的性能。用於評估性能，本研究中使用的CPU負載。比較其他Dewarping演算法的性能。結果，這項研究在性能方面優於其他Dewarping演算法。 本研究旨在研究去扭曲演算法的快速計算和低CPU負載。 例如，圖2是原始影像。 圖3顯示了本研究的基線。 圖4是研究的結果影像（全景影像）。 圖2 原始影像 圖3 顯示了本研究的基線 圖4 研究的結果影像（全景影像） 表1是比較概覽表[8]。 有六家公司的演算法和我們提出的演算法。 這項研究支持所有魚眼相機和特殊魚眼相機（Cata-Fisheye相機）。 有不同之處在於是否使用GPU。 雖然有兩家公司使用GPU進行去扭曲演算法。 但是，當應用OpenCL來使用GPU時，NUUO的去扭曲演算法的CPU負載為19％。 當源影像的分辨率為1920 x 1440時，我們提出的CPU負載為3.65％。圖5是我們提出的演算法的CPU負載圖。 表1 比較概覽表 User additional effort Generic De-warp Support vendor Calibration GPU Acceleration NUUO No need ...
Read more

寫作：波蘭文學習之旅：1-1. 波蘭文字母與發音（注音版）

Image
波蘭文學習之旅：1-1. 波蘭文字母與發音（注音版） 波蘭文字母(Alfabet Polski) 波蘭語是中歐的西斯拉夫語言，也是波蘭的官方語言。它的書面標準是波蘭語字母表，對應於拉丁字母表，有幾個附加內容。 波蘭語的人在波蘭大部分地區以統一的方式使用這種語言。 它也是繼俄語和烏克蘭語之後使用最廣泛的第三種斯拉夫語言。波蘭語的本地名稱是 polski（波蘭語），język polski（波蘭語），或者更正式的 polszczyzna（波蘭語）。 波蘭文字母、名稱、注音對照表 注意：這張表是我整理出來，經波蘭友人聽我的發音，確認聲音相似度高，才製作完成。 但發音要更道地，仍然還有不同波蘭文字母搭配後，改變發音的情況。因此這張簡表只能說是參考用，以及快速建立發音基礎。 Letter Name 注音 複合字母     A a a ㄚˋ Letter Name 注音 Ą ą ą ㄥˋ Ch, ch ce/ha ㄏㄜ˙ B b be ㄅㄜ˙ Ci, ci ce/i ㄑㄧ C c ce(ㄘㄟˋ) ㄘ Cz, cz ce/zet ㄔ Ć ć cie(ㄑㄧㄝˋ) ㄑ Dz, dz de/zet ㄗ D d de ㄉㄜ˙ Dzi, dzi de/zet/i ㄐㄧ˙ E e e ㄟˋ ...
Read more

Python 日期與時間的處理

Image
Python 日期與時間的處理 Python 日期與時間的處理 ¶ 在 Python 中，常見處理日期與時間的套件，如下： time datetime relativedelta calendar 　　 引用方式，如下：　　 import time from datetime import datetime from dateutil.relativedelta import relativedelta import calendar time.time() 函數 ¶ time.time() 可以傳回從 1970/1/1 00:00:00 算起至今的秒數： In [1]: # 匯入 time 模組 import time # 從 1970/1/1 00:00:00 至今的秒數 seconds = time . time () # 列印結果 print ( seconds ) 1613001756.3572578 time.time() 通常是用來作為時間戳記，例如測量程式執行時間。 In [6]: import time # 紀錄起始時間 start_time = time . time () # 撰寫程式，例如：迴圈執行 a = 0 for _ in range ( 10000000 ): a += 1 # 紀錄結束時間 end_time = time . time () # 將結束時間減去起始時間，等於執行時間 time_cost = end_time - start_time # 顯示執行時間 print ( f "Time Cost: { time_cost } seconds" ) ...
Read more

數位影像處理：最佳化處理策略之快速消除扭曲演算法

Image
最佳化處理策略之快速消除扭曲演算法 我們的論文（最佳化處理策略之快速消除扭曲演算法；A Quickly Dewarping Algorithm of Optimization Processing Strategy）被 2019 工程科技應用研討會 接受了。 會議地點在台北城市科技大學的工程學院，舉辦日期是西元二零一九年四月十二日。 最近，全景影像的應用逐漸變得越來越有用。優點是一個能夠捕捉3​​60度影像的相機。但是，360度影像是圓形影像。因此，Dewarping技術有助於圓形影像轉換為平面影像。在本研究中，不需要參考額外的信息，如攝像機參數，鏡頭參數，視頻或影像參數等。本研究提出了去扭曲演算法的優化處理策略。策略和演算法進一步改善了性能。快速去扭曲演算法能夠將圓（全景影像）快速變換為平面影像。優化處理策略能夠提高演算法的性能。用於評估性能，本研究中使用的CPU負載。比較其他Dewarping演算法的性能。結果，這項研究在性能方面優於其他Dewarping演算法。 本研究旨在研究去扭曲演算法的快速計算和低CPU負載。 例如，圖2是原始影像。 圖3顯示了本研究的基線。 圖4是研究的結果影像（全景影像）。 圖2 原始影像 圖3 顯示了本研究的基線 圖4 研究的結果影像（全景影像） 表1是比較概覽表[8]。 有六家公司的演算法和我們提出的演算法。 這項研究支持所有魚眼相機和特殊魚眼相機（Cata-Fisheye相機）。 有不同之處在於是否使用GPU。 雖然有兩家公司使用GPU進行去扭曲演算法。 但是，當應用OpenCL來使用GPU時，NUUO的去扭曲演算法的CPU負載為19％。 當源影像的分辨率為1920 x 1440時，我們提出的CPU負載為3.65％。圖5是我們提出的演算法的CPU負載圖。 表1 比較概覽表 User additional effort Generic De-warp Support vendor Calibration GPU Acceleration NUUO No need ...
Read more

寫作：波蘭文學習之旅：1-1. 波蘭文字母與發音（注音版）

Image
波蘭文學習之旅：1-1. 波蘭文字母與發音（注音版） 波蘭文字母(Alfabet Polski) 波蘭語是中歐的西斯拉夫語言，也是波蘭的官方語言。它的書面標準是波蘭語字母表，對應於拉丁字母表，有幾個附加內容。 波蘭語的人在波蘭大部分地區以統一的方式使用這種語言。 它也是繼俄語和烏克蘭語之後使用最廣泛的第三種斯拉夫語言。波蘭語的本地名稱是 polski（波蘭語），język polski（波蘭語），或者更正式的 polszczyzna（波蘭語）。 波蘭文字母、名稱、注音對照表 注意：這張表是我整理出來，經波蘭友人聽我的發音，確認聲音相似度高，才製作完成。 但發音要更道地，仍然還有不同波蘭文字母搭配後，改變發音的情況。因此這張簡表只能說是參考用，以及快速建立發音基礎。 Letter Name 注音 複合字母     A a a ㄚˋ Letter Name 注音 Ą ą ą ㄥˋ Ch, ch ce/ha ㄏㄜ˙ B b be ㄅㄜ˙ Ci, ci ce/i ㄑㄧ C c ce(ㄘㄟˋ) ㄘ Cz, cz ce/zet ㄔ Ć ć cie(ㄑㄧㄝˋ) ㄑ Dz, dz de/zet ㄗ D d de ㄉㄜ˙ Dzi, dzi de/zet/i ㄐㄧ˙ E e e ㄟˋ ...
Read more

Python 日期與時間的處理

Image
Python 日期與時間的處理 Python 日期與時間的處理 ¶ 在 Python 中，常見處理日期與時間的套件，如下： time datetime relativedelta calendar 　　 引用方式，如下：　　 import time from datetime import datetime from dateutil.relativedelta import relativedelta import calendar time.time() 函數 ¶ time.time() 可以傳回從 1970/1/1 00:00:00 算起至今的秒數： In [1]: # 匯入 time 模組 import time # 從 1970/1/1 00:00:00 至今的秒數 seconds = time . time () # 列印結果 print ( seconds ) 1613001756.3572578 time.time() 通常是用來作為時間戳記，例如測量程式執行時間。 In [6]: import time # 紀錄起始時間 start_time = time . time () # 撰寫程式，例如：迴圈執行 a = 0 for _ in range ( 10000000 ): a += 1 # 紀錄結束時間 end_time = time . time () # 將結束時間減去起始時間，等於執行時間 time_cost = end_time - start_time # 顯示執行時間 print ( f "Time Cost: { time_cost } seconds" ) ...
Read more

Visual Basic .Net (VB.Net) 程式語言案例學習 (06. 題庫測驗系統)

Image
Visual Basic .Net (VB.Net) 程式語言案例學習 (06. 題庫測驗系統) Visual Basic .Net (VB.Net) 程式語言案例學習 (06. 題庫測驗系統) ¶ 6.1 問題 ¶ 這是一個題庫練習的程式，分為循序練習及模擬（電腦亂數選題）練習，循序練習會依序將題庫中所有題目列出，讓受測者作答。而模擬練習則由電腦出題，抽出一百題讓受測者測驗。題型分為是非題跟選擇題，因此答題介面設計上就必須依照題型而有所變化。最後是成績顯示，顯示答對題數以及答錯題數，並計算出成績。成績計算之後便會顯示正確答案，受測者可以瀏覽所有的正確答案。 6.2 需求 ¶ 表格 6-1 「題庫測驗系統」系統目的分析表 版本：1.0　 要做什麼 　 不要做什麼（不要做不代表不會做） 　 能做什麼 （第一格：必要項目） （第二格：次要項目） 建立是非題型與選擇題型可共用的資料結構，使用MS Access 2003資料庫。　 可提供循序練習及模擬練習。 答題區可依照不同題型而提供適當的選擇。 結束練習時可瀏覽正確答案。 可以統計答錯題數及答對題數，和最後成績。 不能做什麼（不能做代表不需要做） （第三格：不必要項目） 　　 （第四格：不需要項目） 提供答案的詳解。 將資料庫送上SQL，開發成網路版本。 表格 6‑2 「題庫測驗系統」系統目標分析表 版本： 　 重要 　　　　 不重要 　　 優先 （重） （急） 建立是非題型與選擇題型可共用的資料結構，使用MS Access 2...
Read more

Visual Basic 6.0 (VB6) 程式語言案例學習 (10. 條碼列印程式)

Image
Visual Basic 6.0 (VB6) 程式語言案例學習 (10. 條碼列印程式) Visual Basic 6.0 (VB6) 程式語言案例學習 (10. 條碼列印程式) ¶ 10.1 問題 ¶ 隨著科技進步神速，條碼列印已經不再是商家專用，或者需要特殊技巧的一件事情了。透過一般的印表機搭配條碼列印程式就可以輕鬆的列印條碼貼紙，這對於普遍的使用者來說，是一件很好的事情。條碼輸入設備感應越做越好，好一點的設備，無論是正掃反掃側掃都可以判斷正確無誤，這次遇到的問題，是要替光碟資產做條碼歸檔，利用市面上隨處可見的條碼貼紙，一張A4大小的貼紙，就可輕鬆的製作條碼。 10.2 需求 ¶ 表格 10‑1 「條碼列印程式」系統目的分析表 版本：1.0　　 要做什麼 　 不要做什麼（不要做不代表不會做） 　 能做什麼 （第一格：必要項目） （第二格：次要項目） 可自行編輯要列印的資料。 可預覽列印。 可將編輯的英文及數字資料轉為條碼。 可調整字級大小。 不能做什麼（不能做代表不需要做）　 （第三格：不必要項目） （第四格：不需要項目） 可讀入Excel檔案。 可大量印製。 表格 10‑2 「條碼列印程式」系統目標分析表 版本：　 重要 　 不重要 　 優先 （重） （急） 可自行編輯要列印的資料。 可預覽列印。 可將編輯的英文及數字資料轉為條碼。 不急迫 （輕） ...
Read more

修復損毀的 SQLite DB 資料庫

Image
修復損毀的 SQLite DB 資料庫 修復損毀的 SQLite DB 資料庫 ¶ 當遇到 SQLite DB 資料庫損毀時，完全無法讀取資料，只見到錯誤訊息時，還有一個方法可以嘗試看看。 上圖的上半部，我們做了將壞掉資料庫匯出的動作；圖的下半部，我們將匯出的檔案匯入新的資料庫。 匯出資料庫 使用 sqlite3 {檔案名稱}，開啟壞掉的資料庫。 使用 .output tmp.sql ，在這裡 output 前面有個點，請各位要注意。這是指定資料匯出到 tmp.sql 檔案的方法。 使用 .dump 的指令才開始真正的匯出資料到 tmp.sql 檔案內，這過程要看原始資料庫大小，越大時間越長。 匯出完成 .quit 離開 sqlite3。 匯入資料庫 使用 sqlite3 {新檔案名稱}，在這裡任意建立一個新的資料庫。 使用 .read tmp.sql 讀取 tmp.sql 資料，並且匯入到 {新檔案名稱｜新資料庫}中。 匯入完成後， .quit 離開 sqlite3。 以上是個人成功的經驗，一個 5GB 的損毀資料庫，經過救援之後，變成 6GB ，但卻運作正常無誤。 如果有遇到類似的狀況，不妨試一試這個方法。 注意： 若你 dump 出來的檔案最後一行是 ROLLBACK ，請改為 COMMIT 。因為 ROLLBACK 會在你還原結束後執行，執行之後新資料庫會被清空。
Read more

用１０種程式語言做影像二值化（Image binarization）

用１０種程式語言做影像二值化（Image binarization） 用１０種程式語言做影像二值化（Image binarization） ¶ 完整原始碼下載 簡介 ¶ 有些時候，我們需要將彩色影像轉換為黑白影像，這很簡單，利用門檻值的方法就可以做到。 作法 ¶ Visual C++ 2010 ¶ // 影像的高度 for ( int iY = 0; iY DibInfo->bmiHeader.biHeight; iY++ ) { // 影像的寬度 for ( int iX = 0; iX DibInfo->bmiHeader.biWidth; iX++ ) { // 影像的索引值，因為這張影像的24 bit ，所以要乘以3 lIDXA = ( iX * 3 ) + ( iY * imageA->DibInfo->bmiHeader.biWidth * 3 ); // 取得藍色像素值 byteRGB_BA = imageA->DibArry[lIDXA+0]; // 取得綠色像素值 byteRGB_GA = imageA->DibArry[lIDXA+1]; // 取得紅色像素值 byteRGB_RA = imageA->DibArry[lIDXA+2]; // 將RGB利用YUV公式轉換Y（灰階） dobYUV_YA = (0.299 * byteRGB_RA + 0.587 * byteRGB_GA + 0.114 * byteRGB_BA); // 利用...
Read more

Visual Basic 6.0 (VB6) 程式語言案例學習 (04. 人事考勤管理系統)

Image
Visual Basic 6.0 (VB6) 程式語言案例學習 (04. 人事考勤管理系統) Visual Basic 6.0 (VB6) 程式語言案例學習 (04. 人事考勤管理系統) ¶ 4.1 問題 ¶ 這也是紙本作業流程想要電腦化的需求，每年度有四次的評鑑，前三次的評鑑是由單位主管執行，而最後一次是由單位主管評分後，交由高層會議整合，訂出最後的評鑑考績。以往的做法就是先依據每一個單位，做出許多Excel表格，然後會整起來，變成一張Excel統計表，保留起來等待到下次評鑑時，同樣的步驟繼續進行，到第四次之後，這三張統計表的成績將作為第四次評鑑的參考，甚至有些個案會參考到更久之前的成績，為求能夠審慎的評鑑。 這項工作困難點在於，人員有新進、離職、留職停薪、…等等因素，並且要收集各單位的檔案，檔案繳交時間點非常零散，整理表格時要依照人員屬性而有不同的評鑑主管，例如：甲老師是國文科召集人，因職務原故評鑑單位為教務處、學務處、總務處、諮商中心、資源中心；乙老師是美育組長，評鑑單位為教務處、總務處、資源中心。總共有三百人左右，每個人員所屬職務不同，評鑑單位也不同。而計分方式，也是依照職務屬性而有不同百分比計算，例如：甲老師是國文科召集人，因此教務處評分佔60%，其餘單位的評分是佔10%；乙老師是美育組長，教務處佔20%，總務處佔10%，資源中心佔70%。而評鑑資料處理並非專人專責，而是由人事室的成員分攤處理，這又增加了複雜度。例如：交接的時候不清楚，有可能之後處理的人員，多了重複的作業。有些時候先紀錄在紙本上，尚未登錄在Excel統計表時，也有可能造成問題。但評鑑工作還是得進行，而且要審慎的計算，因為這會影響到考績。 因此希望能夠電腦化，簡化流程，而且調閱歷史資料要十分容易，並且可以透過筆記型電腦，於會議室投影，讓高層會議整合時可以直接填寫成績。 4.2 需求 ...
Read more

解決 ValueError: If using all scalar values, you must pass an index

Image
解決 ValueError: If using all scalar values, you must pass an index 解決 ValueError: If using all scalar values, you must pass an index ¶ 這個錯誤通常出現在沒有設定索引時，想要建立一個 DataFrame。 ¶ In [2]: import pandas as pd dict1 = { 1 : "a" , 2 : "b" , 3 : "c" , 4 : "d" } df = pd . DataFrame ( dict1 ) --------------------------------------------------------------------------- ValueError Traceback (most recent call last) <ipython-input-2-68948f391692> in <module> 1 import pandas as pd 2 dict1 = { 1 : "a" , 2 : "b" , 3 : "c" , 4 : "d" } ----> 3 df = pd . DataFrame...
Read more

Visual Basic 6.0 (VB6) 程式語言案例學習 (07. 收據列印程式)

Image
Visual Basic 6.0 (VB6) 程式語言案例學習 (07. 收據列印程式) Visual Basic 6.0 (VB6) 程式語言案例學習 (07. 收據列印程式) ¶ 7.1 問題 ¶ 這是所有學校以及公司行號由來已久的問題，需要大量列印收據或者是股東會單的資料，原來的方式是使用點陣式印表機，然後列印三聯單，列印之前先將相關資料編輯成文字檔，核對正確之後，再開始列印。但問題是編輯的文字檔其實也是要依照用Excel所整理的資料整理的，這等於多做了一次工，因此需求是可以匯入原先就有的Excel檔，然後就可以列印。當然步驟流程越簡單越清楚是最好的，操作介面清楚明瞭，這是需求者的要求。 7.2 需求 ¶ 表格 7‑1 「收據列印程式」系統目的分析表 版本：1.0 　 要做什麼 　 不要做什麼（不要做不代表不會做） 　 能做什麼 　 （第一格：必要項目） 　 （第二格：次要項目） 　 要能夠直接由Excel匯入程式中。 　 建立單據人員資料管理。 要能夠列印到正確的位置。 每次列印的資料，都要保存下來，以免補單或者是需要單筆列印的時候，可以直接列印。　 要能夠大量列印。 金額的部分要能夠轉為國字大寫。 不能做什麼（不能做代表不需要做）　 （第三格：不必要項目） （第四格：不需要項目） 具有歷史查詢功能，可查詢是否列印，或列印幾次。　 能夠與學籍資料庫連線，獲得列印名單。 表格 7‑2 「收據列印程式」系統目標分析表 版本：　 重要 　　　　 ...
Read more