2010252<_VersionPersist dt:dt="int">200{717E7FA3-5D5C-42F7-865E-3B680F8F86D0}SessionProcPSTThis experiment illustrates serial port communications. Two E-Prime
machines are connected via the serial port using a null modem
cable/adaptor. At run-time, the user is asked to designate whether
each machine is acting as sender or receiver (the receiving machine
should be launched first).
The sending machine sends a line of text terminated by {ENTER}.
Upon receipt of a line of text, the receiving machine echos the
string to the display accompanied by a line number.
Both processes terminate upon the entering of "end" from the
sending machine.{10343DBD-55BE-45C7-AA62-A5239F6918AB}01100212019-06-03T17:19:49.000536870912DisplayDisplay<_VersionPersist dt:dt="int">1-1064048016white1039201NoYes00%KeyboardKeyboard<_VersionPersist dt:dt="int">1-11000MouseMouse<_VersionPersist dt:dt="int">1-11000SoundSound<_VersionPersist dt:dt="int">100DirectSoundSerialSerial<_VersionPersist dt:dt="int">1-11019600800-1-10-1BlockTrialSubTrialLogLevel5LogLevel6LogLevel7LogLevel8LogLevel9LogLevel10011SubjectPlease enter the Subject Number (1-32767, 0=No Data Logging):0-1-11032767SessionPlease enter the Session Number (0-32767):0-1-11032767GroupPlease enter Subject's Group (0-32767):0001032767NamePlease enter Subject's Name:100255AgePlease enter Subject's Age (0-150):00000150SexPlease enter Subject's Sex:200malemalefemaleHandednessEnter Subject's Handedness:200leftleftrightResearcherIDPlease enter Researcher's ID:0001032767BlockListList{F1373518-BE91-40A0-AB4D-B426AA272019}2010258<_VersionPersist dt:dt="int">5- SenderTrialProc
- ReceiverTrialProc
330101111100Weight17510Nested17511Procedure1121121 SenderTrialProc1 ReceiverTrialProcSessionProcProcedure{3E2CFC43-FF90-48BE-A3BF-E21A3574C17B}2010254<_VersionPersist dt:dt="int">201- Intro
- SendOrReceive
- BlockList
101222IntroTextDisplaySendOrReceiveInLineBlockListListSenderTrialProcProcedure{F9DE06C8-4BF0-4894-8F96-B1F4A61FAC4B}2010254<_VersionPersist dt:dt="int">201- Label1
- Sender
- SendText
101222Label1LabelSenderTextDisplaySendTextInLineReceiverTrialProcProcedure{7252AA76-AAA0-409E-83A8-A6121604A4FD}2010254<_VersionPersist dt:dt="int">201- ReceiveText
101222ReceiveTextInLineSendOrReceiveInLine{40331395-04BA-4385-BB02-F2C59D8C5FBC}2010262<_VersionPersist dt:dt="int">1' Pick a line of the BlockList based on the response.
' This determines the Procedure to be run (Sender or Receiver)
Set BlockList.Deletion = PickOne( Intro.RESP )
BlockList.Reset
SendTextInLine{FC62C8CC-5D44-4336-AE3D-B4D6935A9CE1}2010262<_VersionPersist dt:dt="int">1Dim strLine As String
strLine = ""
strLine = Sender.RESP
If Len(strLine) = 0 Then
GoTo Label1
Else
'Format input string to remove spaces.
Serial.WriteString strLine
End If
' If we are not ending then allow another line.
' must strip off {ENTER} from the end
If (Left$(strLine, Len(strLine)-Len("{ENTER}")) <> "end") Then GoTo Label1
' Allow time for receiver to close.
Sleep 500
ReceiveTextInLine{78C9C5A4-549E-49EA-B513-425FD3E23144}2010262<_VersionPersist dt:dt="int">1Dim i As Long
Dim h As Long
Dim n As Long
Dim strIn As String
Dim strLine As String
Dim dc As Canvas
Dim bFullLine As Boolean
Dim bEndTrial As Boolean
strLine = ""
bFullLine = False
bEndTrial = False
i = 1
h = 15 ' text height
Set dc = Display.Canvas
dc.Clear
dc.Text 0, 0, "Receiving..."
Do
Do
' Wait for data
Do
Loop While Serial.InputCount = 0
' Data is now available.
n = Serial.ReadString( strIn )
' concatenate the line
strLine = strLine & strIn
' See if we have a full line yet
If Right$( strLine, Len("{ENTER}") ) = "{ENTER}" Then
' Strip off {ENTER}
strLine = Left$( strLine, Len(strLine)-Len("{ENTER}"))
'Replace {SPACE} with " "
strLine = ReplaceString (strLine, "{SPACE}", " ")
'Remove {SHIFT}
strLine = ReplaceString (strLine, "{SHIFT}", "")
' Display the line
dc.Text 0, i*h, CStr(i) & ":" & strLine
' Set flag to terminate app when "end" is entered
If strLine = "end" Then bEndTrial = True
strLine = ""
bFullLine = True
i = i + 1
'Clear screen after 30 lines (30th line displayed for 1 second)
If (i > 30) Then
Sleep 1000
dc.Clear
dc.Text 0, 0, "Receiving..."
i = 1
End If
End If
Loop Until bFullLine
bFullLine = False
Loop While bEndTrial = False
'Allow time before closing
Sleep 500IntroTextDisplay{30BA690B-9915-47E1-BF09-F09D01C1E15D}2010263<_VersionPersist dt:dt="int">100OnsetDelay0OnsetTime0DurationError0PreRelease0Duration0StartTime0OffsetTime0FinishTime0TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0PendingInputMasks0OffsetDelay0RTTime0ACC0RT0RESP0CRESP0Tag0OnsetToOnsetTime0KeyboardKeyboardKeyboard121111YesAllYes-10010blackwhiteopaqueblack0centercenter100%100%centercentercentercenterNoCourier New18YesNoNoNoThis demonstrates implementing basic serial communications in E-Prime.
You should connect two machines via the serial port and you MUST use a NULL MODEM cable/adaptor for this example.
Which do you want this application to be sender or receiver?
Type 1=sender or 2=receiver.-1000SenderTextDisplay{42324614-1F09-4F4B-A9C0-6915753967BB}2010263<_VersionPersist dt:dt="int">100OnsetDelay0OnsetTime0DurationError0PreRelease0Duration0StartTime0OffsetTime0FinishTime0TimingMode0CustomOnsetTime0CustomOffsetTime0ActionDelay0ActionTime0TargetOffsetTime0TargetOnsetTime0PendingInputMasks0OffsetDelay0RTTime0ACC0RT0RESP0CRESP0Tag0OnsetToOnsetTime0DisplayKeyboardKeyboardKeyboard{ANY}1000111Yes{ENTER}DisplayDisplay050%100%50%whiteblackopaqueblack1Courier New10NoNoNoNo1YesYesAllYes-10010blackwhiteopaqueblack0centercenter100%100%centercenterlefttopNoCourier New18YesNoNoNoPlease type and ENTER a line of text to send.
Type 'end' to instruct both apps to close.
-1000Label1Label{21F2A12B-BACC-4CE7-8426-89A48722EA26}2010263<_VersionPersist dt:dt="int">1Function ReplaceString(strSource As String, strFind As String, strReplace As String) As String
Dim strFinal As String
Dim nPosNew As Integer
Dim nPos As Integer
nPos = 1
Do
nPosNew = InStr(nPos, strSource, strFind)
If nPosNew > 0 Then
'Append up to where we found
strFinal = strFinal & Mid(strSource, nPos, nPosNew - nPos)
'Append the replaced string
strFinal = strFinal & strReplace
'Move past the item to find
nPos = nPosNew + Len(strFind)
Else
'Append the remainder of the string
strFinal = strFinal & Right(strSource, Len(strSource) - (nPos - 1))
'No more need to search
nPos = 0
End If
Loop Until nPos < 1
ReplaceString = strFinal
End Function