Convertire un numero da rappresentazione ottale in decimale

Da Gambas-it.org - Wikipedia.

Per convertire un numero, espresso in formato a rappresentazione ottale, nella corrispondente rappresentazione decimale, bisogna moltiplicare le cifre del numero ottale per le potenze decrescenti di 8, e successivamente sommare i risultati.

Convertiamo, per esempio il numero ottale 123 nel corrispondente decimale:

(1 * 82) + (2 * 81) + (3 * 80) =

= (1 * 64) + (2 * 8) + (3 * 1) =
 
= 64 + 16 + 3 =

=  83


Per ottenere la conversione in Gambas potremo utilizzare questo codice: |1|

Public Sub Button1_Click()  

 Dim a As String  
 Dim b, i, InteroFinale As Integer  
 Dim Esponente, crt As Integer


  a = InputBox("Immetti un numero in formato ottale:") 
   
  For b = Len(a) To 1 Step -1  
  
    crt = Int(Val(Mid(a, b, 1)))  
    i = crt * 8 ^ Esponente  
    Esponente += 1  
    InteroFinale += i  
   
  Next  
 
  Print InteroFinale

End