Conversione Real -> Dint - In Visual Basic

[MrC]

Tempo fa era stata postata un'interessante funzione in Vb per convertire un dato in formato

real a partire da un dato in DINT .

Avete anche una funzione che faccia il contrario , cioè da real a DINT ?

Grazie

[Livio Orsini]

Se per DINT intendi in doppio intero, non cìè bisogno di funzioni particolari: lo stesso VB ha tuttele funzioni di conversione tra i vari tipi. Sono le istruzioni CXyz, per esempio y=CSng(x) converte la variabile x nella variabile y che deve essere dichiarata single. Basta usare l'help in linea per avere specifiche ed esempi.

[MrC]

Io uso le librerie di comunicazione dell Sintesi , che scrivo i numeri in formato intero :

Per scrivere ad esempio una dw siemens :

Se voglio scrivere 2,5 , devo scrivere L#1075838976

Mi serve una funzione che faccia questa conversione !!!

Qualche tempo fa era stata postata la funzione che faceva l'inverso , cioè

L#1075838976 diventava 2,5

[Livio Orsini]

Dovrei avere da qualche parte una funzione che fa tutte e due le operazioni; l'avevo scritta in VB4 ancora quando si usava S5. Se ritrovo i sorgenti, se vuoi, possa anche mandartela.

[MrC]

Grazie mille !!!

[Adriano Baronchelli]

Ciao, sono Adriano

prova a caricare la API copymemory e usala così

dim valreal as single

dim vallong as long

valreal=10.3

copymemory vallong,valreal,4

PS. se devi spedirli in byte usa

dim arrbyte(3) as byte

valreal=10.3

copymemory arrbyte(0),vallong,4

così ottieni un array di byte con il valore real gia convertito in byte!

PSS se devi trasferirlo al plc siemens, devi swappare i byte

Spero di esserti stato utile.

Saluti