FoxPro/Visual FoxPro - ME URGE HACER UN DEBER

HOLA, MI NOMBRE ES SALVADOR ABRAHAM GODOY NOLASCO, SOY ESTUDIANTE UNIVERSITARIO; PRIMERO QUE TODO LES ESCRIBO PUES PARA AGRADECERLES POR TAN IMPORTANTE WEB Q HAN REALIZADO, ADEMÁS APROBECHO LA PRESENTE PARA VER SI ALGUIEN DE USTEDES ME PUEDE AYUDAR EN UN DEBER QUE ME HAN DEJADO EN "PROGRAMACION I".

EL DEBER CONSISTE EN LO SIGUIENTE

SIMULAR UN SEMAFORO EN VISUAL FOX PRO EN UN PRG CON INTERVALOS DE TIEMPO QUE TIENEN Q SER PEDIDOS AL USUARIO (EL TIEMPO QUE DESEE Q ESTE ACTIVO LOS DIFERENTES LENTES DEL SEMAFORO(ROJO, AMARILLO Y VERDE). LA VERDAD YO TENGO NOCIONES PREVIAS A LA PROGRAMACION PERO EN ESTE CASO NO LE HE HALLADO ENTRADA, LES AGRADECERIA MUCHO SI UNO DE USTEDES ME PUEDE AYUDAR.

MI CORREO ES [email protected] SI ALGUIEN ME PUEDE AYUDAR ME PUEDE ENVIAR SU AYUDA A MI CORREO.

ATTE: SALVADOR ABRAHAM

PUEDES utilizar imagenes de semaforos que las encontraras por toda la web y con un pbjeto timer determinas a travez de la captura del usuario el tiempo que quieras mostrar la misma .

Suerte

Otra opcion:

Crea en un formulario tres objetos del control Forma, despues asigna la curvatura con la propiedad curve del objeto. Para simular un semaforo, puedes crear un codigo y que por medio de un timer...crear intervalos para que funcionen cambiando los colores rojo, amarillo y verde.

Suerte►

Podria ser asi. Poniendo este codigo dentro de un .prg
**************************************************
*-- Form: form1 (c:\recover\samaforo.scx)
*-- ParentClass: form
*-- BaseClass: form
*-- Time Stamp: 05/18/07 10:07:06 AM
*CopyRight Plinio Fermin.

PUBLIC oform1

oform1=NEWOBJECT("form1")
oform1.Show
RETURN

DEFINE CLASS form1 AS form

DoCreate = .T.
Caption = "Form1"
color_actual = 3
Name = "Form1"

ADD OBJECT timer1 AS timer WITH ;
Top = 180, ;
Left = 312, ;
Height = 23, ;
Width = 23, ;
Interval = 1000, ;
Name = "Timer1"

ADD OBJECT s_rojo AS shape WITH ;
Top = 60, ;
Left = 36, ;
Height = 36, ;
Width = 48, ;
Curvature = 30, ;
BackColor = RGB(192,192,192), ;
Name = "S_rojo"

ADD OBJECT s_amarillo AS shape WITH ;
Top = 108, ;
Left = 36, ;
Height = 36, ;
Width = 48, ;
Curvature = 30, ;
BackColor = RGB(192,192,192), ;
Name = "S_Amarillo"

ADD OBJECT s_verde AS shape WITH ;
Top = 159, ;
Left = 36, ;
Height = 36, ;
Width = 48, ;
Curvature = 30, ;
BackColor = RGB(192,192,192), ;
Name = "S_verde"

ADD OBJECT text1 AS textbox WITH ;
FontSize = 48, ;
Alignment = 3, ;
Value = 0, ;
Height = 73, ;
Left = 168, ;
ReadOnly = .T., ;
Top = 60, ;
Width = 120, ;
Name = "Text1"

PROCEDURE Init
*1-Verde, 2-Amarillo, 3 Rojo
Thisform.s_verde.BackColor = RGB(0,255,0)
Thisform.text1.value = 45 &&Segundos
Thisform.color_actual = 1
ENDPROC

PROCEDURE timer1.Timer
DO case
CASE Thisform.text1.Value = 0 AND Thisform.color_actual = 1 &&Si se acabo el verde
Thisform.s_verde.BackColor = RGB(192,192,192)
Thisform.s_Amarillo.BackColor = RGB(255,255,0)
Thisform.text1.Value = 5 &&Le doy 5 segundos al amarillo
Thisform.color_actual = 2

CASE Thisform.text1.Value = 0 AND Thisform.color_actual = 2 &&Si se acabo el Amarillo
Thisform.s_amarillo.BackColor = RGB(192,192,192)
Thisform.s_Rojo.BackColor = RGB(255,0,0)
Thisform.text1.Value = 30 &&Le doy 30 segundos al Rojo
Thisform.color_actual = 3


CASE Thisform.text1.Value = 0 AND Thisform.color_actual = 3 &&Si se acabo el Rojo
Thisform.s_rojo.BackColor = RGB(192,192,192)
Thisform.s_verde.BackColor = RGB(0,255,0)
Thisform.text1.Value = 45 &&Le doy 80 segundos al verde
Thisform.color_actual = 1

ENDCASE

Thisform.text1.Value = Thisform.text1.Value - 1
ENDPROC

ENDDEFINE
*
*-- EndDefine: form1

Muy bien, creo que le hicite la chamba al colega....

Oye Me dijiste que te recordara sobre el menu..solo quiero saber como ejecutar un form, en ese codigo del menu.

Saludos...buen dia.

Atte
Neo

Neo, si te fijas en el ejemplo mainmenu.prg ahi hay dos casos que llaman un formulario. Esta clase por su naturaleza no es tan facil de trabajar como el diseñador de menues, pero si vale la pena por la apariencia obtenida

mmm si, pero está complejo descifrarlo.....

Help!!

el detalle del semaforo que tiene que ser en un .PRG

No, eso fue un formulario, que mediante el Class Browser lo lleve a .prg, es la forma mas facil de publicarlo aqui

ya me enrede

yo me refería a los menus.

LES MANDO ESTE MSJ PARA AGRADECERLES POR AYUDARME CON SU DEBER Y TAMBIEN Q ESTOY DISPUESTO A AYUDARLES Y A PORTAR CON LO POCO Q SE

:-|

se agradece