Thema Datum  Von Nutzer Rating
Antwort
Rot Umrechnung von Dezimal in Binär und umgekehrt
19.05.2020 19:09:17 Mike
NotSolved
19.05.2020 19:36:36 Gast34118
NotSolved

Ansicht des Beitrags:
Von:
Mike
Datum:
19.05.2020 19:09:17
Views:
45
Rating: Antwort:
  Ja
Thema:
Umrechnung von Dezimal in Binär und umgekehrt

Hallo liebe Forums Gemeinde.

Ich leide unter vielfältigen Problemen und hoffe bei euch Hilfe zu finden. Ich programmiere VBA seit ca 5 Wochen und bin absoluter Amateur. Ich versuche folgende Aufgaben zu lösen.

1. Ein Programm das die Eingabe von Dezimalzahlen ermöglicht und danach die umgerechnete Binärzahl ausgibt ( Variabeln Deklaration mit dem Typ Long)

2. Ein Programm das die Eingabe von Binärzahlen ermöglicht und danach die umgerechnete Dezimalzahl ausgbit  ( Variabeln Deklaration mit dem Typ Long)                     

3. Ein Programm das die Eingabe von Dezimalzahlen ermöglicht und danach die umgerechnete Binärzahl ausgibt ( Variabeln Deklaration mit dem Typ String)

4. Ein Programm das die Eingabe von Binärzahlen ermöglicht und danach die umgerechnete Dezimalzahl ausgbit  ( Variabeln Deklaration mit dem Typ String)    

 

Zu zwei habe ich folgende funktionierende Lösung ;

Option Explicit
 
Sub dual2dez()
 
Dim bin, dez As Long
 
Dim e As Integer
 
bin = InputBox("Eingabe Binärzahl")
 
e = 0
 
Do While bin > 0
        
        dez = dez + (bin Mod 10) * 2 ^ e
        
        e = e + 1
        
        bin = bin / 10
    
    Loop
 
 
MsgBox (dez)
 
End Sub
 
 
Im Rahmen der ersten Aufgabe ist mir nicht direkt offensichtlich wie ich das Programm ändern muss um die Umrechnung durchzuführen.
 
Bei Aufgabe 3 bzw. 4 soll mit dem Typen String gerechnet werden 
 
Sub Dez2Dual()
 
Dim dez As String    'dezimalteil
Dim bin As String     'binärteil
Dim e As Integer
 
führt allerding zu einem Fehler 13 Typen unverträglichkeit 
 
 
LG aus Dortmund 

 

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • 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
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Umrechnung von Dezimal in Binär und umgekehrt
19.05.2020 19:09:17 Mike
NotSolved
19.05.2020 19:36:36 Gast34118
NotSolved