作者az501122 (Husky)
看板Visual_Basic
標題[VB6 ] 影像處理
時間Wed Aug 18 15:15:57 2010
想請問一些影像處理的問題
流程是這樣
共有64張影像(A1-A64)
要組出另外64張影像(D1-D64)
1.開啟影像A1
2.把A1切成64條線,把第一條線分配給D1
3.REFLASHA1,開啟A2,把第一條線分配給D1
(也就是D1會是所有A1-64張圖的第一條線所組成)
4.儲存D1的值
5.開始做D2-D64
爬過一些文章也看
剛開始學VB算是初學者
想請問高手的意見,該如何下手好
自己寫了一些小東西,但是不知道要怎麼做
(如果是影像矩陣的話該怎麼做比較好?)
Private Sub Command5_Click()
Dim X_1, Y_1 As Integer
Dim X_2 As Double, Y_2 As Double
Dim a As Integer, p As Integer
pix = DicomViewer4.Images.Item(1).Pixels
pix2 = DicomViewer5.Images.Item(1).Pixels
x = DicomViewer4.Images.Item(1).SizeX
y = DicomViewer4.Images.Item(1).SizeY
For i = 1 To x Step 1
For j = 1 To y Step 1
If i < 128 Then
pix2(i, j, 1) = pix(1, j, 1)
pix3(i, j, 1) = pix(2, j, 1)
'想要變成pix(i) = pix(n, j ,1)
Else
End If
Next
Next
DicomViewer5.Images.Item(1).Pixels = pix2
DicomViewer4.Refresh
'想讓他從這裡回到從頭開啟第A2張影像繼續給D1
DoEvents
MsgBox "OK"
想尋求一些寫法和想法
感激不盡
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 163.15.169.227
1F:→ MOONRAKER:什摸是 REFLASHA1?你組圖也用到SHA1嗎? 08/18 15:24
2F:推 meto000: 應該是 Reflash A1 吧?接在一起很詭異.. 08/18 22:48
3F:→ MOONRAKER:你居然看得懂… :D 不過是不是refresh啊 XD 08/19 03:46