Calcladora Basica

Aplicaciones de código fuente abierto para descargar

Calcladora Basica

Notapor Sadic » Vie Jul 25, 2008 4:22 pm

Aun falta ponerle prohibiciones XD y mas cosas

Código: Seleccionar todo
'Archivo generado por Visual Pauscal
'El código de los eventos y demás procedimientos
'se encuentra al final de este archivo

$ADV-

Importar "PauscalW.prp"



Clase c_Form1(pscForm)
Público:

  ClaseVar _
    miText:pscCajaTexto, _
    menos:pscBoton, _
    multiplicacion:pscBoton, _
    divicion:pscBoton, _
    A3:pscBoton, _
    A2:pscBoton, _
    mas:pscBoton, _
    AE:pscBoton, _
    A6:pscBoton, _
    A0:pscBoton, _
    AP:pscBoton, _
    A9:pscBoton, _
    A7:pscBoton, _
    A8:pscBoton, _
    A4:pscBoton, _
    A1:pscBoton, _
    A5:pscBoton

Privado:
  Proc Init
    X=0
    Y=0
    Ancho=130
    Alto=150
    Texto="EANG Calculadora"
    Visible=Verd
    Habilitado=Verd
    PuedeCambiarDeTamaño=Falso
    BotonMaximizar=Falso
    BotonMinimizar=Falso
    MenuSistema=Verd
    Borde=Falso
    Eval Eventos
    FinEval
    CrearForm
    Crear miText
    Eval miText
      .Padre = EsteObjeto
      .X=0
      .Y=0
      .Ancho=128
      .Alto=27
      .Visible=Verd
      .Habilitado=Verd
      Eval .Eventos
      FinEval
    FinEval
    Crear menos
    Eval menos
      .Padre = EsteObjeto
      .X=72
      .Y=96
      .Ancho=56
      .Alto=25
      .Texto="-"
      .Visible=Verd
      .Habilitado=Verd
      Eval .Eventos
        .AlCliquear@=f0_menos_AlCliquear@
      FinEval
    FinEval
    Crear multiplicacion
    Eval multiplicacion
      .Padre = EsteObjeto
      .X=72
      .Y=24
      .Ancho=56
      .Alto=25
      .Texto="*"
      .Visible=Verd
      .Habilitado=Verd
      Eval .Eventos
        .AlCliquear@=f0_multiplicacion_AlCliquear@
      FinEval
    FinEval
    Crear divicion
    Eval divicion
      .Padre = EsteObjeto
      .X=72
      .Y=48
      .Ancho=56
      .Alto=25
      .Texto="/"
      .Visible=Verd
      .Habilitado=Verd
      Eval .Eventos
        .AlCliquear@=f0_divicion_AlCliquear@
      FinEval
    FinEval
    Crear A3
    Eval A3
      .Padre = EsteObjeto
      .X=48
      .Y=72
      .Ancho=25
      .Alto=25
      .Texto="3"
      .Visible=Verd
      .Habilitado=Verd
      Eval .Eventos
        .AlCliquear@=f0_A3_AlCliquear@
      FinEval
    FinEval
    Crear A2
    Eval A2
      .Padre = EsteObjeto
      .X=24
      .Y=72
      .Ancho=25
      .Alto=25
      .Texto="2"
      .Visible=Verd
      .Habilitado=Verd
      Eval .Eventos
        .AlCliquear@=f0_A2_AlCliquear@
      FinEval
    FinEval
    Crear mas
    Eval mas
      .Padre = EsteObjeto
      .X=72
      .Y=72
      .Ancho=56
      .Alto=25
      .Texto="+"
      .Visible=Verd
      .Habilitado=Verd
      Eval .Eventos
        .AlCliquear@=f0_mas_AlCliquear@
      FinEval
    FinEval
    Crear AE
    Eval AE
      .Padre = EsteObjeto
      .X=48
      .Y=96
      .Ancho=25
      .Alto=25
      .Texto="="
      .Visible=Verd
      .Habilitado=Verd
      Eval .Eventos
        .AlCliquear@=f0_AE_AlCliquear@
      FinEval
    FinEval
    Crear A6
    Eval A6
      .Padre = EsteObjeto
      .X=48
      .Y=48
      .Ancho=25
      .Alto=25
      .Texto="6"
      .Visible=Verd
      .Habilitado=Verd
      Eval .Eventos
        .AlCliquear@=f0_A6_AlCliquear@
      FinEval
    FinEval
    Crear A0
    Eval A0
      .Padre = EsteObjeto
      .X=24
      .Y=96
      .Ancho=25
      .Alto=25
      .Texto="0"
      .Visible=Verd
      .Habilitado=Verd
      Eval .Eventos
        .AlCliquear@=f0_A0_AlCliquear@
      FinEval
    FinEval
    Crear AP
    Eval AP
      .Padre = EsteObjeto
      .X=0
      .Y=96
      .Ancho=25
      .Alto=25
      .Texto="."
      .Visible=Verd
      .Habilitado=Verd
      Eval .Eventos
        .AlCliquear@=f0_AP_AlCliquear@
      FinEval
    FinEval
    Crear A9
    Eval A9
      .Padre = EsteObjeto
      .X=48
      .Y=24
      .Ancho=25
      .Alto=25
      .Texto="9"
      .Visible=Verd
      .Habilitado=Verd
      Eval .Eventos
        .AlCliquear@=f0_A9_AlCliquear@
      FinEval
    FinEval
    Crear A7
    Eval A7
      .Padre = EsteObjeto
      .X=0
      .Y=24
      .Ancho=25
      .Alto=25
      .Texto="7"
      .Visible=Verd
      .Habilitado=Verd
      Eval .Eventos
        .AlCliquear@=f0_A7_AlCliquear@
      FinEval
    FinEval
    Crear A8
    Eval A8
      .Padre = EsteObjeto
      .X=24
      .Y=24
      .Ancho=25
      .Alto=25
      .Texto="8"
      .Visible=Verd
      .Habilitado=Verd
      Eval .Eventos
        .AlCliquear@=f0_A8_AlCliquear@
      FinEval
    FinEval
    Crear A4
    Eval A4
      .Padre = EsteObjeto
      .X=0
      .Y=48
      .Ancho=25
      .Alto=25
      .Texto="4"
      .Visible=Verd
      .Habilitado=Verd
      Eval .Eventos
        .AlCliquear@=f0_A4_AlCliquear@
      FinEval
    FinEval
    Crear A1
    Eval A1
      .Padre = EsteObjeto
      .X=0
      .Y=72
      .Ancho=25
      .Alto=25
      .Texto="1"
      .Visible=Verd
      .Habilitado=Verd
      Eval .Eventos
        .AlCliquear@=f0_A1_AlCliquear@
      FinEval
    FinEval
    Crear A5
    Eval A5
      .Padre = EsteObjeto
      .X=24
      .Y=48
      .Ancho=25
      .Alto=25
      .Texto="5"
      .Visible=Verd
      .Habilitado=Verd
      Eval .Eventos
        .AlCliquear@=f0_A5_AlCliquear@
      FinEval
    FinEval
  FinProc
