熟悉prodave的达人入

Private Sub Command2_Click()

Dim i, j As Integer

i = kf_integer(Int(Text1.Text))

res = db_write(10, 10, 1, i) '写入

res = db_read(10, 10, 1, j)

Text2.Text = kf_integer(j)

End Sub



Private Sub Form_Load()

res = unload_tool

End Sub



Private Sub Label1_Click()

plcadr(0).adr = 2

plcadr(0).SEGMENTID = 0

plcadr(0).SLOTNO = 2

plcadr(0).RACKNO = 0

res = load_tool(1, "s7online", plcadr(0)) '初始化

res = new_ss(1) '建立连接



End Sub





我读了几变手册还是不明白res = db_write(10, 10, 1, i)

不知道应该怎样读取plc上的值

救命呀
刚进一家小公司就要我编上位机监控siemens em231
自己对自由口通讯也不是很熟