Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
Scribd Logo
Upload

Welcome to Scribd!

  • 21 views

    Facultad de Ingeniería de Sistemas: Form1 Object Eventargs

    Uploaded by

    Modesta Reyes Salvador
    The document contains code examples for creating different types of programs using Visual Basic.NET. It includes 3 programs - one to convert ages to months, one to compare two numbers and determine the larger, and one to convert numbers 1-10 to Roman numerals. It also includes examples of using loops and controls like radio buttons, checkboxes, and dropdown lists to add functionality to forms. The document provides code snippets to demonstrate how to complete various programming tasks in Visual Basic.NET.

    Copyright:

    © All Rights Reserved
    Download as DOCX, PDF, TXT or read online from Scribd

    Facultad de Ingeniería de Sistemas: Form1 Object Eventargs

    Uploaded by

    Modesta Reyes Salvador
    21 views8 pages
    The document contains code examples for creating different types of programs using Visual Basic.NET. It includes 3 programs - one to convert ages to months, one to compare two numbers and determine the larger, and one to convert numbers 1-10 to Roman numerals. It also includes examples of using loops and controls like radio buttons, checkboxes, and dropdown lists to add functionality to forms. The document provides code snippets to demonstrate how to complete various programming tasks in Visual Basic.NET.

    Original Title

    Ejercicios de POO

    Copyright

    © © All Rights Reserved

    Available Formats

    DOCX, PDF, TXT or read online from Scribd

    Did you find this document useful?

    Is this content inappropriate?

    The document contains code examples for creating different types of programs using Visual Basic.NET. It includes 3 programs - one to convert ages to months, one to compare two numbers and determine the larger, and one to convert numbers 1-10 to Roman numerals. It also includes examples of using loops and controls like radio buttons, checkboxes, and dropdown lists to add functionality to forms. The document provides code snippets to demonstrate how to complete various programming tasks in Visual Basic.NET.

    Copyright:

    © All Rights Reserved
    Download as DOCX, PDF, TXT or read online from Scribd
    Download as docx, pdf, or txt
    21 views8 pages

    Facultad de Ingeniería de Sistemas: Form1 Object Eventargs

    Uploaded by

    Modesta Reyes Salvador
    The document contains code examples for creating different types of programs using Visual Basic.NET. It includes 3 programs - one to convert ages to months, one to compare two numbers and determine the larger, and one to convert numbers 1-10 to Roman numerals. It also includes examples of using loops and controls like radio buttons, checkboxes, and dropdown lists to add functionality to forms. The document provides code snippets to demonstrate how to complete various programming tasks in Visual Basic.NET.

    Copyright:

    © All Rights Reserved
    Download as DOCX, PDF, TXT or read online from Scribd
    Download as docx, pdf, or txt
    of 8

    UNIVERSIDAD NACIONAL DEL CENTRO DEL PERÚ

    FACULTAD DE INGENIERÍA DE SISTEMAS


    DEPARTAMENTO ACADÉMICO DE INGENIERÍA DE SISTEMAS

    1. Realizar un programa que solicite la edad del usuario y que transforme esa
    edad en meses:

    Public Class Form1

    Private Sub CALCULAR_Click(ByVal sender As System.Object, ByVal e As


    System.EventArgs) Handles Button1.Click
    Dim NUM As Integer
    NUM = NumericUpDown1.Text
    TextBox1.Text = NUM * 12
    End Sub
    End Class
    Private Sub CERRAR_Click(ByVal sender As System.Object, ByVal e As
    System.EventArgs) Handles Button1.Click
    End
    End Sub

    2. Realizar un programa que solicite el ingreso de dos números y que indicar cual
    es el mayor, considerar también cuando los números son iguales:

    Public Class Form1

    Private Sub EVALUAR_Click(ByVal sender As System.Object, ByVal e As


    System.EventArgs) Handles Button1.Click
    Dim N1, N2 As Integer
    N1 = NumericUpDown1.Text
    N2 = NumericUpDown2.Text
    If N1 > N2 Then
    TextBox1.Text = (" EL NUMERO MAYOR ES :" & N1)
    Else
    TextBox1.Text = ("EL NUMERO MAYOR ES : " & N2)
    End If

    If N1 = N2 Then
    TextBox1.Text = (" LOS NUMEROS SON IGUALES")
    End If
    End Sub
    End Class

    3. Realizar un programa que solicite el ingreso de números del 1 al 10 y lo


    convierta en romanos:

    Public Class Form1


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

    If NumericUpDown1.Text = 0 Then
    TextBox1.Text = 0
    End If
    If NumericUpDown1.Text = 1 Then
    TextBox1.Text = ("I")
    End If
    If NumericUpDown1.Text = 2 Then
    TextBox1.Text = ("II")
    End If
    If NumericUpDown1.Text = 3 Then
    TextBox1.Text = ("III")
    End If
    If NumericUpDown1.Text = 4 Then
    TextBox1.Text = ("IV")
    End If
    If NumericUpDown1.Text = 5 Then
    TextBox1.Text = ("V")
    End If
    If NumericUpDown1.Text = 6 Then
    TextBox1.Text = ("VI")
    End If
    If NumericUpDown1.Text = 7 Then
    TextBox1.Text = ("VII")
    End If
    If NumericUpDown1.Text = 8 Then
    TextBox1.Text = ("VIII")
    End If
    If NumericUpDown1.Text = 9 Then
    TextBox1.Text = ("IX")
    End If
    If NumericUpDown1.Text = 10 Then
    TextBox1.Text = ("X")
    End If

    End Sub
    End Class

    Desarrollo de Programas

    Codificacion:

    Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As


    System.EventArgs) Handles Button1.Click
    Dim n As Integer
    For i = 0 To 100
    n = (i)
    ListBox1.Items.Add(n)
    Next
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As


    System.EventArgs) Handles Button2.Click
    Dim n As Integer
    For i = 4 To 80 Step 2
    n = (i)
    ListBox1.Items.Add(n)
    Next
    End Sub
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As
    System.EventArgs) Handles Button3.Click
    Dim n As Integer
    For i = 3 To 80 Step 2
    n = (i)
    ListBox1.Items.Add(n)
    Next
    End Sub
    End Class

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As


    System.EventArgs) Handles Button4.Click
    Dim n As Integer
    For i = 0 To 100 Step 3
    n = (i)
    ListBox1.Items.Add(n)
    Next
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As


    System.EventArgs) Handles Button5.Click
    Dim n As Integer
    For i = 0 To 100 Step 21
    n = (i)
    ListBox1.Items.Add(n)
    Next
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As


    System.EventArgs) Handles Button6.Click
    Dim n As Integer
    For i = 50 To 4 Step -1
    n = (i)
    ListBox1.Items.Add(n)
    Next
    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As


    System.EventArgs) Handles Button8.Click
    Dim n As Integer
    For i = 4 To 30
    n = (i)
    ListBox1.Items.Add(n)
    Next
    Dim m As Integer
    m = ((30 * 31) / 2) - 8
    ListBox1.Items.Add("la suma es :" & m)

    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As


    System.EventArgs) Handles Button9.Click
    Dim n As Integer
    For i = 10 To 900 Step 2
    n = (i)
    ListBox1.Items.Add(n)
    Next
    End Sub
    Codificación:

    Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As


    System.EventArgs) Handles Button1.Click
    Dim n As Integer
    For i = 1 To 10
    n = (i)
    ListBox1.Items.Add(n)
    Next
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As


    System.EventArgs) Handles Button2.Click
    Dim n As Integer
    For i = 10 To 20 Step 2
    n = (i)
    ListBox1.Items.Add(n)
    Next
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As


    System.EventArgs) Handles Button3.Click
    Dim n As Integer
    For i = 0 To 100 Step 21
    n = (i)
    ListBox1.Items.Add(n)
    Next
    Dim m As Integer
    For i = 0 To 10
    m = i * 21
    Next
    ListBox1.Items.Add(" la suma de los multiplos es :" & m)
    End Sub
    End Class

    Crear un formulario Alumno donde se pide el Nombre, Apellido, Nota (Sobre la


    ubicación de su dirección) y su contraseña.

    Public Class Form1


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

    TextBox1.Text = "PIERO"
    TextBox2.Text = " LAURA SOTO"
    TextBox3.Text = "VIVE EN EL TAMBO . POR EL PARQUE INFANTIL "
    TextBox4.Text = "******"
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As


    System.EventArgs) Handles Button2.Click
    End
    End Sub
    End Class

    PRACTICA DE CONTROLES
    Problema 1:

    Public Class Form1

    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal


    e As System.EventArgs) Handles RadioButton1.CheckedChanged
    Dim M As String
    M = "PROBANDO CONTROLES DE OPCION"
    If RadioButton1.Checked Then
    ListBox1.Items.Add(M)
    End If
    If RadioButton4.Checked Then
    ListBox1.BackColor = Color.Green
    End If

    If RadioButton5.Checked Then
    ListBox1.BackColor = Color.DarkBlue
    End If

    If RadioButton6.Checked Then
    ListBox1.BackColor = Color.Yellow
    End If

    End Sub

    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal


    e As System.EventArgs) Handles RadioButton2.CheckedChanged
    Dim M As String
    M = "PROBANDO CONTROLES DE OPCION"
    If RadioButton2.Checked Then
    ListBox1.Items.Add(M)
    End If
    If RadioButton4.Checked Then
    ListBox1.BackColor = Color.Green
    End If

    If RadioButton5.Checked Then
    ListBox1.BackColor = Color.DarkBlue
    End If

    If RadioButton6.Checked Then
    ListBox1.BackColor = Color.Yellow
    End If
    End Sub

    Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal


    e As System.EventArgs) Handles RadioButton3.CheckedChanged
    Dim M As String
    M = "PROBANDO CONTROLES DE OPCION"
    If RadioButton3.Checked Then
    ListBox1.Items.Add(M)
    End If
    If RadioButton4.Checked Then
    ListBox1.BackColor = Color.Green
    End If

    If RadioButton5.Checked Then
    ListBox1.BackColor = Color.DarkBlue
    End If

    If RadioButton6.Checked Then
    ListBox1.BackColor = Color.Yellow
    End If
    End Sub
    End Class

    3. Crear un formulario en donde se tenga las siguientes opciones:

    Public Class Form1

    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e


    As System.EventArgs) Handles CheckBox1.CheckedChanged
    Dim M As String
    M = " ESTAMOS ANALIZANDO"
    If CheckBox1.Checked Then
    Me.BackColor = Color.BlueViolet
    End If
    If CheckBox1.Checked Then
    ListBox1.Items.Add(M)
    End If
    End Sub

    Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e


    As System.EventArgs) Handles CheckBox2.CheckedChanged
    Dim M As String
    M = " ESTAMOS ANALIZANDO"
    If CheckBox2.Checked Then
    ListBox1.Items.Add(M)
    End If
    End Sub
    End Class

    4. Crear un formulario en donde se tenga las siguientes opciones:


    Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
    System.EventArgs) Handles MyBase.Load
    ComboBox1.Items.Add("AZUL")
    ComboBox1.Items.Add("VERDE")
    ComboBox1.Items.Add("AMARILLO")
    ComboBox1.Items.Add("NARANJA")
    ComboBox1.Items.Add("MORADO")
    ComboBox1.Items.Add("GRANATE")
    ComboBox3.Items.Add("SEVILLA")
    ComboBox3.Items.Add("VALENCIA")
    ComboBox3.Items.Add("ALICANTE")
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As


    System.EventArgs) Handles Button1.Click
    Dim M As String
    M = "LUIS"
    ComboBox2.Items.Add(M)
    End Sub
    End Class

    5. Crear un formulario en donde se tenga las siguientes opciones

    Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As


    System.EventArgs) Handles Button1.Click
    Dim M, N, A, S, C As String
    M = "COCHE"
    N = "LIBRO"
    A = "MESA"
    S = "MONITOR"
    C = "ANA"
    ListBox1.Items.Add(M)
    ListBox1.Items.Add(N)
    ListBox1.Items.Add(A)
    ListBox1.Items.Add(S)
    TextBox1.Text = (C)

    End Sub
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As
    System.EventArgs) Handles Button4.Click
    Dim X As String
    X = "IDTRASPASAR"
    ListBox2.Items.Add(X)

    End Sub
    End Class

    You might also like