Altro lavoro assegnatomi, è stato lo sviluppo di un componente Activex per la gestione/comunicazione con un rifrattometro (strumento che misura la densità di una sostanza) collegato tramite porta seriale e scheda dedicata, ad un pc.

Gli oggetti Ocx dopo Visual basic 6 non si possono più creare, in quanto Microsoft sostiene che è una programmazione non "safe" e quindi ho dovuto usare per forza la versione 6 si Vb, per sviluppare il componente.

Lo sviluppo del componente mi è stato molto facilitato, perchè ho potuto utilizzare le funzioni proprietarie della scheda Moxa (scheda industriale con 2 porte seriali) che mi hanno facilitato il compito di comunicazione e settaggio delle porte.

La definizione delle funzioni è contenuta in un file denominato "Pcomm.bas" che ho importato nel progetto in Vb.

Ecco l'esempio della funzione di settaggio porta:

Public Function SetPorta(ComPort As Long, baud As Integer, mode As Integer) As Integer
retopen = sio_open(ComPort)
If (retopen  SIO_OK) Then
 MsgBox ("Errore apertura porta seriale")
 SetPorta = -1
Else
 retioctl = sio_ioctl(ComPort, baud, mode)
 If (retioctl  SIO_OK) Then
 MsgBox ("Errore settaggio porta seriale")
 SetPorta = -1
 Else
 MsgBox ("Porta seriale settata")
 SetPorta = 0
 End If
End If
End Function

Come potete vedere la funzione "retioctl" è la funzione che serve per settare la porta, io ho inviato i parametri di settaggio e ho controllato il valore di ritorno, per verificare che tutto fosse andato a buon fine.

Non posso riportarvi tutte le funzioni che ho implementato, ma le altre sono sinili a questa; però utilizzano funzioni diverse della famosa libreria importata nel progetto.