A
auto_mitch
Guest
Ciao a tutti!
Ho un problema con l'interfaccia micrologix 1000.Voglio conoscere lo stato di ciascun ingresso o di uscita del dispositivo.La comunicazione tra PLC e PC avviene tramite il protocollo DDE.Questa parte funziona bene.Il programma legge il bit che corrisponde alla I: 0 / 0 ingresso e mostra il suo status 0 o 1 di un testo.Vorrei anche che, quando il valore del testo sarà 0, un oggetto Shape (cerchio) diventa rosso, e il contrario, quando il valore del testo sarà 1, un oggetto Shape (cerchio) diventerà verde.Il mio problema è che quando il testo modificare il colore la forma è ancora rosso.per favore potete aiutarmi?Thanx for your time!
Codice:
Private Sub Form_Load ()
Dim Input1 As IntegerText1.LinkTopic = "RSLinx | My_Prog" 'Imposta il nome dell'applicazione e il nome del tema.
Text1.LinkItem = "N7: 22 / 0" 'Set LinkItem.
Text1.LinkMode = vbLinkAutomatic 'Set LinkMode su Automatico.
Box Text1.LinkRequest 'aggiornare il testo.Text1.Text = Input1
Se Input1 = 0 Then
Shape1.FillColor = QBColor (12)
Else: Shape1.FillColor = QBColor (10)
End If
End Sub
Ho un problema con l'interfaccia micrologix 1000.Voglio conoscere lo stato di ciascun ingresso o di uscita del dispositivo.La comunicazione tra PLC e PC avviene tramite il protocollo DDE.Questa parte funziona bene.Il programma legge il bit che corrisponde alla I: 0 / 0 ingresso e mostra il suo status 0 o 1 di un testo.Vorrei anche che, quando il valore del testo sarà 0, un oggetto Shape (cerchio) diventa rosso, e il contrario, quando il valore del testo sarà 1, un oggetto Shape (cerchio) diventerà verde.Il mio problema è che quando il testo modificare il colore la forma è ancora rosso.per favore potete aiutarmi?Thanx for your time!
Codice:
Private Sub Form_Load ()
Dim Input1 As IntegerText1.LinkTopic = "RSLinx | My_Prog" 'Imposta il nome dell'applicazione e il nome del tema.
Text1.LinkItem = "N7: 22 / 0" 'Set LinkItem.
Text1.LinkMode = vbLinkAutomatic 'Set LinkMode su Automatico.
Box Text1.LinkRequest 'aggiornare il testo.Text1.Text = Input1
Se Input1 = 0 Then
Shape1.FillColor = QBColor (12)
Else: Shape1.FillColor = QBColor (10)
End If
End Sub