FoxPro/Visual FoxPro - horoscopo con mensajes personalizados

 
Vista:
sin imagen de perfil

horoscopo con mensajes personalizados

Publicado por lesther (1 intervención) el 20/03/2014 00:19:09
como hago un horoscopo en foxpro que al pedir la fecha al usuario me de las caracteristicas correspondientes al signo de dicha fecha que el usuario ingreso??? con formulario
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil
Val: 1.011
Oro
Ha mantenido su posición en FoxPro/Visual FoxPro (en relación al último mes)
Gráfica de FoxPro/Visual FoxPro

horoscopo con mensajes personalizados

Publicado por Fidel José (558 intervenciones) el 20/03/2014 01:29:10
Mira, cómo haces un horóscopo no tengo la menor idea. Tal vez tengas que consultar con el oráculo.
Te puedo decir cómo determinar el signo zodiacal al que pertenece una fecha dada.
Una vez conocido el sigo, te convendrá tener una tabla con dos campos:
1) Signo zodíaco (character) Name="Signo"
2) Comentarios (campo memo) Name="Comenta"
Agrega a la tabla los doce signos del zodíaco (deben ser o minúsculas o mayúsculas para facilitar la búsqueda) y en el campo memo, todas las características.

ldFEcha=date(1958,4,11)
lcSigno=Upper(GetZodiaco(ldFecha))
select Tabla_Zodiaco
locate for trim(signo)==lcSigno
if found()
lcCaracteristicas=comenta
endif
with thisform
.Text1.VAlue=Proper(lcSigno)
.Edit1.Value=lcCaracteristicas
endwith

Algo por el estilo tiene que funcionar.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
PROCEDURE GETZODIACO
********************************
* Proposito: determinar a qué signo zodiacal corresponde una fecha dada
* Parámetro: fecha (tipicamente fecha de nacimiento) Tipo: Date
* Puede ubicarse en un prg, o como método de usuario de un form, o una clase cualquiera.
*****************************************************************************************************
LPARAMETERS xdFecha
LOCAL lnDia,lnMes,lcResp
lcresp=""
LOCAL ARRAY gazod(24,4)
gaZod[1,1]=1
gaZod[2,1]=1
gaZod[3,1]=2
gaZod[4,1]=2
gaZod[5,1]=3
gaZod[6,1]=3
gaZod[7,1]=4
gaZod[8,1]=4
gaZod[9,1]=5
gaZod[10,1]=5
gaZod[11,1]=6
gaZod[12,1]=6
gaZod[13,1]=7
gaZod[14,1]=7
gaZod[15,1]=8
gaZod[16,1]=8
gaZod[17,1]=9
gaZod[18,1]=9
gaZod[19,1]=10
gaZod[20,1]=10
gaZod[21,1]=11
gaZod[22,1]=11
gaZod[23,1]=12
gaZod[24,1]=12
 
gaZod[1,2]=1
gaZod[2,2]=20
gaZod[3,2]=1
gaZod[4,2]=19
gaZod[5,2]=1
gaZod[6,2]=21
gaZod[7,2]=1
gaZod[8,2]=21
gaZod[9,2]=1
gaZod[10,2]=21
gaZod[11,2]=1
gaZod[12,2]=21
gaZod[13,2]=1
gaZod[14,2]=21
gaZod[15,2]=1
gaZod[16,2]=22
gaZod[17,2]=1
gaZod[18,2]=23
gaZod[19,2]=1
gaZod[20,2]=23
gaZod[21,2]=1
gaZod[22,2]=23
gaZod[23,2]=1
gaZod[24,2]=21
 
gaZod[1,3]=19
gaZod[2,3]=31
gaZod[3,3]=18
gaZod[4,3]=29
gaZod[5,3]=20
gaZod[6,3]=31
gaZod[7,3]=20
gaZod[8,3]=30
gaZod[9,3]=20
gaZod[10,3]=31
gaZod[11,3]=20
gaZod[12,3]=30
gaZod[13,3]=20
gaZod[14,3]=31
gaZod[15,3]=21
gaZod[16,3]=31
gaZod[17,3]=22
gaZod[18,3]=30
gaZod[19,3]=22
gaZod[20,3]=31
gaZod[21,3]=22
gaZod[22,3]=30
gaZod[23,3]=20
gaZod[24,3]=31
 
gaZod[1,4]=[Capricornio]
gaZod[2,4]=[Acuario]
gaZod[3,4]=[Acuario]
gaZod[4,4]=[Piscis]
gaZod[5,4]=[Piscis]
gaZod[6,4]=[Aries]
gaZod[7,4]=[Aries]
gaZod[8,4]=[Tauro]
gaZod[9,4]=[Tauro]
gaZod[10,4]=[Géminis]
gaZod[11,4]=[Géminis]
gaZod[12,4]=[Cáncer]
gaZod[13,4]=[Cáncer]
gaZod[14,4]=[Leo]
gaZod[15,4]=[Leo]
gaZod[16,4]=[Virgo]
gaZod[17,4]=[Virgo]
gaZod[18,4]=[Libra]
gaZod[19,4]=[Libra]
gaZod[20,4]=[Escorpio]
gaZod[21,4]=[Escorpio]
gaZod[22,4]=[Sagitario]
gaZod[23,4]=[Sagitario]
gaZod[24,4]=[Capricornio]
 
lnDia=DAY(xdFecha)
lnMes=MONTH(xdFecha)
FOR i=1 TO 24
	IF gazod[i,1]=lnMes
		IF BETWEEN(lnDia,gazod[i,2],gazod[i,3])
			lcREsp=gazod[i,4]
			EXIT
		ENDIF
	ENDIF
NEXT
RETURN lcREsp
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar