Crear semaforo en .net 2003

[arie]

alguien me podria ayudar a crear un semaforo en vb.net 2003 utilizando el timer porfa... gracias d antemano

[XtremeH]

alguien me podria ayudar a crear un semaforo en vb.net 2003 utilizando el timer porfa... gracias d antemano

Que pequeña es este mundo...Sabes? Yo tambien tuve que ahcer un proyecto asi... Ahora, seria bueno que pusieras tu source code para ver como es q tienes la idea de hacerlo, y asi poder ayudarte con tu codigo..

[Maitro...]

como sugerencia hace las Imagenes del semaforo aparte y luego las insertas al formulario una sobre otra, luego con el timer luego con un timer vas cambiando la propiada Visible de cada una de las imagenes para que paresca que va cambiando de color el semaforo.

[sicario]

perdon por la preguntita....

y esos proyectos son de la Universidad o puro vacil?? 

[tekun]

maitro... te ha dado una buena idea solo tenes que pulirla para que te quede mejor un aporte mio es que pongas textbox determinando en tiempo de ejecucion la cantidad de tiempo que va a durar cada luz encendida un text para cada color .... y que no tengas problemas de  en el trafico 

y asi podes seguir para que te quede algo + o - todo depende de lo que tengas pensado hacer 

[JaiMe]

yo me acuerdo que hice un semaforo en c++ pero no me acuerdo donde esta  , fue hace bastante pero talves lo encuentro y pongo el codigo aca

[jovev]

hey man yo me acuerdo que lo hice en .net lo busco si lo encuentro te pongo el codigo.

[sicario]

vaya men alli hay un codigo de simulador de semaforo.. solo que creo vas a tener que abrir el codigo con .net para que lo convierta primero porque como que esta en vb6.   SI no podes hacer eso avisame..y te lo convierto men.

Código: [Seleccionar]

http://usuarios.lycos.es/putusoft/trucospc/misoft.htm

Hey pero... Estas cosas son las que se hacen en la U?

[arie]

Gracias por aportar... no es tarea simplente vi ke lo estaban haciendo y nose como se utiliza el timer si c como porner las imagenes y pornerlas .visible = true/false pero la onda esta en como se utiliza el timer... anduve buscando pero no encontre alguna referencia con este control

[arie]

vaya men alli hay un codigo de simulador de semaforo.. solo que creo vas a tener que abrir el codigo con .net para que lo convierta primero porque como que esta en vb6.   SI no podes hacer eso avisame..y te lo convierto men.

Código: [Seleccionar]

http://usuarios.lycos.es/putusoft/trucospc/misoft.htm


me podes hacer el paro d explicarme como se pasa el codigo d 6.0 a . net porfa t lo agradesco muho

[arie]

ya logre realizar el semaforo
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick


        c = c + 1



        If c >= 0 And c <= 3 Then
            Me.PictureBox1.Visible = True
            Me.PictureBox2.Visible = False
            Me.PictureBox3.Visible = False
        End If
        If c >= 4 And c <= 6 Then
            Me.PictureBox1.Visible = False
            Me.PictureBox2.Visible = True
            Me.PictureBox3.Visible = False
        End If
        If c >= 7 And c <= 11 Then
            Me.PictureBox1.Visible = False
            Me.PictureBox2.Visible = False
            Me.PictureBox3.Visible = True

            c = 0


        End If



    End Sub

 

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Timer1.Start()
        Me.Timer1.Enabled = True

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Timer1.Enabled = False

[prsharp]

ya logre realizar el semaforo
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick


        c = c + 1



        If c >= 0 And c <= 3 Then
            Me.PictureBox1.Visible = True
            Me.PictureBox2.Visible = False
            Me.PictureBox3.Visible = False
        End If
        If c >= 4 And c <= 6 Then
            Me.PictureBox1.Visible = False
            Me.PictureBox2.Visible = True
            Me.PictureBox3.Visible = False
        End If
        If c >= 7 And c <= 11 Then
            Me.PictureBox1.Visible = False
            Me.PictureBox2.Visible = False
            Me.PictureBox3.Visible = True

            c = 0


        End If



    End Sub

 

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Timer1.Start()
        Me.Timer1.Enabled = True

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Timer1.Enabled = False

que bien men funciona de maravilla....