Usare la seriale RS232 con VB6: il controllo MSCOMM E' molto semplice collegarsi e comunicare con la scheda, infatti la scheda con USB viene vista come se fosse una seriale RS232 virtuale e quindi è possibile comandare la scheda inviando dei semplici comandi usando programmi molto diffusi e molto usati come HiperTerminal Clicca qui per scaricare il codice sorgente in VB6 per pilotare la scheda USB

Scheda Ethernet con VB6 E' anche disponibile una versione della scheda pilotata dall'ethernet Clicca Qui Scheda Ethernet Clicca qui per scaricare il codice sorgente in VB6 per pilotare la scheda ethernet

Scheda relè USB seriale RS232

Usare la seriale RS232 con VB6: il controllo MSCOMM

Per pilotare la scheda relè, la scheda display o la chiave USB per la protezione del software occorre saper gestire una porta seriale RS-232 in quanto la porta USB verrà considerata a tutti gli effetti come una porta seriale virtuale, in pratica andrete a inviare i comandi sulla COM3 invece che sulla COM1
Con Visual Basic viene fornito un componente per la gestione della seriale, l' MSCOMM.OCX.
L'MSCOMM dispone di diverse proprietà, di un solo evento ( OnComm() ) e nessun metodo. Iniziamo col creare un nuovo progetto, rendiamo disponibile il controllo MSCOMM andando sul menù Progetto->Componenti, e selezionando "Microsoft comm control x.x".
Aggiungete quindi il controllo, ora presente nella barra degli strumenti, nel form (Form1) dando vita al controllo MSComm1.
Per questioni didattiche preferisco configurare il controllo a run-time, quindi nell'evento Form_Load() inserite quanto segue:

MSComm1.CommPort = 1 ' Selezioniamo la COM1
MSComm1.Settings = "115200,n,8,1" ' Le impostazioni della seriale
MSComm1.PortOpen = True ' Apriamo la porta.

Impostando la proprietà PortOpen a True si richiede al sistema il permesso d' utilizzo della porta scelta (COM1). Se la porta è disponibile il sistema operativo la assegnerà a noi, diversamente se la porta è già utilizzata da un'altro processo verrà generato un errore intercettabile con l'istruzione ON ERROR.
Per chiudere la porta e rilasciarne il controllo, è sufficiente impostare PortOpen a False.

A questo punto siamo già in grado di inviare dati sulla seriale, per esempio un classico "Ciao Mondo".

MSComm1.Output = "Ciao Mondo"

L'evento OnComm()

