Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Umrechnen
Autor: kally
Datum: 11.10.01 11:05
Hai. Ich bin zwar nicht Lord aber das Folgende könnte Dir vielleicht helfen: Erstelle zuerst: +Buttons (alle mit der Eigenschaft .enalbled = false) -command1(Dezimal in Bin) -command2(Bin in Dezimal) -command3(Dezimal in Hex) -command4(Hex in Dezimal) +Textbox -text1 Füge dann diesen Code ein: '##### Beginn Code 'Anmerkung: Hexadezimalzahlen müssen in der Form "&H" oder "&h" eingegeben werden Private Sub Command1_Click() 'Aufruf zum Umrechnen von Basis 10 zu Basis 2 Me.Text1.Text = Bin(Me.Text1.Text) End Sub Private Sub Command2_Click() 'Umrechnung von Basis 2 zur Basis 10 Dim Wert As Long Dim BinWert As String Dim i As Integer BinWert = Me.Text1.Text faktor = 2 For i = 0 To Len(BinWert) - 1 Wert = Wert + Mid(BinWert, Len(BinWert) - i, 1) * 2 ^ i Next i Me.Text1.Text = Wert End Sub Private Sub Command3_Click() 'Umrechnung von Basis 10 zur Basis 16 Me.Text1.Text = "&H" & CStr(Hex(Me.Text1.Text)) End Sub Private Sub Command4_Click() 'Umrechnung von Basis 16 zur Basis 10 Me.Text1.Text = Int(Me.Text1.Text) End Sub Private Sub Text1_Change() 'Hier werden die Buttons, die nicht benötigt werden deaktiviert Dim i As Integer Dim HelpBoolean As Boolean HelpBoolean = True If Me.Text1.Text = "" Or Not IsNumeric(Me.Text1.Text) Then HelpBoolean = False Me.Command1.Enabled = HelpBoolean Me.Command2.Enabled = HelpBoolean Me.Command3.Enabled = HelpBoolean Me.Command4.Enabled = HelpBoolean For i = 1 To Len(Me.Text1.Text) If Mid(Me.Text1.Text, i, 1) > 1 Then Me.Command2.Enabled = False Next i If Left(Me.Text1.Text, 2) = "&H" Or Left(Me.Text1.Text, 2) = "&h" Then Me.Command1.Enabled = False Me.Command2.Enabled = False Me.Command3.Enabled = False End If End Sub Function Bin(Wert As Integer) As String 'Umrechnung von Basis 10 zur Basis 2 Dim ergebnis, faktor As Long ergebnis = 0 faktor = 1 While Wert > 0 ergebnis = ergebnis + (Wert Mod 2) * faktor Wert = Wert - (Wert Mod 2) Wert = Wert - (Wert / 2) faktor = faktor * 10 Wend Bin = ergebnis End Function '##### Ende Code Das müsste eigenlich funktionieren Gruß Kally

an CyberLord	60	Claus	10.10.01 12:47
Umrechnen	51	kally	11.10.01 11:05
Re: an CyberLord	280	unbekannt	11.10.01 18:52
Re: an CyberLord	33	Claus	11.10.01 19:39

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