Reportes De En Visual Basic 2010
Enviado por • 28 de Junio de 2013 • 3.676 Palabras (15 Páginas) • 480 Visitas
UNIVERSIDAD MESOAMERICANA
IMEA - INGENIERIA EN MECÁNICA Y ELECTRÓNICA AUTOMOTRIZ
Programación c
CATEDRÁTICO:
ING. MARTINEZ ANA KAREN
REPORTES DE PRACTICA
UNIDAD II
REALIZADO POR:
ING. MIRANDA PACHECO CRISTHIAN MOISÉS
Introducción:
Visual Basic 2010 Express es la nueva versión del entorno de desarrollo integrado (IDE), que permite crear aplicaciones utilizando el lenguaje de programación Visual Basic .NET.
Visual Basic .NET fue creado ya hace unos años, sustituyendo a Visual Basic 6, y evolucionado en varios aspectos. .NET pasó a ser un lenguaje orientado a objetos, que además es independiente de la plataforma en el que se vaya a ejecutar.
Dispone de un editor de código, un depurador y compilador; y permite agregar elementos gráficos fácilmente, arrastrando y soltando elementos al editor visual.
Incluye IntelliSense Code Snippets, una colección de librerías para agregar a los proyectos, que evitan tener que escribir código para determinadas funciones que ya están hechas.
Esta versión Express es una versión reducida del Visual Basic .NET que forma parte del Visual Studio, el paquete profesional que no es gratuito como lo es esta aplicación. Es ideal para aprender y empezar a familiarizarse con el lenguaje. Durante la instalación se tiene la opción de incluir SQL Server Express Edition para el manejo de las bases de datos.
Calculadora cencilla
Public Class calculadora
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox3.Text = Val(TextBox1.Text) + Val(TextBox2.Text)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox3.Text = Val(TextBox1.Text) - Val(TextBox2.Text)
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
TextBox3.Text = Val(TextBox1.Text) * Val(TextBox2.Text)
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
TextBox3.Text = Val(TextBox1.Text) / Val(TextBox2.Text)
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
End Sub
End Class
Calculadora con decimal
Diagrama de flujo
Public Class Form1
Dim DATO As Double
Dim DATO2 As Double
Dim RESUL As Double
Dim OPE As Double
Dim BTS As Double
Private Sub Btn8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn8.Click
TextBox1.Text = TextBox1.Text & "8"
End Sub
Private Sub Btnclear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnclear.Click
TextBox1.Clear()
Btnpunto.Enabled = True
End Sub
Private Sub Btn0_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn0.Click
TextBox1.Text = TextBox1.Text & "0"
End Sub
Private Sub Btn1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn1.Click
TextBox1.Text = TextBox1.Text & "1"
End Sub
Private Sub Btn2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn2.Click
TextBox1.Text = TextBox1.Text & "2"
End Sub
Private Sub Btn3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn3.Click
TextBox1.Text = TextBox1.Text & "3"
End Sub
Private Sub Btn4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn4.Click
TextBox1.Text = TextBox1.Text & "4"
End Sub
Private Sub Btn5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn5.Click
TextBox1.Text = TextBox1.Text & "5"
End Sub
Private Sub Btn6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn6.Click
TextBox1.Text = TextBox1.Text & "6"
End Sub
Private Sub Btn7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn7.Click
TextBox1.Text = TextBox1.Text & "7"
End Sub
Private Sub Btn9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn9.Click
TextBox1.Text = TextBox1.Text & "9"
End Sub
Private Sub Btnpunto_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnpunto.Click
TextBox1.Text = TextBox1.Text & "."
BTS = 1
If BTS = 1 Then
Btnpunto.Enabled = False
End If
End Sub
Private Sub Btnsuma_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnsuma.Click
OPE = 1
DATO = Val(TextBox1.Text)
TextBox1.Clear()
Btnpunto.Enabled = True
End Sub
Private Sub Btnygual_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnygual.Click
DATO2 = Val(TextBox1.Text)
Btnpunto.Enabled = True
If OPE = 1 Then
RESUL = DATO + DATO2
TextBox1.Text = RESUL
Else
If OPE = 2 Then
RESUL = DATO - DATO2
TextBox1.Text = RESUL
Else
If OPE = 3 Then
RESUL = DATO * DATO2
TextBox1.Text = RESUL
Else
If OPE = 4 Then
RESUL = DATO / DATO2
TextBox1.Text = RESUL
End If
End If
End If
End If
End Sub
Private Sub Btnresta_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnresta.Click
OPE = 2
DATO = Val(TextBox1.Text)
TextBox1.Clear()
Btnpunto.Enabled = True
End Sub
Private Sub Btnpor_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnpor.Click
OPE = 3
DATO = Val(TextBox1.Text)
TextBox1.Clear()
Btnpunto.Enabled = True
End Sub
Private Sub Btnentre_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnentre.Click
OPE = 4
DATO = Val(TextBox1.Text)
TextBox1.Clear()
Btnpunto.Enabled = True
End Sub
End Class
Conversión de números a números romanos
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn1.Click
If Text2.Text = 1 Then
Text1.Text = "I"
ElseIf Text2.Text = 2 Then
Text1.Text = "II"
ElseIf Text2.Text = 3 Then
Text1.Text = "III"
ElseIf Text2.Text = 4 Then
Text1.Text = "IV"
ElseIf Text2.Text = 5 Then
Text1.Text = "V"
ElseIf Text2.Text = 6 Then
Text1.Text = "VI"
ElseIf Text2.Text = 7 Then
Text1.Text = "VII"
ElseIf Text2.Text = 8 Then
Text1.Text = "VIII"
ElseIf Text2.Text = 9 Then
Text1.Text = "IX"
ElseIf Text2.Text = 10 Then
Text1.Text = "V"
End If
End Sub
Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Text2.TextChanged
End Sub
Private Sub LinkLabel2_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn2.Click
End Sub
Private Sub Text1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Text1.TextChanged
End Sub
Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click
End Sub
Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class
TAREA 1
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnesconde.Click
fotodakar.Visible = False
End Sub
Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub PictureBox1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles fotodakar.Click
End Sub
Private Sub btnaparece_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnaparece.Click
fotodakar.Visible = True
End Sub
End Class
CUADRO DE MENSAJE
Public Class Form1
Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox1.Enter
End Sub
Private Sub RadioButton2_CheckedChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
End Sub
Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If RadioButton1.Checked = True Then
End If
MsgBox(TextBox1.Text, MsgBoxStyle.Exclamation)
If RadioButton2.Checked = True Then
End If
MsgBox(TextBox1.Text, MsgBoxStyle.Information)
If RadioButton3.Checked = True Then
End If
MsgBox(TextBox1.Text, MsgBoxStyle.OkCancel)
If RadioButton4.Checked = True Then
End If
MsgBox(TextBox1.Text, MsgBoxStyle.Critical)
If RadioButton5.Checked = True Then
End If
MsgBox(TextBox1.Text, MsgBoxStyle.MsgBoxHelp)
If RadioButton6.Checked = True Then
MsgBox(TextBox1.Text, MsgBoxStyle.Question)
End If
End Sub
Private Sub RadioButton1_CheckedChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
End Sub
End Class
Semáforo
Public Class Form1
Dim sf As UInteger
Private Sub Panel3_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel3.Paint
End Sub
Private Sub OvalShape5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles amariyo3.Click
amariyo3.BackColor = Color.Yellow
End Sub
Private Sub OvalShape12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rojo2.Click
rojo2.BackColor = Color.Red
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If sf = 1 Then
verde1.BackColor = Color.Gray
amariyo1.BackColor = Color.Gray
amariyo2.BackColor = Color.Gray
amariyo3.BackColor = Color.Gray
amariyo4.BackColor = Color.Gray
verde2.BackColor = Color.Green
verde3.BackColor = Color.Gray
verde4.BackColor = Color.Gray
rojo1.BackColor = Color.Red
rojo2.BackColor = Color.Gray
rojo3.BackColor = Color.Red
rojo4.BackColor = Color.Gray
ElseIf sf = 2 Then
amariyo1.BackColor = Color.Yellow
amariyo2.BackColor = Color.Gray
amariyo3.BackColor = Color.Gray
amariyo4.BackColor = Color.Gray
verde2.BackColor = Color.Gray
verde3.BackColor = Color.Gray
verde4.BackColor = Color.Gray
rojo1.BackColor = Color.Gray
verde3.BackColor = Color.Gray
rojo2.BackColor = Color.Red
rojo3.BackColor = Color.Red
rojo4.BackColor = Color.Red
ElseIf sf = 3 Then
verde1.BackColor = Color.Green
amariyo1.BackColor = Color.Gray
amariyo2.BackColor = Color.Gray
amariyo3.BackColor = Color.Gray
amariyo4.BackColor = Color.Gray
verde2.BackColor = Color.Gray
verde3.BackColor = Color.Gray
verde4.BackColor = Color.Gray
rojo1.BackColor = Color.Gray
verde3.BackColor = Color.Gray
rojo2.BackColor = Color.Red
rojo3.BackColor = Color.Red
rojo4.BackColor = Color.Red
ElseIf sf = 4 Then
verde1.BackColor = Color.Gray
amariyo1.BackColor = Color.Gray
amariyo2.BackColor = Color.Gray
amariyo3.BackColor = Color.Gray
amariyo4.BackColor = Color.Gray
verde2.BackColor = Color.Gray
verde3.BackColor = Color.Gray
verde4.BackColor = Color.Gray
rojo1.BackColor = Color.Gray
verde3.BackColor = Color.Gray
rojo2.BackColor = Color.Red
rojo3.BackColor = Color.Red
rojo4.BackColor = Color.Red
End If
sf = sf + 1
If sf = 6 Then
sf = 0
End If
End Sub
Private Sub OvalShape1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rojo1.Click
rojo1.BackColor = Color.Red
End Sub
Private Sub OvalShape2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles amariyo1.Click
amariyo1.BackColor = Color.Yellow
End Sub
Private Sub OvalShape3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles verde1.Click
verde1.BackColor = Color.Green
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Enabled = True
Timer1.Interval = 2000
End Sub
Private Sub Panel2_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel2.Paint
End Sub
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
End Sub
Private Sub OvalShape11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles amariyo2.Click
amariyo2.BackColor = Color.Yellow
End Sub
Private Sub OvalShape10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles verde2.Click
verde2.BackColor = Color.Green
End Sub
Private Sub OvalShape6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rojo3.Click
rojo3.BackColor = Color.Red
End Sub
Private Sub OvalShape9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rojo4.Click
rojo4.BackColor = Color.Red
End Sub
Private Sub OvalShape8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles amariyo4.Click
amariyo4.BackColor = Color.Yellow
End Sub
Private Sub OvalShape4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles verde3.Click
verde3.BackColor = Color.Green
End Sub
Private Sub OvalShape7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles verde4.Click
verde4.BackColor = Color.Green
End Sub
End Class
Con el entendimiento del visual bacic lenguaje principalmente gráfico y que facilita mucho la programación, lo cual nos impide crear grandes aplicaciones e incluso juegos.
En el transcurso de la unidad se vieron diferentes métodos de programación del cual tener bases principales y básicos para la creación de un programa en específico,
...