Mitsubishi Electric MELSEC-Q Series User Manual page 49
Hide thumbs
Also See for MELSEC-Q Series:
- User manual (834 pages) ,
- Reference manual (674 pages) ,
- Programming manual (624 pages)
Table of Contents
Advertisement
DevNo, DevNum, DevData, PassWord )
End If
End If
End If
%>
<BODY>
<TABLE HEIGHT=80>
<TR><TD>
<FONT SIZE=+2>WEB-FUNCTION-TEST</FONT><P>
</TD></TR>
</TABLE>
<FORM METHOD=POST>
<TABLE BGCOLOR=LIGHTYELLOW ALIGN=RIGHT CELLPADDING=5 CELLSPACING=0 BORDER=0>
<TR BGCOLOR=CCCCFF><TH COLSPAN=2>DATA INPUT</TH></TR>
<TR><TD COLSPAN=2 HEIGHT=50><BR></TD></TR>
<TR>
<TD COLSPAN=2 ALIGN=CENTER HEIGHT=50>
<INPUT TYPE=TEXT NAME="DevData" SIZE=10 MAXLENGTH=8 VALUE=<%=DevData%>>
<INPUT TYPE=SUBMIT VALUE="Execute">
(Hexadecimal)
<BR>
D100-D101
</TD>
</TR>
<TR>
<TD ALIGN=CENTER COLSPAN=2 HEIGHT=80>
<INPUT TYPE=SUBMIT NAME="SetData" VALUE="Set">
<INPUT TYPE=SUBMIT NAME="SetData" VALUE="Reset"><BR>
M100
</TD>
</TR>
<TR>
<TH HEIGHT=50><INPUT TYPE=SUBMIT NAME="CpuNo" VALUE="Remote RUN"></TH>
<TH HEIGHT=50><INPUT TYPE=SUBMIT NAME="CpuNo" VALUE="Remote STOP"></TH>
</TR>
<TR><TH COLSPAN=2 BGCOLOR="CCFFCC">RESULT</TH></TR>
<TR><TH COLSPAN=2>
<%
Select Case Left(disp,5)
Case "<!OK>"
CHAPTER 5 EXAMPLE OF CREATING FILE FOR ACCESSING PROGRAMMABLE CONTROLLER
'Dim DevNum
'Number of device
DevNum="0002"
'Device data(use input value)
DevData=Trim(Request.Form("DevData"))
DevData=UCase(String(8-Len(DevData),"0") & DevData)
disp = Object.DevWrite( HostName, NetNo, PcNo, CpuTime, DevCode,
5
47
Advertisement
Table of Contents
