Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Call Befehl?
Autor: thomasd3
Datum: 12.03.08 09:33
Hallo wie ihr seht möchte ich eine Dezimalezahl via Command1_Click in eine Binärzahl umrechnen lassen. Ich möchte, dass die dezimale Zahl, die in Text1 ausgegeben wird und in der Private function Dec2Bin umgerechnet wird, in ein zweitem Textfenster dargestellt wird. Dieses sollte automatisch ohne einen weiteren Command_Click Botton erfolgen. Ist es mit dem Call-Befehl möglich? Wo setze ich diesen ein und wo muss ich den Befehl für das zweite Textfenster einbringen. Vielen,vielen Dank im Voraus Private Sub Command1_Click() Dim binär1 As Long, binär2 As Long, erg As Long, zahl As Long If Check1.Value = 1 Then binär1 = hexazahl - 2 ^ 15 End If If Check2.Value = 1 Then binär2 = hexazahl + 2 ^ 14 End If erg = Add(binär1, binär2) Text1 = erg End Sub Private Function Add(x As Long, y As Long) As Long Add = x + y End Function Private Function Dec2Bin(ByVal Dec As Long) As String ' Von Dezimal in Binaer Dim Rest As Long Do Rest = Dec Mod 2 ' Den Rest bei einer Division durch 2 errechnen Dec2Bin = Rest & Dec2Bin ' Rest und bishereige Binaer Zahl zusammentun Dec = Dec \ 2 ' Dezimal Zahl durch 2 Teilen Loop Until Dec = 0 ' Solange bis Dezimal-Zahl = 0 ist End Function

Call Befehl?	3.384	thomasd3	12.03.08 09:33
Re: Call Befehl?	1.401	Shinichi	12.03.08 10:36
Re: Call Befehl?	1.027	Shinichi	12.03.08 10:49

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen