Thema Datum  Von Nutzer Rating
Antwort
Rot Zahlenumwandlung Dezimal in Hexadezimal
 19.07.2011 18:37:36 Jeff
NotSolved
19.07.2011 21:00:48 Dekor
Solved
19.07.2011 21:55:25 Gast34124
NotSolved
20.07.2011 12:09:53 Dekor
NotSolved

Ansicht des Beitrags:
Von:
Jeff		 Datum:
19.07.2011 18:37:36		 Views:
1839		 Rating:
     
Antwort:
  Ja
Thema:
Zahlenumwandlung Dezimal in Hexadezimal

Hi Leute,

ich schreib morgen eine Info-Prüfung und wollte mal ein kleines Programm zur Zahlenumwandlung schreiben. Habs schonmal hinbekommen vor einiger Zeit...

Kann jemand einen Fehler erkennen?  Auf jeden Fall läuft etwas beim aufsummieren der einzelnen Ziffern falsch.

Danke im Vorraus.

 

Option Explicit


Sub HextoDec()

Dim Hex As Integer
Dim i As Integer
Dim Teilwert As Double
Dim Restwert As Integer
Dim Ziffer As String
Dim Ergebnis As String

Hex = InputBox("Hexadezimalzahl")

Do Until Teilwert = 0

Teilwert = Hex \ 16
Restwert = Hex Mod 16

    If Restwert <= 9 Then
        Ziffer = Restwert
    ElseIf Restwert >= 10 And Restwert <= 15 Then
        Ziffer = Chr("A") - 55
    End If

Ziffer = Ergebnis
Ergebnis = & Ergebnis

Hex = Teilwert

Loop

MsgBox "Die Hexadezimalzahl lautet: " & Ergebnis

End Sub

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Zahlenumwandlung Dezimal in Hexadezimal
 19.07.2011 18:37:36 Jeff
NotSolved
19.07.2011 21:00:48 Dekor
Solved
19.07.2011 21:55:25 Gast34124
NotSolved
20.07.2011 12:09:53 Dekor
NotSolved