DSP II: ELEC 4523 Real-Time Data Exchange - Faculty

More documents

Recommendations

Info

Real-Time Data Exchange Page 4/10status = RTDX_read( &ichan, &data, sizeof(data) );/* check the status of the read operation */if ( status != sizeof(data) ) {puts("ERROR: RTDX_read failed!\n" );exit(-1 );}/* use the value of the read data here */}/* disable the channel after use */RTDX_disableInput( &ichan );There are a few more functions in the RTDX module.• RTDX_sizeofinput is designed to be used in conjunction with RTDX_readNB after aread operation has completed. The function returns the number of sizeof units actually readfrom the specified data channel.• RTDX_channelBusy is also designed to be used in conjunction with RTDX_readNB. Thereturn value indicates whether the specified data channel is currently in use or not.• RTDX_isInputEnabled and RTDX_isOutputEnabled test whether a channel hasbeen enabled.Visual BasicThis laboratory will not show you how to program in VB. There are many tutorials on theinternet and many books available to learn VB. It is assumed that you have gone through atutorial on using VB before starting this lab. Descriptions of VB were written for Visual Basic6.0.VB Host Application BasicsThe steps that need to take place in the host application to send or receive data from thetarget are given below.• Define and include the RTDX return code constants. Some functions return statusinformation and the following codes can be used to evaluate that information.Const Success = &H0’ Method call is validConst Failure = &H80004005 ’ Method call failedConst ENoDataAvailable = &H8003001E ’ No data was available.’ However, more data may be’ available in the futureConst EEndOfLogFile = &H80030002 ’ No data was available.’ The end of the log file has’ been reached.• Declare a variable of type Object.Dim rtdx As Object• Create an instance of the RTDX COM object.Set rtdx = CreateObject("RTDX")• Open a channel for reading or writing where rtdx is the object that was opened.status = rtdx.Open("ochan", "R")status = rtdx.Open("ichan", "W")• Read or write data from the channel.
Real-Time Data Exchange Page 5/10• ReadSAI1, ReadSAI2, ReadSAI4, ReadSAF4, ReadSAF8, ReadSAI2V,ReadSAI4V, Read - Read a message and put the result in a VB SAFEARRAY• ReadI1, ReadI2, ReadI4, ReadF4, ReadF8 - read integer or floating-point datafrom the data channel.• Write - Write data from a SAFEARRAY to the host.• WriteI1, WriteI2, WriteI4, WriteF4, WriteF8 - Write data to the target.• Close the channel from reading or writing where rtdx is the object that was opened.status = rtdx.Close()• Release the reference to the RTDX COM object where rtdx is the object that was opened.Set rtdx = NothingThe following code is a host application that inputs one integer at a time. In the loop thechannel is read and the status returned is checked to determine the result of the read.Const Success = &H0Const Failure = &H80004005Const ENoDataAvailable = &H8003001EConst EEndOfLogFile = &H80030002’ Method call is valid’ Method call failed’ No data was available.’ However, more data may be’ available in the future.’ No data was available’ The end of the log file has’ been reached.Sub main()Dim rtdx As ObjectDim data As LongDim status As Long’COM object’If an error occurs then go to the following functionOn Error GoTo Error_Handler’Create the COM objectSet rtdx = CreateObject("RTDX")’Open the COM objectstatus = rtdx.Open("ochan", "R")’Check the status of the open functionIf status Success ThenDebug.Print "Opening of channel ochan failed"GoTo Error_HandlerEnd IfDo’Read an integer from the RTDX input channelstatus = rtdx.ReadI4(data)’Check the status of the readSelect Case (status)Case SuccessDebug.Print "Value " & data & " was received from the target"Case ENoDataAvailableCase EEndOfLogFileDebug.Print "End of log file has been detected"Case FailureDebug.Print "ReadI4 returned failure"Exit Do
Page 1 and 2: ObjectivesDSP II: ELEC 4523Real-Tim
Page 3: Real-Time Data Exchange Page 3/10re
Page 10: Real-Time Data Exchange Page 10/10i

DSP II: ELEC 4523 Real-Time Data Exchange - Faculty

Create successful ePaper yourself

Delete template?

Save as template?