FoxPro/Visual FoxPro - AYUDA PARA PIRAMIDE EN VISUAL FOX PRO

   
Vista:

AYUDA PARA PIRAMIDE EN VISUAL FOX PRO

Publicado por Denny (6 intervenciones) el 01/05/2013 19:17:57
SALUDOS. SOY MIEMBRO NUEVO EN ESTA WEB. QUISIERA UNA AYUDA. SERÉ BREVE.
INTENTO HACER UN PROGRAMA EN VISUAL FOX PRO 9.0 QUE ESCRITA LA FECHA ME SUME LOS VALORES EN FORMA DE PIRÁMIDE. LOGRE HACER UNA PIRÁMIDE USANDO MUCHAS CAJAS DE TEXTO Y ME SUMA PERFECTAMENTE LA PRIMERA LINEA. PERO AL PASAR A LA SEGUNDA LINEA ME GENERA UN ERROR. QUISIERA QUE ALGUIEN ME AYUDE A SOLUCIONARLO. ACÁ LES DEJARE IMÁGENES DE LA PIRÁMIDE QUE QUIERO LOGRAR Y DE LA REALIZADA EN FOX PRO, ADEMAS EL CÓDIGO USADO Y EL ERROR QUE ME GENERA PARA QUE CON SU AYUDA ME CORRIJAN.




CODIGO USADO EN EL BOTON CALCULAR: OBVIAMENTE FALTAN LOS DEMAS NO LO TERMINE PORQUE ME GENERA ERROR.


THISFORM.TXT9.Value=(VAL(THISFORM.TXT1.Value)+VAL(THISFORM.TXT2.Value))
IF THISFORM.TXT9.Value >= 10 THEN
THISFORM.TXT9.Value=(VAL(THISFORM.TXT1.Value)+VAL(THISFORM.TXT2.Value)-10)
ELSE
ENDIF

THISFORM.TXT10.Value=(VAL(THISFORM.TXT2.Value)+VAL(THISFORM.TXT3.Value))
IF THISFORM.TXT10.Value >= 10 THEN
THISFORM.TXT10.Value=(VAL(THISFORM.TXT2.Value)+VAL(THISFORM.TXT3.Value)-10)
ELSE
ENDIF

THISFORM.TXT11.Value=(VAL(THISFORM.TXT3.Value)+VAL(THISFORM.TXT4.Value))
IF THISFORM.TXT11.Value >= 10 THEN
THISFORM.TXT11.Value=(VAL(THISFORM.TXT3.Value)+VAL(THISFORM.TXT4.Value)-10)
ELSE
ENDIF

THISFORM.TXT12.Value=(VAL(THISFORM.TXT4.Value)+VAL(THISFORM.TXT5.Value))
IF THISFORM.TXT12.Value >= 10 THEN
THISFORM.TXT12.Value=(VAL(THISFORM.TXT4.Value)+VAL(THISFORM.TXT5.Value)-10)
ELSE
ENDIF

THISFORM.TXT13.Value=(VAL(THISFORM.TXT5.Value)+VAL(THISFORM.TXT6.Value))
IF THISFORM.TXT13.Value >= 10 THEN
THISFORM.TXT13.Value=(VAL(THISFORM.TXT5.Value)+VAL(THISFORM.TXT6.Value)-10)
ELSE
ENDIF

THISFORM.TXT14.Value=(VAL(THISFORM.TXT6.Value)+VAL(THISFORM.TXT7.Value))
IF THISFORM.TXT14.Value >= 10 THEN
THISFORM.TXT14.Value=(VAL(THISFORM.TXT6.Value)+VAL(THISFORM.TXT7.Value)-10)
ELSE
ENDIF

THISFORM.TXT15.Value=(VAL(THISFORM.TXT7.Value)+VAL(THISFORM.TXT8.Value))
IF THISFORM.TXT15.Value >= 10 THEN
THISFORM.TXT15.Value=(VAL(THISFORM.TXT7.Value)+VAL(THISFORM.TXT8.Value)-10)
ELSE
ENDIF

THISFORM.TXT16.Value=(VAL(THISFORM.TXT9.Value)+VAL(THISFORM.TXT10.Value))
IF THISFORM.TXT16.Value >= 10 THEN
THISFORM.TXT16.Value=(VAL(THISFORM.TXT9.Value)+VAL(THISFORM.TXT10.Value)-10)
ELSE
ENDIF

THISFORM.TXT17.Value=(VAL(THISFORM.TXT10.Value)+VAL(THISFORM.TXT11.Value))
IF THISFORM.TXT17.Value >= 10 THEN
THISFORM.TXT17.Value=(VAL(THISFORM.TXT10.Value)+VAL(THISFORM.TXT11.Value)-10)
ELSE
ENDIF

THISFORM.TXT18.Value=(VAL(THISFORM.TXT11.Value)+VAL(THISFORM.TXT12.Value))
IF THISFORM.TXT18.Value >= 10 THEN
THISFORM.TXT18.Value=(VAL(THISFORM.TXT11.Value)+VAL(THISFORM.TXT12.Value)-10)
ELSE
THISFORM.TXT18.value
ENDIF

THISFORM.TXT19.Value=(VAL(THISFORM.TXT12.Value)+VAL(THISFORM.TXT13.Value))
IF THISFORM.TXT19.Value >= 10 THEN
THISFORM.TXT19.Value=(VAL(THISFORM.TXT12.Value)+VAL(THISFORM.TXT13.Value)-10)
ELSE
THISFORM.TXT19.value
ENDIF

