ist es möglich die Eingänge I9 - I24 auszulesen?

Stichwort „LIBNODAVE“!

Hallo!

ist es auch möglich die Eingänge I9 - I24 (wenn erweitert mit z.B. DM16, usw.) auszulesen?

Ich bekomme diese Signale nicht ins Programm….

Wenn ich z.B. die Visualisierung der Eingänge erweitere und I9 hinzufüge, müsste ich dies im Code ja folgendermaßen anpassen:

Danke schonmal! 

VG

Ingo

------------------------------------------------------------------------------------------
Gesplittet von Visualisierung mit VB.Net auf Logo!8.

Da gebe ich dir Recht, in meinem Beispiel ist tatsächlich nur DI1-DI8 verwendbar.

Dazu musst du in der Datei Module1.vb etwas abändern.

 Das hier ist der ursprüngliche Eintrag:

Public Function DI(ByVal Kanal As Integer) As Boolean

'DI Bereich 1024 bis 1026

Dim c As Byte
Dim buf(1000) As Byte

res = dc.readBytes(libnodave.daveDB, 0, 1024, 1, buf)
If res = 0 Then
  c = Str(dc.getU8)

  If IsBitSet(c, Kanal - 1) Then
    DI = True
  Else
    DI = False
  End If

Else

  Fehler = True
  DI = False
  Form1.ToolStripStatusLabel1.Text = "Fehler DI"

End If

End Function

Diesen Abändern auf folgendes:

Public Function DI(ByVal Kanal As Integer) As Boolean

'DI Bereich 1024 bis 1026

Dim c As Byte
Dim buf(1000) As Byte
Dim Address_Bit As Integer = 1024

If Kanal >= 1 And Kanal <= 8 Then
  Address_Bit = 1024
ElseIf Kanal >= 9 And Kanal <= 16 Then
  Address_Bit = 1025
Kanal = Kanal - 8
  ElseIf Kanal >= 17 And Kanal <= 24 Then
Address_Bit = 1026
  Kanal = Kanal - 16
End If

res = dc.readBytes(libnodave.daveDB, 0, Address_Bit, 1, buf)
If res = 0 Then
  c = Str(dc.getU8)

  If IsBitSet(c, Kanal - 1) Then
    DI = True
  Else
    DI = False
  End If

  Else

    Fehler = True
    DI = False
    Form1.ToolStripStatusLabel1.Text = "Fehler DI"

End If

End Function

 Ich habe es nicht getestet, da ich leider keine freie Logo habe, aber ich denke das sollte klappen.

Zur Änderung:
Jetzt wird überprüft ob ein anderer Adressbereich verwendet werden muss.
In deinem Fall DI9, liegt nicht auf 1024, sondern auf 1025.
DI9 liegt zwischen 9 und 16 somit soll er Adresse 1025 nehmen.
Kanal - 8 ist dann Kanal 1 und bei "IsBitSet" Kanal - 1 ist dann 0, also Bit 0, entspricht 1025.0

Ich hoffe das hat alles seine Richtigkeit, wie gesagt, nicht getestet.
Das selbe müsste dann natürlich auch bei den Ausgängen DA abgeändert werden.

Gruss Sierra

Hallo @Sierra83,

vielen Dank für Deine Mühe!

ich meine, es tatsächlich auch schon mit 1025 und 1026 getestet zu haben, aber vielleicht habe ich was falsch gemacht.

Werde es in jedem Fall heute Nachmittag testen und hier über das Erge berichten!

Nochmals, Danke für die Mühe! 👍🏻

VG

Ingo

Hallo @Sierra3,

ich bin begeistert!

Funktioniert einwandfrei, auch die Ausgänge!

Vielen, vielen Dank!!!

Hallo Ingo!

Freut mich dass es funktioniert.

Nur die Adresse ändern hätte funktioniert wenn man wieder bei DI(1) anfängt.
Ich denke du hast bei 1025 mit DI(9) gearbeitet, damit hätte er Bit 8 abgefragt, also 1025.8 und das gibt es ja bei der Logo nicht (nur 1025.0 bis 1025.7)

Wünsche viel Erfolg und schönes Wochenende!

Mfg Sierra