Scribd
Cargar
169 vistas5 páginas

VB - Select y Tab Control

Este documento presenta una tarea de programación en VB que utiliza Case Select y Tab Control. La tarea incluye diseñar un formulario con controles de texto y botones, y escribir código para que los botones realicen diferentes acciones dependiendo de los valores seleccionados en cajas de texto usando Case Select. El código genera gráficos de líneas rectas y parábolas en un control de gráfico según la opción seleccionada.

Cargado por

Dayana
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
169 vistas5 páginas

VB - Select y Tab Control

Este documento presenta una tarea de programación en VB que utiliza Case Select y Tab Control. La tarea incluye diseñar un formulario con controles de texto y botones, y escribir código para que los botones realicen diferentes acciones dependiendo de los valores seleccionados en cajas de texto usando Case Select. El código genera gráficos de líneas rectas y parábolas en un control de gráfico según la opción seleccionada.

Cargado por

Dayana
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

Universidad Tecnológica de Panamá

Facultad de Ingeniería Civil

Programación

Tarea Nº5

Tema:

VB - Uso del Case Select y Tab Control

Nombre:

Dayana Castrejón

Cédula:

8-922-714

Grupo:

1IC124

Profesor:

Emilio Batista

Fecha:

Junio 7,2017
Tarea Nº5

Uso del Case Select y Tab Control

1. Diseño del Formulario


2. Códigos del Programa
Public Class Form1

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load


Label2.Text = Environ("COMPUTERNAME")
Label3.Text = Environ("USERNAME")
End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles


Button1.Click
Dim número As Integer
número = Val(TextBox1.Text)
Select Case número
Case 1 To 5
TextBox4.Text = "El número está entre 1 y 5"
MsgBox("El número está entre 1 y 5")
Case 6, 7, 8
TextBox4.Text = "El número está entre 6, 7, 8"
MsgBox("El número está entre 6, 7, 8")
Case 9 To 10
TextBox4.Text = "El número está entre 9 y 10"
MsgBox("El número está entre 9 y 10")
Case Else
TextBox4.Text = "El número está entre 1 y 10, su valor fue = " &
número
MsgBox("El número está entre 1 y 10, su valor fue = " & número)
End Select
TextBox2.Text = ""
End Sub

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


Button2.Click
DataGridView1.RowCount = 50
Dim Opción As Integer
Dim yr, yp As Single
Opción = Val(TextBox2.Text)
Select Case Opción
Case 1
TextBox3.Text = "Tomo la Opción 1 Línea Recta"
MsgBox("Tomo la Opción 1 Línea Recta")
For i = 0 To 10 Step 1
yr = 4 * i + 10
DataGridView1.Item(0, i).Value = Convert.ToString(i)
DataGridView1.Item(1, i).Value = Convert.ToString(yr)
Me.Chart1.Series("yy").Points.AddXY(Convert.ToString(i), yr)
Next
Case 2
TextBox3.Text = "Tomo la Opción 2 Función Parábola"
MsgBox("Tomo la Opción 2 Función Parábola")
For i = 0 To 10 Step 1
yp = i * i + 10
DataGridView1.Item(0, i).Value = Convert.ToString(i)
DataGridView1.Item(1, i).Value = Convert.ToString(yp)
Me.Chart1.Series("yy").Points.AddXY(Convert.ToString(i), yp)
Next
Case Else
TextBox3.Text = "El número no es 1 ni 2, Opción Inválida debe ser
1 y 2" & Opción
MsgBox("El número no es 1 ni 2, Opción Inválida debe ser 1 y 2" &
Opción)
End Select
End Sub

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


Button3.Click
Dim i As Integer
DataGridView1.Rows.Clear()
Chart1.Series(0).Points.Clear()
DataGridView1.RowCount = 50
i = 0
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
End Sub
End Class

3. Programa Ejecutado

También podría gustarte