CLASE DEL DIA MARTES 17 DE MAYO 2011

PROGRAMA PARA CAMBIAR FONDO DE PANTALLA

CODIGO DEL PROGRAMA
---------------------------------------------------------------------

opcion = 0
CLEAR
@ 5,5 say "1 AZUL"
@ 6,5 SAY "2 NEGRO"
@ 7,5 SAY "3 ROJO"
@ 8,5 SAY "4 VERDE"
@ 9,5 SAY "5 MAGNETA"
@ 10,5 SAY "6 SALIR"
@ 11,5 SAY "INGRESE UNA OPCION" GET opcion RANGE 1,6
READ
DO case
 CASE opcion = 1

 SET COLOR TO N+/B
 DO "c:\users\intecom\desktop\colores no visual c\colores.prg"
 CASE opcion = 2
 SET COLOR TO W/N
  DO "c:\users\intecom\desktop\colores no visual c\colores.prg"
 CASE opcion = 3
 SET COLOR TO N/r
  DO "c:\users\intecom\desktop\colores no visual c\colores.prg"
 CASE opcion = 4
 SET COLOR TO N/g
  DO "c:\users\intecom\desktop\colores no visual c\colores.prg"
 CASE opcion = 5
 SET COLOR TO N/rb
  DO "c:\users\intecom\desktop\colores no visual c\colores.prg"
 CASE opcion = 6

 CLOSE all
 ENDCASE

CUENTA DINERO

ESTE ES UN PROGRAMA QUE SE ELABORA EN VISUAL FOXPRO EL CUAL NOS SERVIRA PARA CONTAR DINERO POR CLASIFICACION DE BILLETES Y MONEDAS ver imagen siguiente
 (PROGRAMACION NO VISUAL)

DESCARGAR CODIGO DEL PROGRAMA CUENTA DINERO

VISITA MI CANAL EN YOUTUBE

VISITA MI NUEVO CANAL CLIC AQUI

CLASE DEL DIA JUEVES 12 DE MAYO 2011

ESTE ES UN PROGRAMA PARA JUGAR A ADIVINAR UN NUMERO, EL PROGRAMA TE PEDIRA UN NUMERO TIENES TRES INTENTOS SI LOS FALLAS PIERDES


AQUI EL CODIGO DEL PROGRAM . programacion no visual
------------------------------------------------------------------------------------------

numero = 0
generado = 0
contador = 0
opcion = ""

SET COLOR TO W+/N
generado = INT(10*RAND())
CLEAR

DO while contador < 3

@ 5,5 say "¿CUAL ES EL NUMERO?" get numero
@ 3,5 say "JUEGA INGRESANDO UN NUMRO TIENES 3 INTENTOS, ADIVINA CUAL ES"
READ

DO case
    CASE numero = generado
    @ 7,5 say "ADIVINASTE"
    contador = 5
    CASE numero < generado
    @ 8,5 say "EL NUMERO ES MAYOR"
    CASE numero > generado
    @ 9,5 say "EL NUMERO ES MENOR"
   
    ENDCASE
   
    contador = contador + 1
    ENDDO
    IF contador = 6
    @ 10,5 say "¡FELICIDADES!"
   
    ELSE
   
    @ 10,5 SAY "PERDISTE"
    @ 11,5 say "EL NUMERO ERA:" get generado
    ENDIF
   
    @ 12,5 say "DESEA VOLVER A INTERNTAR S(SI) N(NO)?" get opcion pict "!" valid opcion$ "S/N"
    READ
   
    IF opcion = "S"
    DO "c:\users\carlos e. bedoya\documents\proyectos de visual foxpro\juego\adivina.prg"

        ELSE
    quit
    endif

CONVERSOR DE MEDIDAS - - 2 A 3

 "ESTE ES UN PROGRAMA PARA CONVERTIR MEDIDAS DE METROS A CENTIMETROS Y PULGASA"  programacion visual

"este es el codigo del programa. (boton calcular)"
----------------------------------------------------------------------
thisform.text2.Value = VAL(thisform.text1.Value)*100
thisform.text3.Value = VAL(thisform.text1.Value)*39.37
---------------------------------------------------------------------------

"codigo para el boton limpiar"
----------------------------------------------
 thisform.text1.Value=""
thisform.text2.Value=""
thisform.text3.Value=""
thisform.text1.setfocus
-------------------------------------------
 asi queda el programa, ver imagen siguiente

 -----------------------------------------------------------------------------------
   (segunda forma de hacerlo)
____________________________________________________
  programacion no visual

este es el codigo del programa
----------------------------------------
im = 0
cm = 0
pg = 0
CLEAR
@ 3,18 say "CONVERSOR DE MEDIDAS"
@ 5,15 say "INGRESE MEDIDAS mts:" get im

READ

cm = im*100
pg = im*39.37

@ 7,15 say "CENTIMETROS:" get cm
@ 9,15 say "PULGADAS:" get pg

