|
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
|