Semicírculo vb6.

Hola me gustaría imprimir un semicírculo en visual basic 6. ¿Cómo puedo hacerlo?
Gracias.
3

3 Respuestas

8.750 pts.
Agrega un picturebox y un commandbutton.
Private Const Pi As Double = 3.14159265
Private Sub Command1_Click()
Dim RadInicial As Double
Dim RadFin As Double
Dim Angulo As Double
Dim X As Double
Dim Y As Double
Dim R As Double
R = 500
X = 1500
Y = 800
Picture1.Cls
RadInicial = 0 * (Pi / 180)
RadFin = 180 * (Pi / 180)
'Si lo quieres imprimir
'Printer.Circle (X, Y), R, vbBlue, RadInicial, RadFin
'Printer.EndDoc
Picture1.Circle (X, Y), R, vbBlue, RadInicial, RadFin
Picture1.Line (X - R, Y)-(X + R, Y), vbBlue
End Sub
... donde:
-x, y es el centro de la circunferencia
-R es el radio
- RadInicial y RadFin es el angulo de la circunferencia que se desea mostrar, expresado en radianes. Es por esto que he puesto "0 * (Pi / 180)" lo que lógicamente es cero pero lo he hecho así para que puedas cambiar el angulo a tu antojo...
¿Te sirvió?
27.000 pts. Analista y Consultor informático
Dibuja el semicírculo en un formulario y después
Formulario. PrintForm
23.825 pts. Programador VB6 Programador
¿Quieres imprimirlo directamente o mostrarlo en la pantalla primero
o ya lo tienes creado y deseas imprimirlo?
Es para imprimir en un papel un cuadrado con las esquinas redondeadas.
Vas a tener que ir armándolo con muchas lineas,
la verdad va a ser un verdadero lio...

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas