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

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 clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

Pos: 4

Val: 471

AYUDA PARA PIRAMIDE EN VISUAL FOX PRO

Publicado por Mauricio (1541 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 clara

No me gusta: Está respuesta no esta clara o no es útil

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

Comentar

Pos: 4

Val: 471

AYUDA PARA PIRAMIDE EN VISUAL FOX PRO

Publicado por Mauricio (1541 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

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

Comentar

Pos: 4

Val: 471

AYUDA PARA PIRAMIDE EN VISUAL FOX PRO

Publicado por Mauricio (1541 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

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

Comentar

Pos: 4

Val: 471

AYUDA PARA PIRAMIDE EN VISUAL FOX PRO

Publicado por Mauricio (1541 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

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

Comentar

Pos: 4

Val: 471

AYUDA PARA PIRAMIDE EN VISUAL FOX PRO

Publicado por Mauricio (1541 intervenciones) el 03/05/2013 23:57:43

Ponlo en el boton CALCULAR:

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

Comentar

AYUDA PARA PIRAMIDE EN VISUAL FOX PRO

Publicado por Mauricio (45 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:
[email protected]
Gracias!!!!

Valora esta respuesta

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

Comentar

cambiar icono de fox

Graficas en VFP