Enteros a # Romanos

Aplicaciones de código fuente abierto para descargar

Enteros a # Romanos

Notapor Joe » Mié Nov 26, 2008 6:49 pm

Un pequeño codigo que sirve para convertir enteros a numeros romanos:

Código: Seleccionar todo
$ADV-

Importar "PauscalW.prp"



Clase c_Form1(pscForm)
Público:

  ClaseVar _
    Go:pscBoton, _
    Salida:pscEtiqueta, _
    Entrada:pscCajaTexto

Privado:
  Proc Init
    X=0
    Y=0
    Ancho=307
    Alto=171
    Texto="Numeros Enteros a Numeros Romanos"
    Visible=Verd
    Habilitado=Verd
    PuedeCambiarDeTamaño=Verd
    BotonMaximizar=Verd
    BotonMinimizar=Verd
    MenuSistema=Verd
    Centrar=Verd
    Borde=Verd
    Eval Eventos
    FinEval
    CrearForm
    Crear Go
    Eval Go
      .Padre = EsteObjeto
      .X=102
      .Y=68
      .Ancho=100
      .Alto=25
      .Texto="Convertir"
      .Visible=Verd
      .Habilitado=Verd
      .Fuente.Tamaño=9
      Eval .Eventos
        .AlCliquear@=f0_Go_AlCliquear@
      FinEval
    FinEval
    Crear Salida
    Eval Salida
      .Padre = EsteObjeto
      .X=8
      .Y=108
      .Ancho=284
      .Alto=26
      .Visible=Verd
      .Habilitado=Verd
      .Fuente.Nombre="Courier"
      .Fuente.Tamaño=16
      Eval .Eventos
      FinEval
    FinEval
    Crear Entrada
    Eval Entrada
      .Padre = EsteObjeto
      .X=102
      .Y=34
      .Ancho=100
      .Alto=22
      .Texto="2008"
      .Visible=Verd
      .Habilitado=Verd
      .Fuente.Tamaño=9
      Eval .Eventos
      FinEval
    FinEval
  FinProc
Público:
  Proc CargarForm
    Si (hWnd=0)
      Init
      Go.CargarBoton(hWnd)
      Salida.CargarEtiqueta(hWnd)
      Entrada.CargarCajaTexto(hWnd)
      FormCargado
    FinSi
  FinProc
  Proc Mostrar(Opcional EsModal:Booleano)
    CargarForm
    Si (EsModal) MostrarModalInt; SiNo; MostrarInt
  FinProc

'Eventos

  Proc Go_AlCliquear() Adelantado
  Proc EnteroaRomano(Valor:Entero):Cadena Adelantado

FinClase

'Alias

Proc f0_Go_AlCliquear()
  Form1.Go_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 c_Form1.Go_AlCliquear()
Salida.Texto = EnteroaRomano(CadEnt(Entrada.Texto))
FinProc

Proc c_Form1.EnteroaRomano(Valor:Entero):Cadena
Var Numeros[]:Entero, Romanos[]:Cadena, i, Tmp:Entero

Redim Numeros , 14
Redim Romanos , 14

Numeros[0] = 0
Numeros[1] = 1
Numeros[2] = 4
Numeros[3] = 5
Numeros[4] = 9
Numeros[5] = 10
Numeros[6] = 40
Numeros[7] = 50
Numeros[8] = 90
Numeros[9] = 100
Numeros[10] = 400
Numeros[11] = 500
Numeros[12] = 900
Numeros[13] = 1000

Romanos[0] = " "
Romanos[1] = "I"
Romanos[2] = "IV"
Romanos[3] = "V"
Romanos[4] = "IX"
Romanos[5] = "X"
Romanos[6] = "XL"
Romanos[7] = "L"
Romanos[8] = "XC"
Romanos[9] = "C"
Romanos[10] = "CD"
Romanos[11] = "D"
Romanos[12] = "CM"
Romanos[13] = "M"

Tmp = Valor

Resultado = "" 
Contar i = 13 a 1 dec
  Mientras (Tmp >= Numeros[i])
    Tmp       = Tmp     - Numeros[i] 
    Resultado = Resultado + Romanos[i] 
  FinMientras
Seguir
FinProc


CicloPrincipal
Fin
La Hora 10 esta cerca. Haz el bien, haz lo que mas te gusta, por que a partir de alli todo cambiará
Joe
 
Mensajes: 130
Registrado: Mar Nov 20, 2007 11:55 pm

Sponsor


Re: Enteros a # Romanos

Notapor Pauscal » Sab Nov 29, 2008 8:22 pm