Público:
  Proc CargarForm
    Si (hWnd=0)
      Init
      miText.CargarCajaTexto(hWnd)
      menos.CargarBoton(hWnd)
      multiplicacion.CargarBoton(hWnd)
      divicion.CargarBoton(hWnd)
      A3.CargarBoton(hWnd)
      A2.CargarBoton(hWnd)
      mas.CargarBoton(hWnd)
      AE.CargarBoton(hWnd)
      A6.CargarBoton(hWnd)
      A0.CargarBoton(hWnd)
      AP.CargarBoton(hWnd)
      A9.CargarBoton(hWnd)
      A7.CargarBoton(hWnd)
      A8.CargarBoton(hWnd)
      A4.CargarBoton(hWnd)
      A1.CargarBoton(hWnd)
      A5.CargarBoton(hWnd)
      FormCargado
    FinSi
  FinProc
  Proc Mostrar(Opcional EsModal:Booleano)
    CargarForm
    Si (EsModal) MostrarModalInt; SiNo; MostrarInt
  FinProc

'Eventos

  Proc menos_AlCliquear() Adelantado
  Proc multiplicacion_AlCliquear() Adelantado
  Proc divicion_AlCliquear() Adelantado
  Proc A3_AlCliquear() Adelantado
  Proc A2_AlCliquear() Adelantado
  Proc mas_AlCliquear() Adelantado
  Proc AE_AlCliquear() Adelantado
  Proc A6_AlCliquear() Adelantado
  Proc A0_AlCliquear() Adelantado
  Proc AP_AlCliquear() Adelantado
  Proc A9_AlCliquear() Adelantado
  Proc A7_AlCliquear() Adelantado
  Proc A8_AlCliquear() Adelantado
  Proc A4_AlCliquear() Adelantado
  Proc A1_AlCliquear() Adelantado
  Proc A5_AlCliquear() Adelantado

