Vamos a ver la sentencia IF en Visual Basic 6, si no tenés el fundamento de esta sentencia podés verla acá.
Colocamos una etiqueta label para mostrar el resultado y un botón command para ejecutar la acción en su evento clic, también definimos una variable del tipo Integer para usarla en la condición, en este caso preguntamos si la edad es mayor o menor de 21 años y determinamos si se es mayor de edad o no. Es un simple ejemplo, en realidad lo que correspondía como condición es preguntar si la edad es >= 21, mayor o igual a 21 años. Pero para el caso es lo mismo ya que lo que pretendemos es ver el uso del If en VB6.
Colocamos una etiqueta label para mostrar el resultado y un botón command para ejecutar la acción en su evento clic, también definimos una variable del tipo Integer para usarla en la condición, en este caso preguntamos si la edad es mayor o menor de 21 años y determinamos si se es mayor de edad o no. Es un simple ejemplo, en realidad lo que correspondía como condición es preguntar si la edad es >= 21, mayor o igual a 21 años. Pero para el caso es lo mismo ya que lo que pretendemos es ver el uso del If en VB6.
Código Fuente:
- Private Sub Command1_Click()
- Dim intEdad As Integer
- intEdad = -4
- If intEdad > 20 Then
- Label1.Caption = "Es mayor de edad"
- ElseIf intEdad <>
- Label1.Caption = "No es una edad válida"
- Else
- Label1.Caption = "Es menor de edad"
- End If
- End Sub
0 comentarios:
Publicar un comentario