puerto paralelo

Un puerto paralelo:es una interfaz entre una computadora y un periférico cuya principalcaracterística es que los bits de datos viajan juntos enviando un byte completo o más a la vez. Es decir,seimplementa un cable o una vía física para cada bit de datos formando un bus.[[Simulación de Movimiento de una línea alrededor de un punto: Propiedades Importantes: Objeto(Line, Timer1),Propiedad(BorderWidth, Interval), Valor(5, 1000).Codificación: Private Sub Command1_Click()///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]]—[[ Crear la siguiente aplicación que lea un vector de N elementos, lo muestre en una lista, debe mostrar ademásel máximo elemento del vector y la suma de sus componentes:Dim A(1 To 100) As Integer///Dim N As Integer///Private Sub Command1_Click()///N = InputBox("Ingrese N=", "Cantidad de elementos delVector")///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 SubCommand2_Click()/// List1.Clear///For I = 1 To N///List1.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 del Vector")///End Sub]]—[[ Crear la siguiente aplicación que lea un vector de N edades.El botón Muestra Vector: visualiza en una lista el vector tal como fueingresado.El botón Vector Ordenado muestra el vector en forma decreciente.El botón Mayores de edad, muestra solo las edades mayores o iguales a 18:Para i=1 hasta N-1///Para j=i+1 hasta N///Si A(i)