FinClase

'Alias

Proc f0_menos_AlCliquear()
  Form1.menos_AlCliquear()
FinProc
Proc f0_multiplicacion_AlCliquear()
  Form1.multiplicacion_AlCliquear()
FinProc
Proc f0_divicion_AlCliquear()
  Form1.divicion_AlCliquear()
FinProc
Proc f0_A3_AlCliquear()
  Form1.A3_AlCliquear()
FinProc
Proc f0_A2_AlCliquear()
  Form1.A2_AlCliquear()
FinProc
Proc f0_mas_AlCliquear()
  Form1.mas_AlCliquear()
FinProc
Proc f0_AE_AlCliquear()
  Form1.AE_AlCliquear()
FinProc
Proc f0_A6_AlCliquear()
  Form1.A6_AlCliquear()
FinProc
Proc f0_A0_AlCliquear()
  Form1.A0_AlCliquear()
FinProc
Proc f0_AP_AlCliquear()
  Form1.AP_AlCliquear()
FinProc
Proc f0_A9_AlCliquear()
  Form1.A9_AlCliquear()
FinProc
Proc f0_A7_AlCliquear()
  Form1.A7_AlCliquear()
FinProc
Proc f0_A8_AlCliquear()
  Form1.A8_AlCliquear()
FinProc
Proc f0_A4_AlCliquear()
  Form1.A4_AlCliquear()
FinProc
Proc f0_A1_AlCliquear()
  Form1.A1_AlCliquear()
FinProc
Proc f0_A5_AlCliquear()
  Form1.A5_AlCliquear()
FinProc


Var Form1:c_Form1

Proc CicloPrincipal
  Crear Form1
  Form1.CargarForm
  Form1.Mostrar
  Programa.Ejecutar
FinProc


'**************************************************

'Código de eventos y procedimientos
'definidos por el usuario

  Proc BorrarNodo(Referencia M[]:Cadena,nodo:Entero)
  Var nuevaMatrix[]:Cadena
  Var i:Entero
  Var y:Entero
  Var x:Entero
  Redim nuevaMatrix,Límite(M)+1;
  Contar i=0 a Límite(M)
  Si(y<>nodo)
  nuevaMatrix[x]=M[i];
  x=x+1;
  FinSi
  y=y+1;
  Seguir
  M=nuevaMatrix;
  FinProc



Proc InternalEval(Co:Cadena,Referencia p:Entero)
Si (Co="^") o (Co="*") o (Co="/") o (Co="+")
p=p+1
FinSi
FinProc



Proc EvalExp(text:Cadena,Opcional valor:Real):Real
Var Bloke1[]:Cadena
Var i,indice:Entero
text=Reemplazar(text,"x",RealCad(valor))
Redim Bloke1,cadlong(text)
indice=0


