graduation project

salam ellayan

hi sry i didn't understand ur answer so will u explain it by detailed code in VB.NET i need to convert the picture into 1's and 0's (points) and write code using array function then send it via GPRS connection . and i'll use UDP packet

Ashfield

What they mean is nobody is going to write your code for you, so it looks like you will not graduate.

Bob Ashfield Consultants Ltd

Hasan Jaffal

:confused: waz up what's the question ?! :doh: :confused:

salam ellayan

i need to convert the image into points.

Hasan Jaffal

witch image ?

" I love deadlines. I like the whooshing sound they make as they fly by. "

Chinners

Okay, I'll give you a pointer, assuming you know VB.net, but not much about the graphics classes.

     Dim bmp As Bitmap = CType(Image.FromFile("c:\\bmp.png"), Bitmap)
     For x As Integer = 0 To bmp.Width - 1
        For y As Integer = 0 To bmp.Height - 1
           Dim pixelAlpha As Byte = bmp.GetPixel(x, y).A
           Dim pixelRed As Byte = bmp.GetPixel(x, y).R
           Dim pixelGreen As Byte = bmp.GetPixel(x, y).G
           Dim pixelBlue As Byte = bmp.GetPixel(x, y).B
        Next
     Next

This should do the graphics bit - slowly, but it'll work. On the other side, you will need to use bmp.SetPixel...

bmp.SetPixel(x, y, Color.FromArgb(pixelAlpha, pixelRed, pixelGreen, pixelBlue))

The rest, I'm afraid, is up to you.

salam ellayan

thanks alot for cooperation . i'll try to complete it . thanks again

salam ellayan

i've tried this code but when i run it it gives error . i could not find the problem so will u help me . thanx for ur help anyway.

salam ellayan

i've tried this code but it gives me error when i run it. so will u help me. Dim ImageFile As FileInfo = New FileInfo("c:\1.jpg") Dim fs As FileStream = New FileStream(ImageFile.FullName, FileMode.Open, FileAccess.Read) Dim ImageBytes() As Byte ReDim ImageBytes(CInt(ImageFile.Length)) fs.Read(ImageBytes, 0, CInt(ImageFile.Length))