作者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