CodePudding user response:
Private Sub Command1_Click ()
Dim CRR () As Byte
Dim PIC As StdPicture
The 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))
The Get # 1, and CRR
Close # 1
Kuandu=Val (CRR (18)) + 256 * Val (CRR (19))
Gaodu=Val (CRR (22)) + 256 * Val (CRR (23))
CRR cangdu=CRR (10) + 256 * (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
Keep the JPG images below to D: \ 3. JPG
CodePudding user response:
Have "image in the RGB values stored in the array", that take the color of each pixel component, is it not easy???????now need to write a piece of code to the data of the size of the R value or G or B value shown in the Pic
Can't understand what you want what's "show"!
CodePudding user response:
Because the RGB images is variable, with me for the adjustment of the equipment, each pixel above the RGB values are changing, and also like to find the biggest change in the process of mediation that point (hope are displayed in the shape of a similar wave),CodePudding user response:
My picture is a camera transmission, by adjusting the equipment, R, G, B they change is not linear, affirmation is curve, so I want to programmatically, according to let them in a similar oscilloscope, can let me see the biggest change,CodePudding user response:
Point to an array, and then use MSChart shows,CodePudding user response:
Read the color, decompositionCodePudding user response:
Pic. CurrentX=0: Pic. CurrentY=0:
Pic. Print "R:" + CStr (R) + ", "G + CStr (G)" B: "+ CStr (B);