THISFORM.TXT20.Value=(VAL(THISFORM.TXT13.Value)+VAL(THISFORM.TXT14.Value))
IF THISFORM.TXT20.Value >= 10 THEN
THISFORM.TXT20.Value=(VAL(THISFORM.TXT13.Value)+VAL(THISFORM.TXT14.Value)-10)
ELSE
ENDIF

THISFORM.TXT21.Value=(VAL(THISFORM.TXT14.Value)+VAL(THISFORM.TXT15.Value))
IF THISFORM.TXT21.Value >= 10 THEN
THISFORM.TXT21.Value=(VAL(THISFORM.TXT14.Value)+VAL(THISFORM.TXT15.Value)-10)
ELSE
ENDIF
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
Imágen de perfil de Mauricio

AYUDA PARA PIRAMIDE EN VISUAL FOX PRO

Publicado por Mauricio (1368 intervenciones) el 02/05/2013 00:14:32
aca esta el proceso:
THISFORM.TEXT9.Value= THISFORM.TEXT1.Value + THISFORM.TEXT2.Value
IF THISFORM.TEXT9.Value > 9
THISFORM.TEXT9.Value = THISFORM.TEXT9.Value - 10
ENDIF
*
THISFORM.TEXT10.Value = THISFORM.TEXT2.Value + THISFORM.TEXT3.Value
IF THISFORM.TEXT10.Value > 9
THISFORM.TEXT10.Value = THISFORM.TEXT10.Value -10
ENDIF
*
THISFORM.TEXT11.Value = THISFORM.TEXT3.Value + THISFORM.TEXT4.Value
IF THISFORM.TEXT11.Value > 9
THISFORM.TEXT11.Value = THISFORM.TEXT11.Value - 10
ENDIF
*
THISFORM.TEXT12.Value = THISFORM.TEXT4.Value + THISFORM.TEXT5.Value
IF THISFORM.TEXT12.Value > 9
THISFORM.TEXT12.Value = THISFORM.TEXT12.Value - 10
ENDIF
*
THISFORM.TEXT13.Value = THISFORM.TEXT5.Value + THISFORM.TEXT6.Value
IF THISFORM.TEXT13.Value > 9
THISFORM.TEXT13.Value = THISFORM.TEXT13.Value - 10
ENDIF
*
THISFORM.TEXT14.Value = THISFORM.TEXT6.Value + THISFORM.TEXT7.Value
IF THISFORM.TEXT14.Value > 9
THISFORM.TEXT14.Value = THISFORM.TEXT14.Value - 10
ENDIF
*
THISFORM.TEXT15.Value = THISFORM.TEXT7.Value + THISFORM.TEXT8.Value
IF THISFORM.TEXT15.Value > 9
THISFORM.TEXT15.Value = THISFORM.TEXT15.Value - 10
ENDIF
*** Tercera linea ***
THISFORM.TEXT16.Value = THISFORM.TEXT9.Value + THISFORM.TEXT10.Value
IF THISFORM.TEXT16.Value > 9
THISFORM.TEXT16.Value = THISFORM.TEXT16.Value - 10
ENDIF
*
THISFORM.TEXT17.Value = THISFORM.TEXT10.Value + THISFORM.TEXT11.Value
IF THISFORM.TEXT17.Value > 9
THISFORM.TEXT17.Value = THISFORM.TEXT17.Value -10
ENDIF
*
THISFORM.TEXT18.Value = THISFORM.TEXT11.Value + THISFORM.TEXT12.Value
IF THISFORM.TEXT18.Value > 9
THISFORM.TEXT18.Value = THISFORM.TEXT18.Value - 10
ENDIF
*
THISFORM.TEXT19.Value = THISFORM.TEXT12.Value + THISFORM.TEXT13.Value
IF THISFORM.TEXT19.Value > 9
THISFORM.TEXT19.Value = THISFORM.TEXT19.Value - 10
ENDIF
*
THISFORM.TEXT20.Value = THISFORM.TEXT13.Value + THISFORM.TEXT14.Value
IF THISFORM.TEXT20.Value > 9
THISFORM.TEXT20.Value = THISFORM.TEXT20.Value - 10
ENDIF
*
THISFORM.TEXT21.Value = THISFORM.TEXT14.Value + THISFORM.TEXT15.Value
IF THISFORM.TEXT21.Value > 9
THISFORM.TEXT21.Value = THISFORM.TEXT21.Value - 10
ENDIF
*** Cuarta linea ***
THISFORM.TEXT22.Value = THISFORM.TEXT16.Value + THISFORM.TEXT17.Value
IF THISFORM.TEXT22.Value > 9
THISFORM.TEXT22.Value = THISFORM.TEXT22.Value - 10
ENDIF
*
THISFORM.TEXT23.Value = THISFORM.TEXT17.Value + THISFORM.TEXT18.Value
IF THISFORM.TEXT23.Value > 9
THISFORM.TEXT23.Value = THISFORM.TEXT23.Value - 10
ENDIF
*
THISFORM.TEXT24.Value = THISFORM.TEXT18.Value + THISFORM.TEXT19.Value
IF THISFORM.TEXT24.Value > 9
THISFORM.TEXT24.Value = THISFORM.TEXT24.Value - 10
ENDIF
*
THISFORM.TEXT25.Value = THISFORM.TEXT19.Value + THISFORM.TEXT20.Value
IF THISFORM.TEXT25.Value > 9
THISFORM.TEXT25.Value = THISFORM.TEXT25.Value - 10
ENDIF
*
THISFORM.TEXT26.Value = THISFORM.TEXT20.Value + THISFORM.TEXT21.Value
IF THISFORM.TEXT26.Value > 9
THISFORM.TEXT26.Value = THISFORM.TEXT26.Value - 10
ENDIF
*
THISFORM.TEXT27.Value = THISFORM.TEXT22.Value + THISFORM.TEXT23.Value
IF THISFORM.TEXT27.Value > 9
THISFORM.TEXT27.Value = THISFORM.TEXT27.Value - 10
ENDIF
*
THISFORM.TEXT28.Value = THISFORM.TEXT23.Value + THISFORM.TEXT24.Value
IF THISFORM.TEXT28.Value > 9
THISFORM.TEXT28.Value = THISFORM.TEXT28.Value - 10
ENDIF
*
THISFORM.TEXT29.Value = THISFORM.TEXT24.Value + THISFORM.TEXT25.Value
IF THISFORM.TEXT29.Value > 9
THISFORM.TEXT29.Value = THISFORM.TEXT29.Value - 10
ENDIF
*
THISFORM.TEXT30.Value = THISFORM.TEXT25.Value + THISFORM.TEXT26.Value
IF THISFORM.TEXT30.Value > 9
THISFORM.TEXT30.Value = THISFORM.TEXT30.Value - 10
ENDIF
*** Quinta linea ***
THISFORM.TEXT31.Value = THISFORM.TEXT27.Value + THISFORM.TEXT28.Value
IF THISFORM.TEXT31.Value > 9
THISFORM.TEXT31.Value = THISFORM.TEXT31.Value - 10
ENDIF
*
THISFORM.TEXT32.Value = THISFORM.TEXT28.Value + THISFORM.TEXT29.Value
IF THISFORM.TEXT32.Value > 9
THISFORM.TEXT32.Value = THISFORM.TEXT32.Value - 10
ENDIF
*
THISFORM.TEXT33.Value = THISFORM.TEXT29.Value + THISFORM.TEXT30.Value
IF THISFORM.TEXT33.Value > 9
THISFORM.TEXT33.Value = THISFORM.TEXT33.Value - 10
ENDIF
*** Sexta linea ***
THISFORM.TEXT34.Value = THISFORM.TEXT31.Value + THISFORM.TEXT32.Value
IF THISFORM.TEXT34.Value > 9
THISFORM.TEXT3.Value = THISFORM.TEXT34.Value - 10
ENDIF
*
THISFORM.TEXT35.Value = THISFORM.TEXT32.Value + THISFORM.TEXT33.Value
IF THISFORM.TEXT35.Value > 9
THISFORM.TEXT35.Value = THISFORM.TEXT35.Value - 10
ENDIF
*** Septima linea ***
THISFORM.TEXT36.Value = THISFORM.TEXT34.Value + THISFORM.TEXT35.Value
IF THISFORM.TEXT36.Value > 9
THISFORM.TEXT36.Value = THISFORM.TEXT36.Value - 10
ENDIF
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