_________________________________________-
EL PROGRAMA QUEDA DE LA SIGUIENTE FORMA.  ver imagenes

 ------------------------------------------------------------------------------------------------------

CLASE DEL DIA LUNES 9 DE MAYO--2 A 3

PROGRAMA PARA CALCULAR SALARIOS --programacion no visual
_____________________________________________________________
"CODIGO DEL PROGRAMA"
sl =0
ig = 0
it = 0
bn = 0
sq = 0

CLEAR
@ 3,5 say "INGRESE SUELDO:" get sl

READ

ig = sl*4.83/100
it = sl*10/100
bn = sl*10/100
sq = sl-ig-it+bn

@ 6,5 say "DESCUENTOS:"
@ 7,5 say "IGSS:" get ig
@ 8,5 say "INTECAP" get it
@ 9,5 say "10% BONIFICACION:" get bn
@ 11,5 say "EL SUELDO LIQUIDO ES:" get sq

CLASE DEL DIA LUNES 9 DE MAYO- 3 A 4 PM

COMO HACER UN PROGRAMA PARA CALCULAR EL SALARIO--programacion visual

"BOTON CALCULAR"

thisform.text2.Value=VAL(thisform.text1.Value)*4.83/100
thisform.text3.Value=VAL(thisform.text1.Value)*10/100
thisform.text4.Value=VAL(thisform.text1.Value)*10/100
thisform.text5.Value=VAL(thisform.text1.Value)-thisform.text2.Value-thisform.text3.Value+thisform.text4.value

 -----------------------------------------------------------------------------------------------------------------

"doble clic en el formulario para insertar este codigo"

thisform.text1.Value=""
thisform.text2.Value=""
thisform.text3.Value=""
thisform.text4.Value=""
thisform.text5.Value=""
thisform.text1.setfocus

----------------------------------------------

 y configurar esta opcion ver imagen

 "EL PROGRAMA QUEDA ASI"

----------------------------------------------------

ESPERO LES SIRVA

 

FUERA DEL TEMA E AQUI UN COMPLEMENTO PARA WORD 2007

UN COMPLEMENTO PARA WORD 2007 PARA PODER CREAR DOCUMENTOS EN PDF
DESCARGAR COMPLEMENTO PARA GUARDAR DOCUMENTOS PDF EN WORD 2007

"GRUPO DE 2a3 pm"

CLASE DEL DIA JUEVES - 5 DE MAYO DE 2011--Programacion no visual en Foxpro

CONVERSION DE MONEDAS:

ENTRADAS: Cambio dolar, cambio Euro, cantidad

PROCESO: Dolares a Quetzales= cantidad *cambio de dolar
                    Quetzales a Dolares=cantidad/cambio de dolar
                    Euros a Quetzales=cantidad*cambio de euro
                    Quetzales a Euros=cantidad/cambio de euros

SALIDAS:
                   Dolar a Q
                   Q a Dolar
                   Euros a Q
                   Q a Euros

lo anterior es en el cuaderno a continuacion esta el codio del programa

STORE 0.00 TO cd,ce,cantidad,opcion,dq,qd,eq,qe
CLEAR
@ 5,5 say "INGRESE CAMBIO DE DOLAR:" get cd
@ 6,5 say "INGRESE CAMBIO DE EURO:" get ce
@ 7,5 say "INGRESE CANTIDAD:" get cantidad
READ
dq=cantidad*cd
qd=cantidad/cd
eq=cantidad*ce
qe=cantidad/ce
@ 9,5 say "DE DOLARES A QUETZALES:"get dq
@ 10,5 say "DE QUETZALES A DOLARES:"get qd
@ 11,5 say "DE EUROS A QUETZALES:"get eq
@ 12,5 say "DE QUETZALES A EUROS:"get qe
CLEAR gets
 

APRENDIENDO A USAR VFP

ABRIR UN FORMULARIO

ESTA ES UNA PEQUEÑA EXPLICACION PARA PRINCIPIANTE, ESPERO LES AYUDE EN ALGO

dejen sus comentarios "GRACIAS"

VISUAL FOXPRO

Visual FoxPro: es un lenguaje de programación orientado a objetos y procedural, un Sistema Gestor de Bases de datos

visual foxPro version 9.0
Visual FoxPro ofrece a los desarrolladores un conjunto de herramientas para crear aplicaciones de bases de datos para el escritorio, entornos cliente/servidor, tablet PC o para la Web.

Es un sistema orientado a objeto para la generación de Base de Datos y el desarrollo de aplicaciones.

Desde Visual FoxPro podemos crear Formularios, Base de Datos , Informes, Vistas, Proyectos entre otros. Podemos crear los elementos de un proyecto por separado y luego agregarlos a un proyecto existente o crear un proyecto y desde éste ir agregando los elemento que deba contener. Cuando creamos un proyecto debemos crear una carpeta de trabajo en la se guarde el proyecto
DESCARGAR VISUAL FOXPRO 9.0
Es un archivo nrg.   imagen de disco, 
INSTRUCCIONES PARA LA INSTALACION