Semaforo Visual Basic 6.0

Este es un programa que simula un semaforo real con un intervalo de 3 segundos.

Para ello insertamos 4 Shapes 3 en forma de circulo y 1 en forma de rectangulo.

Para cambiar la forma del Shape en un circulo ir a Propiedades > Shape.

Para darle color a los Shapes seleccionar el Shape > Propiedades > Fill Style  y cambiar a Solid.

Luego ir Propiedades > FillColor y elegir el color deseado.

Tambien hay que insertar un timer y asignarle en Interval el valor 3000 que significa 3 segundos. Para ello elegir el timer Propiedades > Interval > 3000.

El siguiente es el codigo para poner a funcionar el programa:

Private Sub Form_Load()
Shape2.Visible = True
Shape1.Visible = False
Shape3.Visible = False
End Sub

Private Sub Timer1_Timer()
If Shape1.Visible Then

Shape2.Visible = True
Shape1.Visible = False
Shape3.Visible = False

ElseIf Shape2.Visible Then

Shape3.Visible = True
Shape2.Visible = False
Shape1.Visible = False

Else

Shape1.Visible = True
Shape2.Visible = False
Shape3.Visible = False

End If

End Sub

Nota: Es necesario estar seguro de que los nombres de los Shapes y del Timer sean iguales en mi codigo como en el suyo para que el programa funcione.

Read more

Encontrar factor Visual Basic 6.0

El siguiente programa puede encontrar los factores de un numero introducido por el usuario el cual los mostrara en un Listbox. Para ello se utilizo la simple logica de que un numero es divisible por todos sus factores. El codigo es el suguiente:

Option Explicit

Private Sub Command1_Click()
List1.Clear
Dim N, x As Integer
N = Val(Text1.Text)
For x = 2 To N - 1
If N Mod x = 0 Then
List1.AddItem (x)
End If
Next
List1.AddItem (N)
Text1.SetFocus
End Sub

Private Sub Command2_Click()
Text1.Text = "0"
List1.Clear
Text1.SetFocus
End Sub

Read more