CALCULADORA EM NUMEROS ROMANOS

 Tópico anterior Próximo tópico Novo tópico

CALCULADORA EM NUMEROS ROMANOS

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#240 - 08/12/2003 18:42:59

USUARIO.EXCLUIDOS

Cadast. em:


Pessoal,
A preguia tanta aqui nesse corpo que resolvi postar aqui, para ver se algum de vcs tem o cdigo-fonte de uma calculadora em romano... uma prova de lgica de programao, e eu to com uma baita preguia, hehehe... Fiz o cdigo uma vez, e beeeeeem mais complicado que uma calculadora normal, porque se no me engano no pode ser com matriz de objeto, ams acabei formatando o meu HD e SEM backup... algum tem?



Resposta escolhida #249 - 08/12/2003 20:32:33

CAJU
FORTALEZA
Cadast. em:Dezembro/2003


tenho um codigo que converte nmeros arabico para romanos


'A funo abaixo converte nmeros para romanos

'Autor: Traduzido do C para o VB por Adam Brinley Codd adamjbc@softhome.net

Public Function ConvertRomanos(Numero As Integer) As String
    Dim arabic(12) As Integer, roman(12) As String
    Dim i As Integer, out As String

    arabic(0) = 1000
    arabic(1) = 900
    arabic(2) = 500
    arabic(3) = 400
    arabic(4) = 100
    arabic(5) = 90
    arabic(6) = 50
    arabic(7) = 40
    arabic(8) = 10
    arabic(9) = 9
    arabic(10) = 5
    arabic(11) = 4
    arabic(12) = 1
    roman(0) = "M"
    roman(1) = "CM"
    roman(2) = "D"
    roman(3) = "CD"
    roman(4) = "C"
    roman(5) = "XC"
    roman(6) = "L"
    roman(7) = "XL"
    roman(8) = "X"
    roman(9) = "IX"
    roman(10) = "V"
    roman(11) = "IV"
    roman(12) = "I"

    i = 0

    Do While Numero
        Do While Numero = arabic(i)
            Numero = Numero - arabic(i)
            out = out + roman(i)
        Loop
        i = i + 1
    Loop

    ConvertRomanos = out

End Function


T+,
Caju

#250 - 08/12/2003 20:33:38

CAJU
FORTALEZA
Cadast. em:Dezembro/2003


Do While Numero
       Do While Numero Maior= arabic(i)
         Numero = Numero - arabic(i)
         out = out + roman(i)
         Loop
i = i + 1
Loop



T+,
Caju

 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por WEBMASTER em 18/08/2009 10:03:45