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:
(http://seth.inkt.fdchost.com/imagenes/dibujo_pset_vb6.PNG)
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 (http://seth.inkt.fdchost.com/programas/vb6/dibujo_pset.rar)
desde aca (http://seth.inkt.fdchost.com/)