En este grupo En todos

Foro de Visual FoxPro



Curso de visual foxpro 9 Capítulo 9

Nestor
Informática iutepal.
Escrito por Nestor Lagos
el 01/08/2010

Bueno amigos foxeros lo prometido es deuda.


He subido al grupo el documento que contiene el capitulo 9 del curso. El link de descarga es el siguiente:

http://grupos.emagister.com/documento/curso_de_visual_foxpro_9_capitulo_9/1094-534150


He creado el debate para que realicen sus preguntas, observaciones y sugerencias.


Saludos a todos y gracias por el apoyo que me han dado a mi y al grupo.

Saludos para Jonathan que esta pendiente del grupo y que mas tarde cuando el tiempo se lo permita se unirá nuevamente al grupo.

Dario Loreto
Sistemas de información instituto univ...
Escrito por Dario Loreto
el 02/08/2010

Saludos Nestor......

Tienes la Bandera de Lider este es un Nuevo Reto que a mi pensar seguira siendo muy Dinamico ya que posees muchas caracteristicas similares a Jonathan en cuanto a sabiduria.

Que empieze la Accion........

Ricardo Sanchez Ayala
Administracion de empresas univ. del a...
Escrito por Ricardo Sanchez Ayala
el 02/08/2010

Nestor, Darío y demás compañeros foxeros, mis saludos.
Excelente Nestor por tu iniciativa de levantar al grupo, y como dice Darío, haz tomado la bandera y asumido la dirección del grupo para continuar con el proyecto inicial de Jonathan, sigamos adelante con ese objetivo.
Tu idea de preparar semanalmente nuevos temas, capítulos y ejercicios me parece buena, siempre y cuando no interfiera con tus actividades ó compromisos adquiridos.
De nuevo gracias y bendiciones.

Atte,

Ricardo Sánchez A.

Santos Medina
Auditor contable centro contable venez...
Escrito por Santos Medina
el 02/08/2010
Javier A. Graffe M.
Anzoátegui, Venezuela
Escrito por Javier A. Graffe M.
el 02/08/2010

Gracias esta muy util esta informacion. Realmente eso es lo que necesitamos mucho incentivo y material de apoyo. Por favor me incorpore tarde a este curso y necesito los capitulos del 1 al 8 ya que no los tengo que debo hacer.

Muchas gracias

Javier A. Graffe


Dario Loreto
Sistemas de información instituto univ...
Escrito por Dario Loreto
el 02/08/2010

Saludos Nestor Realize el ejercicio del capitulo 9 siguiendo tus instrucciones y salio sin Novedad por un Lado quisiera que me explicaras el Comando Empty y Chr(13) cuales son sus funciones y el signo de exclamacion que pienso es para colocar lo escrito en el text en mayuscula pero no funciona asi.

Por otro lado inicie el ejercicio propuesto del capitulo 9, tengo armado el formulario pero estoy analizando el Boton agregar esta un poco dificil pero bastante creativo.


Dario Loreto
Sistemas de información instituto univ...
Escrito por Dario Loreto
el 02/08/2010

Saludos Nestor...

En el ejercicio propuesto Consegui que se enviara el nombre al editbox correspondiente segun la seleccion del opciongroup:

Este es el codigo usado:

Init del Formulario:

SET CONFIRM ON
this.editar1.Value = 'Azules'
this.editar2.Value = 'Amarillos'
this.editar3.Value = 'Blancos'

Y en el Boton Agregar coloque el siguiente Codigo:

IF! EMPTY(thisform.texto1.Value)

DO case

CASE thisform.optiongroup1.Value = 1

thisform.editar1.Value = thisform.editar1.Value+CHR(13)+thisform.texto1.Value

CASE thisform.optiongroup1.Value = 2

thisform.editar2.Value = thisform.editar2.Value+CHR(13)+thisform.texto1.Value

CASE thisform.optiongroup1.Value = 3

thisform.editar3.Value = thisform.editar3.Value+CHR(13)+thisform.texto1.Value

ENDCASE

thisform.texto1.Value = ''
ELSE
MESSAGEBOX('Falta ingresar Nombre',0+64,'Advertencia')
ENDIF

thisform.texto1.SetFocus
Me falta es Colocar la cantidad mi pregunta es si genero un contador en para cada case?

Jesus Crespo
Informatica iutembi
Escrito por Jesus Crespo
el 02/08/2010

Si el sr. Nestor para mi es uno de los mejores programadores por su logica q es lo q forma aun programador. De verdad que no me perdere ninguno de los capitulos. Gracias...

Dario Loreto
Sistemas de información instituto univ...
Escrito por Dario Loreto
el 02/08/2010

Nestor orienta en que estoy fallando el ejercio propuesto del capitulo 9 esta casi listo solo que el contador funciona usa sola vez para ambos y despues no continua:

Boton Agregar:

LOCAL cont1, cont2,cont3 as Integer

cont1 = 0
cont2 = 0
cont3 = 0

IF! EMPTY(thisform.texto1.Value)

DO case

CASE thisform.optiongroup1.Value = 1

thisform.editar1.Value = thisform.editar1.Value+CHR(13)+thisform.texto1.Value
cont1 = cont1+1
thisform.texto2.Value = cont1

CASE thisform.optiongroup1.Value = 2

thisform.editar2.Value = thisform.editar2.Value+CHR(13)+thisform.texto1.Value
cont2 = cont2+1
thisform.texto3.Value = cont2

CASE thisform.optiongroup1.Value = 3

thisform.editar3.Value = thisform.editar3.Value+CHR(13)+thisform.texto1.Value
cont3 = cont3+1
thisform=texto4.Value.cont3
ENDCASE

