epelpad

El post que buscas se encuentra eliminado, pero este también te puede interesar

Segunda parte código en Visual Basic 6

Segunda parte código en Visual Basic 6

Este código de visual basic 6, lo desarrolle pensando en hacer un programa de diseño gráfico. El cual se podría implementar sobre un formulario.

Cubo de colores

visual basic



Código: Cubo de colores

Private Sub Form_Load()

Cls 'Borra contenido anterior
AutoRedraw = True


pintar1
pintar2


End Sub



Private Sub pintar1()

For B = 1 To 2000

i = B

Me.Line (7010, 2000 + i)-(8710, 3000 + i), vbRed
Me.Line (5300, 3000 + B)-(7010, 2000 + B), vbBlue

Next B



For c = 1 To 2000

a = c


Me.Line (7000, 4000 + c)-(8710, 3000 + c), vbBlack
Me.Line (5300, 3000 + a)-(7000, 4000 + a), vbGreen

Next c



End Sub

Private Sub pintar2()

Me.ScaleMode = vbPixels
Me.Line (10, 10)-(100, 100), vbRed, BF
Me.Line (100, 10)-(200, 100), vbGreen, BF
Me.Line (10, 100)-(100, 200), vbBlue, BF
Me.Line (100, 100)-(200, 200), vbYellow, BF

Me.Line (10, 10)-(200, 200), vbBlack, B

End Sub

Vectoresdiseno

Código vectores

Private Sub Form_Load()

Cls
Me.AutoRedraw = True
pintar1

End Sub

Private Sub pintar1()


ScaleMode = vbPixels
Me.DrawWidth = 2 'Grosor de la linea

For b = 1 To 150

Circle (300, 200), b, vbRed

Next b


For a = 1 To 150 Step 5

Circle (300, 200), a, vbBlue

Next a



'vbCyan , vbRed , vbMagenta, vbGreen, vbWhite, vbBlack, vbYellow, vbBlue.

End Sub

programacion

3 comentarios - Segunda parte código en Visual Basic 6

Chester1994
Basic para estas cosas no tiene mucho sentido.
-Fraaan- +1
No, pero es todo un reto (?
Cupajuti
Perdón por la ignorancia... funciona VB6 en otros windows que no sean XP?