我現在編了一個代碼是對攝像機圖片進行實時處理，在代碼中是將影像的RGB數值存盤在陣列里，現在就需要寫一段代碼將這些資料的R值或者G值或者B值的大小顯示在Pic中，還怎么弄啊？？
uj5u.com熱心網友回復：
Private Sub Command1_Click()
Dim crr() As Byte
Dim pic As StdPicture
Set pic = LoadPicture("D:\3.jpg")
SavePicture pic, "D:\3.bmp"
Open "D:\3.bmp" For Binary As #1
ReDim crr(0 To LOF(1))
Get #1, , crr
Close #1
kuandu = Val(crr(18)) + 256 * Val(crr(19))
gaodu = Val(crr(22)) + 256 * Val(crr(23))
cangdu = crr(10) + 256 * crr(11)
sewei = crr(28) + 256 * crr(29)
If sewei = 32 Then zijie = 4
If sewei = 24 Then zijie = 3
senyu = 4 - (kuandu * zijie) Mod 4
For i = 0 To kuandu * gaodu - 1
B = crr(i * zijie + cangdu + 0)
G = crr(i * zijie + cangdu + 1)
R = crr(i * zijie + cangdu + 2)
Next i
End Sub
把下面的jpg圖片保存到D:\3.jpg
uj5u.com熱心網友回復：
都已經“將影像的RGB數值存盤在陣列里”了，那取各個象素的顏色分量，豈不是輕而易舉的事？？？？？現在就需要寫一段代碼將這些資料的R值或者G值或者B值的大小顯示在Pic中
無法明白你要怎么個“顯示”法！
uj5u.com熱心網友回復：
因為圖片上的RGB是變化的，隨著我對設備的調節，每一個像素上面的RGB值也在變，就像找到在調解程序中變化最大的那個點（希望以一個類似于波峰的形狀顯示出來）。uj5u.com熱心網友回復：
我的圖片是一個攝像機傳輸過來的。通過調節設備，R,G,B他們的變化不是線性的變化，肯定是曲線，所以就想通過編程顯示，讓他們以類似于示波器那樣，能讓我一眼看出變化最大的地方。uj5u.com熱心網友回復：
逐點取到一個陣列中，然后用 MSChart 顯示。uj5u.com熱心網友回復：
讀取顏色，分解處理即可uj5u.com熱心網友回復：
Pic.CurrentX=0:Pic.CurrentY=0:
Pic.Print "R:"+CStr(R)+" G:"+CStr(G)" B:"+CStr(B);
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/132446.html
標籤：網絡編程
上一篇：用電腦Ip地址加密軟體
下一篇：如何自動替換WORD里面的圖片