AYUDA PARA PIRAMIDE EN VISUAL FOX PRO

Publicado por Denny (6 intervenciones) el 02/05/2013 14:24:50
saludos. tu corriste la aplicacion con ese codigo? me dice error y peor aun porque no me suma la primera linea y me muestra dos digitos en vez de uno. no se que hacer. espero tu pronta ayuda amigo.
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
Imágen de perfil de Mauricio

AYUDA PARA PIRAMIDE EN VISUAL FOX PRO

Publicado por Mauricio (1368 intervenciones) el 02/05/2013 15:43:09
Te da error porque tu has definido tus TEXT como caracteres, yo los tengo definidos como numericos,
pon esto en el INIT de tu form:
STORE 0 TO THIS.text1.value, THIS.text2.value, THIS.text3.value, THIS.text4.value, THIS.text5.value, ;
THIS.text6.value, THIS.text7.value, THIS.text8.value,THIS.text9.value, THIS.text10.value, THIS.text11.value, ;
THIS.text12.value, THIS.text13.value, THIS.text14.value, THIS.text15.value, THIS.text16.value, ;
THIS.text17.value,THIS.text18.value, THIS.text19.value, THIS.text20.value, THIS.text21.value, ;
THIS.text22.value, THIS.text23.value, THIS.text24.value, THIS.text25.value, THIS.text26.value, ;
THIS.text27.value, THIS.text28.value, THIS.text29.value, THIS.text30.value, THIS.text31.value, ;
THIS.text32.value, THIS.text33.value, THIS.text34.value, THIS.text35.value,THIS.text36.value
* 01052013
THIS.text1.value = 0
THIS.text2.value = 1
THIS.text3.value = 0
THIS.text4.value = 5
THIS.text5.value = 2
THIS.text6.value = 0
THIS.text7.value = 1
THIS.text8.value = 3
* Estos valores de tu primera linea los puedes cambiar.......
* Hice la prueba haciendo un FORM con sus TEXBOX, 36 en total y corre normalmente.
*******************
Este codigo ponlo en donde tienes el boton de CALCULAR, en el evento CLIC:
THISFORM.TEXT9.Value= THISFORM.TEXT1.Value + THISFORM.TEXT2.Value
IF THISFORM.TEXT9.Value > 9
THISFORM.TEXT9.Value = THISFORM.TEXT9.Value - 10
ENDIF
*
THISFORM.TEXT10.Value = THISFORM.TEXT2.Value + THISFORM.TEXT3.Value
IF THISFORM.TEXT10.Value > 9
THISFORM.TEXT10.Value = THISFORM.TEXT10.Value -10
ENDIF
*
THISFORM.TEXT11.Value = THISFORM.TEXT3.Value + THISFORM.TEXT4.Value
IF THISFORM.TEXT11.Value > 9
THISFORM.TEXT11.Value = THISFORM.TEXT11.Value - 10
ENDIF
*
THISFORM.TEXT12.Value = THISFORM.TEXT4.Value + THISFORM.TEXT5.Value
IF THISFORM.TEXT12.Value > 9
THISFORM.TEXT12.Value = THISFORM.TEXT12.Value - 10
ENDIF
*
THISFORM.TEXT13.Value = THISFORM.TEXT5.Value + THISFORM.TEXT6.Value
IF THISFORM.TEXT13.Value > 9
THISFORM.TEXT13.Value = THISFORM.TEXT13.Value - 10
ENDIF
*
THISFORM.TEXT14.Value = THISFORM.TEXT6.Value + THISFORM.TEXT7.Value
IF THISFORM.TEXT14.Value > 9
THISFORM.TEXT14.Value = THISFORM.TEXT14.Value - 10
ENDIF
*
THISFORM.TEXT15.Value = THISFORM.TEXT7.Value + THISFORM.TEXT8.Value
IF THISFORM.TEXT15.Value > 9
THISFORM.TEXT15.Value = THISFORM.TEXT15.Value - 10
ENDIF
*** Tercera linea ***
THISFORM.TEXT16.Value = THISFORM.TEXT9.Value + THISFORM.TEXT10.Value
IF THISFORM.TEXT16.Value > 9
THISFORM.TEXT16.Value = THISFORM.TEXT16.Value - 10
ENDIF
*
THISFORM.TEXT17.Value = THISFORM.TEXT10.Value + THISFORM.TEXT11.Value
IF THISFORM.TEXT17.Value > 9
THISFORM.TEXT17.Value = THISFORM.TEXT17.Value -10
ENDIF
*
THISFORM.TEXT18.Value = THISFORM.TEXT11.Value + THISFORM.TEXT12.Value
IF THISFORM.TEXT18.Value > 9
THISFORM.TEXT18.Value = THISFORM.TEXT18.Value - 10
ENDIF
*
THISFORM.TEXT19.Value = THISFORM.TEXT12.Value + THISFORM.TEXT13.Value
IF THISFORM.TEXT19.Value > 9
THISFORM.TEXT19.Value = THISFORM.TEXT19.Value - 10
ENDIF
*
THISFORM.TEXT20.Value = THISFORM.TEXT13.Value + THISFORM.TEXT14.Value
IF THISFORM.TEXT20.Value > 9
THISFORM.TEXT20.Value = THISFORM.TEXT20.Value - 10
ENDIF
*
THISFORM.TEXT21.Value = THISFORM.TEXT14.Value + THISFORM.TEXT15.Value
IF THISFORM.TEXT21.Value > 9
THISFORM.TEXT21.Value = THISFORM.TEXT21.Value - 10
ENDIF
*** Cuarta linea ***
THISFORM.TEXT22.Value = THISFORM.TEXT16.Value + THISFORM.TEXT17.Value
IF THISFORM.TEXT22.Value > 9
THISFORM.TEXT22.Value = THISFORM.TEXT22.Value - 10
ENDIF
*
THISFORM.TEXT23.Value = THISFORM.TEXT17.Value + THISFORM.TEXT18.Value
IF THISFORM.TEXT23.Value > 9
THISFORM.TEXT23.Value = THISFORM.TEXT23.Value - 10
ENDIF
*
THISFORM.TEXT24.Value = THISFORM.TEXT18.Value + THISFORM.TEXT19.Value
IF THISFORM.TEXT24.Value > 9
THISFORM.TEXT24.Value = THISFORM.TEXT24.Value - 10
ENDIF
*
THISFORM.TEXT25.Value = THISFORM.TEXT19.Value + THISFORM.TEXT20.Value
IF THISFORM.TEXT25.Value > 9
THISFORM.TEXT25.Value = THISFORM.TEXT25.Value - 10
ENDIF
*
THISFORM.TEXT26.Value = THISFORM.TEXT20.Value + THISFORM.TEXT21.Value
IF THISFORM.TEXT26.Value > 9
THISFORM.TEXT26.Value = THISFORM.TEXT26.Value - 10
ENDIF
*
THISFORM.TEXT27.Value = THISFORM.TEXT22.Value + THISFORM.TEXT23.Value
IF THISFORM.TEXT27.Value > 9
THISFORM.TEXT27.Value = THISFORM.TEXT27.Value - 10
ENDIF
*
THISFORM.TEXT28.Value = THISFORM.TEXT23.Value + THISFORM.TEXT24.Value
IF THISFORM.TEXT28.Value > 9
THISFORM.TEXT28.Value = THISFORM.TEXT28.Value - 10
ENDIF
*
THISFORM.TEXT29.Value = THISFORM.TEXT24.Value + THISFORM.TEXT25.Value
IF THISFORM.TEXT29.Value > 9
THISFORM.TEXT29.Value = THISFORM.TEXT29.Value - 10
ENDIF
*
THISFORM.TEXT30.Value = THISFORM.TEXT25.Value + THISFORM.TEXT26.Value
IF THISFORM.TEXT30.Value > 9
THISFORM.TEXT30.Value = THISFORM.TEXT30.Value - 10
ENDIF
*** Quinta linea ***
THISFORM.TEXT31.Value = THISFORM.TEXT27.Value + THISFORM.TEXT28.Value
IF THISFORM.TEXT31.Value > 9
THISFORM.TEXT31.Value = THISFORM.TEXT31.Value - 10
ENDIF
*
THISFORM.TEXT32.Value = THISFORM.TEXT28.Value + THISFORM.TEXT29.Value
IF THISFORM.TEXT32.Value > 9
THISFORM.TEXT32.Value = THISFORM.TEXT32.Value - 10
ENDIF
*
THISFORM.TEXT33.Value = THISFORM.TEXT29.Value + THISFORM.TEXT30.Value
IF THISFORM.TEXT33.Value > 9
THISFORM.TEXT33.Value = THISFORM.TEXT33.Value - 10
ENDIF
*** Sexta linea ***
THISFORM.TEXT34.Value = THISFORM.TEXT31.Value + THISFORM.TEXT32.Value
IF THISFORM.TEXT34.Value > 9
THISFORM.TEXT3.Value = THISFORM.TEXT34.Value - 10
ENDIF
*
THISFORM.TEXT35.Value = THISFORM.TEXT32.Value + THISFORM.TEXT33.Value
IF THISFORM.TEXT35.Value > 9
THISFORM.TEXT35.Value = THISFORM.TEXT35.Value - 10
ENDIF
*** Septima linea ***
THISFORM.TEXT36.Value = THISFORM.TEXT34.Value + THISFORM.TEXT35.Value
IF THISFORM.TEXT36.Value > 9
THISFORM.TEXT36.Value = THISFORM.TEXT36.Value - 10
ENDIF
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

