作者wtchao (一条长围巾)
看板Rounders
标题Re: [卡卡] 闷啊
时间Fri May 18 12:41:11 2007
※ 引述《wtchao (一条长围巾)》之铭言：
: ※ 引述《stary (........)》之铭言：
: : 我一开始还以为是卡卡很闷 -_-
: me2
: and 又是clifflu发表的
: 我以为有八挂了
借问一下，又是vb的问题
我写一个程式，主要把图叫到picture box 中
再一点一点的抓颜色
如底下, 因为主要是要取得一个圆内的灰阶值的加总
------------------------------------------------------------------------
For I = 0 To IntWidth Step 1
For J = 0 To IntHeigh Step 1
If ((((I - X) ^ 2 + (J - Y) ^ 2) ^ 0.5) <= Ridual) And ((((I - X) ^ 2 +
(J - Y) ^ 2) ^ 0.5) > Ridual - 125) Then
num = num + 1
Color1 = Picture1.Point(I, J)
R = Color1 And &HFF&
G = (Color1 And &HFF00&) \ &H100
B = (Color1 And &HFF0000) \ &H10000
Color2 = (R * 76 / 255 + G * 150 / 255 + B * 29 / 255) + Color2
If (R * 76 / 255 + G * 150 / 255 + B * 29 / 255) > 200 Then
Color3 = Color3 + 1
Picture1.PSet (I, J), RGB(255, 0, 0)
End If
End If
Next J
Next I
---------------------------------------------------------------------------
我想问一下，因为这种方法所能读的图完全受限於萤幕解析度
太大的就不行了
有方法可以直接在记忆体中做，不用叫到picture box上吗
--
能爱一个人是幸福的，为她付出，看着她快乐就好，心中喜怒哀乐只为她
能坚持一个人也是幸福的，不论如何，心中，只认定她是一生中的伴侣
当爱的人与坚持的人相同，那是最大的幸福，可以相爱相伴到此生的尽头，一世无悔
当这分别是两个人时，我只能选择坚持，因为承诺像奈何桥，一过就回不去了，只能
一辈子遵守；而爱的人，我只好为她付出，看着她幸福，看着她快乐，这，虽然无奈
我相信，无奈的终点，就是习惯。
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.112.52.210