Muy bueno Joe! No crean que es algo tan fácil como suena.. ;-)
Si este proyecto te parece útil, aceptamos donaciones en Bitcoins: 1FdnaaQyVDqmhsJZw9gk41M3zUsJrDY7Hj
Pauscal
Jefe
 
Mensajes: 439
Registrado: Mar Nov 20, 2007 9:41 pm
Ubicación: Paraná, Entre Ríos, Argentina

Re: Enteros a # Romanos

Notapor ErikH » Lun Dic 01, 2008 7:52 pm

pguerra escribiste:Muy bueno Joe! No crean que es algo tan fácil como suena.. ;-)


Si, si es facil :lol: :lol: :lol: :lol:
Es broma (=pp)

Excelente demo Joe 8-)
ImagenEntrá a la wiki en OpenShift
Colofox!!!!
ErikH
 
Mensajes: 151
Registrado: Jue Nov 29, 2007 11:24 pm
Ubicación: Algún lugar de México

Re: Enteros a # Romanos

Notapor lukasg » Sab Dic 06, 2008 6:59 pm

Muy bueno! :P
lukasg
 
Mensajes: 129
Registrado: Mié Nov 21, 2007 9:41 am
Ubicación: Santa Fe, Argentina


Re: Enteros a # Romanos

Notapor verlene » Jue May 30, 2019 12:48 am

verlene
 
Mensajes: 73881
Registrado: Sab Abr 20, 2019 2:35 am

Re: Enteros a # Romanos

Notapor verlene » Lun Jun 24, 2019 7:33 am

verlene
 
Mensajes: 73881
Registrado: Sab Abr 20, 2019 2:35 am


Re: Enteros a # Romanos

Notapor verlene » Lun Jul 29, 2019 12:58 am

