*

Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Pagina's: 1 [2]   Omlaag

Auteur Topic: Decimaal naar hexadecimaal  (gelezen 9587 keer)

0 leden en 1 gast bekijken dit topic.

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.181
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: Decimaal naar hexadecimaal
« Reactie #15 Gepost op: 24 september 2007, 17:37:16 »
En dit is hoe een amateurke het doet...  ;D

Code: [Selecteer]
Sub Macro1()

   Dim binaantal, binreeks, bin, a, b, i, c, som
   binreeks = "100100001011"
   binaantal = Len(binreeks)
   c = 1
   For i = 0 To binaantal - 1
   a = Mid(binreeks, binaantal - i, 1)
   If i = 0 Then
   c = 1
   Else
   c = c * 2
   End If
   b = a * c
   GoSub optel
   Next
   Exit Sub
optel:
   som = som + b
   MsgBox som, vbOKOnly
   Return

End Sub
Elegant is het niet, maar het werkt, hé....  :-[ ;D

:) SoftAid :)       
Gelogd
Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.280
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: Decimaal naar hexadecimaal
« Reactie #16 Gepost op: 24 september 2007, 17:52:58 »
Nou... Dan  zet ik de mijne d'r ook nog maar ff bij... ;D
Code: [Selecteer]
Function MaakDecimaal(Waarde1)
'haal het decimaal getal uit een binaire waarde
Dim i As Integer
Dim Telling As Integer
Dim Macht As Integer

    Macht = 2 ^ (Len(Waarde1) - 1)
   
    For i = 1 To Len(Waarde1)
        Resultaat = Mid(Waarde1, i, 1)
        Telling = (Resultaat * Macht) + Telling
        Macht = Macht / 2
    Next i
       
    MaakDecimaal = Telling

End Function

Groet, Leo
Gelogd
______________________________

Groet, Leo

Offline Diezel

  • Oplosser
  • ****
  • Berichten: 508
  • Geslacht: Man
  • Meedenker - Initiatief nemen - Helpen oplossen...
Re: Decimaal naar hexadecimaal
« Reactie #17 Gepost op: 24 september 2007, 18:28:16 »
Allen goed gewerkt naar het meezoeken en vooral de verschillende methodes die werden gebruikt.

Diezel
Gelogd
OS: Windows 10 Home - 64 bit
Processor:  Intel(R) Core(TM) I7 - 4770 CPU 3,40 GHZ
SSD - RAM: 500 GB, 16 GB
SOFTWAREPAKKET: Office 2007
Pagina's: 1 [2]   Omhoog
 


www.combell.com