|
Zdravo svima. Kao sto naslov kaze, potrebna mi je vasa pomoc...
Autor programa ( slika je prilozena ) je bio aktivan na raznoraznim forumima gde sam pratio njegov rad. Jednom prilikom je spomenuo da je program radio u VB-u, verujem da je tako. 
Pokusao sam da stupim u kontakt sa njim, jer je jednom prilikom rekao da je program open source, ali bez rezultata za sad. Odlucio sam da krenem sa programom sam, ali mi je tu potrebna vasa pomoc.
Sa programiranjem sam krajnje "tanak" a voleo bih da odradim ovo. Dakle, imamo sliku, bilo bi lepo kada bismo jedno po jedno zavrsavali. Skinuo sam VB6 kao i Visual studio 2010 i odradio jedan mali deo programa. Za sad sam naucio samo kako se ucitava slika, a nabavio sam kod za pretvaranje slike u binarni niz. Problem je sto to ne umem da ga implementiram u program.
To oprilike izgleda ovako:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If OpenFileDialog1.ShowDialog = DialogResult.OK Then
PictureBox1.Image = Image.FromFile(OpenFileDialog1.FileName)
End If
End Sub
Dakle, za Button1 sam namestio da otvara image, i u Picturebox1 ta slika se prikazuje. To radi ok.
Sad sam hteo da se ta slika pretvori u binarni niz 0 i 1 ( kao sto je na slici ) i nasao sam kod za to:
Private Sub ImageConversion(ByVal image As System.Drawing.Image, ByRef BytAry() As Byte)
Dim memoryStream As System.IO.MemoryStream = New System.IO.MemoryStream
image.Save(memoryStream, System.Drawing.Imaging.ImageFormat.Jpeg)
BytAry = memoryStream.ToArray()
End Sub
Problem je sto to sad ne umem da povezem ni sa cim ( npr textbox ). Jel mozemo za pocetak to da resimo? Ceo trenutni program izgleda ovako:
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If OpenFileDialog1.ShowDialog = DialogResult.OK Then
PictureBox1.Image = Image.FromFile(OpenFileDialog1.FileName)
End If
End Sub
Private Sub ImageConversion(ByVal image As System.Drawing.Image, ByRef BytAry() As Byte)
Dim memoryStream As System.IO.MemoryStream = New System.IO.MemoryStream
image.Save(memoryStream, System.Drawing.Imaging.ImageFormat.Jpeg)
BytAry = memoryStream.ToArray()
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
End Sub
End Class
|
