Zuviel Werbung? - > Hier kostenlos beim SPS-Forum registrieren

Ergebnis 1 bis 3 von 3

Thema: Realtime Werte mit ADS-Protokol

  1. #1
    Registriert seit
    16.03.2009
    Beiträge
    3
    Danke
    0
    Erhielt 0 Danke für 0 Beiträge

    Standard


    Zuviel Werbung?
    -> Hier kostenlos registrieren
    Ich übergebe mit Hilfe eines ADS Befehls einen von mir ermittelten Messwert an mein VB Programm.Im Moment bekomme Ich meinen Messwert nur angezeigt ,wenn ich einen Schalter betätige.Ich möchte diesen aber immer angezeigt bekommen, sobald er sich ändert.Habe unten mein Programm stehen wer kann mir sagen wie ich es anpassen kann?
    PublicClass Form1
    Dim hSwitch AsLong
    Dim hVar AsInteger

    PrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
    Call AxAdsOcx1.AdsCreateVarHandle("Main.Start_Messung", hSwitch)
    Call AxAdsOcx1.AdsCreateVarHandle("MAIN.Vakuum", hVar)
    EndSub
    PrivateSub Form_Unload(ByVal Cancel AsInteger)
    Call AxAdsOcx1.AdsDeleteVarHandle(hSwitch)
    Call AxAdsOcx1.AdsDeleteVarHandle(hVar)
    EndSub
    PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim Start_Messung AsBoolean
    Dim VBVar AsInteger
    'SPS-Variable switch auf TRUE setzen
    Start_Messung = True
    Call AxAdsOcx1.AdsSyncWriteBoolVarReq(hSwitch, 2&, Start_Messung)
    Call AxAdsOcx1.AdsSyncReadIntegerVarReq(hVar, 4&, VBVar)
    Label1.Text = VBVar
    EndSub
    PrivateSub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    Dim Start_Messung AsBoolean
    'SPS-Variable switch auf False setzen
    Start_Messung = False
    Call AxAdsOcx1.AdsSyncWriteBoolVarReq(hSwitch, 2&, Start_Messung)
    EndSub

    EndClass
    Zitieren Zitieren Realtime Werte mit ADS-Protokol  

  2. #2
    Registriert seit
    24.04.2008
    Ort
    Lübeck
    Beiträge
    324
    Danke
    8
    Erhielt 63 Danke für 62 Beiträge

    Standard

    Hmm... in der DotNet Komponente gibt es Notifications, die dir automatisch bei Änderungen immer den aktuellsten Wert senden, jedoch hab ich diese Funktion nicht für AdsOcx gefunden.

    Dann musst du wohl einen Timer benutzen, der zyklisch einen ReadBefehl macht.

  3. #3
    td97 ist offline Neuer Benutzer
    Themenstarter
    Registriert seit
    16.03.2009
    Beiträge
    3
    Danke
    0
    Erhielt 0 Danke für 0 Beiträge

    Standard


    Zuviel Werbung?
    -> Hier kostenlos registrieren
    Hallo habe das mit dem Timer ausprobiert leider bekomme ich es so auch nicht hin.

Ähnliche Themen

  1. TwinCAT Realtime Ethernet über W-LAN
    Von DanielDorn im Forum CODESYS und IEC61131
    Antworten: 1
    Letzter Beitrag: 23.09.2011, 11:25
  2. Realtime Ethernet
    Von Voxe im Forum CODESYS und IEC61131
    Antworten: 0
    Letzter Beitrag: 16.06.2011, 22:07
  3. Realtime mit libnodave
    Von Nobby37 im Forum Hochsprachen - OPC
    Antworten: 25
    Letzter Beitrag: 21.04.2010, 19:27
  4. Antworten: 2
    Letzter Beitrag: 12.11.2009, 21:07
  5. Realtime OS und SPS
    Von drfunfrock im Forum Stammtisch
    Antworten: 9
    Letzter Beitrag: 09.11.2006, 13:29

Lesezeichen

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • Anhänge hochladen: Nein
  • Beiträge bearbeiten: Nein
  •