Contar i=1 a cadlong(text)
InternalEval(parteCad(text,i,1),indice)
bloke1[indice]=bloke1[indice]+parteCad(text,i,1);
InternalEval(parteCad(text,i,1),indice)
Seguir

    'Elevacion
    Contar i=0 a Límite(Bloke1)
    Si(Bloke1[i]="^")
    Bloke1[i-1]=RealCad(CadReal(Bloke1[i-1])^CadReal(Bloke1[i+1]))
    BorrarNodo(Bloke1,i);
    BorrarNodo(Bloke1,i);
    i=i-1;
    FinSi
    Seguir

    'Multiplicacion
    Contar i=0 a Límite(Bloke1)
    Si(Bloke1[i]="*")
    Bloke1[i-1]=RealCad(CadReal(Bloke1[i-1])*CadReal(Bloke1[i+1]))
    BorrarNodo(Bloke1,i);
    BorrarNodo(Bloke1,i);
    i=i-1;
    FinSi
    Seguir

  'Divicion
    Contar i=0 a Límite(Bloke1)
    Si(Bloke1[i]="/")
    Bloke1[i-1]=RealCad(CadReal(Bloke1[i-1])/CadReal(Bloke1[i+1]))
    BorrarNodo(Bloke1,i);
    BorrarNodo(Bloke1,i);
    i=i-1;
    FinSi
    Seguir

    'Suma
    Contar i=0 a Límite(Bloke1)
    Si(Bloke1[i]="+")
    Bloke1[i-1]=RealCad(CadReal(Bloke1[i-1])+CadReal(Bloke1[i+1]))
    BorrarNodo(Bloke1,i);
    BorrarNodo(Bloke1,i);
    i=i-1;
    FinSi
    Seguir



    Devolver cadReal(Bloke1[0])
    FinProc




Proc c_Form1.menos_AlCliquear()
miText.texto=(miText.texto+menos.texto);
FinProc

Proc c_Form1.multiplicacion_AlCliquear()
miText.texto=(miText.texto+multiplicacion.texto);
FinProc

Proc c_Form1.divicion_AlCliquear()
miText.texto=(miText.texto+divicion.texto);
FinProc


Proc c_Form1.mas_AlCliquear()
miText.texto=(miText.texto+mas.texto);
FinProc

Proc c_Form1.AE_AlCliquear()
miText.texto=RealCad(EvalExp(miText.texto,3.14));
FinProc




Proc c_Form1.AP_AlCliquear()
miText.texto=(miText.texto+AP.texto);
FinProc



Proc c_Form1.A0_AlCliquear()
miText.texto=(miText.texto+A0.texto);
FinProc

Proc c_Form1.A1_AlCliquear()
miText.texto=(miText.texto+A1.texto);
FinProc




Proc c_Form1.A2_AlCliquear()
miText.texto=(miText.texto+A2.texto);
FinProc

Proc c_Form1.A3_AlCliquear()
miText.texto=(miText.texto+A3.texto);
FinProc

Proc c_Form1.A4_AlCliquear()
miText.texto=(miText.texto+A4.texto);
FinProc



Proc c_Form1.A5_AlCliquear()
miText.texto=(miText.texto+A5.texto);
FinProc

Proc c_Form1.A6_AlCliquear()
miText.texto=(miText.texto+A6.texto);
FinProc

Proc c_Form1.A7_AlCliquear()
miText.texto=(miText.texto+A7.texto);
FinProc


Proc c_Form1.A8_AlCliquear()
miText.texto=(miText.texto+A8.texto);
FinProc

Proc c_Form1.A9_AlCliquear()
miText.texto=(miText.texto+A8.texto);
FinProc

CicloPrincipal
Fin
Segados por la voz de la inesperiencia nos arrastramos
Sin penzar a lomos del desierto asia las cavernas la huellas del peregrino me giaran.
Sadic
 
Mensajes: 115
Registrado: Mié Nov 21, 2007 7:25 pm
Ubicación: 23824 villa vista DR Orlando Florida

Sponsor






Re: Calcladora Basica

Notapor verlene » Lun Jul 29, 2019 7:22 am