AYUDA PARA PIRAMIDE EN VISUAL FOX PRO

Publicado por Denny (6 intervenciones) el 02/05/2013 15:57:48
Muchisimas gracias. >Eres el mejor. Ahora si me corrio. Agradecido. podrias aclararme algo.
STORE 0 TO significa declarar los text numericos?
Aprovecho ademas para otra cosa, Como hago para que los resultados de un cuadro de lista no me salgan lineales; es decir, que no me salga uno debajo del otro si no que salgan uno al lado del otro y separados por un guion.
supongamos que el resultado de una tabla de multiplicar es el siguiente:
01
02
03
04
05

Yo quiero que esos resultados me salgan en el listbox pero uno al lado del otro asi:
01-02-03-04-05-
espero tu ayuda.
Y agradecido
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
Imágen de perfil de Mauricio

AYUDA PARA PIRAMIDE EN VISUAL FOX PRO

Publicado por Mauricio (1368 intervenciones) el 02/05/2013 16:53:20
STORE 0 TO sirve para inicializar variables, entre otras cosas.
Lo de los guiones eso es para la estetica, te sugiero que pruebes insertando botones tan pequeños que quepa el guion "-"
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

AYUDA PARA PIRAMIDE EN VISUAL FOX PRO

Publicado por Denny (6 intervenciones) el 02/05/2013 16:53:30
MAURICIO disculpa que te moleste mucho pero es que soy nuevo en fox pro. me gustaria que cuando yo escriba la fecha en el tex box pase automaticamente para el otro tex box. es decir que cuando escriba un digito salte para el otro tex box. Tengo todos los tex box con el valor 1 en Maxlenght y aun asi admite dos valores cada tex box.
si quiero escribir una fecha tengo que introducir un cero delante de cara numero. si quiero introducir 0-2-0-5-2-0-1-3 tengo que hacerlo asi 00-02-00-05-02-00-01-03. eso tiene alguna solucion. espero haberme explicado bien.
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
Imágen de perfil de Mauricio

