trianguloManual Visual Basic paso a paso – Práctica 8

Ejercicio.

Crear una aplicación como se ve en la imagen, donde al dar doble clic sobre un elemento de la lista debe presentar su nombre y precio en los respectivos text, cuando ingrese la cantidad debe calcularse de forma automática el total.

Private Sub Form_Load()

 

List1.AddItem “Televisor”

List1.AddItem “Radio AM/FM

List1.AddItem “VHS”

List1.AddItem “DVD”

 

End Sub

 

Private Sub List1_DblClick()

Select Case List1.ListIndex

Case 0

Text2.Text = List1.Text

Text3.Text = “30”

Case 1

Text2.Text = List1.Text

Text3.Text = “10”

Case 2

Text2.Text = List1.Text

Text3.Text = “15”

Case 3

Text2.Text = List1.Text

Text3.Text = “20”

End Select

End Sub

 

Private Sub Text1_Change()

If Len(Text1.Text) > 0 Then

Text4.Text = Val(Text3.Text) * Val(Text1.Text)

Else

Text4.Text = “”

End If

End Sub

 

Ejercicio:

Crear una aplicación donde ingrese su nombre y edad. Cuando de clic sobre el botón calcular debe mostrar la edad, observación y etapa.

Edad

Etapa

< =12

Nińo

13 a 17

Adolescente

 

 

Private Sub btc_calcular_Click()

Text3.Text = Year(Date) – Year(Text2.Text)

edad = Val(Text3.Text)

If edad > 17 Then

Text4.Text = “Mayor de edad”

Else

Text4.Text = “Menor de Edad”

End If

Select Case edad

Case Is <= 12

Text5.Text = “Nińo”

Case 13 To 17

Text5.Text = “Adolescente”

Case 18 To 30

Text5.Text = “Joven”

Case 31 To 70

Text5.Text = “Adulto”

Case Is > 70

Text5.Text = “Anciano”

End Select

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