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:

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