Prácticas de Laboratorio de Programación Estructurada para el nivel medio superior

...

TextBox1.Text = ""

TextBox2.Text = ""

TextBox3.Text = ""

TextBox4.Text = ""

End Sub

End Class

Programa 4 utilización de la barra de progreso

[pic 7]

Guardar todo/ Proyecto/ nombre= Barra/ guardar

1 Progress Bar

3-botones de comando:

Primer botón

Propiedades

TabStop=False

Text=Iniciar

Código:

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

3 Timer1.Start()

End Sub

2º botón

Propiedades

TabStop=True

Text=Pausa

Código:

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Timer1.Stop()

End Sub

3er botón de comando:

Propiedades

Text=SALIR

Código:

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

End

End Sub

1 objeto Timer

Código:

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

ProgressBar1.Increment(1)

Label1.Text = ProgressBar1.Value & "%"

End Sub

End Class

Programa 5 operaciones matemáticas

[pic 8]

Guardar todo/ Proyecto/ nombre= Operaciones Matemáticas/ guardar

Insertar: 6 Label/ 3 botón de comando/ 6 TextBox

Propiedades Labels.

Text Label1 = Primer Valor

Text Label2= Segundo Valor

Text Label3= SUMA

Text Label3= RESTA

Text Label3= MULTIPLICACION

Text Label3= DIVISION

Text Button1= CALCULAR

Text Button1=LIMPIAR

Text Button1=TERMINAR

TextBox3/ nombre/ suma

TextBox4/nombre/resta

TextBox5/nombre/multiplicacion

TextBox6/nombre/division

Código Button1.

Dim R1, R2, R3, R4 As Integer

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

R1 = Val(TextBox1.Text) + Val(TextBox2.Text)

suma.Text = R1

R2 = Val(TextBox1.Text) - Val(TextBox2.Text)

resta.Text = R2

R3 = Val(TextBox1.Text) * Val(TextBox2.Text)

multiplicacion.Text = R3

R4 = Val(TextBox1.Text) / Val(TextBox2.Text)

division.Text = R4

End Sub

Código Button2.

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

suma.Text = ""

resta.Text = ""

multiplicacion.Text = ""

division.Text = ""

End Sub

Código Button3.

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

End

End Sub

End Class

Programa 6 conversión de números

[pic 9]

Guardar todo/ Proyecto/ nombre= Números Romanos / guardar

2 Labels/ 2 TextBox/ 3 Button

Propiedades:

Label1/text/Numero

Label2/ text/ Numero Romano

TextBox1/nombre/ txtNumero

TextBox2/nombre/txtRomano ReadOnly/True

Button1/nombre/btnCalc Text/CONVERSION

Código Button1(btnCalc)

Private Sub btnCalc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalc.Click