Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
124to128
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
124to128
124to128
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Programmanzeigen lassen

Programmanzeigen lassen
31.05.2002 02:32:27
Stefan
Wie mache ich es möglich, folgende Module im Direktfenster ausgeben zu lassen. Was muss ich an den Anfang und an das Ende schreiben damit folgende Module im Direktfenster ausgegeben werden.

Function DezimalNachBinär(Zahl As Double) As String
Dim Losgehts As Boolean
Dim Ausgabe As String
Dim Exp As Long
If Zahl <= (2 ^ 31) - 1 And Zahl = Int(Zahl) Then
For Exp = 30 To 0 Step -1
If Zahl >= (2 ^ Exp) Then
Ausgabe = Ausgabe & "1"
Zahl = Zahl - (2 ^ Exp)
Losgehts = True
Else
If Losgehts = True Then
Ausgabe = Ausgabe & "0"
End If
End If
Next Exp
Else
Ausgabe = "Sorry, geht nur bis 2.147.483.647"
End If
DezimalNachBinär = Ausgabe
End Function

oder dieses Programm:

Function vDecimalToBinary( _
ByVal lDecimal As Long, _
Optional ByVal bReturnArray As Boolean = False, _
Optional ByVal b32Bit As Boolean = False) As Variant
Const l16_BITS As Long = 15
Const l32_BITS As Long = 31

Dim dPlaceArray() As Double
Dim lCount As Long
Dim lNumBits As Long
Dim lReturn() As Long
Dim szReturn As String
If b32Bit Then lNumBits = l32_BITS Else lNumBits = l16_BITS
ReDim dPlaceArray(0 To lNumBits)
ReDim lReturn(0 To lNumBits)
For lCount = LBound(dPlaceArray) To UBound(dPlaceArray)
dPlaceArray(lCount) = 2 ^ lCount
Next lCount
For lCount = UBound(dPlaceArray) To LBound(dPlaceArray) Step -1

If CBool(dPlaceArray(lCount) And lDecimal) Then
If bReturnArray Then
lReturn(lCount) = 1
Else
szReturn = szReturn & Chr$(49)
End If
Else
If bReturnArray Then
lReturn(lCount) = 0
Else
szReturn = szReturn & Chr$(48)
End If
End If

Next lCount

If bReturnArray Then
vDecimalToBinary = lReturn()
Else
vDecimalToBinary = szReturn
End If

End Function

Ich bedanke mich im voraus.

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Programmanzeigen lassen
31.05.2002 08:19:25
Hans W. Herber
Hallo Stefan,

ersetze "Ausgabe" durch "Debug.Print" oder schreibe den Wert der Variablen Ausgabe in Debug.Print.

hans

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige