Trabajo Practico De ISFT 2015

TRABAJO PRACTICO
La creación de los siguientes programas, si bien esta guiada en el uso de los controles a utilizar, al igual que en el código a introducir, posee detalles, como la elección de las propiedades que definen el diseño (Backstyle – Font – Forecolor - Alignment – Strecht – Style – Windowstate - etc.) y el funcionamiento del mismo que dependerán enteramente de su elección (interval –enabled – visible – etc.).
Este programa determina el tipo de triángulo, de acuerdo a los datos (medida de los lados) ingresados. Debe poseer un botón para mostrar el resultado y otro para borrar todo y poder seguir consultando.

CONTROLES:
Dos LABEL una para el título y otra para mostrar el resultado.
Cinco BUTTON, para el ingreso de los lados; para mostrar el resultado y para borrar elresultado anterior si se desea hacer otra consulta.
Un TEXTBOX para ingresar los valores.
Los cambios de formato en el formulario se realizan mediante las propiedades de cada uno de los controles y del FORMULARIO, buscando en todos los casos una correcta presentación y funcionamiento del programa en tiempo de ejecución.

ESTO ES LO QUE DIFERENCIA A UN PROGRAMA DE OTRO:






CODIGO:
Dim ladoA AsInteger
Dim ladoB As Integer
Dim ladoC As Integer
--------------------------------------------------------------------------------------------------------------------------------------
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
ladoA = Text1.Text
Text1.Text = ""
End Sub--------------------------------------------------------------------------------------------------------------------------------------
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
ladoB = Text1.Text
Text1.Text = ""
End Sub
--------------------------------------------------------------------------------------------------------------------------------------
Private Sub Button3_Click(sender As System.Object, e AsSystem.EventArgs) Handles Button3.Click
ladoC = Text1.Text
Text1.Text = ""
End Sub
--------------------------------------------------------------------------------------------------------------------------------------
Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
If ladoA = ladoB And ladoB = ladoC Then
Label2.Text = "EQUILATERO"
ElseIf ladoB <> ladoCAnd ladoA <> ladoB And ladoA <> ladoC Then
Label2. Text = "ESCALENO"
Else
Label2. Text. = "ISOSCELES"
End If
End Sub
-----------------------------------------------------------------------------------------------------------------------------
Private Sub Button5_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Label2. Text = ""
Text1.Text = ""
End Sub
End ClassTRABAJO PRACTICO N° 2
Este es un programa de aciertos.
Al hacer click sobre la imagen debe aparecer un cuadro de texto para ingresar la raza de perro que corresponde.
La respuesta se debe ingresar en mayúscula (debe haber un mensaje que lo advierta.
De acuerdo a la respuesta se dará un puntaje.
Luego de haber seleccionado la imagen esta quedara inhabilitada, independientemente de si respondiócorrectamente o no.
Los cambios de formato en el formulario se realizan mediante las propiedades de cada uno de los controles y del FORMULARIO, buscando en todos los casos una correcta presentación y funcionamiento del programa en tiempo de ejecución.
CONTROLES:
Cuatro PICTUREBOX, una para cada una de las imágenes de los perros.
Cinco LABEL, una para el titulo, otra para identificar al contador(ACIERTOS), otra para el contador, otra para la advertencia de ingreso en mayúscula y otra el mensaje de si acertó o no la respuesta.

CODIGO:
Private CONTAR As Integer
Private RAZA As String
-------------------------------------------------------------------------------------------------------------------------------------------
Private Sub Form_ACTIVATE()
CONTAR = 0
Label3. Text = "0"
End Sub...