Scribd
Cargar
38 vistas7 páginas

Camilo Carrasco Control2

Este documento describe las características gráficas de .NET. Explica cómo generar coordenadas aleatorias usando la clase Random, dibujar un rectángulo de gradiente de colores con las coordenadas de la casa matriz y el destino más alejado, y trazar una curva que una los 7 puntos representados por imágenes de logos corporativos.

Cargado por

Cxmilo Andres
Derechos de autor
© © All Rights Reserved
Nos tomamos en serio los derechos de los contenidos. Si sospechas que se trata de tu contenido, reclámalo aquí.
Formatos disponibles
Descarga como PDF, TXT o lee en línea desde Scribd
38 vistas7 páginas

Camilo Carrasco Control2

Este documento describe las características gráficas de .NET. Explica cómo generar coordenadas aleatorias usando la clase Random, dibujar un rectángulo de gradiente de colores con las coordenadas de la casa matriz y el destino más alejado, y trazar una curva que una los 7 puntos representados por imágenes de logos corporativos.

Cargado por

Cxmilo Andres
Derechos de autor
© © All Rights Reserved
Nos tomamos en serio los derechos de los contenidos. Si sospechas que se trata de tu contenido, reclámalo aquí.
Formatos disponibles
Descarga como PDF, TXT o lee en línea desde Scribd
Está en la página 1/ 7

Características graficas de .

NET

Camilo Carrasco

Programación NET II

Instituto IACC

25/09/2021
Desarrollo

Ud. es el encargado de logística de una empresa de reparto de documentos, y le solicitan hacer la

hoja de ruta a cada uno de sus empleados. Cada viaje se compone de seis destinos, saliendo de la

casa matriz. Además, cada destino tiene una determinada ubicación (coordenada).

La coordenada de la casa matriz es (200, 200)

La coordenada de cada destino es aleatoria y debe ser generada por una instancia de la clase

Random, de la siguiente manera.

Dim numAleatorio As New Random() tbCoordX.Text =

System.Convert.ToString(numAleatorio.Next(200, 1000)) tbCoordY.Text =

System.Convert.ToString(numAleatorio.Next(200, 700))

Se le solicita realizar lo siguiente:

1- Crear un formulario que tenga un botón que genere las coordenadas de los 6 destinos.

2- En la orilla izquierda, muestre la ubicación obtenida para cada uno de los destinos.

3- Dibujar un rectángulo con gradiente (colores a elección), que considere las coordenadas

de la casa matriz, y el destino con mayor coordenada X.

4- En cada punto de destino se debe poner un control PictureBox que contenga un logo/foto

corporativo (en miniatura). Para esto, busque 7 logos de las empresas que Ud. desee

(Casa Matriz + 6 destinos). Debe ser una imagen pequeña. Además, las imágenes deben

quedar en el directorio C:\Images\

5- Trazar la curva que une los 7 puntos, con un color distinto al de los colores del rectángulo

anterior.

6- 6. En el último destino, desplegar un menú contextual que permita:

a. a. guardar la imagen asociada a ese destino

b. b. cargar otra imagen.


1- Formulario
CODIGO:

Imports System.Windows
Public Class Form1
Private ReadOnly C As String
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim numAleatorio As New Random()
tbCoordX.Text = System.Convert.ToString(numAleatorio.Next(200, 1000))
TbCoordY.Text = System.Convert.ToString(numAleatorio.Next(250, 750))
tbDest2coordX.Text = System.Convert.ToString(numAleatorio.Next(200, 1000))
tbDest2coordY.Text = System.Convert.ToString(numAleatorio.Next(300, 800))
tbDest3coordX.Text = System.Convert.ToString(numAleatorio.Next(200, 1000))
tbDest3coordY.Text = System.Convert.ToString(numAleatorio.Next(350, 850))
tbDest4coordX.Text = System.Convert.ToString(numAleatorio.Next(200, 1000))
tbDest4coordY.Text = System.Convert.ToString(numAleatorio.Next(400, 900))

tbDest5coordX.Text = System.Convert.ToString(numAleatorio.Next(200, 1000))


tbDest5coordY.Text = System.Convert.ToString(numAleatorio.Next(500, 700))
tbDest6coordX.Text = System.Convert.ToString(numAleatorio.Next(200, 1000))
tbDest6coordY.Text = System.Convert.ToString(numAleatorio.Next(480, 700))

End Sub
Private Sub Form1_Paint(ByVal sender As System.Object,
ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
RellenaGradiente(e)
End Sub
Private Sub RellenaGradiente(ByVal e As PaintEventArgs)
Dim miRectangulo As Rectangle = New Rectangle(New Point(200, 200), New Size(50,
50))
Dim miBrochaGradiente As Drawing2D.LinearGradientBrush =
New Drawing2D.LinearGradientBrush(miRectangulo,
Color.Green, Color.Yellow,
Drawing2D.LinearGradientMode.Vertical)
e.Graphics.FillRectangle(miBrochaGradiente,
miRectangulo)
miBrochaGradiente.Dispose()
End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles BTmostrar.Click

OpenFileDialog1.InitialDirectory = " C:\Images"


If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
pb1.Image = Image.FromFile("C:\Images\kfc.jpg")
pb2.Image = Image.FromFile("C:\Images\bimbo.JPG")
pb3.Image = Image.FromFile("C:\Images\sabritas.jpg")
pb4.Image = Image.FromFile("C:\Images\mc.jpg")
pb5.Image = Image.FromFile("C:\Images\cc.jpg")
pb6.Image = Image.FromFile("C:\Images\ne.jpg")
End If
End Sub

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click


If (pb1.Image Is Nothing) Then
MessageBox.Show("No se ha cargado una imagen")
Else
SaveFileDialog1.Filter = "Archivos BMP|*.bmp" & "|Archivos GIF|*.gif" &
"|Archivos JPG|*.jpg;*.jpeg" & "|Archivos PNG|*.png" &
"|Archivos TIFF|*.tif"
SaveFileDialog1.FilterIndex = 3
If (SaveFileDialog1.ShowDialog() = Forms.DialogResult.OK) Then
If SaveFileDialog1.FileName <> "" Then
Dim fs As System.IO.FileStream = CType(SaveFileDialog1.OpenFile(),
System.IO.FileStream)
Try
Select Case SaveFileDialog1.FilterIndex
Case 1
pb1.Image.Save(fs,
System.Drawing.Imaging.ImageFormat.Bmp)
Case 2
pb1.Image.Save(fs,
System.Drawing.Imaging.ImageFormat.Gif)
Case 3
pb1.Image.Save(fs,
System.Drawing.Imaging.ImageFormat.Jpeg)
Case 4
pb1.Image.Save(fs,
System.Drawing.Imaging.ImageFormat.Png)
Case 5
pb1.Image.Save(fs,
System.Drawing.Imaging.ImageFormat.Tiff)
End Select
MessageBox.Show("La imagen se guardó correctamente")
fs.Close()
Catch ex As Exception
MessageBox.Show("Se produjo el siguiente error: " &
ex.Message)
fs.Close()
End Try
End If
End If
End If

End Sub
End Class
Bibliografía

1- Material de apoyo IACC

2- Video ayuda sobre coordenadas en VB.

(3) coordenadas en visual basic - YouTube

También podría gustarte