AYUDA PARA PIRAMIDE EN VISUAL FOX PRO

Publicado por Mauricio (1368 intervenciones) el 02/05/2013 18:39:49
En el INIT, elimina esto:
THIS.text1.value = 0
THIS.text2.value = 1
THIS.text3.value = 0
THIS.text4.value = 5
THIS.text5.value = 2
THIS.text6.value = 0
THIS.text7.value = 1
THIS.text8.value = 3
Ahora para todos los texbox desde el 1 hasta el 8:
Enabled = .T.
Format = K
InputMask = 9
* Esto es para que puedas digitar los datos que gustes, pruebalo y avisas!!!!!
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

AYUDA PARA PIRAMIDE EN VISUAL FOX PRO

Publicado por Denny (6 intervenciones) el 03/05/2013 16:38:42
Gracias mauricio si funciono a la perfeccion. De veras estoy muy agradecido y sorprendido con la facilidad y agilidad con que manejas VFP. Tengo otra duda y espero me ayudes tambien. Lo intente pero no logro visualizarlo bien. Ahora quiero hacer otra piramide pero esta vez que cuando la suma sea mayor de 9 me almacene el numero uno en una variable para sumarselo a la otra operacion.
ejemplo si tengo lo siguiente:


como podras observar cuando una suma da mayor o igual a 10 el numero 1 se le suma a la proxima operacion. se que es con un IF pero no se como acomodarlo. y para que el programa me entienda lo deseado. espero tu ayuda. Agradecido de antemano
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
Imágen de perfil de Mauricio

