Italian Connessione telemetro laser bluetooth

Fabio68 said:

Salve, sto creando un applicazione che mi calcoli la quantità di materiale necessaria per la costruzione di determinate opere edili. Il programma, dopo aver inserito i dati relativi ad altezza e lunghezza nelle caselle di testo per ottenere la superficie ed il perimetro di un muro, mi visualizza i relativi risultati in due label apposite e nello stesso tempo mi visualizza in una list tutto il materiale occorrente e le quantità grazie ad un calcolo che gli impongo eseguendo delle apposite formule matematiche. Fin qui tutto bene, l'applicazione funziona a meraviglia e ho raggiunto l'obiettivo ma, vorrei poter inserire i dati utilizzando un telemetro laser Bluetooth, anziché farlo manualmente. Quello in mio possesso è di una marca famosa la quale provvede essa stessa a fornire un applicazione che ho installato nel cellulare e funziona correttamente. Ho provato a modificare in un programma-test un applicazione trovata nel forum, il punto è questo: dopo aver fatto partire l'app il dispositivo si connette ma, quando avvio la misurazione, non accade nulla.
Allego la copia del programma-test e spero che qualcuno mi possa dare una dritta in merito. Premetto che non sono un programmatore ma ho la passione per l'informatica e il linguaggio B4A mi aiuta parecchio. Ringrazio anticipatamente

Fabio

Click to expand...

Fabio68 said:

Ci sto pensando, se mi aiuti con il bluetooth, la preparo e te la spedisco ?

Click to expand...

Fabio68 said:

Ho provato e.... niente.
Mi viene il dubbio che il produttore abbia inserito un protocollo per negare l'accesso così da avere l'esclusiva sull'app.
Purtroppo non ho altri dispositivi con cui effettuare il test e, vista la situazione attuale, non é neanche possibile procurarseli.
Non volevo fare pubblicità gratuita al device in mio possesso ma a questo punto spero che qualcuno abbia avuto la mia stessa idea e l'abbia provato sul Bosch plr40.
Grazie a tutti......

Click to expand...

Fabio68 said:

Scusa la mia enorme ignoranza ma, tradotto in italiano, cosa dovrei fare?

Click to expand...

private Sub AStream_NewData (Buffer() As Byte)

End Sub

private Sub AStream_Error

End Sub

Private Sub AStream_Terminated

End Sub

Fabio68 said:

Si

Click to expand...