this is what i need and its recking my head ive tried numerous different ways but cant get it to work
w=white pixel
b=black pixel
wwwwwbbbwwwbbwwbw=row of pixels in image in a picture box
for that line i need a text box to display
6,8
12,13
16,16
any help would be great
this is the code i am trying to use
Private Sub Command3_Click()
Dim i As Long, Colr As Long
Dim count1 As Long
Pic.ScaleMode = vbPixels
Colr = vbBlack
For i = 0 To Pic.ScaleWidth - 1
If Pic.Point(i, 190) = Colr Then
Pic.PSet (i, 190), &HFFC0&
count1 = count1 + 1...
this is what i want to do
1.check each individual pixel in a certain row
2.if the pixel is vbwhite check next pixel
3.if the pixel is vbblack display the position in a textbox
4.when the pixel returns to vbwhite display the position in the textbox
5.when the pixel returns to vbblack again...
i would like to be able to have the absolute or point position of a pixel that matches a certain condition appear in a text box
ie. check each pixel in a specific row of an image in a picturebox and if a pixel matches the condition i am looking for display its position
in the textbox
how would i set a flag to be edge triggered ie
when the condition is false the flag remains at 0 ,when the condition is true the flag is set to 1 and a task is carried out and the flag remains at 1 but when the condition changes back to false 0 the same task carried out when the flag was set is...
i was domnloading some sample music and a norton antivirus warning appeared on screen saying id picked up a virus, anyone got any links for free antivirus software to get rid of this virus(cant remember the virus name} or any ideas on how to solve my problem.sorry if i got the wrong part of the...
i used hpetias code and it is quicker thanks .the problem with thread222-1078537 was that it didnt do what i was looking for it only converted to grayscale
thanks for the ideas guys but i did a bit of research and came up with this code from another guy.i put it in a command button and it works well .its also fairly easy to follow and doesnt need the original grayscale image to work
Private Sub Command1_Click()
Dim x As Long
Dim y As Long
Dim...
sorry to anyone who looked at my last thread it was all over the place
this i hope is more straight forward
I have a simple program to convert an image in a picture box into as grayscale image ,from what i have been told it is possible to then change that image in to a black and white image with...
i have an image displayed on a form and can get a perfect read out of the color make up through the use of three text boxs when i move the mouse over the image but when i put the image in a picture box the results are not so good whats the problem??
i have a piece of code that keeps giving me errors i reckon i need to subtract one from scalewidth and scale height in order to get it to loop without errors but am having trouble any ideas
dim x as single
dim y as single
for y = 0 to pic1.scaleheight
for x = 0 to pic1.scalewidth
clr...
i am working on an image recoqnition program and so far i have managed to get the program to convert an image to black and white and now i have the program giving me the color of the coordinates if i move the mouse over the image in a picture box. what i want though is the image to be scanned...
could anyone tell me how to scan a picture box for a change in pixel colour.i have an image in black and white i want to get the program to record the positions of the changes in the colour of the pixels and so check against other images.
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.