Reportes De En Visual Basic 2010

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

...