thisform.texto1.Value = ''
ELSE
MESSAGEBOX('Falta ingresar Nombre',0+64,'Advertencia')
ENDIF

thisform.texto1.SetFocus

Henry Heredia
Táchira, Venezuela
Escrito por Henry Heredia
el 02/08/2010

Nestor, te felicito y me uno a la opinion de mis compañeros foxeros gracias por tomar la bandera y continuar con el grupo que importante que existan perosnas como uds. (Nestro, Jonathan) que comparten sus conocimientos. Esperamos ser buenos discipulos.

Pedro Quintero Torres
Tecnico superior en informatica unelle...
Escrito por Pedro Quintero Torres
el 02/08/2010

Saludos, nestor nuevamente te doy la gracias por tu apollo incondicional y gracias al amigo jhonatan por abrir la iniciativa de que todos nosotros ampliemos nuestros conocimientos en la programacion con visual foxpro 9 y ya que tu nestor tomates la batuta suerte y que siga esta cadena, ya maña estaremos otros que lo que se quiere el compartir de conocimiento y saberes y abilidades ,bueno gracias..

Luis Porro
Programación en clipper uruguay ort fr...
Escrito por Luis Porro
el 02/08/2010

Hola Nestor, FELICITACIONES y gracias por aceptar el reto, me imagino que no es fácil, hoy acá es medio día, y bueno recien baje e imprimi el capitulo 9 y trataré de resolerlo
saludos Luis

Nestor Lagos
Informática iutepal.
Escrito por Nestor Lagos
el 02/08/2010

Hola amigos, gracias a todos por el apoyo y felicitaciones que me han dado, Me enorgullece poder ayudarlos.


Para los que necesitan revisar los capítulos anteriores les dejo este link:

Curso de visual foxpro 9

Hola Darío, te doy respuesta a tus preguntas:


1 -chr(): Es una función que devuelve el carácter asociado con el número del código ansi, ejemplo:

El número Ansi del caracter A es 65, entonces la función chr(65) devuelve A,

El número 13 Ansi no devuelve un caracter sino Enter, entonces utilizamos chr(13) dentro de una cadena de caracteres para simular el tecleo de Enter y asi la cadena de caracteres siguiente se escriba en la siguiente línea.


2 Empty(): Es una función que evalúa si una expresión esta vacía, Devolvera.f. (falso) si la cadena no esta vacía y devolverá.t. (verdadero) si la expresión esta vaciá. Ejemplo


CVariable = 'A'

Messagebox(empty(cVariable))

El mensaje enviará.F. , es decir, que no esta vacío.


Empty puede evaluar valores de cualquier tipo:

Si la expresión es de tipo numérico y su valor es 0 empty() devolverá.t. , es decir, que esta vacío.

Si la expresión es de tipo lógico y su valor es.F. Devolverá.T.


El signo de exclamación! Delante de una expresión lógica actúa como el comando lógico NOT, ejemplo

Messagebox(!.T. ) && el mensaje enviará.F.


En el ejercicio lo usamos delante de la función empty(),

IF! Empty(Thisform.txtNombre.Value).... En español significa:

Si no está vacío el cuadro de texto

Si le quitamos el signo de exclamación

IF Empty(Thisform.TxtNombre.Value) ... En español significa:

Si está vacío el cuadro de texto


Sobre tu ejercicio propuesto mas tarde con tiempo te indico las sugerencias


Gracias a todos por su participación.





Ivan Lopez
Ingeniero de sistemas escuela politecn...
Escrito por Ivan Lopez
el 02/08/2010

Muchas gracias Nestor esta muy bien el capitulo 9, espero que continúes en estos cursos, yo sinceramente quiero un capitulo de BEGIN TRANSACTION, ROLLBACK, etc.

Estaré esperando.


Ramón Rodríguez
Lic ciencias de la computacion buap be...
Escrito por Ramón Rodríguez
el 02/08/2010
Alex Castillo Hernandez
Guatemala, Guatemala
Escrito por Alex Castillo Hernandez
el 02/08/2010

Excelente Nestor.



Gracias por compartir tus conocimientos.

Jaime Ortiz
Ingenieria de sistemas universidad inc...
Escrito por Jaime Ortiz
el 02/08/2010

Gracias Nestor po tu acción y empeño, sigue adelante.

Saludos desde Cali Colombia

Nestor Lagos
Informática iutepal.
Escrito por Nestor Lagos
el 02/08/2010

Buenas noches compañeros, me siento contento y motivado al observar sus gratitudes.


Les comento que en los capítulos que publicaré, mostrare la mayoría de las herramientas que nos facilita este gran lenguaje de programación.


Para el amigo Ivan Lopez, cuando lleguemos a base de datos utilizaremos Begin y End Transaction junto con RollBack para la actualización de múltiples tablas.


Darío el código del ejercicio propuesto que publicaste esta casi listo, solo hay un detalle que me gustaría que tu mismo analizaras.


Saludos a todos.

Dario Loreto
Sistemas de información instituto univ...
Escrito por Dario Loreto
el 03/08/2010

Saludos Nestor..

Estoy revisando yo se que es el los contadores en los texto para mostrar los valores en su propiedad value las coloque en cero y estoy sumando caracteres tengo que llevar a estos a numerico?

Bueno ahi le estoy dando.......

Dario Loreto
Sistemas de información instituto univ...
Escrito por Dario Loreto
el 03/08/2010

Nestor no he podido ver la falla se que esta en los contadores pero no hayo como enmendarla........