INFO: Dieses Forum nutzt Cookies...
Cookies sind für den Betrieb des Forums unverzichtbar. Mit der Nutzung des Forums erklärst Du dich damit einverstanden, dass wir Cookies verwenden.

Es wird in jedem Fall ein Cookie gesetzt um diesen Hinweis nicht mehr zu erhalten. Desweiteren setzen wir Google Adsense und Google Analytics ein.




Unsere Partner:

DIAdem-Forum.de Partner

DIAdem-Forum.de Partner






Stellenangebote:
Berater und SW-Entwickler (m/w) für 3D-Erfassung/-Visualisierung/-Druck
Ulm

Applicationsingenieur (m/w) Testsysteme Central IE Prozessentwicklung
Frankfurt am Main

Entwicklungsingenieur (m/w) Auslegung / Versuch für Elektromotoren
Frankfurt

Ingenieur/in Fernüberwachung
Westliches Ruhrgebiet

Senior Softwareentwickler/in
Westliches Ruhrgebiet





.
 
Themabewertung:
  • 0 Bewertung(en) - 0 im Durchschnitt
  • 1
  • 2
  • 3
  • 4
  • 5

Einlesen über serielle Schnittstelle
02.07.2015, 10:51,
#1
DIAdem-Version: 2012
DIAdem-Sprachversion: DE
DIAdem Erfahrung seit: 2011
Einlesen über serielle Schnittstelle

Hallo zusammen,

ich möchte über eine serielle Schnittstelle die Daten einer Drehmomentenmessnabe einlesen (siehe Beitrag: Scribt Treiber für Drehmomentenmessnabe erstellen).

Es scheint bei meinen Programmierversuchen allerdings schon beim reinen Einlesen der Daten zu scheitern. Beim folgenden Code stehe ich im Moment:

Option Explicit

Dim oUDI

Sub SFD_Init( DeviceParam1V, DeviceParam2V, ErrorP )

Set oUDI=CreateObject("DIAdem.SFD.UDI" )

Call SFD_Init(oUDI,"COM3,9600,N,8,1")

End Sub

Sub SFD_ReadChannel( ChannelNumberP, ParamP, DataP, ErrorP )

Dim sgAntwortT

Call oUDI.Write()

sgAntwortT=oUDI.Read()

DataP =CDbl(oUDI.Parse(sgAntwortT,"%AD" ))

End Sub


Es erscheint die Fehlermeldung:
Falsche Anzahl an Argumenten oder Eigenschaftszuweisung bei SFD_Init


Kann mir jemand weiterhelfen?

Antworten
02.07.2015, 11:02,
#2
DIAdem-Version: 2014SP1, 2015SP2 und DIAdem 2017 / dabei seit DIA/DAGO 2
DIAdem-Sprachversion: DE
DIAdem Erfahrung seit: 1995
RE: Einlesen über serielle Schnittstelle

Hallo,
das kann ja nicht gehen, denn die SFD_Init, hat nichts mit mit der Initialisierung der seriellen Schnittstelle SFDU_COMInit zu tun.
Die von DIAdem generierte Vorlage enthält doch alles was benötigt wird:

Sub SFD_Init( DeviceParam1V, DeviceParam2V, ErrorP )
' Diese Funktion ist optional
' Zu ergänzen : Geben Sie hier den Code für das
' Initialisieren der Messung ein.
' Anlegen des UDI-Objektes
Set oUDIM=CreateUDI
'-------------------------------------------------
' Öffnen und Initialisieren der seriellen
' Schnittstelle
'-------------------------------------------------
Call SFDU_COMInit(oUDIM,"COM1,9600,N,8,1")
End Sub
'


Gruß
Voyager

Antworten
06.07.2015, 14:43,
#3
DIAdem-Version: 2012
DIAdem-Sprachversion: DE
DIAdem Erfahrung seit: 2011
RE: Einlesen über serielle Schnittstelle

Hallo zusammen,

bislang funktioniert das Einlesen immer noch nicht. Es wird dauerhaft eine null ausgegeben. Woran kann das liegen?

'-------------------------------------------------------------------------------
Option Explicit 'Erzwingt die explizite Deklaration aller Variablen in einem Script.
' Global parameters
'-------------------------------------------------
Dim oUDIM
Set oUDIM = CreateObject("DIAdem.SFD.UDI")
Call oUDIM.Open( "COM", "COM3")
'-------------------------------------------------
Sub SFDU_COMInit( ByRef sgDeviceparam1, ByRef sgDeviceparam2, ByRef sgError )

Call SFDU_COMInit(oUDIM,"COM3,9600,N,8,1")
' eventuell notwending um Byte-Reihenfolge zu aendern oUDI.ByteSwap = 1

End Sub
'-------------------------------------------------
Sub SFD_ReadChannel( sgChannelNumberP, sgParamP, dDataP, ErrorP )

Dim vData, vArray

vData = oUDIM.Read()'Lesen aller vorhandenen Daten vom UDI-Objekt

vArray = oUDIM.Parse(vData,"%1l%1L%1L%1L%1L")' Auslesen von sechs Bytes aus vData, Aufbereitung der Binärdaten für VB-Scribt durch die Funktion Parse

dDatap=vArray

End Sub

Antworten


Möglicherweise verwandte Themen...
Thema Verfasser Antworten Ansichten Letzter Beitrag
  Maximalwert über gesamte Messung MBT 2 772 09.06.2017, 07:12
Letzter Beitrag: MBT
  Erfassen von Messwerten über VB-Skript kusserob 2 5.769 29.09.2011, 19:10
Letzter Beitrag: kusserob
  Daten von serieller Schnittstelle visualisieren Onurb 2 6.218 05.05.2010, 11:40
Letzter Beitrag: conze
  Datenerfassung über serielle Schnittstelle Der Diplomant 2 6.499 15.04.2010, 08:48
Letzter Beitrag: Der Diplomant
  Aus-&Eingänge von PCI-6255 über DAC-Script automatisiert ansteuern bzw auslesen??? Peter 0 3.623 04.08.2009, 14:27
Letzter Beitrag: Peter

Gehe zu: