Dibujo con PSet

[s E t H]

En las vacaciones, como no tenia nada para hacer, agarre un libro de vb4 y me puse a leer como se usa pset...

Hice un código que toma un dibujo ascci y lo convierte con pset. Permite el uso de dos colores (0 y 1), aumento de tamaño (baja la velocidad) y disminucion de calidad (aumenta la velocidad)

Imágen:


Como ven, no es muy bueno para dibujar, pero sirve para aprender del codigo...

El sub mas importante:

Código (vb) [Seleccionar] Expandir

Private Sub Dibujar(Dibujo As String, Color1 As Long, Color2 As Long, Tam As Integer, Velocidad As Integer, Objeto As Object)


Dim I As Long
Dim II As Long
Dim III As Long
Dim Y As Long
Dim X As Long

Y = 1
X = 1

For I = 1 To Len(Dibujo)
    If Mid(Dibujo, I, Len(vbCrLf)) = vbCrLf Then
        Y = Y + Tam
        X = 1
        I = I + 1
    Else
        X = X + Tam
        DoEvents
       
        If Mid(Dibujo, I, 1) = 1 Then
            Objeto.PSet (X, Y), Color1
                For II = 1 To Tam
                    For III = 0 To Tam Step Velocidad
                        Objeto.PSet (X + II, Y + III), Color1
                    Next III
                Next II
        ElseIf Mid(Dibujo, I, 1) = 0 Then
            Objeto.PSet (X, Y), Color2
            For II = 1 To Tam
                    For III = 0 To Tam Step Velocidad
                        Objeto.PSet (X + II, Y + III), Color2
                    Next III
            Next II
        End If
    End If

    'X = X + 1
    'Y = Y + 1
   
DoEvents

Next I
End Sub




DESCARGAR TODO EL PROGRAMA

desde aca