January 15, 2021, 05:55:17 PM

Author Topic: [bb] Base Conversion by Zenith [ 1+ years ago ]  (Read 402 times)

Offline BlitzBot

  • Jr. Member
  • **
  • Posts: 1
[bb] Base Conversion by Zenith [ 1+ years ago ]
« on: June 29, 2017, 12:28:40 AM »
Title : Base Conversion
Author : Zenith
Posted : 1+ years ago

Description : Great for converting strings that are binary or hex into dec

Code :
Code: BlitzBasic
  1. Function BaseConv$(var$,power)
  2.         Local hexa$="abcdef"
  3.         lenhex=Len(var$)
  4.         For x=0 To lenhex-1
  5.                 pnt$=Mid(var,lenhex-x,1)
  6.                 If pnt=>0 And pnt=<9
  7.                         v=pnt
  8.                 Else
  9.                         For i=0 To 5
  10.                                 If Lower(pnt)=Mid(hexa,i,1)
  11.                                         v=i+10
  12.                                         Exit
  13.                                 EndIf
  14.                         Next
  15.                 EndIf
  16.                 v=v*(power^x)
  17.                 n=n+v
  18.         Next
  19.         Return n
  20. End Function


Comments : none...

 

SimplePortal 2.3.6 © 2008-2014, SimplePortal