Lenguaje estructurado

Ejercicio Nº 1

Pasar el contenido de la caja de texto a la etiqueta



Pasos:

1. Abrir nuevo proyecto de Aplicaación de Windows Form

2. Arrastrar al área de diseño:
        Un Button
        Un TextBox
        Un Label
       
3. Hacer doble click sobre el Button

4. Visualizar el código (si previamente no ha sido presentado) pulsando F7
     ó Ver/Código



5.Escribir el código faltante



    Public Class Form1

       Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
     System.EventArgs) Handles  Button1.Click

     ' Comentario: Usar _ (guión bajo) para continuar la sintaxis en 
     ' la siguiente línea

        Label1.Text = TextBox1.Text

     End Sub
 End Class

6. Ejecutar la depuración (Depurar/iniciardepuración ó pulsando F5 ó
   Click en el botón apuntado por  la flecha verde)


7. Tipear "Hola y SUERTE" y click en Button 1

!BINGO! si obtuvo este resultado...En hora buena



  
Recomendaciones:
Para modificaciones no olvide detener la depuración con Depuración/Detener
Depuración ó Click en el botón apuntado por la flecha roja en el gráfico de más arriba.
Ejercicio Nº2

Pasar elcontenido de la caja de texto a la etiqueta. El contenido de la caja de texto debe contener únicamente un número entero -sin decimales- positivo.

Pasos:

1. Escribir la sintaxis




Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
    System.EventArgs) Handles Button1.Click

        Dim num1, product As Single

        num1 =TextBox1.Text

        product = num1

        Label1.Text = Format(product, "FIXED")  'Puede usar Format(num1,"FIXED")

    End Sub

    Private Sub TextBox1_KeyPress(ByVal sender As Object, _
    ByVal e As System.Windows.Forms.KeyPressEventArgs) _
    Handles TextBox1.KeyPress


        If InStr(1, "0123456789" & Chr(8), e.KeyChar) = 0 Then
            e.KeyChar = ""
        End If
   End Sub
End Class

Recomendaciones:

Revisar:
InStr()
e.KeyChar
e.Handled
Chr(8)

Trabajar con esta nueva rutina de validación


 
Ejercicio Nº 3

Pasar el contenido de la caja de texto a la etiqueta. El contenido de la caja de texto debe contener únicamente números  positivos o negativos con decimales. El separador de decimales debe ser el mismo que tiene configurado elcomputador (Ud no tiene por que saberlo), en la etiqueta 1 colocar el número con dos decimales,  en la etiqueta 2 colocar el separador de decimales y en la 3 el separador de miles.






 Pasos:

1. Escribir la sintaxis

 

 

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
    System.EventArgs) Handles Button1.Click

        Dim num1,product As Single

        num1 = TextBox1.Text

        product = num1

        Label1.Text = Format(product, "FIXED")

    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
    System.EventArgs) Handles MyBase.Load
        Dim s As String

        s = System.Globalization.CultureInfo.CurrentCulture.NumberFormat._
CurrencyDecimalSeparator
       Label2.Text = "El separador decimal es: '" & s & "'"

        s = System.Globalization.CultureInfo.CurrentCulture.NumberFormat._
CurrencyGroupSeparator
        Label3.Text = "El separador de miles es: '" & s & "'"

    End Sub

Private Sub TextBox1_KeyPress(ByVal sender As Object, _ 
                                  ByVal e As System.Windows.Forms._
KeyPressEventArgs) _                                  Handles TextBox1.KeyPress
        Dim h As Integer, x As Integer
        Dim cadena As String, S As String

        S = System.Globalization.CultureInfo.CurrentCulture.NumberFormat._
CurrencyDecimalSeparator

        If InStr(1, "0123456789-" & Chr(8) & S, e.KeyChar) = 0 Then
            e.KeyChar = ""
        Else
            h = Len(TextBox1.Text) ' Longitud de cadena...