Programación

lunes, 2 de mayo de 2011

Ejercicio Seleccion


EJERCICIO SELECCION FIGURA




Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim figura As String
Dim grafico As Graphics
Dim lapiz As Pen

If RadioButton1.Checked Then
figura = "circulo"
Else
If RadioButton2.Checked Then
figura = "linea"
Else
If RadioButton3.Checked Then
figura = " cuadrado"
End If

End If

End If

Select Case figura

Case "circulo"
grafico = CreateGraphics()
lapiz = New Pen(Color.PaleVioletRed, 4)
grafico.DrawEllipse(lapiz, 10, 10, 110, 300)

Case "linea"


grafico = CreateGraphics()
lapiz = New Pen(Color.Blue, 4)
grafico.DrawLine(lapiz, 10, 10, 100, 100)

Case " cuadrado"

grafico = CreateGraphics()
lapiz = New Pen(Color.Red, 4)
grafico.DrawRectangle(lapiz, 50, 50, 150, 150)




End Select


End Sub

Publicado por William Zabala en 15:09
Enviar por correo electrónicoEscribe un blogCompartir en XCompartir con FacebookCompartir en Pinterest

No hay comentarios:

Publicar un comentario

Entrada más reciente Entrada antigua Inicio
Suscribirse a: Enviar comentarios (Atom)

Datos personales

Mi foto
William Zabala
Ver todo mi perfil

Seguidores

Archivo del blog

  • ▼  2011 (24)
    • ►  junio (2)
    • ▼  mayo (6)
      • Ejercicio Residencia
      • Ejercicio Seleccion
      • Ejercicio Cuadrado
      • Ejercicio Circulo
      • Ejercicio Linea
      • Ejercicio Radio Button
    • ►  abril (1)
    • ►  marzo (14)
    • ►  febrero (1)

Enjoy it!



Tema Viajes. Imágenes del tema: Nic_Taylor. Con la tecnología de Blogger.