[VB 2010] pobranie infomacji ze sterownika S7-1200

Arcady · Dołączył: 07 Lis 2018 Posty: 6

Witam serdecznie.
Aktualnie zmierzam si? z pewnym problemem, a mianowicie odczytanie informacji ze sterownika Siemens S7-1200.
Sterownik ma podpi?te dwa czujniki zbli?eniowe i w danej sytuacji odczytuje sygna? z jednego czujnika (na sterowniku za?wieca si? zielona dioda na kontrolce 0 a w innej sytuacji odczytuje z drugiego czujnika (?wieci si? dioda przy kontrolce 1).
Pisz? a raczej próbuje napisa? system w Visual Basic, który b?dzie potrafi? odczyta? ten sygna? ze sterownika. (zdj?cie sterownika w za??czniku)
Je?eli ?wieci 0 - odczyt z pierwszego czujnika zbli?eniowego to np x=1 le?eli ?wieci 1 - odczyt z drugiego czujnika zbli?eniowego to np x=2 inaczej x=0.

Próbuje po??czy? si? po TCP/IP i to mi si? ju? uda?o. Mam przypisany adres IP i u?ywam portu 102 - tylko na nim udaje mi si? uzyska? po??czenie (nie wszystkie sprawdza?em)

Client = New TcpClient(Form1.TextBox1.Text, CInt(Form1.TextBox2.Text))
If Client.Client.Connected Then
MsgBox("Connected")
end if
System wy?wietla mi komunikat "Connected"
natomiast w kolejnym kroku nie mog? odczyta? informacji jak? przesy?a ten sterownik (o ile przesy?a Ci?gle).

Arcady · Dołączył: 07 Lis 2018 Posty: 6

Podobno przy u?yciu LIBNODAVE jest mo?liwo?? ?atwej komunikacji z tym sterownikiem.
Ja na t? chwil? mam problem z zaci?gni?ciem bilbioteki LBNODAVE albo mam zbyt starego VB 2010. albo jet jaki? inny problem. Pisze mi ?e libnodave.dll could not be added.

samolot · Dołączył: 26 Sty 2006 Posty: 8376 Skąd: Toru?

Arcady · Dołączył: 07 Lis 2018 Posty: 6

Witam
Uda?o mi si? po??czy? z bibliotek? LIBNODAVE.
Uda?o mi si? tak?e odczyta? sygna?. Ale chyba nie do ko?ca to ma tak wygl?da?.
Sterownik posiada "gniazda" od 0 do 7.
interesuje mnie informacja np. gniazdo 0 ?wieci.
Informacj? jako uda?o mi si? uzyska? to:
jak ?wieci gniazdo 0 mam wynik 256
jak ?wieci gniazdo 1 mam wynik 512
jak ?wieci gniazdo 0 i 1 mam wynik 768

teoretycznie wystarcza mi by odró?ni? wygna?y i wiedzie? co i jak.
Problem jest ?e planujemy rozbudow? sterownika i b?d? odczytywa? kolejne gniazda.
co za tym idzie b?dzie znacznie wi?cej kombinacji.

bardziej by mnie interesowa?o co? tego typu: gniazdo 0 = true or false; gniazdo 1= true or false
w sensie w p?tli bym sprawdza? gniazda i bym wiedzia?, które s? true a które false.

res = dc.readBytes(libnodave.daveFlags, 68, 8, 4, buf)
Dim result Integer = 0
If res = 0 Then
result = dc.getU32
end if

powy?szy sposób wyrzuca mi warto?ci: 256, 512, 768.
Jak uzyska? czy na 0 jest true czy false?

samolot · Dołączył: 26 Sty 2006 Posty: 8376 Skąd: Toru?

Skoro: