CUENTA DINERO

BOTON ENTER: 
        TextBox2.Text = Val(TextBox1.Text) * 200
        TextBox4.Text = Val(TextBox3.Text) * 100
        TextBox6.Text = Val(TextBox5.Text) * 50
        TextBox8.Text = Val(TextBox7.Text) * 20
        TextBox10.Text = Val(TextBox9.Text) * 10
        TextBox12.Text = Val(TextBox11.Text) * 5
        TextBox14.Text = Val(TextBox13.Text) * 1
        TextBox16.Text = Val(TextBox15.Text) * 0.5
        TextBox18.Text = Val(TextBox17.Text) * 0.25
        TextBox20.Text = Val(TextBox19.Text) * 0.1
        TextBox22.Text = Val(TextBox21.Text) * 0.05
LO SIGUIENTE VA EN UNA SOLO LINEA EN EL MISMO BOTON CALCULAR (TODA LA SUMA)
TextBox23.Text = TextBox2.Text + TextBox4.Text + TextBox6.Text + TextBox8.Text + TextBox10.Text + TextBox12.Text + TextBox14.Text + TextBox16.Text + TextBox18.Text + TextBox20.Text + TextBox22.Text



BOTON LIMPIAR:
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
        TextBox5.Text = ""
        TextBox6.Text = ""
        TextBox7.Text = ""
        TextBox8.Text = ""
        TextBox9.Text = ""
        TextBox10.Text = ""
        TextBox11.Text = ""
        TextBox12.Text = ""
        TextBox13.Text = ""
        TextBox14.Text = ""
        TextBox15.Text = ""
        TextBox16.Text = ""
        TextBox17.Text = ""
        TextBox18.Text = ""
        TextBox19.Text = ""
        TextBox20.Text = ""
        TextBox21.Text = ""
        TextBox22.Text = ""
        TextBox23.Text = ""
        TextBox1.Focus()

boton calcular_ PROMEDIOS

  TextBox5.Text = (Val(TextBox1.Text) + Val(TextBox2.Text) + Val(TextBox3.Text) + Val(TextBox4.Text)) / 4

        If TextBox5.Text >= 60 Then
            TextBox6.Text = "PROMOVIDO"
        Else
            TextBox6.Text = "NO PROMOVIDO"



BOTON LIMPIAR:
   TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
        TextBox5.Text = ""
        TextBox6.Text = ""
        TextBox1.Focus()

PROGRAMAS YA DISEÑADOS SOLO PARA COMPILAR

Aqui les dejo un paquete de programas ya diseñados solo para compilarlos hay en forma visual y no visual
descargar el archivo de aqui:    PROGRAMAS LISTOS_PAQUETON

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