Posteado por: irodriguezm | abril 22, 2010

PRIMERA APLICACION CON VISUAL STUDIO 2010-WPF


Hoy instale visual studio 2010, y hize mi primera aplicación, pequeña pero me sirve para ver algunos controles.

es una pequeña calculadora vamos al código:
MainWindow.xaml

<Window x:Class="MainWindow"
    xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
    Title="Primer Ejemplo VS 2010-WPF" Height="350"  Width="525" AllowsTransparency="True" WindowStyle="None" Topmost="True" Background="{x:Null}">
    <Grid>
        <Border BorderBrush="Silver"  BorderThickness="1" Height="287" HorizontalAlignment="Left" Margin="12,12,0,0" Name="Border1" VerticalAlignment="Top" Width="479" Background="#FF565B63" AllowDrop="False">
            <TextBox Height="22" Name="TextBox1" Width="106" />
        </Border>
        <TextBox Height="21" HorizontalAlignment="Left" Margin="198,176,0,0" Name="TextBox2" VerticalAlignment="Top" Width="106" />
        <Button Content="+" Height="34" HorizontalAlignment="Left" Margin="315,142,0,0" Name="Button1" VerticalAlignment="Top" Width="42" />
        <TextBox Height="25" HorizontalAlignment="Left" FontSize="14" Background="Yellow" Margin="199,224,0,0" Name="TextBox3" VerticalAlignment="Top" Width="106" />
        <Label Content="PRIMER EJEMPLO VISUAL STUDIO 2010-WPF" Foreground="White" Height="32" HorizontalAlignment="Left" Margin="104,75,0,0" Name="Label1" VerticalAlignment="Top" Width="318" FontWeight="Bold" FontStyle="Normal" FontFamily="Verdana" />
        <Label Content="Número 1:" Foreground="White" Height="34" HorizontalAlignment="Left" Margin="128,142,0,0" Name="Label2" VerticalAlignment="Top" Width="78" />
        <Label Content="Número 2:" Foreground="White" Height="33" HorizontalAlignment="Left" Margin="128,171,0,0" Name="Label3" VerticalAlignment="Top" Width="73" />
        <Label Content="Resultado:" Foreground="White" Height="31" HorizontalAlignment="Left" Margin="128,224,0,0" Name="Label4" VerticalAlignment="Top" Width="72" />
        <Button Content="C" Height="31" HorizontalAlignment="Left" Margin="315,220,0,0" Name="Button2" VerticalAlignment="Top" Width="91" />
        <Button Content="-" Height="34" HorizontalAlignment="Left" Margin="363,142,0,0" Name="Button3" VerticalAlignment="Top" Width="43" />
        <Button Content="*" Height="33" HorizontalAlignment="Left" Margin="315,182,0,0" Name="Button4" VerticalAlignment="Top" Width="40" />
        <Button Content="/" Height="35" HorizontalAlignment="Left" Margin="362,180,0,0" Name="Button5" VerticalAlignment="Top" Width="42" />
        <Border BorderBrush="Silver" BorderThickness="1" Height="22" HorizontalAlignment="Left" Margin="12,14,0,0" Name="Border2" VerticalAlignment="Top" Width="479" Background="#FF120303"></Border>
        <Button Content="Cerrar" Height="20" Name="Button6" Width="42" Margin="406,21,55,270" />
    </Grid>
</Window>

MainWindow.xaml.vb

Class MainWindow 

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles Button1.Click
        If TextBox1.Text = "" Then
            MsgBox("Debe ingersar el número 1")


        ElseIf TextBox2.Text = "" Then
            MsgBox("Debe ingresar el número 2")
        Else
            TextBox3.Text = CInt(TextBox1.Text) + CInt(TextBox2.Text)
        End If



    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles Button2.Click
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles Button3.Click
        If TextBox1.Text = "" Then
            MsgBox("Debe ingersar el número 1")


        ElseIf TextBox2.Text = "" Then
            MsgBox("Debe ingresar el número 2")
        ElseIf TextBox1.Text < TextBox2.Text Then
            MsgBox("El número 2 debe ser menor que el número 1")

        Else
            TextBox3.Text = CInt(TextBox1.Text) - CInt(TextBox2.Text)
        End If

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles Button4.Click
        If TextBox1.Text = "" Then
            MsgBox("Debe ingersar el número 1")


        ElseIf TextBox2.Text = "" Then
            MsgBox("Debe ingresar el número 2")
        Else
            TextBox3.Text = CInt(TextBox1.Text) * CInt(TextBox2.Text)
        End If

    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles Button5.Click
        If TextBox1.Text = "" Then
            MsgBox("Debe ingersar el número 1")


        ElseIf TextBox2.Text = "" Then
            MsgBox("Debe ingresar el número 2")
            ' ElseIf TextBox1.Text < TextBox2.Text Then
            'MsgBox("El número 2 debe ser menor que el número 1")

        Else
            TextBox3.Text = CInt(TextBox1.Text) / CInt(TextBox2.Text)
        End If
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles Button6.Click
        Close()
    End Sub
End Class

Descargar Archivo

Bueno eso seria, Saludos


Responses

  1. buenas,

    aqui visitando el blog, y en opinion constructiva, te recomiendo hacer post de VS 2010, en donde mustres algunas de las nuevas caracteristicas de este producto, lo que haces lo puedes hacer en WinForm si probleas, pero esta bueno el articulo… solo que te falta validar que tus textbox solo acepten numeros, si le envias una letra truena, casi lo puedeo apostar.

    SALUDOS.

    • norberto, tienes toda la razón, es más este ejemplo me lo dieron de tarea en un ramo pero lo quize usar para probar vs 2010 y ver como andaba.

      voy a aprovechar de hacer una consulta, que nos hacemos con varios de mis compañeros, como se ingresa a student partners. vivo en Chile

      Saludos

      PD: apunte tu blog a favoritos

  2. Hola, tambien soy de Chile🙂, y eres uno de los primeros blogs con este tema. Asi como por molestar un poco jaj, falta validar el ingreso de letras y caracteres especiales, como asi tambien validar en la division por 0…em,, a vuelo de pajaro eso, saludos.

    Entiendo que lo hiciste a la rapida pero por si acaso jaj, saludos comparee.

    • jajaja no hay problema compañero, para la proxima voy a procurar validar mejor la aplicación.
      PD: estoy tratando de subir muy pronto nuevos ejemplos de WPF

      saludos


Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s

Categorías

A %d blogueros les gusta esto: