trianguloManual Visual Basic paso a paso – Práctica 9 y Práctica 10

Esta práctica se considera de nivel avanzado, por esto hemos hecho que ocupe dos temas.

Evaluación.

Código fuente.

 

1.- Agregar elementos al COMBO1 de clientes y al LIST1.

2.- Cuando seleccione un elemento de la lista debe Mostar la descripción y precio.

3.- Cuando ingrese la cantidad debe Mostar el total.

 

 

 

 

 

 

 

Private Sub List1_Click()

If Combo1 = “” Then

MsgBox “Seleccione un Cliente”, , “Clientes”

Else

�����..

End If

End Sub

 

 

 

 

 

 

 

 

 

 

Ejercicio. Diseńe el siguiente formulario y programe lo siguiente; al dar un clic en el botón enumerar debe agregar elementos a la lista desde el numero que indique como inicio, y a partir de este incrementarse hasta llegar al numero q indique como fin.

 

 

Private Sub btc_enumerar_Click()

inicio = Val(Text1.Text)

fin = Val(Text2.Text)

incremento = Val(Text3.Text)

If incremento > 0 Then

List1.Clear

For numero = inicio To fin

List1.AddItem (numero)

numero = numero + incremento – 1

suma = suma + numero

Next

elementos = List1.ListCount

Text4.Text = elementos

truco = incremento – 1

Text5.Text = suma – (truco * elementos)

End If

End Sub


trianguloDeja un comentario

  Jovenes Informaticos - Tu página de tecnología | Contenido: RSS | Contenido: Enric Cusell  


Warning: include(http://www.intercambios-links.com/jaula.php?code=TNWZnZ) [function.include]: failed to open stream: HTTP request failed! HTTP/1.1 404 Not Found in /home2/enriccus/public_html/jovenesinformaticos/wp-content/themes/jovenes-info/footer.php on line 20

Warning: include() [function.include]: Failed opening 'http://www.intercambios-links.com/jaula.php?code=TNWZnZ' for inclusion (include_path='.:/opt/php52/lib/php') in /home2/enriccus/public_html/jovenesinformaticos/wp-content/themes/jovenes-info/footer.php on line 20