PDA

Archiv verlassen und diese Seite im Standarddesign anzeigen : Hex String in Dezimalzahl Wandeln unter VB


Import-Script
15.06.2003, 21:31
Hallo, <BR> <BR>das feld Text1 enthält den Wert 2B <BR>wie bringe ich <BR> <BR>jetzt den wert 2b in eine dez Zahl <BR> <BR> <BR> <BR> <BR> <BR>
Import-Script
16.06.2003, 09:45
Text$ = &#34;&amp;h&#34; &#43; Text$ <BR>Zahl = Val&#40;Text$&#41; <BR> <BR>könnte gehen.<img src="http://progshop.com/elektronik/diskussion/clipart/smile.gif" border=0>
Import-Script
17.06.2003, 12:14
Hi, <BR> <BR>notfalls mit Umrechnungstabelle in Binärform bringen und dann in Dez umrechnen &#40;lassen&#41; <BR> <BR>0 = 0000 <BR>1 = 0001 <BR>2 = 0010 <BR>3 = 0011 <BR>4 = ... <BR>. <BR>. <BR>E = 1110 <BR>F = 1111 <BR> <BR>Aus den beiden &#34;Nibbels&#34; &#40;jede Hex-Ziffer ist ein Nibble&#41; einen String zusammensetzen. Dann den String in einer Schleife abarbeiten. Die Ausgabevariable vorher auf 0 setzen und in der Schleife bei jeder &#34;1&#34; die entsprechende Wertigkeit hinzuaddieren: <BR>2<sup>0</sup> <BR>2<sup>1</sup> <BR>2<sup>2</sup> <BR>... <BR>2<sup>7</sup> <BR> <BR>Ist zwar nicht elegant, es gibt mit Sicherheit einen Befehl daf&uuml;r, aber so lernt man was <IMG SRC="http://progshop.com/elektronik/diskussion/clipart/happy.gif" ALT=":-&#41;" BORDER=0> <BR> <BR>Gruß <BR>Elmar
Import-Script
13.07.2003, 01:50
Hi Tobias, <BR> <BR>funktioniert jedenfalls: <BR> <BR><font color="ff0000">Public Function Dec&#40;Hexadezimal&#41; As Long <BR>Dim i, Länge, Stelle <BR>Dec = 0 <BR>Länge = Len&#40;Hexadezimal&#41; <BR>For i = 0 To Länge - 1 <BR> Stelle = Mid&#40;Hexadezimal, Länge - i, 1&#41; <BR> If Stelle = &#34;A&#34; Then <BR> Stelle = 10 <BR> ElseIf Stelle = &#34;B&#34; Then <BR> Stelle = 11 <BR> ElseIf Stelle = &#34;C&#34; Then <BR> Stelle = 12 <BR> ElseIf Stelle = &#34;D&#34; Then <BR> Stelle = 13 <BR> ElseIf Stelle = &#34;E&#34; Then <BR> Stelle = 14 <BR> ElseIf Stelle = &#34;F&#34; Then <BR> Stelle = 15 <BR> End If <BR> Dec = Dec &#43; Stelle &#42; 16 ^ i <BR>Next <BR>End Function</font> <BR> <BR>Schön mit Zeileneinschüben: <BR><!--attachment: tetstsststete-8014.txt*mime_txt.gif*text/plain*0.5*Mit+Zeileneinr%fcckungen%2e%2e%2e*tetsts ststete%2etxt --><center><table border=1><tr><td><img src="http://progshop.com/elektronik/diskussion/icons/mime_txt.gif" align=left alt="text/plain">Mit Zeileneinrückungen...<br><a href="http://progshop.com/elektronik/diskussion/messages/4285/tetstsststete-8014.txt" target="_blank"><b>tetstsststete.txt</b></a> (0.5 k)</td></tr></table></center><!--/attachment--> <BR> <BR>Grüße <BR>Andy
Import-Script
21.07.2003, 12:41
ich bin auch für <BR> <BR> <BR>dim zahl as long <BR>zahl = CLng&#40;&#34;&amp;H&#34; &amp; Text1.Text&#41;
Import-Script
08.09.2003, 00:07
Danke nochmal für die Tip&#39;s - es hat funkt. Danke !
Import-Script
08.09.2003, 00:21
<i>Aus den beiden &#34;Nibbels&#34; &#40;jede Hex-Ziffer ist ein Nibble&#41; einen String zusammensetzen. Dann den String in einer Schleife abarbeiten. Die Ausgabevariable vorher auf 0 setzen und in der Schleife bei jeder &#34;1&#34; die entsprechende Wertigkeit hinzuaddieren [...] <BR>Ist zwar nicht elegant, es gibt mit Sicherheit einen Befehl dafür, aber so lernt man was </i> <BR> <BR> <BR>Genau! <BR>So lernt man, wie man es möglichst nicht machen sollte...
Import-Script
08.09.2003, 16:50
@Blöder Kikeriki: Besser so als irgendwo abkupfern und meinen man wäre der Programmier-King. Die Leute, die das hier gemacht haben, egal wie haben jedenfalls was gelernt; nämlich wie es geht - und zwar sauber... - ohne DEBUGGER und korrupten Befehl / Blue-Screen / Server-aufhäng etc. <BR> <BR>Soll Leute geben, die es mit so einfach, plausiblen Teilen bzw. Algorithmen zum Mond und wieder zurück geschafft haben. Andere &#34;Excelten mit &#34;H-Lookup&#40;..&#41;&#34; und sowas rum &#40;bzw. liessen proggen&#41; und verglühten <BR> <BR>a&#41; beim Start <BR>b&#41; beim Wiedereintritt <BR>c&#41; #####Value? <BR> <BR>Dumm gelaufen...<img src="http://progshop.com/elektronik/diskussion/clipart/uhoh.gif" border=0> <BR> <BR>Soll auch Programmierer und Operator geben, die ganze AKWs in die Luft jagen; einfach mal so; zum Testen... <BR>- aber das waren Russen.. Tschernobyl <BR>- aber das waren AMIs.. Harrisburgh <BR> <BR>die hätten mal &#34;batronixen&#34; sollen und &#34;Simple-Basic&#34; machen. Besser wär´s gewesen...<img src="http://progshop.com/elektronik/diskussion/clipart/smile.gif" border=0>