Como pasar una imagen en blanco y negro a un txt de unos y ceros?

[mesenier]

Hola amigoss!!

aver si me puede alguien ayudar con esto...
Como pasar una imagen en blanco y negro a un txt de unos y ceros?

en vb6 por supuesto!

ala gracias!

[pkj]

No esta muy bien pero es lo básico y funciona. No uses una foto muy grande porque cada pixel es un 1 o un 0 en el texto.
Suponiendo que tenemos una imagen en blanco y negro (2 colores) y que cualquier pixel con valor > 0 será blanco y un pixel con valor <= 0 sera negro:

Código vb:

Dim f As Long
  Dim f2 As Long
  Const negro = 0
  Dim linea As String
  With Picture1
    .AutoRedraw = True
    .ScaleMode = vbPixels
    .AutoSize = True
  End With
  Text1.Text = ""
  Picture1.Picture = LoadPicture(App.Path & "\foto_B&W.jpg")
  For f = 1 To Picture1.ScaleHeight
    For f2 = 1 To Picture1.ScaleWidth
      If Picture1.Point(f2, f) > negro Then
        linea = linea & "1"
      Else
        linea = linea & "0"
      End If
    Next f2
    Text1.Text = Text1.Text & linea & vbCrLf
    linea = ""
  Next f
 

Usa un textbox multilinea con scrollbars=3 y con una fuente pequeña para poder ver bien el resultado.

[mesenier]

graciass!, aunque hace tiempo que utilize su ayuda, hace poco lo volvi a buscar en googlre y aparecio esto!