Nadas



Quinto Laboratorio de Programación I

Objetivo: Creación de aplicaciones con animación, uso de vectores y Números aleatorios.

Parte Práctica

Aplicación 1 : Simulación de Movimiento deuna línea alrededor de un punto.

Dibuje la siguiente interface:


Propiedades Importantes
Objeto Propiedad Valor
Line1 BorderWidth 5
Timer1 Interval1000

Codificación
Dim r As Integer
Dim t As Single
Private Sub Form_Load()
r = Sqr((Line1.X1 - Line1.X2) * (Line1.X1 - Line1.X2) + (Line1.Y1 - Line1.Y2) * (Line1.Y1 -Line1.Y2))
t = 0
End Sub

Private Sub Timer1_Timer()
t = t + 5
If t = 360 Then
t = 0
End If
Text1.Text = t
Line1.X2 = Line1.X1 + r * Cos(t * 3.1416 / 180)
Line1.Y2 =Line1.Y1 + r * Sin(t * 3.1416 / 180)
End Sub

Ejercicio Propuesto 1

Dibuje un reloj, con un minutero y un segundero.

Aplicación 2

Crear la siguiente aplicación que lea un vector de Nelementos, lo muestre en una lista, debe mostrar además el máximo elemento del vector y la suma de sus componentes.




Declaración de variables generales

Dim A(1 To 100) As Integer
Dim N AsInteger
//Codificacion del Boton Lee Vector
Private Sub Command1_Click()
N = InputBox("Ingrese N=", "Cantidad de elementos del Vector")
For I = 1 To N
A(I) = InputBox("Ingrese A(" +Str(I) + ")=", "Ingresando elementos del Vector")
Next I
End Sub
//Codificacion del Boton Muestra Vector
Private Sub Command2_Click()
List1.Clear
For I = 1 To NList1.AddItem Str(A(I))
Next I
End Sub
//Codificacion del Boton Agrega Elemento
Private Sub Command3_Click()
N = N + 1
A(N) = InputBox("Ingrese A(" + Str(N) + ")=", "Ingresando elementos delVector")
End Sub

Completar la codificación de los Botones Calcula Mayor y calcula suma……..
Guardar el formulario y el proyecto con el nombre de “Vector01”

Aplicación 3

Crear la siguiente...