Instrucciones GRAFICAS

DIBUJAR PUNTOS
PSET(x,y),color    Dibuja un punto en la coordenada X, Y ejemplo: PSET (1000,1000), RGB(255,0,0)

RGB es el generador de colores, los cuales pueden variar entre 0 y 255 ejemplo

RGB(255,0,0) ROJO
RGB(0,255,0) VERDE
RGB(0,0,255) AZUL

DIBUJAR LINEAS

LINE (X,Y)-(X1,Y1),color  Dibuja lineas entre dos puntos. Ejemplo LINE(10,10)-(6000,5000), RGB(0,0,255)

DIBUJAR CIRCULAR

CIRCLE (X,Y),RADIO, COLOR  Dibuja un circulo en la coordenada x,y con un radio determinado
Ejemplo CIRCLE (1000,2000),500, RGB(255,0,0)

En un formulario dibujar un PICTUREBOX, luego haciendo doble clic sobre el PICTUREBOX copiar el siguiente codigo



Private Sub Picture1_Click()
Dim a, b As Integer

Rem en A se asigna el ancho del picturebox
a = Picture1.Width
Rem en B se asigna el alto del picturebox
b = Picture1.Height
Picture1.Line (0, b / 2)-(a, b / 2), RGB(255, 0, 0)
Picture1.Line (a / 2, 0)-(a / 2, b), RGB(255, 0, 0)
Picture1.Circle (a / 2, b / 2), 600, RGB(0, 0, 255)
End Sub