http://audiobookkeeper.ruhttp://cottagenet.ruhttp://eyesvision.ruhttp://eyesvisions.comhttp://factoringfee.ruhttp://filmzones.ruhttp://gadwall.ruhttp://gaffertape.ruhttp://gageboard.ruhttp://gagrule.ruhttp://gallduct.ruhttp://galvanometric.ruhttp://gangforeman.ruhttp://gangwayplatform.ruhttp://garbagechute.ruhttp://gardeningleave.ruhttp://gascautery.ruhttp://gashbucket.ruhttp://gasreturn.ruhttp://gatedsweep.ruhttp://gaugemodel.ruhttp://gaussianfilter.ruhttp://gearpitchdiameter.ru
http://geartreating.ruhttp://generalizedanalysis.ruhttp://generalprovisions.ruhttp://geophysicalprobe.ruhttp://geriatricnurse.ruhttp://getintoaflap.ruhttp://getthebounce.ruhttp://habeascorpus.ruhttp://habituate.ruhttp://hackedbolt.ruhttp://hackworker.ruhttp://hadronicannihilation.ruhttp://haemagglutinin.ruhttp://hailsquall.ruhttp://hairysphere.ruhttp://halforderfringe.ruhttp://halfsiblings.ruhttp://hallofresidence.ruhttp://haltstate.ruhttp://handcoding.ruhttp://handportedhead.ruhttp://handradar.ruhttp://handsfreetelephone.ru
http://hangonpart.ruhttp://haphazardwinding.ruhttp://hardalloyteeth.ruhttp://hardasiron.ruhttp://hardenedconcrete.ruhttp://harmonicinteraction.ruhttp://hartlaubgoose.ruhttp://hatchholddown.ruhttp://haveafinetime.ruhttp://hazardousatmosphere.ruhttp://headregulator.ruhttp://heartofgold.ruhttp://heatageingresistance.ruhttp://heatinggas.ruhttp://heavydutymetalcutting.ruhttp://jacketedwall.ruhttp://japanesecedar.ruhttp://jibtypecrane.ruhttp://jobabandonment.ruhttp://jobstress.ruhttp://jogformation.ruhttp://jointcapsule.ruhttp://jointsealingmaterial.ru
http://journallubricator.ruhttp://juicecatcher.ruhttp://junctionofchannels.ruhttp://justiciablehomicide.ruhttp://juxtapositiontwin.ruhttp://kaposidisease.ruhttp://keepagoodoffing.ruhttp://keepsmthinhand.ruhttp://kentishglory.ruhttp://kerbweight.ruhttp://kerrrotation.ruhttp://keymanassurance.ruhttp://keyserum.ruhttp://kickplate.ruhttp://killthefattedcalf.ruhttp://kilowattsecond.ruhttp://kingweakfish.ruhttp://kinozones.ruhttp://kleinbottle.ruhttp://kneejoint.ruhttp://knifesethouse.ruhttp://knockonatom.ruhttp://knowledgestate.ru
http://kondoferromagnet.ruhttp://labeledgraph.ruhttp://laborracket.ruhttp://labourearnings.ruhttp://labourleasing.ruhttp://laburnumtree.ruhttp://lacingcourse.ruhttp://lacrimalpoint.ruhttp://lactogenicfactor.ruhttp://lacunarycoefficient.ruhttp://ladletreatediron.ruhttp://laggingload.ruhttp://laissezaller.ruhttp://lambdatransition.ruhttp://laminatedmaterial.ruhttp://lammasshoot.ruhttp://lamphouse.ruhttp://lancecorporal.ruhttp://lancingdie.ruhttp://landingdoor.ruhttp://landmarksensor.ruhttp://landreform.ruhttp://landuseratio.ru
http://languagelaboratory.ruhttp://largeheart.ruhttp://lasercalibration.ruhttp://laserlens.ruhttp://laserpulse.ruhttp://laterevent.ruhttp://latrinesergeant.ruhttp://layabout.ruhttp://leadcoating.ruhttp://leadingfirm.ruhttp://learningcurve.ruhttp://leaveword.ruhttp://machinesensible.ruhttp://magneticequator.ruhttp://magnetotelluricfield.ruhttp://mailinghouse.ruhttp://majorconcern.ruhttp://mammasdarling.ruhttp://managerialstaff.ruhttp://manipulatinghand.ruhttp://manualchoke.ruhttp://medinfobooks.ruhttp://mp3lists.ru
http://nameresolution.ruhttp://naphtheneseries.ruhttp://narrowmouthed.ruhttp://nationalcensus.ruhttp://naturalfunctor.ruhttp://navelseed.ruhttp://neatplaster.ruhttp://necroticcaries.ruhttp://negativefibration.ruhttp://neighbouringrights.ruhttp://objectmodule.ruhttp://observationballoon.ruhttp://obstructivepatent.ruhttp://oceanmining.ruhttp://octupolephonon.ruhttp://offlinesystem.ruhttp://offsetholder.ruhttp://olibanumresinoid.ruhttp://onesticket.ruhttp://packedspheres.ruhttp://pagingterminal.ruhttp://palatinebones.ruhttp://palmberry.ru
http://papercoating.ruhttp://paraconvexgroup.ruhttp://parasolmonoplane.ruhttp://parkingbrake.ruhttp://partfamily.ruhttp://partialmajorant.ruhttp://quadrupleworm.ruhttp://qualitybooster.ruhttp://quasimoney.ruhttp://quenchedspark.ruhttp://quodrecuperet.ruhttp://rabbetledge.ruhttp://radialchaser.ruhttp://radiationestimator.ruhttp://railwaybridge.ruhttp://randomcoloration.ruhttp://rapidgrowth.ruhttp://rattlesnakemaster.ruhttp://reachthroughregion.ruhttp://readingmagnifier.ruhttp://rearchain.ruhttp://recessioncone.ruhttp://recordedassignment.ru
http://rectifiersubstation.ruhttp://redemptionvalue.ruhttp://reducingflange.ruhttp://referenceantigen.ruhttp://regeneratedprotein.ruhttp://reinvestmentplan.ruhttp://safedrilling.ruhttp://sagprofile.ruhttp://salestypelease.ruhttp://samplinginterval.ruhttp://satellitehydrology.ruhttp://scarcecommodity.ruhttp://scrapermat.ruhttp://screwingunit.ruhttp://seawaterpump.ruhttp://secondaryblock.ruhttp://secularclergy.ruhttp://seismicefficiency.ruhttp://selectivediffuser.ruhttp://semiasphalticflux.ruhttp://semifinishmachining.ruhttp://spicetrade.ruhttp://spysale.ru
http://stungun.ruhttp://tacticaldiameter.ruhttp://tailstockcenter.ruhttp://tamecurve.ruhttp://tapecorrection.ruhttp://tappingchuck.ruhttp://taskreasoning.ruhttp://technicalgrade.ruhttp://telangiectaticlipoma.ruhttp://telescopicdamper.ruhttp://temperateclimate.ruhttp://temperedmeasure.ruhttp://tenementbuilding.ruhttp://ultramaficrock.ruhttp://ultraviolettesting.ru
verlene
 
Mensajes: 73881
Registrado: Sab Abr 20, 2019 2:35 am

Re: Enteros a # Romanos

Notapor verlene » Lun Ago 05, 2019 2:47 am

