Vypocet hodnoty hexa zapsaneho cisla
Zdravim. Potrebuju poradit s prevodem ve VB6. Mam 4 text.boxy a v kazdem je hodnota 0-255dec. V 5textboxu se nachazi zapis v hexa predchozich textboxu. Cele to predstavuje 4bajtovou hodnotu. Potrebuju toto cislo vyjadrit decimalne. Ve VB6 je funkce Hex(cislo) ktera prevadi dec do hex tu uz jsem pouzil, ale existuje funkce dec(hex) ktera vytvori cislo dec. Proste naopak. Za rady s timto problemem predem dekuji
Ja se omlouvam ale musel jsem pracovat. Funkce je vytvorena a zkousim ji napsat jako dll. Bylo vyzkouseno i cislo FFFF FFFF FFFF FFFF funkce to spocitala doslo vsak k urcite chybe kvuli exp. tvaru cisla.To je ale jina zalezitost. Dekuji tedy vsem kteri mi k tomu pomohli a muze se tato diskuze uzavrit. Pokud by o zdrojovy kod byl zajem tak jej mohu zaslat i emailem. Upozornuji na delsi dobu odeslani zdrojaku. S pozdravem geforce6166bx@seznam.cz
Není to, co chceš nějaký z konvertorů v PSPadu? Pokud ne, jsou na webu PSPadu k stažení i jiné.
Private Sub Command1_Click()
Text2.Text = HexToLong(Text1.Text)
End Sub
Function HexToLong(ByVal sHex As String) As Long
HexToLong = Val("&H" & sHex & "&")
End Function
stačí jen umět číst