Willkommen |
|
myGully |
|
Links |
|
Forum |
|
|
|
 |
07.02.11, 14:51
|
#1
|
Registriert seit: Dec 2009
Beiträge: 792
Bedankt: 49
|
[VB6]Funktion übersetzen
Hi,
ich hab auf meinem Lap noch ein altes VB6-Projekt, das ich gerne in C# oder VB.NET nachmachen will, jedoch habe ich noch nie in VB6 gearbeitet und suche deshalb jemanden der mir das vielleicht übersetzen könnte. Es geht um folgenden kleinen Code:
Code:
Private Function longToHex(l As Long) As String
longToHex = Hex(l)
If Len(longToHex) < 4 Then longToHex = String(4 - Len(longToHex), "0") & longToHex
longToHex = Right(longToHex, 2) & Left(longToHex, 2)
End Function
Würde mich sehr freuen, wenn mir jemand helfen könnte!
__________________
To succeed you have to stop being ordinary and be legen - wait for it - dary.
|
|
|
08.02.11, 01:52
|
#2
|
Erfahrener Newbie
Registriert seit: Mar 2009
Beiträge: 154
Bedankt: 56
|
Code:
Private Function LongToHex(ByVal l as Long) As String
Return Converter.ToString(l)
End Function
|
|
|
08.02.11, 02:06
|
#3
|
Ist öfter hier
Registriert seit: Sep 2010
Beiträge: 276
Bedankt: 280
|
Hm, ich weiß net. Viel mit VB.net hab ich net gemacht, aber der Long ist jetzt ein Int32. Also braucht man keinen Long übergeben. Und Convert.ToString() erzeugt nur einen String, aber rechnet nicht in hexadezimale Werte um.
Also mit dem Codeschnipsel geht es glaube ich nicht.
Zur Übersetzung des Codes:
Private Function longToHex(l As Long) As String
'Function die l aufnimmt; l ist ein Long, jetzt solltest Du Int32 nehmen
longToHex = Hex(l)
'Umrechnung in Hexadezimal von l
If Len(longToHex) < 4 Then longToHex = String(4 - Len(longToHex), "0") & longToHex
'wenn der errechnete Wert weniger als 4 Stellen hat, wird vorne mit 0 aufgefüllt
longToHex = Right(longToHex, 2) & Left(longToHex, 2)
'Funktionsrückgabe ist 2 Stellen von rechts des Funktionswertes & 2 Stellen von links
des Funktionswertes
End Function
|
|
|
08.02.11, 07:45
|
#4
|
Erfahrener Newbie
Registriert seit: Mar 2009
Beiträge: 154
Bedankt: 56
|
Das kommt davon, wenn man nachts im Halbschlaf irgendwelche Beiträge verfasst.
Code:
Public Function DecToHex(ByVal ValueInDec As Int32) As String
Return String.Format("{0:x4}", ValueInDec)
End Function
Long gibt es auch noch unter .NET, ist ein Alias für Int64.
|
|
|
10.02.11, 15:38
|
#5
|
Ist öfter hier
Registriert seit: Sep 2010
Beiträge: 276
Bedankt: 280
|
Zitat:
Zitat von Xalir
Long gibt es auch noch unter .NET, ist ein Alias für Int64.
|
Wusst ich auch noch net, nehm ich so gerne mal mit. Danke für die Info.
|
|
|
Forumregeln
|
Du kannst keine neue Themen eröffnen
Du kannst keine Antworten verfassen
Du kannst keine Anhänge posten
Du kannst nicht deine Beiträge editieren
HTML-Code ist Aus.
|
|
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 21:14 Uhr.
().
|