Il controllo MSCOMM è asincrono, ossia non occorre che il programma dedichi tutto il suo tempo a controllare ciò che accade sulla seriale, è il controllo MSCOMM che si preoccupa di informare il programma di ciò che accade tramite il richiamo dell'evento OnComm() e l'impostazione della proprietà CommEvent. Quindi l'intera intelligenza della comunicazione è da implementare nell'evento OnComm().
Quando viene richiamato l'evento OnComm(), Nella proprietà CommEvents è riportato l'evento accaduto. Esso può assumere uno dei seguenti valori (vedi l'help in linea del VB):

Costanti relative agli errori
comEventBreak	1001	Ricezione di un segnale di interruzione.
comEventFrame	1004	Errore di frame. L'hardware ha individuato un errore di frame.
comEventOverrun	1006	Overrun della porta. L'hardware non ha letto un carattere prima dell'arrivo del successivo e il carattere è andato perduto.
comEventRxOver	1008	Overflow del buffer di ricezione. Spazio esaurito nel buffer di ricezione.
comEventRxParity	1009	Errore di parità. È stato rilevato un errore di parità.
comEventTxFull	1010	Buffer di trasmissione pieno. Spazio esaurito nel buffer di trasmissione durante il tentativo di inserimento di un carattere.
comEventDCB	1011	Errore imprevisto durante il recupero del DCB (Device Control Block) della porta.
Costanti relative agli eventi di seriale
comEvSend	1	Nel buffer di trasmissione è presente un numero di caratteri inferiore a quello definito dalla proprietà Sthreshold.
comEvReceive	2	Numero di caratteri Rthreshold ricevuti. Questo evento viene generato fino a quando non si utilizza la proprietà Input per rimuovere i dati dal buffer di ricezione.
comEvCTS	3	Modifica nella linea CTS (Clear To Send).
comEvDSR	4	Modifica nella linea DSR (Data Set Ready). Questo evento viene generato solo quando DSR cambia da 1 a 0.
comEvCD	5	Modifica nella linea CD (Carrier Detect).
comEvRing	6	Individuato segnale telefonico. È possibile che alcuni UART (universal asynchronous receiver-transmitters) non supportino questo evento.
comEvEOF	7	Ricevuto carattere indicatore di fine file (carattere ASCII 26).

Non è comunque indispensabile la consultazione della proprietà CommEvent che personalmente uso solo nelle comunicazioni seriali complesse; vediamo dunque come implementare una semplice ricezione dati dalla seriale.
Come prima cosa è necessario dire al controllo MSCOMM che desideriamo essere informati della ricezione dei caratteri, impostando la proprietà Rthreshold a 1. Quindi l'apertura della porta la modifichiamo come segue.

Private Sub Form_Load()
     MSComm1.CommPort = 1 ' Selezioniamo la COM1
     MSComm1.Settings = "9600,n,8,1" ' Le impostazioni della seriale
     MSComm1.RThreshold = 1 ' voglio essere informato della ricezione di ogni singolo carattere
     MSComm1.PortOpen = True ' Apriamo la porta.
End Sub

Aggiungete al Form un controllo testo Text1 (fatelo bello grande) ed impostate la proprietà MultiLine a True.
A questo punto aggiungete il seguente codice:

Private Sub MSComm1_OnComm()
    Dim Rx$
    Rx$ = MSComm1.Input ' Leggo il contenuto del buffer di ricezione (e svuoto .Input)
    If Len(Rx$) Then ' Se ho ricevuto qualcosa lo scrivo nella TextBox
        Text1.Text = Text1.Text & Rx$
    End If
End Sub

Nella propriatà Input vengono riportati tutti i caratteri ricevuti. è da notare che la proprietà Input la si può leggere una sola volta in quanto dopo averla letta (ed in questo caso assegnata alla variabile Rx$) viene automaticamente azzerata (="").
Per esempio il seguente codice NON FUNZIONA!
If Len(MSComm1.Input) Then
    Text1.Text = Text1.Text & MSComm1.Input
perche l' IF svuota il contenuto di Input ed alla text box viene appesa una stringa vuota.

Impostando la proprietà Rthreshold a 1 imponiamo al controllo MSCOMM di richiamare l'evento OnComm() alla ricezione di ogni singolo carattere. In ogni caso, visto che la segnalazione non viene data in Interrupt-Time, lo scatenarsi dell'evento OnComm() può avvenire in ritardo se il PC è impegnato in qualche elaborazione, ed è quindi molto probabile che nella proprietà Input sia contenuto più di un carattere.

Per poter anche trasmettere, aggiungete il seguente codice:

Private Sub
    Text1_KeyPress(KeyAscii As Integer)
    MSComm1.Output = Chr$(KeyAscii)
End Sub

Abbiamo così costruito con la TextBox un semplice terminale ASCII.
Il controllo MSCOMM ha un difetto sull'evento OnComm() riscontrabile quando si sta facendo del DEBUG del proprio codice. Se ad esempio si mette in pausa l'esecuzione del programma, e durante l'attesa giungono dei caratteri alla seriale, al riavvio del programma non verrà generato alcun evento per i caratteri già ricevuti.
Una scappatoia per ovviare al problema è quella di aggiungere un TIMER, con una cadenza dell'ordine dei 250-400 mSec,
che si limita a richiamare la funzione MSComm1_OnComm(), compensando così alla mancata generazione (in debug) dell'evento OnComm()
Esempio:

Private Sub Timer1_Timer()
    Call MSComm1_OnComm
End Function

Per ulteriori informazioni potete contattare un tecnico al Tel 0331 730164 o Cell 3280351930

Il protocollo di comunicazione è semplicissimo, nell'esempio si nota come basta inviare sulla seriale il valore 0x30 (che corrisponde al tasto 0 della tastiera) per fare accendere il led, il protocollo prevede anche una risposta per dare evidenza che il comando è stato ricevuto e accettato, infatti la scheda risponde inviando sulla seriale virtuale il carattere A
In fondo alla pagina troverete il protocollo di comunicazione completo, grazie al quale potrete attivare o disattivare i relè presenti sulla scheda, accendere o spegnere i due led presenti sulla scheda, leggere lo stato dei pulsanti e leggere il valore dei 4 ingressi presenti sulla scheda.
La scheda puo' funzionare sia connessa al computer, ed è autoalimentata dal BUS USB e quindi non occorrono alimentazioni esterne, ma puo' anche funzionare in modalità "stand alone" cioè scollegata dal PC, cioè come un vero e proprio PLC, se si sceglie di far funzionare la scheda in modalità "stand alone" occorre prima programmare e memorizzare quale dovrà essere il comportamento della scheda, proprio come si fa con i PLC, che vanno prima programmati, la forte limitazione della scheda è che come PLC ha un set limitato di possibili comportamenti, ad esempio si puo' programmare la scheda affinchè il relè 1 si attivi e disattivi seguendo l'ingresso 1 oppure che il relè 1 si attivi e disattivi seguendo l'ingresso 1 negato e cosi' via, se si sceglie di far lavorare la scheda in modalità "stand alone" le possibili configurazioni sono limitate e sono presenti nel protocollo di comunicazione in fondo alla pagina.
La scheda puo' essere utilizzata per sostituire un PLC in quanto è dotata di 4 ingressi e di 4 relè (fino a 8 ingressi e 8 uscite per ogni scheda).

E' disponibile un programma demo completo di codici sorgenti scritto in VB.NET nel quale si da un esempio di come comandare la scheda. Scarica il programma completo di codice sorgente: CLICCA QUI
Oltre al codice sorgente e ad un programma già compilato c'è un file .inf che non è nient'altro che il driver che viene richiesto al momento della prima connessione della scheda, infatti quando si connette la scheda la prima volta al PC l'USB riconosce la presenza del nuovo hardware e ne richiede il driver. Basterà indicare il percorso del file .inf

Le schede SNT041 e SNT048 possono anche essere montate anche su guida DIN (che è un piccolo supporto di plastica per agganciare la scheda ad una barra DIN), specificare in fase d'ordine, se occorre anche l'aggancio su guida DIN, in quel caso occorre aggiungere 4€ al costo della scheda

Clicca qui

Protocollo di comunicazione per scheda seriale virtuale per SNT041 SNT044 SNT048

Invio 0 = 0x30 = 48 => Accende led 1 e risponde "A"
Invio 1 = 0x31 = 49 => risponde dando lo stato degli ingressi es "A01010101Z"
Invio 2 = 0x32 = 50 => Spegne led 1 e risponde "C"
Invio 3 = 0x33 = 51 => Spegne tutti i relay e risponde "W"
Invio 5 = 0x35 = 53 => risponde dando lo stato latchato degli ingressi es "A01010101Z"
Invio 6 = 0x36 = 54 => Accende Relè 1 e risponde "I"
Invio 7 = 0x37 = 55 => Spegne Relè 1 e risponde "L"
Invio 8 = 0x38 = 56 => Accende Relè 2 e risponde "M"
Invio 9 = 0x39 = 57 => Spegne Relè 2 e risponde "N"
Invio a = 0x61 = 97 => Accende Relay 3 e risponde "O"
Invio b = 0x62 = 98 => Spegne Relay 3 e risponde "P"
Invio c = 0x63 = 99 => Accende Relay 4 e risponde "Q"
Invio d = 0x64 = 100 => Spegne Relay 4 e risponde "R"
Invio e = 0x65 = 101 => se input 1 è alto risponde "S" altrimenti "T"
Invio f = 0x66 = 102 => se input 2 è alto risponde "U" altrimenti "V"
Invio g = 0x67 = 103 => se input 3 è alto risponde "W" altrimenti "Y"
Invio h = 0x68 = 104 => se input 4 è alto risponde "J" altrimenti "K"
Invio i = 0x69 = 105 => se input 5 è alto risponde "Z" altrimenti "a"
Invio l = 0x6C = 108 => se input 6 è alto risponde "b" altrimenti "c"
Invio m = 0x6D = 109 => se input 7 è alto risponde "d" altrimenti "e"
Invio n = 0x6E = 110 => se input 8 è alto risponde "f" altrimenti "g"
Invio o = 0x6F = 111 => Accende Relè 5 e risponde "H"
Invio p = 0x70 = 112 => Spegne Relè 5 e risponde "B"
Invio q = 0x71 = 113 => Accende Relè 6 e risponde "D"
Invio r = 0x72 = 114 => Spegne Relè 6 e risponde "E"
Invio s = 0x73 = 115 => Accende Relè 7 e risponde "F"
Invio t = 0x74 = 116 => Spegne Relè 7 e risponde "G"
Invio u = 0x75 = 117 => Accende Relè 8 e risponde "X"
Invio v = 0x76 = 118 => Spegne Relè 8 e risponde "m"
Invio A,B,C,D,E,F,G,H => Accende Relè x e lo spegne dopo un secondo ( esempio funzione apri-porta )
Invio L,M,N,O,P,Q,R,S => riponde dicendo se il relè x è acceso o spento
Invio T => accende due relè contemporaneamente
Invio U => accende tre relè contemporaneamente
Invio V => spegne due relè contemporaneamente
Invio W => spegne tre relè contemporaneamente
Invio k => Legge numero memorizzato in eeprom
Invio x,y,X,Y,4,K,Z,j,|,! => scrive numero in eeprom
Invio " => Legge numero memorizzato in eeprom
Invio =,<,J,?,&,(,),[,],{ => scrive numero in eeprom
Invio * => Accende tutti i relè contemporaneamente

E' possibile anche leggere il numero di volte che la scheda è stata accesa
Invio w = 0x77 = 119 => Legge il numero di riavii: Parte alta
Invio z = 0x7A = 122 => Legge il numero di riavii: Parte bassa

Clicca Qui per scaricare il programma per pilotare fino a 8 relè
Clicca Qui per scaricare un'immagine, in scala 1:1 della scheda a 8 relè
Protocollo di comunicazione per scheda seriale virtuale per SNT037 SNT035

Invio 0 = 0x30 = 48 => Accende led 1 e risponde "A"
Invio 1 = 0x31 = 49 => Accende led 2 e risponde "B"
Invio 2 = 0x32 = 50 => Spegne led 1 e risponde "C"
Invio 3 = 0x33 = 51 => Spegne led 2 e risponde "D"
Invio 4 = 0x34 = 52 => Se pulsante 1 è premuto risponde "E" altrimenti risponde "F"
Invio 5 = 0x35 = 53 => Se pulsante 2 è premuto risponde "G" altrimenti risponde "H"
Invio 6 = 0x36 = 54 => Accende Relè 1 e risponde "I"
Invio 7 = 0x37 = 55 => Spegne Relè 1 e risponde "L"
Invio 8 = 0x38 = 56 => Accende Relè 2 e risponde "M"
Invio 9 = 0x39 = 57 => Spegne Relè 2 e risponde "N"
Invio a = 0x61 = 97 => Accende Relè 3 e risponde "O"
Invio b = 0x62 = 98 => Spegne Relè 3 e risponde "P"
Invio c = 0x63 = 99 => Accende Relè 4 e risponde "Q"
Invio d = 0x64 = 100 => Spegne Relè 4 e risponde "R"
Invio e = 0x65 = 101 => Se ingresso 1 è alto risponde "S" altrimenti risponde "T"
Invio f = 0x66 = 102 => Se ingresso 2 è alto risponde "U" altrimenti risponde "V"
Invio g = 0x67 = 103 => Se ingresso 3 è alto risponde "W" altrimenti risponde "Y"
Invio h = 0x68 = 104 => Se ingresso 4 è alto risponde "J" altrimenti risponde "K"
Invio i = 0x69 = 105 => Leggi quante volte hai riavviato la scheda (parte alta)
Invio l = 0x6C = 108 => Leggi quante volte hai riavviato la scheda (parte bassa)
Invio m = 0x6D = 119 => Azzera il numero di riavvii e risponde con 0x71