Make your own free website on Tripod.com
-2da.parte
Volver a Procedimientos 1ª parte Ir al Indice Ir a Procedimientos y Funciones parte 3
En el siguiente ejercicio declaramos 3 funciones; Mayor, Menor y Promedio y luego aprovechamos el código en los botones correspondientes. Cuenta con 3 cajas de texto TbA,TbB,TbC, donde se pueden colocar cantidades numéricas, y una 4ta. caja TbD que dará el resultado, acorde al botón oprimido. Hay tres botones btnMayor, btnMenor y BtnPromedio
Function Menor(c As Integer, d As Integer)
If c < d Then
Menor = c
Else: Menor = d
End If
End Function
Option Explicit
Function Mayor(c As Integer, d As Integer)
If c > d Then
Mayor = c
Else
Mayor = d
End If
End Function
Private Sub btnmayor_Click()
tbd.Text = Mayor(Val(TbA.Text), Mayor(Val(TbB.Text), Val(TbC.Text)))
End Sub
Function Prom(a As Integer, b As Integer, c As Integer) As Single
Prom = (a + b + c) / 3
End Function
Private Sub btnpromedio_Click()
tbd.Text = Prom(Val(TbA.Text), Val(TbB.Text), Val(TbC.Text))
End Sub
Private Sub btnmenor_Click()
tbd.Text = Menor(Val(TbA.Text), Menor(Val(TbB.Text), Val(TbC.Text)))
End Sub

En el próximo ejercicio utilizaremos cuatro botones de radio, uno para Subir llamado Brs, otro para bajar llamado Brb, otro para ir a la izquierda llamado Bri y otro para la derecha Brd. Por conveniencia los hemos colocado dentro de un frame llamado Frame1. Una caja de texto llamada Tbp y un Shape llamado S y un botón btnmover. Dentro de la caja de texto se deberá colocar un número que determinará el movimiento del Shape. El movimiento será hacia la izquierda, derecha, arriba o abajo según el botón de radio seleccionado. Para que se concrete el movimiento habrá que hacer click en el botón btnmover.
Option Explicit

Sub Derecha(N As Integer)
Dim x As Integer
Dim i As Integer
x = S.Left
For i = 0 To N * 100
'porque cada paso será de 100
S.Left = x + i
Next
End Sub

Sub Izquierda(N As Integer)
Dim x As Integer
Dim i As Integer
x = S.Left
For i = 0 To N * 100
S.Left = x - i
Next
End Sub
Private Sub btnmover_Click()
If brS.Value Then
Subir Val(TbP.Text)
End If
If brB.Value Then
Bajar Val(TbP.Text)
End If
If brI.Value Then
Izquierda Val(TbP.Text)
End If
If brD.Value Then
Derecha Val(TbP.Text)
End If
End Sub
Sub Subir(N As Integer)
Dim x As Integer
Dim i As Integer
x = S.Top
For i = 0 To N * 100
S.Top = x - i
Next
End Sub

Sub Bajar(N As Integer)
Dim x As Integer
Dim i As Integer
x = S.Top
For i = 0 To N * 100
S.Top = x + i
Next
End Su
b

En la próxima seguimos viendo Procedimientos y Funciones
Volver arriba Volver a Procedimientos 1ª parte Ir al Indice Ir a Procedimientos y Funciones parte 3