AYUDA PARA PIRAMIDE EN VISUAL FOX PRO

Publicado por Mauricio (1368 intervenciones) el 03/05/2013 23:57:43
Ponlo en el boton CALCULAR:
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
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
STORE .F. to sumar
THISFORM.TEXT9.Value = THISFORM.TEXT1.Value + THISFORM.TEXT2.Value
IF THISFORM.TEXT9.Value > 9
	THISFORM.TEXT9.Value = THISFORM.TEXT9.Value - 10
	STORE .T. to sumar
ENDIF
***
THISFORM.TEXT10.Value = THISFORM.TEXT2.Value + THISFORM.TEXT3.Value
* Aca para saber si trae acumulado
IF sumar
	THISFORM.TEXT10.Value = THISFORM.TEXT10.Value + 1
ENDIF
* Aca pregunta de nuevo para saber que valor nuevo es
IF THISFORM.TEXT10.Value > 9
	THISFORM.TEXT10.Value = THISFORM.TEXT10.Value - 10
	STORE .T. to sumar
ELSE
	STORE .F. to sumar
ENDIF
***
THISFORM.TEXT11.Value = THISFORM.TEXT3.Value + THISFORM.TEXT4.Value
* Aca para saber si trae acumulado
IF sumar
	THISFORM.TEXT11.Value = THISFORM.TEXT11.Value + 1
ENDIF
* Aca pregunta de nuevo para saber que valor nuevo es
IF THISFORM.TEXT11.Value > 9
	THISFORM.TEXT11.Value = THISFORM.TEXT11.Value - 10
	STORE .T. to sumar
ELSE
	STORE .F. to sumar
ENDIF
*
THISFORM.TEXT12.Value = THISFORM.TEXT4.Value + THISFORM.TEXT5.Value
* Aca para saber si trae acumulado
IF sumar
	THISFORM.TEXT12.Value = THISFORM.TEXT12.Value + 1
ENDIF
* Aca pregunta de nuevo para saber que valor nuevo es
IF THISFORM.TEXT12.Value > 9
	THISFORM.TEXT12.Value = THISFORM.TEXT12.Value - 10
	STORE .T. to sumar
ELSE
	STORE .F. to sumar
ENDIF
***
THISFORM.TEXT13.Value = THISFORM.TEXT5.Value + THISFORM.TEXT6.Value
* Aca para saber si trae acumulado
IF sumar
	THISFORM.TEXT13.Value = THISFORM.TEXT13.Value + 1
ENDIF
* Aca pregunta de nuevo para saber que valor nuevo es
IF THISFORM.TEXT13.Value > 9
	THISFORM.TEXT13.Value = THISFORM.TEXT13.Value - 10
	STORE .T. to sumar
ELSE
	STORE .F. to sumar
ENDIF
***
THISFORM.TEXT14.Value = THISFORM.TEXT6.Value + THISFORM.TEXT7.Value
* Aca para saber si trae acumulado
IF sumar
	THISFORM.TEXT14.Value = THISFORM.TEXT14.Value + 1
ENDIF
* Aca pregunta de nuevo para saber que valor nuevo es
IF THISFORM.TEXT14.Value > 9
	THISFORM.TEXT14.Value = THISFORM.TEXT14.Value - 10
	STORE .T. to sumar
ELSE
	STORE .F. to sumar
ENDIF
***
THISFORM.TEXT15.Value = THISFORM.TEXT7.Value + THISFORM.TEXT8.Value
* Aca para saber si trae acumulado
IF sumar
	THISFORM.TEXT15.Value = THISFORM.TEXT15.Value + 1
ENDIF
* Aca pregunta de nuevo para saber que valor nuevo es
IF THISFORM.TEXT15.Value > 9
	THISFORM.TEXT15.Value = THISFORM.TEXT15.Value - 10
ENDIF
*** Tercera linea ***
STORE .F. to sumar
THISFORM.TEXT16.Value = THISFORM.TEXT9.Value + THISFORM.TEXT10.Value
* Aca para saber si trae acumulado
IF sumar
	THISFORM.TEXT16.Value = THISFORM.TEXT16.Value + 1
ENDIF
* Aca pregunta de nuevo para saber que valor nuevo es
IF THISFORM.TEXT16.Value > 9
	THISFORM.TEXT16.Value = THISFORM.TEXT16.Value - 10
	STORE .T. to sumar
ELSE
	STORE .F. to sumar
ENDIF
***
THISFORM.TEXT17.Value = THISFORM.TEXT10.Value + THISFORM.TEXT11.Value
* Aca para saber si trae acumulado
IF sumar
	THISFORM.TEXT17.Value = THISFORM.TEXT17.Value + 1
ENDIF
* Aca pregunta de nuevo para saber que valor nuevo es
IF THISFORM.TEXT17.Value > 9
	THISFORM.TEXT17.Value = THISFORM.TEXT17.Value - 10
	STORE .T. to sumar
ELSE
	STORE .F. to sumar
ENDIF
***
THISFORM.TEXT18.Value = THISFORM.TEXT11.Value + THISFORM.TEXT12.Value
* Aca para saber si trae acumulado
IF sumar
	THISFORM.TEXT18.Value = THISFORM.TEXT18.Value + 1
