Søg
Avatar billede christian_h Nybegynder
07. august 2003 - 12:42 Der er 10 kommentarer og
1 løsning

Foranstående 0 i hex tal

Hej Alle.

Jeg bruger flg. code stump til at konverterer et dec tal til hex:

HexCon = Hex(Text2.Text)

Det virker også fint, men når hex tallet er mellem 0 - 9 eller A - F bliver det kun vist som F.Eks. 1 eller A jeg vil gerne have det vist som 01 eller 0A, hvordan gør jeg det ??

Mvh.

Christian_h
Avatar billede Slettet bruger
07. august 2003 - 12:46 #1
Prøv:
HexCon = Format(Hex(Text2.Text),"00")
Avatar billede jennemaan Nybegynder
07. august 2003 - 12:51 #2
HexCon = Hex(Text2.Text)
If len(HexCon)=1 then
HexCon="0" & HexCon
End If

/Jennemaan
Avatar billede christian_h Nybegynder
07. august 2003 - 12:56 #3
Hej jennemaan.

Din kode virker perfect, derfor får du point.

TAK for det.

Christian_h
Avatar billede sjh Nybegynder
07. august 2003 - 13:12 #4
du kunne også bruge :)

HexCon = Right$("00" & Hex(Text2.Text), 2)
Avatar billede christian_h Nybegynder
07. august 2003 - 13:18 #5
Ja det virker også, men jeg kan ikke lige gennemskue sætningen ?
Avatar billede sjh Nybegynder
07. august 2003 - 13:26 #6
'den tager kun 2 tegn fra Højer side af en string
'det vil sige at når man så tilføjer 2 nuller foran
'den string man skal bruge tager den kun de sidste 2
'tegn hvis din string kun er på 1 så har du jo tilføjet et "0"

HexCon = Right$("00" & Hex(Text2.Text), 2)
Avatar billede jennemaan Nybegynder
07. august 2003 - 13:27 #7
man kunne også bruge

HexCon = Hex(Text2.Text)
If len(HexCon) mod 2 = 1 then
HexCon="0" & HexCon
End If

Så ville eksempelvis hex(256) = 100 som så ville blive til 0100 ;o)

/Jennemaan
Avatar billede sjh Nybegynder
07. august 2003 - 13:33 #8
når ja eller :-)

HexCon = Hex(Text2.Text)
  Select Case Len(HexCon)
        Case 0
          HexCon = ("00" & HexCon)
        Case 1
          HexCon = ("0" & HexCon)
  End Select

MsgBox HexCon
Avatar billede sjh Nybegynder
07. august 2003 - 13:34 #9
HexCon = Hex(Text2.Text)
  Select Case Len(HexCon)
        Case 0
          HexCon = "00" ' & HexCon) Ikke :)
        Case 1
          HexCon = ("0" & HexCon)
  End Select

MsgBox HexCon
Avatar billede christian_h Nybegynder
07. august 2003 - 13:37 #10
I bliver ved hva ;-)

Jeg tror nu nok at jeg har hvad jeg skal bruge nu :-)

TAK

Christian_h
Avatar billede sjh Nybegynder
07. august 2003 - 13:41 #11
ha ha.. det var bare lidt tips :)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra Visual Basic kategorien

Titel Indlæg Oprettet Seneste aktivitet
Send mail fra "Outlook New" via VBA i excel Af lonmat i Visual Basic 5 29/08/202512:28 04/09/202515:48
Klik Event i MS Project Af per2edb i Visual Basic 0 05/08/202510:10 -
VBA koder lagt i MS project kolonner Af per2edb i Visual Basic 0 16/05/202512:31 -
Foto fra Word eller Excel Af MSchlamovitz i Visual Basic 1 22/04/202514:55 25/04/202511:21
Proxy server.. Af SommerFyr i Visual Basic 12 10/07/202417:34 12/07/202414:34
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
16/1016:25 En "Gammel" & "Retro" PC Service ? Husker ikke navnet .... Af Ikke-ekspert i Diverse
16/1016:17 Jeg har lige købt en Samsung mobil telefon Af Strawberry i Mobiltelefoner
16/1013:20 Lotus Approach Af Carsten i Andet software
15/1015:34 Epson scanner forbinder ikke til computer Af bbkdk i Printere
11/1013:35 Bruger på Win11 Af lurup i Browsere
White papers
Flere white papers »