PEAK-System Forum

Code: Select all

   ' Hier lesen Sei in einer loop die queue des Treiber solange bis eine Nachricht in der Queue gefunden wurde
   ' genau eine wird dann gelesen und in die CAN Datenstruktur "RcvMsg" kopiert 
   ' #Einverstanden
   Do While not RcvMsg.Read  ' Eingehende Msg im 10 ms Takt
      Wait 10 ' wenn 10 ms dann auch 10 ms verwenden
   Loop
   ' Jetzt haben Sie eine Nachricht empfangen und müssen sehen ob diese gültig war und ob das Datenbyte 1 den Wert 01 hat
   ' #Einverstanden
    If (RcvMsg.LastError = pcanErrorOk) And (RcvMsg.Data(0) = &H01) Then
      'jetzt schreiben den Inhalt des Datenbyte 2 in die Variable Wert
      ' #Einverstanden
      Wert= RcvMsg.Data(1) ' Wert aus DB1 lesen
    End If
   ' Wenn das lesen beim ersten Durchlauf nicht OK war, oder das Datenbyte 1 nicht 0x01, dann steht in Wert "irgendwas"
    ' #Nein, nicht "irgendetwas" sondern der letzte gültige Wert - oder täusche ich mich da?
    ' #Es ist die Absicht, dass der letzte gültige Wert bleibt bis ein neuer gültiger Wert kommt.
    msg.Data(0) = Wert ' Diese Zeile hatte ich, wie mehrmals oben erwähnt, nachträglich eingeführt 
   ' ja ist ja schön - aber was für ein Sinn hat das? msg ist doch eine komplette andere CAN Msg Struktur - Sie schreiben da jetzt halt den Wert rein ..OK?
   ' #Ja, ich kopiere den Wert von der Empfangs-Struktur in die Sende-Stuktur, wo liegt das Problem darin?
   ' #Siehe auch Frage weiter unten.
   ' wenn das zweite mal durch die Loop gegangen wird ist da auch noch der Altwert drin - sie löschen die Werte ja nicht nach einer Loop...
    'PrintToOutputWindow "Wert : " & Wert 
    If (Wert < 6) Then ' Nur wenn Wert <6
      If (MyClient.XmtQueueEmpty) Then ' und die Queue leer (macht keinen Sinn Queue ist 32.000 Nachrichten groß - wenn Sie die erreicht haben haben sie ein anders Problem)
      ' # Es geht gar nicht darum, dass ich Angst habe vor einem vollen Buffer, aber um die Echtzeit.
      ' # D.h. lieber kein Wert als ein alter Wert auf dem Bus. Trotzdem danke für den Hinweis.
        msg.Write PcanConn, 0   ' so -- und nun schreiben Sie die CAN Struktur "msg" NICHT die "RcvMsg" - das sind doch 2 verschiedene Variabeln ...ist doch logisch oder
      ' # Ja, wo liegt das Problem? Siehe unten.
      ' klar sendet er jetzt den Wert raus wenn Sie vorher den Wert in diese CAN MSG Struktur geschrieben haben , ansonsten wird er "irgendwas" schreiben - sie haben ja nichts eingestellt 
        msg.Write PcanConn, (MyClient.GetSystemTime + 5) ' und hier nochmal , halt nur 5ms später
      End If
    End If

Code: Select all

msg.Data(0) = Wert

Code: Select all

  1271)      4453.4  Tx         0400  2  01 00 
  1272)      4455.7  Rx         0181  2  00 00 
  1273)      4460.7  Rx         0181  2  00 00 
  1274)      4463.5  Tx         0400  2  01 00 
  1275)      4465.8  Rx         0181  2  00 00 
  1276)      4470.6  Rx         0181  2  00 00 
  1277)      4473.4  Tx         0400  2  01 00 
  1278)      4475.8  Rx         0181  2  00 00 
  1279)      4480.7  Rx         0181  2  00 00 
  1280)      4483.6  Tx         0400  2  01 03 <- Änderung von 0 auf 3
  1281)      4485.8  Rx         0181  2  03 00 
  1282)      4490.7  Rx         0181  2  03 00 
  1283)      4493.6  Tx         0400  2  01 03 
  1284)      4495.8  Rx         0181  2  03 00 
  1285)      4500.7  Rx         0181  2  03 00 
  1286)      4503.5  Tx         0400  2  01 03 
  1287)      4505.8  Rx         0181  2  03 00 
  1288)      4510.7  Rx         0181  2  03 00 

Code: Select all

Sub Versuch()

  Dim MyClient, PcanConn
  Set MyClient = CreateObject("PCAN3.PCANClient")
  MyClient.Device = "pcan_pci"
  MyClient.Name = "Macro"
  Set PcanConn = MyClient.Connections.Add("PCI2")
  
  Dim msg
  Set msg = MyClient.Messages.Add
  With msg
     .ID = &H181
     .DLC = 2
     .Data(0) = &H00
     .Data(1) = &H00
  End With
  
  PcanConn.RegisterMsg &H400, &H400, False, False
  Dim RcvMsg
  Set RcvMsg = MyClient.Messages.Add
  
  Dim Wert
  
  Wait 1000
  
  While true
  ' Endless loop
  
    Do While not RcvMsg.Read  ' Eingehende Msg im 10 ms Takt
      Wait 1
    Loop
    If (RcvMsg.LastError = pcanErrorOk) And (RcvMsg.Data(0) = &H01) Then
      'read Wert
      Wert= RcvMsg.Data(1)
    End If

    msg.Data(0) = Wert   ' Diese Zeile hat gefehlt

    If (Wert < 6) Then
      If (MyClient.XmtQueueEmpty) Then
        msg.Write PcanConn, 0
        msg.Write PcanConn, (MyClient.GetSystemTime + 5)
      End If
    End If
    
  Wend ' Endless Loop
  
End Sub