epelpad

Desarrollando figura 3D en Visual Basic 6.0 (antiguo)

Desarrollando figura 3D en Visual Basic 6.0 (antiguo)

Todo el código fue creado por mi, lo tenia archivado por ahí. Y pensé en mostrarles algunas funciones de gráficos, por si alguno quiere hacer algo. Actualmente estoy con java y C sharp, desarrollando aplicaciones de escritorio. Pronto sacare algo por Taringa. Saludos ...

Creando un cubo en 3d

visual basic 6

Código fuente


Option Explicit
Dim x1, y1, a, b, c, d As Integer

Private Sub Form_Load()

frmCubo.AutoRedraw = True
frmCubo.Caption = "3D"


Pintar1
Pintar2
'Pintar3
Pintar4
Cubo1

End Sub

Private Sub Cubo1()

'Me.Line (3000, 2000)-(6000, 2000) 'Linea Derecha
'Me.Line (6000, 2000)-(6000, 5000) 'Linea abajo
'Me.Line (6000, 5000)-(3000, 5000) 'Linea izquierda
'Me.Line (3000, 5000)-(3000, 2000) 'Linea arriba

x1 = 1500
y1 = 500

Me.Line (4000, 5000)-(4000, 3000)
Me.Line (4000, 3000)-(6000, 2300) 'Primer cara para pintar
Me.Line (6000, 2300)-(6000, 4300)
Me.Line (6000, 4300)-(4000, 5000)

Me.Line (2500, 4500)-(2500, 2500)
Me.Line (2500, 2500)-(4500, 1800)
Me.Line (4500, 1800)-(4500, 3800)
Me.Line (4500, 3800)-(2500, 4500)

'Diagonal
Me.Line (4000, 3000)-(2500, 2500) 'Segunda cara para pintar
Me.Line (6000, 2300)-(4500, 1800)

Me.Line (6000, 4300)-(4500, 3800)
Me.Line (4000, 5000)-(2500, 4500)


End Sub
Private Sub Pintar1()

For a = 1 To 2000

Me.Line (4000, 3000 + a)-(6000, 2300 + a), vbActiveBorder

Next a

End Sub

Private Sub Pintar2()

For b = 1 To 2000

Me.Line (4000, 3000 + b)-(2500, 2500 + b), vbApplicationWorkspace

Next b

End Sub

Private Sub Pintar3()

For c = 1 To 2000


Me.Line (6000, 2300 + c)-(4500, 1800 + c)


Next c

End Sub

Private Sub Pintar4()

For d = 1 To 500

'd = d * 3

'Me.Line (6000 - d * 3, 2300 + d)-(4500 - d * 3, 1800 + d), vbActiveBorder,vb3DDKShadow,vbInactiveCaptionText
Me.Line (2500 + d * 3, 2500 + d)-(4500 + d * 3, 1800 + d), vbGrayText

Next d

End Sub

Creando figuras con elipses

programacion

Codigo Fuente

Private Sub Form_Load()

Me.AutoRedraw = True
'Me.Circle (3000, 3000), 1000, vbBlue, 1, 1, 0.6

For a = 1 To 2000

Me.Circle (3000, 1000), 1000, vbBlack, 1, 1, 0.6
Me.Circle (3000, 1000 + a), 1000, vbBlue, 1, 1, 0.6
Me.Circle (3000, 3000), 1000, vbBlack, 1, 1, 0.6
Next a

For b = 1 To 2000

Me.Circle (6000, 1000), 1000, vbBlack, 1, 1, 0.6
Me.Circle (6000, 1000 + b), 1000, vbGreen, 1, 1, 0.6
Me.Circle (6000, 3000), 1000, vbBlack, 1, 1, 0.6
Next b


For c = 1 To 1000

Me.Circle (10000, 1000), 500, vbBlack, 1, 1, 0.6
Me.Circle (10000, 1000 + c), 500 + c, vbCyan, 1, 1, 0.6
Me.Circle (10000, 2000), 1500, vbBlack, 1, 1, 0.6

Next c

'aro
For d = 1 To 1000

Me.Circle (13500, 3000), 1500, vbBlack, 1, 1, 0.6
Me.Circle (13500, 3000 + d), 500 + c, vbRed, 1, 1, 0.6
Me.Circle (13500, 4000), 1500, vbBlack, 1, 1, 0.6

Next d


'cono
For e = 1 To 1000

Me.Circle (3000, 6000 - e * 2), 1000 - e, vbYellow, 1, 1, 0.6

Me.Circle (3000, 6000), 1000, vbBlack, 1, 1, 0.6

Next e

'esfera
For f = 1 To 450

f = 2 * f
f1 = f

Me.Circle (6000, 6000 - f), 1000 - f, , 1, 1, 0.6

Me.Circle (6000, 6000), 1000, vbBlack, 1, 1, 0.6

Me.Circle (6000, 6000 + f1), 1000 - f1, , 1, 1, 0.6

Next f


'figura rara
'pi = 3.14

'Me.Circle (3000, 5200), 250, vbBlack, 1, 1, 0.6

'Me.Circle (3000, 5200 + e), 250 * e, vbBlack, 1, 1, 0.6

'Me.Circle (3000, 6000), 1000, vbBlack, 1, 1, 0.6

'Next e

'Figura rara
'For e = 1 To 1000

'pi = 3.14

'Me.Circle (3000, 5200), 250, vbBlack, 1, 1, 0.6

'Me.Circle (3000, 5200 + e), 250 * e, vbBlack, 1, 1, 0.6

'Me.Circle (3000, 6000), 1000, vbBlack, 1, 1, 0.6

'Next e


End Sub

Es necesario para probar el código tener instalado visual basic 6.0.
Es posible crear un mini diseñador 3d con un poco de tiempo, modificando los valores con varialbes que puedan ser modificadas por el operador en un futuro software.

Tengo algunos proyectos de software libre, que podría mostrarle si les interesa. Saludos diseno

arte

2 comentarios - Desarrollando figura 3D en Visual Basic 6.0 (antiguo)

sebasf9 +1
Pasame la info... Gracias +10