Mitsubishi Electric MELSEC-Q Series User Manual page 51
Hide thumbs
Also See for MELSEC-Q Series:
- User manual (834 pages) ,
- Reference manual (674 pages) ,
- Programming manual (624 pages)
Table of Contents
Advertisement
Dim Object
Set Object=Server.CreateObject("QeAccess.McProtcol")
Dim HostName 'Host name
HostName=" . . . "
Dim CmdData 'Command data
CmdData="500000FF03FF0000340040040600000201SD0002030001D*0001000002M*0001000001"
Dim RetType
RetType = "1"
disp=Object.ReqCmd( HostName, CmdData, PassWord, RetType )
Select Case Left(disp,5)
Case "<!OK>"
Value=Mid(disp,Len("<!OK>")+1)
End Select
End If
%>
<BODY STYLE="RIGHT">
<TABLE HEIGHT=80>
<TR><TD>
Time Read :<%=FormatDateTime(Now(),3)%><P>
</TD></TR>
</TABLE>
<FORM>
<TABLE BGCOLOR=lightyellow CELLPADDING=5 CELLSPACING=0 BORDER=0>
<TR BGCOLOR=#ccccff><TH COLSPAN=2>DATA DISPLAY</TH></TR>
<TR>
<TD HEIGHT=50>
Read interval :<INPUT SIZE=2 MAXLENGTH=2 NAME=time VALUE="<%=Time%>"
ONCHANGE="check_number(this);">seconds
<INPUT TYPE=submit VALUE="Set">
<INPUT TYPE=submit NAME="stop" VALUE="Stop">
</TD>
</TR>
<TR>
<TD COLSPAN=2 ALIGN=middle HEIGHT=50>
<!Dara register read result>
<INPUT TYPE=TEXT SIZE=10 MAXLENGTH=8 VALUE=<%=Mid(Value,27,8)%>>
(Hexadecimal)
<BR>
D100-D101
</TD>
</TR>
<TR>
CHAPTER 5 EXAMPLE OF CREATING FILE FOR ACCESSING PROGRAMMABLE CONTROLLER
'Communication library
'Execution result type
5
49
Advertisement
Table of Contents
