CALCULADORA BÁSICA EN VISUAL FOXPRO

COMPARTO ESTE MATERIAL QUE ENCONTRÉ EN UN BLOG... ME SIRVIÓ PARA EXPLICAR PROGRAMACIÓN
MIERCOLES, 23 de ABRIL DE 2014
CALCULADORA
Programar una calculadora básica en visual FoxPro 9.0y también a programar una marquesina.







Programación
Formulario 
Esta parte nos servirá para la programación de la marquesina. 
Form1 Activate
PUBLIC c,c1,p,letras
c1=""
p=0
c=""letras="Calculadora"

Esto es para validar las variables asignadas a cada operación.
Form1 Load
PUBLIC n1
PUBLIC n2
PUBLIC operacion
PUBLIC suma
PUBLIC resta
PUBLIC multiplicacion
PUBLIC divisionPUBLIC respuesta
PUBLIC exponente
PUBLIC cuadrado

Esto es para validar la marquesina, es decir, para que las letras del label se muevan.
Timer
p=p+1
c=SUBSTR(letras,p,1)
c1=c1+cthisform.label1.Caption=c1
IF p=LEN(letras) then
label1=""
c1=""
p=0
ENDIF


Numeración:
Para ello necesitaremos 10 botones que correspondan a la numeración, es decir, botones del 0 al 9
y losprogramaremos de la siguiente manera: 
thisform.txt.Value=thisform.txt.Value+"0"
thisform.txt.Value=thisform.txt.Value+"1"
thisform.txt.Value=thisform.txt.Value+"2"thisform.txt.Value=thisform.txt.Value+"4"
thisform.txt.Value=thisform.txt.Value+"5"
thisform.txt.Value=thisform.txt.Value+"6"
thisform.txt.Value=thisform.txt.Value+"7"
thisform.txt.Value=thisform.txt.Value+"8"thisform.txt.Value=thisform.txt.Value+"9"
thisform.txt.Value=thisform.txt.Value+"."
Cada numero en cada botón. Y también para la coma decimal.

Operaciones:
Suma
n1=VAL(thisform.txt.Value)
operacion="suma"thisform.txt.Value=""

Resta
n1=VAL(thisform.txt.Value)
operacion="resta"
thisform.txt.Value=""

Multiplicación
n1=VAL(thisform.txt.Value)
operacion="multiplicacion"
thisform.txt.Value=""División
n1=VAL(thisform.txt.Value)
operacion="division"
thisform.txt.Value=""

Raíz Cuadrada
n1=VAL(THISFORM.txt.Value)
operacion="raiz cuadrada"
THISFORM.txt.VALUE=""

Exponente cuadrado...