4.1.9 Sentencia CASE


Investiga y presenta un ejemplo de un programa donde ocupa cada sentencia.

 SELECT CASE

Option Explicit On
Public Class Form1
    Dim Ndía, Nmes, DDA As Integer

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "Cálculo día del año"
        Label1.Text = "Introduzca aquí el número del día"
        Label2.Text = "Introduzca aquí el número del mes"
        ButtonCalcular.Text = "Determinar día del año"
    End Sub

    Private Sub ButtonCalcular_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonCalcular.Click
        Ndía = Val(Text1.Text)
        Nmes = Val(Text2.Text)
        LabelResultado.Font = New Font("Arial", 10, FontStyle.Bold)
        If Ndía >= 1 And Ndía <= 31 And Nmes >= 1 And Nmes <= 12 Then
            Select Case Nmes
                Case 1
                    DDA = Ndía '[DDA es día del año]
                Case 2
                    DDA = Ndía + 31
                Case 3
                    DDA = Ndía + 59
                Case 4
                    DDA = Ndía + 90
                Case 5
                    DDA = Ndía + 120
                Case 6
                    DDA = Ndía + 151
                Case 7
                    DDA = Ndía + 181
                Case 8
                    DDA = Ndía + 212
                Case 9
                    DDA = Ndía + 243
                Case 10
                    DDA = Ndía + 273
                Case 11
                    DDA = Ndía + 304
                Case 12
                    DDA = Ndía + 334
            End Select
            LabelResultado.Text = "El " & Ndía & " del " & Nmes & " es el día " & DDA & " del año"
        Else
            LabelResultado.Text = "Datos proporcionados no válidos"
        End If
    End Sub
End Class


Comentarios

Publicar un comentario

Entradas populares de este blog

4.1.7 Operadores: Aritméticos, de comparación, logísticos y cadenas: (And, Or, Xor, Not; &)-

Tarea: Realizar un cuadro comparativo de los usos de cada operador. Operadores de comparación Operador Descripción Ejemplo + Sumar expresión a X= 67 + 34 - Restar a X= 32 – 12 - Navegación Y= -x * Multiplicar a Y= 45 * 55.23 / Dividir a Y= 32 / 23 ^ Exponencial Z= 23 ^ 3 Operadores de comparación en Visual Basic = Igual a 23 = 23 True 23 = 12 False <>  Desigual a 23<>33 True 23<>23 False <  Menor que 23<33 True 23<12 False >  Mayor que 23> 33 False 23>23 True <= Menor o igual que 23<= 33 True 23<= 12 False >= Mayor o igual que 23>=33 False 30>=30 True Operadores lógicos en Visual Basic Not Realiza la negación X= Not 23 > 14 Operadores lógicos binarios And Conjugación lógica 23>14 And 11>8 True 14>23 And 11>8 False Or Disyunción o inclusión lógica 23>14 Or 8>11...
Sigue leyendo

4.1.3 Reglas básicas del Programa o Script: mayúsculas, minúscula, variables, saltos y comentarios

TAREA: Copiar las tablas 1.1, 3.1, 3.2, 3.3 del contenidos y realizar un cuestionario de 10 preguntas de opción múltiple estilo a, b, c, d.  Tablas 1.1:       Abreviatura Control Abreviatura Control chk check box cbo combo y drop-list box cmd command button dir dir list box drv drive list box fil file list box frm form fra frame hsb horizontal scroll bar img image lbl label lin line ist list mnu menu opt option button pet pinture box shp shape txt text edir box tmr timer vsb vertical scroll bar  Tablas 3.1:  Tipo de variable Lugar de declaración Accesibilidad Global o public Declaraciones de *.bas Desde todos los formularios Dim o private Declaraciones de *.bas Desde todas las funciones de ese modulo. Public Declaraciones de *.frm Desde cualquier procedimiento del propio formulario y desde otros preced...
Sigue leyendo

4.1.4 Botón de ejecución de script 4.1.5 Variables. 4.1.6 Tipos de Datos: Variant, Sub tipos

Elaborar un glosario de 50 terminos 1.     Align: En esta opción se puede desactivar la malla o cambiar las características de esta. 2.     Arrays: Los arrays (vectores o matrices) que agrupan datos de tipo homogéneo. 3.     Asistente(Wizard): Es un programa que interactivamente, simplifica enormemente la tarea de creación de disquetes de instalación. 4.     Automatic CompletionCode:  Esta opción es una de las más interesantes ya que permite completar el código de un formulario. 5.     Barra de herramientas: Esta ventana tiene dos lengüetas que permiten ordenador las propiedades alfabéticamente o por categoría. 6.     Boolean: Es carácter de tipo vinario que entre los cuales se encuentra un rango de True o False. 7.     Botón Continúe: Es otra fu...
Sigue leyendo