
Crea un formulario con dos etiquetas, dos cajas de texto, un marco, cuatro botones de opción, tres botones y escribe el siguiente código:
El botón Convertir
Private Sub Command1_Click()
If Option1 = True Then
Text2 = Val(Text1) * 1000
ElseIf Option2 = True Then
Text2 = Val(Text1) * 100
ElseIf Option3 = True Then
Text2 = Val(Text1) * 10
ElseIf Option4 = True Then
Text2 = Val(Text1) / 1000
End If
End Sub
El botón Nuevo Cálculo
Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Text1.SetFocus
End Sub
El botón Salir
Private Sub Command3_Click()
Unload Me
End
End Sub
Hay 34 opiniones. Opina sobre este curso.
| Cursos | Valoración | Alumnos | Vídeo | |
|---|---|---|---|---|
|
Diseño de ambientes de aprendizaje Este curso ofrece un conjunto de pautas y lineamientos para el diseño de ambientes que promuevan el aprendizaje asignificativo.... [06/04/06] |
|
1.864 | ||
|
Crear un ojo en 3ds Max Con la ayuda de este curso aprenderás a crear un ojo con 3ds Max. e incorporarlo dentro de la cara de una persona. Ya verás como en sólo 15 minutos lo puedes conseguir. É... [19/10/05] |
|
1.188 | ||
|
Breve teoría de la selección de canales en Photoshop Breve tutorial sobre selecciones de áreas por medio de composición del color en Photoshop. Cuando trabajamos sobre una imagen, lo hacemos siempre sobre una com... [09/03/05] |
|
6.643 | ||
Publicar en
del.icio.us
digg
meneame