audiobookkeeper.rucottagenet.rueyesvision.rueyesvisions.comfactoringfee.rufilmzones.rugadwall.rugaffertape.rugageboard.rugagrule.rugallduct.rugalvanometric.rugangforeman.rugangwayplatform.rugarbagechute.rugardeningleave.rugascautery.rugashbucket.rugasreturn.rugatedsweep.rugaugemodel.rugaussianfilter.rugearpitchdiameter.ru
geartreating.rugeneralizedanalysis.rugeneralprovisions.rugeophysicalprobe.rugeriatricnurse.rugetintoaflap.rugetthebounce.ruhabeascorpus.ruhabituate.ruhackedbolt.ruhackworker.ruhadronicannihilation.ruhaemagglutinin.ruhailsquall.ruhairysphere.ruhalforderfringe.ruhalfsiblings.ruhallofresidence.ruhaltstate.ruhandcoding.ruhandportedhead.ruhandradar.ruhandsfreetelephone.ru
hangonpart.ruhaphazardwinding.ruhardalloyteeth.ruhardasiron.ruhardenedconcrete.ruharmonicinteraction.ruhartlaubgoose.ruhatchholddown.ruhaveafinetime.ruhazardousatmosphere.ruheadregulator.ruheartofgold.ruheatageingresistance.ruheatinggas.ruheavydutymetalcutting.rujacketedwall.rujapanesecedar.rujibtypecrane.rujobabandonment.rujobstress.rujogformation.rujointcapsule.rujointsealingmaterial.ru
journallubricator.rujuicecatcher.rujunctionofchannels.rujusticiablehomicide.rujuxtapositiontwin.rukaposidisease.rukeepagoodoffing.rukeepsmthinhand.rukentishglory.rukerbweight.rukerrrotation.rukeymanassurance.rukeyserum.rukickplate.rukillthefattedcalf.rukilowattsecond.rukingweakfish.rukinozones.rukleinbottle.rukneejoint.ruknifesethouse.ruknockonatom.ruknowledgestate.ru
kondoferromagnet.rulabeledgraph.rulaborracket.rulabourearnings.rulabourleasing.rulaburnumtree.rulacingcourse.rulacrimalpoint.rulactogenicfactor.rulacunarycoefficient.ruladletreatediron.rulaggingload.rulaissezaller.rulambdatransition.rulaminatedmaterial.rulammasshoot.rulamphouse.rulancecorporal.rulancingdie.rulandingdoor.rulandmarksensor.rulandreform.rulanduseratio.ru
languagelaboratory.rulargeheart.rulasercalibration.rulaserlens.rulaserpulse.rulaterevent.rulatrinesergeant.rulayabout.ruleadcoating.ruleadingfirm.rulearningcurve.ruleaveword.rumachinesensible.rumagneticequator.rumagnetotelluricfield.rumailinghouse.rumajorconcern.rumammasdarling.rumanagerialstaff.rumanipulatinghand.rumanualchoke.rumedinfobooks.rump3lists.ru
nameresolution.runaphtheneseries.runarrowmouthed.runationalcensus.runaturalfunctor.runavelseed.runeatplaster.runecroticcaries.runegativefibration.runeighbouringrights.ruobjectmodule.ruobservationballoon.ruobstructivepatent.ruoceanmining.ruoctupolephonon.ruofflinesystem.ruoffsetholder.ruolibanumresinoid.ruonesticket.rupackedspheres.rupagingterminal.rupalatinebones.rupalmberry.ru
papercoating.ruparaconvexgroup.ruparasolmonoplane.ruparkingbrake.rupartfamily.rupartialmajorant.ruquadrupleworm.ruqualitybooster.ruquasimoney.ruquenchedspark.ruquodrecuperet.rurabbetledge.ruradialchaser.ruradiationestimator.rurailwaybridge.rurandomcoloration.rurapidgrowth.rurattlesnakemaster.rureachthroughregion.rureadingmagnifier.rurearchain.rurecessioncone.rurecordedassignment.ru
rectifiersubstation.ruredemptionvalue.rureducingflange.rureferenceantigen.ruregeneratedprotein.rureinvestmentplan.rusafedrilling.rusagprofile.rusalestypelease.rusamplinginterval.rusatellitehydrology.ruscarcecommodity.ruscrapermat.ruscrewingunit.ruseawaterpump.rusecondaryblock.rusecularclergy.ruseismicefficiency.ruselectivediffuser.rusemiasphalticflux.rusemifinishmachining.ruspicetrade.ruspysale.ru
stungun.rutacticaldiameter.rutailstockcenter.rutamecurve.rutapecorrection.rutappingchuck.rutaskreasoning.rutechnicalgrade.rutelangiectaticlipoma.rutelescopicdamper.rutemperateclimate.rutemperedmeasure.rutenementbuilding.ruultramaficrock.ruultraviolettesting.ru
verlene
 
Mensajes: 73881
Registrado: Sab Abr 20, 2019 2:35 am

Siguiente

Volver a Código Abierto

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 1 invitado