jueves, 4 de julio de 2013

IMPLEMENTACION DE LA RUTINA DEL CODIGO PARA DESARROLLAR UNA APLICACION EN SOFTWARE ATRAVEZDEL IDE DE VISUAL BASIC (LAB -7)


MATERIALES : 

- COMPUTADOR 
- VISUAL BASIC 2010


CODIGO :


Public Class Form1
    Dim SUMA As Double      // VARIABLE 1
    Dim RESTA As Double     // VARIABLE 2

    Private Sub TrackBar1_Scroll(sender As Object, e As EventArgs) Handles TrackBar1.Scroll
        SUMA = TrackBar1.Value + TrackBar2.Value         //EL RESULTADO ENTRE LA SUMA DE TRACKBAR 1 Y 2 SERAALAMACENADO EN SUMA
        Label1.Text = SUMA                               // TEXTO SUMA
        RESTA = TrackBar2.Value - TrackBar1.Value        //EL RESULTADO ENTRE LA RESTA DE TRACKBAR 1 Y 2 SERAALAMACENADO EN RESTA
        Label2.Text = RESTA                              // TEXTO RESTA
        ProgressBar1.Value = TrackBar1.Value             //BARRA DE PROGRESO1 IGUAL A TRACKBAR1
        If ProgressBar1.Value > ProgressBar2.Value Then  // COMPARAR BARRA DE PROGRESO 1 Y 2
        Button1.BackColor = Color.Green                  // SI ES MAYOR BARRA DE PROGRESO 1 CONTRA 2 SERA VERDE
        Else
        Button1.BackColor = Color.Red                    // SI NO ES MAYOR BARRA 1 PROGRESO 1 CONTRA 2 SERA ROJO
        End If

    End Sub

    Private Sub TrackBar2_Scroll(sender As Object, e As EventArgs) Handles TrackBar2.Scroll

        SUMA = TrackBar1.Value + TrackBar2.Value         //EL RESULTADO ENTRE LA SUMA DE TRACKBAR 1 Y 2 SERAALAMACENADO EN SUMA
        Label1.Text = SUMA                               // TEXTO SUMA
        RESTA = TrackBar2.Value - TrackBar1.Value        //EL RESULTADO ENTRE LA RESTA DE TRACKBAR 1 Y 2 SERAALAMACENADO EN RESTA
        Label2.Text = RESTA                              // TEXTO RESTA
        ProgressBar2.Value = TrackBar2.Value             //BARRA DE PROGRESO1 IGUAL A TRACKBAR1

        If ProgressBar1.Value > ProgressBar2.Value Then  // COMPARAR BARRA DE PROGRESO 1 Y 2
        Button1.BackColor = Color.Green                  // SI ES MAYOR BARRA DE PROGRESO 1 CONTRA 2 SERA VERDE
        Else
        Button1.BackColor = Color.Red                    // SI NO ES MAYOR BARRA 1 PROGRESO 1 CONTRA 2 SERA ROJO
        End If
    End Sub

  
End Class











 
 

No hay comentarios:

Publicar un comentario en la entrada