Specifications

27/201
End If
'Copying corresponding job to name for sending．
If Not JobCopy
(JobName, CvtName) Then
MsgBox
"Job copy disabled.．(" + JobName + ")"
Exit Do
End If
DispLogMsg
lst, JobName + "copied to " + CvtName + ".", LogFile
DispLogMsg
lst, "***** Waiting for request for job transmission.*****", ""
'Sending job due to instruction from YASNAC.
If Not DciLoadSave(nCid, lst, LogFile)
Then Exit Do
Cycle = Cycle + 1
DispLogMsg
lst, "Job has been sent.(" + Format$(Cycle) + "Circulating).", LogFile
Loop
'No. of communication handlers.
rc = Ms_BscCloseComm(nCid)
If rc <> 0 Then
MsgBox
"BscCloseComm terminates in fail." + "(" + Format$(rc) + ")."
End If
Else
MsgBox
"Cannot open." + ProfileCom
End If
End Sub
Note: Double underline
indicates transmission functions belonging to the MOTOCOM32, single
underline indicates functions of which program lists are described below, and dotted underline
indicates the functions which are described below.
Function Ms_BscOpenComm ( mode% )
'mode: 0...RS-232C 1...Ethernet
Function Ms_BscOpenComm( mode% ) as Integer
Dim ncid As Integer
Dim rc As Integer
Dim IPAddrress As string
Ms_BscOpenComm = -1
if mode=0 then
‘Open the port.
ncid = BscOpen(CurDir$, 1)
If ncid < 0 Then GoTo Ms_BscOpenComm_Exit
‘Set serial communications parameters.
rc = BscSetCom(ncid, 1, 9600, 2, 8, 0)
else
‘Open the Ethernet line.
ncid = BscOpen(CurDir$, PACKETETHERNET)
If ncid < 0 Then GoTo Ms_BscOpenComm_Exit
'Set Ethernet communications parameters.
IPAddrress = "999.999.99.99" '<---Specify any IP address.
rc = BscSetEther( ncid , IPAddrress , 0, frmMain.hWnd )
end if
If rc <> 1 Then