Oct 03 2007
Gráfica 3d pie sin OCX en vb
Loading ...
Bastante austero pero es un buen comienzo.
Solo necesitamos un commandButton y un PictureBox.
Visual Basic:
-
Private Sub Command1_Click()
-
Dim PI, circStart, circEnd, gPercent, jPercent, nX, nY, rad
-
nX = Picture1.ScaleWidth \ 2
-
nY = Picture1.ScaleHeight \ 2
-
-
rad = 1000
-
gPercent = 75
-
jPercent = 25
-
-
PI = 22 / 7
-
circStart = (gPercent * PI) / 180
-
circEnd = (jPercent * PI) / 180
-
-
Picture1.DrawWidth = 1
-
Picture1.FillStyle = 0
-
Picture1.FillColor = vbBlue
-
‘The For - Next is not nested for clarity
-
For i = 1 To 200
-
Picture1.Circle (nX, nY), rad, vbRed, -circStart, -circEnd, -1
-
nX = nX + 1
-
nY = nY + 1
-
Next i
-
-
Picture1.FillColor = vbRed
-
For j = 1 To 200
-
‘Adjusting the nX and nY moves the wedge
-
Picture1.Circle (nX + 200, nY - 500), rad, vbBlue, -circEnd, -circStart, -1
-
nX = nX + 1
-
nY = nY + 1
-
Next j
-
-
End Sub
