[VB6 ] 影像處理

看板Visual_Basic作者az501122 (Husky)時間13年前 (2010/08/18 15:16)推噓1(1推 0噓 2→)

留言3則, 2人參與討論串2/2 (看更多)

想請問一些影像處理的問題流程是這樣共有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

→

MOONRAKER

08/18 15:24, , 1^F

08/18 15:24, 1^F

推

meto000

08/18 22:48, , 2^F

08/18 22:48, 2^F

→

MOONRAKER

08/19 03:46, , 3^F

08/19 03:46, 3^F