Esempio Vb Per S7-200

[rafpas]

ciao ragazzi,

gentilmente avrei bisogno di un esempio in vb per pilotare tre merker che vanno ad pilotare un motore di un nastro trasportatore. ho visto le librerie libnodave e non so come si usano, a me servirebbe qualcosa semplice unando

l'oggetto MSCOMM di vb 6.

il plc che abbiamo è: s7-200 cpu 216, con configurazione PPI rs232.

distinti saluti e grazie

[max.bocca]

La cosa più semplice è usare la modalità seriale su plc in modalità free-port.

Setti la porta PLC0 a 9600,8,n1 abiliti la ricezione a lunghezza di un byte...

Con VB abiliti la seriale es.

Private Sub Form_Load()

MSComm1.CommPort = 1 ' Selezioniamo la COM1

MSComm1.Settings = "9600,n,8,1" ' Le impostazioni della seriale

MSComm1.PortOpen = True ' Apriamo la porta.

Dim Pacchetto$

End Sub

Quando devi inviare il dato lanci la sub

Sub InviaDati(Dati$)

MSComm1.Output = Pacchetto$

End Sub

per fare una semplice prova sul plc lasci sempre in ascolto la seriale, quando genera l'interrupt di ricezione copy il byte ricevuto sulla porta QB0 e vedi i led che ti indicano il byte ricevuto...

[rafpas]

ciao max.bocca,

innanzi tutto grazie per la risposta.

ho capito quello che mi ha detto, l'unica cosa non capisco qual'è la stringa che dovrei mettere in

Pacchetto$ per pilotare un merker esempio M1.0 che aggisce su Q1.0.

saluti

[max.bocca]

potrebbe essere solo un carattere - lato PLC devi configugrare l'ascolto sulla porta free-port, associare all'interrupt ricezione carattere la scrittura di MB che ti interessa

[Gianmario Pedrani]

Attento che non puoi attaccare direttamente il cavo della seriale che esce dal pc altrimenti bruci la seriale del pc, perché le porte del plc anche se sono configurate come free-port sono sempre delle rs484 in mezzo ci devi mettere il convertitore, o cavo pc-ppi