Newsgroup: it.comp.lang.visual-basic
Titolo: Convertire un Byte Array in un Double

Deve convertire un Byte Array di dimensione 8 in un Double
per Esempio
ByteArray(0,0,0,0,0,0,0,248,63) = in double 1.5

> ByteArray(0,0,0,0,0,0,0,248,63) = in double 1.5
usi un byte array da 8 dimensioni ? :))))))
e lo vuoi mettere tutto in un double ???
spiegato così dovremmo metterci tutti a ridere...
spiegati meglio
sicuramente ti sei sbagliato perlomeno io non ho capito
ciao

 ByteArray(0,0,0,0,0,0,0,248,63) = in double 1.5
Credo tu intenda un byte array a una dimensione di 8 elementi. 
Quello che chiedi si può fare con CopyMemory.
Se vuoi evitarne l'uso ti suggerisco una soluzione rudimentale.
dim ByteArray(7) as byte    ' 8 elementi 0...7
dim MyDouble as Double
  TmpFileNum = Freefile
  Open TmpFileDPFE for Binary as TmpFileNum
  ' .......... supposto che il byte array sia stato caricato
  Put TmpFileNum,1,ByteArray
  Get TmpFileNum,1,MyDouble
  ' .......... altre conversioni
  Close TmpFileNum
Ciao.
pinco_pallo
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 spiegato cosě dovremmo metterci tutti a ridere...


Newsgroup: it.comp.lang.visual-basic
Titolo: è vero che

acquistando l' Office Developer Edition permette
di distribuire il runtime di Access.?????????????????????????

Sì (Costo > 2.000.000 per office 2000 dev. ed. full).

Newsgroup: it.comp.lang.visual-basic
Titolo: Funzioni

Ciao a tutti.
E possibile creare una funzione che restituisce piů di un valore?
Ringrazio anticipatamente  tutti. Ciao.

...


 >E possibile creare una funzione che restituisce più di un valore?
Ci sarebbe anche questa soluzione:
Sub Main()
Dim v As Variant
Dim i As Integer
  Let v = GetValues()
  For i = LBound(v) To UBound(v)
    MsgBox "Elemento " & i & " = " & v(i)
  Next
End Sub
Function GetValues() As Variant
Dim vRet(0 To 4) As Variant
  Let vRet(0) = 100
  Let vRet(1) = "Abc"
  Let vRet(2) = 0.5
  Let vRet(3) = #12/31/99#
  Let vRet(4) = &H100
  Let GetValues = vRet
End Function
--
Ciao.
Maurizio

...



Credo di si basta mettergli come tipo di ritorno un UDP. Es:
Public Type MIOTIPO
    valore1 As String
    valore2 As Integer
    valore3 As Long
End Type
Public Function MiaFunzione(........) As MIOTIPO
    Dim unTipo As MIOTIPO
    ...............
    Elaborazione
    ...............
    MiaFunzione = unTipo
End Function

si puņ fare, passandosi tipi composti tipo strutture, unioni o classi (se
non dico cavolate stņ ipotizzando come farei in c++). Per parametri fai
passare l'oggetto che viene modificato dalla funzione e poi restituito. Il
problema č poi come farai a gestire i dati restituti dalla funzione. Potrai
solo eseguire operazioni con oggetti dello stesso tipo perņ.


ndr: UDT = User Defined Type (tipo definito dall'utente)
Ricordo a tutti che in VB5 non e' possibile avere degli UDT come parametri
di ritorno di proprieta' o metodi di un ActiveX (in VB6 e' fattibile).
In questi casi, quindi, l'unica soluzione rimarrebbe il passaggio di
parametri di ritorno ByRef.
--
Roal Zanazzi
z...@iol.it


Ah.. non lo sapevo, io infatti ho VB6.


z...@iol.it
Tenete però presente che non si ha questa limitazione se si usano funzioni
normali.
Diego Mazzaro