Forum » Programiranje » VB problem
VB problem
turce28 ::
Mene zanima ce mogoce obstaja kaksna funkcija za pretvarjanje stevil iz Long v Single, ampak ne po vrednostih temvec po bitih. NPR: iz long &H 40C1 999A v Single 6.05??
Tnx
Tnx
StratOS ::
Uporabi pointerje !
Dim d As Single
Dim lPointer As Long
Dim iLen As Integer
Dim B() As Byte
d = &H40C1999A
lPointer = VarPtr(d)
iLen = LenB(d)
ReDim B(iLen - 1)
CopyMemory B(0), ByVal lPointer, iLen
For iLen = 0 To iLen - 1
MsgBox B(iLen)
Next iLen
Dim d As Single
Dim lPointer As Long
Dim iLen As Integer
Dim B() As Byte
d = &H40C1999A
lPointer = VarPtr(d)
iLen = LenB(d)
ReDim B(iLen - 1)
CopyMemory B(0), ByVal lPointer, iLen
For iLen = 0 To iLen - 1
MsgBox B(iLen)
Next iLen
"Multitasking - ability to f##k up several things at once."
"It works better if you plug it in."
"The one who is digging the hole for the other to fall in is allready in it."
"It works better if you plug it in."
"The one who is digging the hole for the other to fall in is allready in it."
Vredno ogleda ...
| Tema | Ogledi | Zadnje sporočilo | |
|---|---|---|---|
| Tema | Ogledi | Zadnje sporočilo | |
| » | Kraj rojstva in pošta Slovenije (strani: 1 2 )Oddelek: Loža | 7817 (5740) | Cange |
| » | Napis "1. Dostop" na položnicahOddelek: Loža | 5977 (2910) | mHook |
| » | Drugačni načini reševanja krizeOddelek: Problemi človeštva | 4318 (3720) | Kamran |
| » | Pomoc v C-juOddelek: Programiranje | 1338 (1250) | rfmw |
| » | Odpiranje dat.exe v VBOddelek: Programiranje | 3027 (2820) | webblod |