Potrebna pomoc za izradu programa

Potrebna pomoc za izradu programa

offline
  • y2k986 
  • Novi MyCity građanin
  • Pridružio: 13 Avg 2012
  • Poruke: 1

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. Wink
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



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
Ko je trenutno na forumu
 

Ukupno su 748 korisnika na forumu :: 41 registrovanih, 4 sakrivenih i 703 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 1798 - dana 19 Sep 2019 18:42

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: A.R.Chafee.Jr., antosky, Atomski čoban, Boris90, bounty hunters, caesar, Crki, Djokkinen, Dok, Dovla, Dusko Nikolin, Ehinacea, Georgius2, GreenMan, helen1, ibssa, Ivan Gajic2, Kubovac, Lošmi, mali41, marija_ned, MarKhan, Maschinekalibar, MB120mm, Mercury, Mikulino, nemkea71, nesic1, rovac, SAA fan, sale755, sergio88nis, shsoft02, Snorks, srecko81, tanakadzo, Trpe Grozni, vasa.93, voja64, wolf431, zoidbergs