ENDIF
* Aca pregunta de nuevo para saber que valor nuevo es
IF THISFORM.TEXT18.Value > 9
	THISFORM.TEXT18.Value = THISFORM.TEXT18.Value - 10
	STORE .T. to sumar
ELSE
	STORE .F. to sumar
ENDIF
***
THISFORM.TEXT19.Value = THISFORM.TEXT12.Value + THISFORM.TEXT13.Value
*
* Aca para saber si trae acumulado
IF sumar
	THISFORM.TEXT19.Value = THISFORM.TEXT19.Value + 1
ENDIF
* Aca pregunta de nuevo para saber que valor nuevo es
IF THISFORM.TEXT19.Value > 9
	THISFORM.TEXT19.Value = THISFORM.TEXT19.Value - 10
	STORE .T. to sumar
ELSE
	STORE .F. to sumar
ENDIF
***
THISFORM.TEXT20.Value = THISFORM.TEXT13.Value + THISFORM.TEXT14.Value
* Aca para saber si trae acumulado
IF sumar
	THISFORM.TEXT20.Value = THISFORM.TEXT20.Value + 1
ENDIF
* Aca pregunta de nuevo para saber que valor nuevo es
IF THISFORM.TEXT20.Value > 9
	THISFORM.TEXT20.Value = THISFORM.TEXT20.Value - 10
	STORE .T. to sumar
ELSE
	STORE .F. to sumar
ENDIF
***
THISFORM.TEXT21.Value = THISFORM.TEXT14.Value + THISFORM.TEXT15.Value
* Aca para saber si trae acumulado
IF sumar
	THISFORM.TEXT21.Value = THISFORM.TEXT21.Value + 1
ENDIF
* Aca pregunta de nuevo para saber que valor nuevo es
IF THISFORM.TEXT21.Value > 9
	THISFORM.TEXT21.Value = THISFORM.TEXT21.Value - 10
ENDIF
*** Cuarta linea ***
STORE .F. to sumar
THISFORM.TEXT22.Value = THISFORM.TEXT16.Value + THISFORM.TEXT17.Value
* Aca para saber si trae acumulado
IF sumar
	THISFORM.TEXT22.Value = THISFORM.TEXT22.Value + 1
ENDIF
* Aca pregunta de nuevo para saber que valor nuevo es
IF THISFORM.TEXT22.Value > 9
	THISFORM.TEXT22.Value = THISFORM.TEXT22.Value - 10
	STORE .T. to sumar
ELSE
	STORE .F. to sumar
ENDIF
***
THISFORM.TEXT23.Value = THISFORM.TEXT17.Value + THISFORM.TEXT18.Value
* Aca para saber si trae acumulado
IF sumar
	THISFORM.TEXT23.Value = THISFORM.TEXT23.Value + 1
ENDIF
* Aca pregunta de nuevo para saber que valor nuevo es
IF THISFORM.TEXT23.Value > 9
	THISFORM.TEXT23.Value = THISFORM.TEXT23.Value - 10
	STORE .T. to sumar
ELSE
	STORE .F. to sumar
ENDIF
***
THISFORM.TEXT24.Value = THISFORM.TEXT18.Value + THISFORM.TEXT19.Value
* Aca para saber si trae acumulado
IF sumar
	THISFORM.TEXT24.Value = THISFORM.TEXT24.Value + 1
ENDIF
* Aca pregunta de nuevo para saber que valor nuevo es
IF THISFORM.TEXT24.Value > 9
	THISFORM.TEXT24.Value = THISFORM.TEXT24.Value - 10
	STORE .T. to sumar
ELSE
	STORE .F. to sumar
ENDIF
***
THISFORM.TEXT25.Value = THISFORM.TEXT19.Value + THISFORM.TEXT20.Value
* Aca para saber si trae acumulado
IF sumar
	THISFORM.TEXT25.Value = THISFORM.TEXT25.Value + 1
ENDIF
* Aca pregunta de nuevo para saber que valor nuevo es
IF THISFORM.TEXT25.Value > 9
	THISFORM.TEXT25.Value = THISFORM.TEXT25.Value - 10
	STORE .T. to sumar
ELSE
	STORE .F. to sumar
ENDIF
***
THISFORM.TEXT26.Value = THISFORM.TEXT20.Value + THISFORM.TEXT21.Value
* Aca para saber si trae acumulado
IF sumar
	THISFORM.TEXT26.Value = THISFORM.TEXT26.Value + 1
ENDIF
* Aca pregunta de nuevo para saber que valor nuevo es
IF THISFORM.TEXT26.Value > 9
	THISFORM.TEXT26.Value = THISFORM.TEXT26.Value - 10
ENDIF
STORE .F. to sumar
***
*** Quinta linea ***
THISFORM.TEXT27.Value = THISFORM.TEXT22.Value + THISFORM.TEXT23.Value
* Aca para saber si trae acumulado
IF sumar
	THISFORM.TEXT27.Value = THISFORM.TEXT27.Value + 1
ENDIF
* Aca pregunta de nuevo para saber que valor nuevo es
IF THISFORM.TEXT27.Value > 9
	THISFORM.TEXT27.Value = THISFORM.TEXT27.Value - 10
	STORE .T. to sumar
ELSE
	STORE .F. to sumar
ENDIF
***
THISFORM.TEXT28.Value = THISFORM.TEXT23.Value + THISFORM.TEXT24.Value
* Aca para saber si trae acumulado
IF sumar
	THISFORM.TEXT28.Value = THISFORM.TEXT28.Value + 1