audiobookkeepercottageneteyesvisioneyesvisionsfactoringfeefilmzonesgadwallgaffertapegageboardgagrulegallductgalvanometricgangforemangangwayplatformgarbagechutegardeningleavegascauterygashbucketgasreturngatedsweepgaugemodelgaussianfiltergearpitchdiameter
geartreatinggeneralizedanalysisgeneralprovisionsgeophysicalprobegeriatricnursegetintoaflapgetthebouncehabeascorpushabituatehackedbolthackworkerhadronicannihilationhaemagglutininhailsquallhairyspherehalforderfringehalfsiblingshallofresidencehaltstatehandcodinghandportedheadhandradarhandsfreetelephone
hangonparthaphazardwindinghardalloyteethhardasironhardenedconcreteharmonicinteractionhartlaubgoosehatchholddownhaveafinetimehazardousatmosphereheadregulatorheartofgoldheatageingresistanceheatinggasheavydutymetalcuttingjacketedwalljapanesecedarjibtypecranejobabandonmentjobstressjogformationjointcapsulejointsealingmaterial
journallubricatorjuicecatcherjunctionofchannelsjusticiablehomicidejuxtapositiontwinkaposidiseasekeepagoodoffingkeepsmthinhandkentishglorykerbweightkerrrotationkeymanassurancekeyserumkickplatekillthefattedcalfkilowattsecondkingweakfishkinozoneskleinbottlekneejointknifesethouseknockonatomknowledgestate
kondoferromagnetlabeledgraphlaborracketlabourearningslabourleasinglaburnumtreelacingcourselacrimalpointlactogenicfactorlacunarycoefficientladletreatedironlaggingloadlaissezallerlambdatransitionlaminatedmateriallammasshootlamphouselancecorporallancingdielandingdoorlandmarksensorlandreformlanduseratio
languagelaboratorylargeheartlasercalibrationlaserlenslaserpulselatereventlatrinesergeantlayaboutleadcoatingleadingfirmlearningcurveleavewordmachinesensiblemagneticequatormagnetotelluricfieldmailinghousemajorconcernmammasdarlingmanagerialstaffmanipulatinghandmanualchokemedinfobooksmp3lists
nameresolutionnaphtheneseriesnarrowmouthednationalcensusnaturalfunctornavelseedneatplasternecroticcariesnegativefibrationneighbouringrightsobjectmoduleobservationballoonobstructivepatentoceanminingoctupolephononofflinesystemoffsetholderolibanumresinoidonesticketpackedspherespagingterminalpalatinebonespalmberry
papercoatingparaconvexgroupparasolmonoplaneparkingbrakepartfamilypartialmajorantquadruplewormqualityboosterquasimoneyquenchedsparkquodrecuperetrabbetledgeradialchaserradiationestimatorrailwaybridgerandomcolorationrapidgrowthrattlesnakemasterreachthroughregionreadingmagnifierrearchainrecessionconerecordedassignment
rectifiersubstationredemptionvaluereducingflangereferenceantigenregeneratedproteinreinvestmentplansafedrillingsagprofilesalestypeleasesamplingintervalsatellitehydrologyscarcecommodityscrapermatscrewingunitseawaterpumpsecondaryblocksecularclergyseismicefficiencyselectivediffusersemiasphalticfluxsemifinishmachiningspicetradespysale
stunguntacticaldiametertailstockcentertamecurvetapecorrectiontappingchucktaskreasoningtechnicalgradetelangiectaticlipomatelescopicdampertemperateclimatetemperedmeasuretenementbuildingultramaficrockultraviolettesting
verlene
 
Mensajes: 73886
Registrado: Sab Abr 20, 2019 2:35 am

Re: Calcladora Basica

Notapor verlene » Lun Ago 05, 2019 9:14 am

инфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфо
инфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфо
инфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфо
инфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинйоинфоинфоинфоинфоинфо
инфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфо
инфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфо
инфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфо
инфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфо
инфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфо
инфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфоинфо
verlene
 
Mensajes: 73886
Registrado: Sab Abr 20, 2019 2:35 am

Re: Calcladora Basica

Notapor verlene » Mié Oct 09, 2019 9:53 am

сайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайт
сайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайт
сайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайт
сайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайт
сайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайт
сайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайт
сайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайт
сайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайт
сайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайт
сайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайт
verlene
 
Mensajes: 73886
Registrado: Sab Abr 20, 2019 2:35 am

Re: Calcladora Basica

Notapor Erjan » Mar Nov 12, 2019 9:25 am

da
Erjan
 
Mensajes: 9
Registrado: Mié May 22, 2019 3:57 pm


Volver a Código Abierto

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 2 invitados

cron