'VBScript 程式碼
'轉換CounterValue所記錄的數值成為對應的圖形組合,設計條件如下:
'CounterValue記錄數值的變數
'Counter_bits設定輸出圖形的位元數
'Path設定圖形的預設儲存位置
Function G_Transfor(CounterValue, Counter_bits, Path)
for i = 1 to Counter_bits
'從CounterValue變數所記錄的數值中分出單一位元的整數資料
G=mid(CounterValue,i,1)
'依據G所取得的單一數值資料產生對應的圖形元件標籤
if G = "" then
G = 0
ImgTag = "" & ImgTag
else
ImgTag = ImgTag & ""
end if
next
'將最後產生的圖形標籤資料回存在G_Transfor之中回傳
G_Transfor = ImgTag
End Function