ENDIF
* Aca pregunta de nuevo para saber que valor nuevo es
IF THISFORM.TEXT28.Value > 9
	THISFORM.TEXT28.Value = THISFORM.TEXT28.Value - 10
	STORE .T. to sumar
ELSE
	STORE .F. to sumar
ENDIF
***
THISFORM.TEXT29.Value = THISFORM.TEXT24.Value + THISFORM.TEXT25.Value
* Aca para saber si trae acumulado
IF sumar
	THISFORM.TEXT29.Value = THISFORM.TEXT29.Value + 1
ENDIF
* Aca pregunta de nuevo para saber que valor nuevo es
IF THISFORM.TEXT29.Value > 9
	THISFORM.TEXT29.Value = THISFORM.TEXT29.Value - 10
	STORE .T. to sumar
ELSE
	STORE .F. to sumar
ENDIF
***
THISFORM.TEXT30.Value = THISFORM.TEXT25.Value + THISFORM.TEXT26.Value
* Aca para saber si trae acumulado
IF sumar
	THISFORM.TEXT30.Value = THISFORM.TEXT30.Value + 1
ENDIF
* Aca pregunta de nuevo para saber que valor nuevo es
IF THISFORM.TEXT30.Value > 9
	THISFORM.TEXT30.Value = THISFORM.TEXT30.Value - 10
ENDIF
STORE .F. to sumar
*** Quinta linea ***
THISFORM.TEXT31.Value = THISFORM.TEXT27.Value + THISFORM.TEXT28.Value
* Aca para saber si trae acumulado
IF sumar
	THISFORM.TEXT31.Value = THISFORM.TEXT31.Value + 1
ENDIF
* Aca pregunta de nuevo para saber que valor nuevo es
IF THISFORM.TEXT31.Value > 9
	THISFORM.TEXT31.Value = THISFORM.TEXT31.Value - 10
	STORE .T. to sumar
ELSE
	STORE .F. to sumar
ENDIF
***
THISFORM.TEXT32.Value = THISFORM.TEXT28.Value + THISFORM.TEXT29.Value
* Aca para saber si trae acumulado
IF sumar
	THISFORM.TEXT32.Value = THISFORM.TEXT32.Value + 1
ENDIF
* Aca pregunta de nuevo para saber que valor nuevo es
IF THISFORM.TEXT32.Value > 9
	THISFORM.TEXT32.Value = THISFORM.TEXT32.Value - 10
	STORE .T. to sumar
ELSE
	STORE .F. to sumar
ENDIF
***
THISFORM.TEXT33.Value = THISFORM.TEXT29.Value + THISFORM.TEXT30.Value
* Aca para saber si trae acumulado
IF sumar
	THISFORM.TEXT33.Value = THISFORM.TEXT33.Value + 1
ENDIF
* Aca pregunta de nuevo para saber que valor nuevo es
IF THISFORM.TEXT33.Value > 9
	THISFORM.TEXT33.Value = THISFORM.TEXT33.Value - 10
ENDIF
*** Sexta linea ***
STORE .F. to sumar
THISFORM.TEXT34.Value = THISFORM.TEXT31.Value + THISFORM.TEXT32.Value
* Aca para saber si trae acumulado
IF sumar
	THISFORM.TEXT34.Value = THISFORM.TEXT34.Value + 1
ENDIF
* Aca pregunta de nuevo para saber que valor nuevo es
IF THISFORM.TEXT34.Value > 9
	THISFORM.TEXT34.Value = THISFORM.TEXT34.Value - 10
	STORE .T. to sumar
ELSE
	STORE .F. to sumar
ENDIF
***
THISFORM.TEXT35.Value = THISFORM.TEXT32.Value + THISFORM.TEXT33.Value
* Aca para saber si trae acumulado
IF sumar
	THISFORM.TEXT35.Value = THISFORM.TEXT35.Value + 1
ENDIF
* Aca pregunta de nuevo para saber que valor nuevo es
IF THISFORM.TEXT35.Value > 9
	THISFORM.TEXT35.Value = THISFORM.TEXT35.Value - 10
ENDIF
*** Septima linea ***
STORE .F. to sumar
THISFORM.TEXT36.Value = THISFORM.TEXT34.Value + THISFORM.TEXT35.Value
* Aca para saber si trae acumulado
IF sumar
	THISFORM.TEXT36.Value = THISFORM.TEXT36.Value + 1
ENDIF
* Aca pregunta de nuevo para saber que valor nuevo es
IF THISFORM.TEXT36.Value > 9
	THISFORM.TEXT36.Value = THISFORM.TEXT36.Value - 10
ENDIF
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

AYUDA PARA PIRAMIDE EN VISUAL FOX PRO

Publicado por Mauricio (42 intervenciones) el 04/05/2013 18:42:57
Denny, aca te escribo mi email, escribeme para enviarte el FORM hasta ahora definitivo, pero realmente en forma de piramide y no invertida como ahora lo tienes:
moris_gonzalez@hotmail.com
Gracias!!!!
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

AYUDA PARA PIRAMIDE EN VISUAL FOX PRO

Publicado por Denny (6 intervenciones) el 06/05/2013 17:53:02
TE ENVIE A TU CORREO ESPERO ME RESPONDAS POR ALLA QUE ES MEJOR. SALUDOS.
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