Location:
Search - twocolor
Search list
Description: For i = 0 To PicMain.Height
MaskLine = False 初始化MaskLine变量
For j = 0 To PicMain.Width
CurrentColor = GetPixel(PicMain.hdc, j, i) 取得当前所在点的颜色值
If j < PicMain.Width Then
TwoColor = GetPixel(PicMain.hdc, j + 1, i) 取得当前所在点前面一点的值, 用途是当是一条很宽的线条把图象围起来时不会误判
End If
If CurrentColor = RGB(A, B, C) And TwoColor <> CurrentColor Then 当遇到一条线条时
MaskLine = True MaskLine变量赋值为True
LineCounts = 0 LineCounts作用是计算剩余线条的数量
For k = j + 1 To PicMain.Width 开始向后循环, 计算线条的数量
OtherColor = GetPixel(PicMain.hdc, k, i) 取得颜色值
If k < PicMain.Width Then
OtherTwoColor = GetPixel(PicMain.hdc, k + 1, i) 取得前面一点的值, 用途是当是一条很宽的线条把图象围起来时不会误判-For i = 0 To PicMain.Height MaskLine = False For variable initialization MaskLine j = 0 To PicMain.Width NR98117 tColor = GetPixel (PicMain.hdc, j, i) made the current locations of the color value If j
Platform: |
Size: 3204 |
Author: z |
Hits:
Description: For i = 0 To PicMain.Height
MaskLine = False 初始化MaskLine变量
For j = 0 To PicMain.Width
CurrentColor = GetPixel(PicMain.hdc, j, i) 取得当前所在点的颜色值
If j < PicMain.Width Then
TwoColor = GetPixel(PicMain.hdc, j + 1, i) 取得当前所在点前面一点的值, 用途是当是一条很宽的线条把图象围起来时不会误判
End If
If CurrentColor = RGB(A, B, C) And TwoColor <> CurrentColor Then 当遇到一条线条时
MaskLine = True MaskLine变量赋值为True
LineCounts = 0 LineCounts作用是计算剩余线条的数量
For k = j + 1 To PicMain.Width 开始向后循环, 计算线条的数量
OtherColor = GetPixel(PicMain.hdc, k, i) 取得颜色值
If k < PicMain.Width Then
OtherTwoColor = GetPixel(PicMain.hdc, k + 1, i) 取得前面一点的值, 用途是当是一条很宽的线条把图象围起来时不会误判-For i = 0 To PicMain.Height MaskLine = False For variable initialization MaskLine j = 0 To PicMain.Width NR98117 tColor = GetPixel (PicMain.hdc, j, i) made the current locations of the color value If j
Platform: |
Size: 3072 |
Author: z |
Hits:
Description: 自动生成5组双色球，每组中有1个数据固定不变且有5组数据。-Automatic generation of Loans
Platform: |
Size: 31744 |
Author: 许勤阁 |
Hits:
Description: 16*32 双色点阵制作Keil源文件以及原理图-16* 32 two-color dot matrix production Keil source files and schematics
Platform: |
Size: 7325696 |
Author: 干将 |
Hits: