Prodave 与S300通讯

已锁定

lanlanzhu135

  • 帖子

    4
  • 精华

    0
  • 被关注

    0

论坛等级:新手

注册时间:2010-02-25

普通 普通 如何晋级?

Prodave 与S300通讯

502

0

2016-04-23 15:07:06

 请教,谁知道prodave6.2 与S300仿真的时候,为什么db_read_ex6可以读取DB块的数据,但是写db_write_ex6不能写数据到DB块中,报错误D241。用VB 测试的,代码如下:

Private Sub Command1_Click()
Dim dbblock As Long
Dim dbtype As Byte
Dim dbstart As Integer
Dim dbamount As Long
Dim dbbufferlen As Long
'Dim dbbuffer(1023) As Byte
Dim dbbuffer(6) As Byte
Dim k As Integer
'dbbufferlen = 1024
dbbufferlen = 7
dbblock = Text1(0).Text
dbstart = Text1(1).Text
dbamount = Text1(2).Text
Select Case Combo1.Text
       Case "Byte"
            dbtype = 2
       Case "Word"
            dbtype = 4
       Case "Dword"
            dbtype = 6
End Select
If dbtype = 2 Then
   k = dbamount
ElseIf dbtype = 4 Then
   k = dbamount * 2
ElseIf dbtype = 6 Then
   k = dbamount * 4
End If
Dim i As Integer
'For i = 0 To k - 1
'dbbuffer(i) = StrConv(Text2(i).Text, vbFromUnicode)
'Next i
For i = 0 To 5
 dbbuffer(i) = i + 1
Next i
Text2(0).Text = dbbuffer(0)
Text2(1).Text = dbbuffer(1)
Text2(2).Text = dbbuffer(2)
Text2(3).Text = dbbuffer(3)
Text2(4).Text = dbbuffer(4)
Text2(5).Text = dbbuffer(5)

Dim ret As Long
ret = db_write_ex6(dbblock, dbtype, dbstart, dbamount, dbbufferlen, dbbuffer(0))
Text2(6).Text = Hex(ret)
If ret = 0 Then
   MsgBox "写入成功。"
Else
   MsgBox "写入失败。"
End If
End Sub

qq:523421893,求交流和帮助!谢谢。。。

Prodave 与S300通讯 已锁定
编辑推荐: 关闭

请填写推广理由:

本版热门话题

SIMATIC S7-300/400

共有54710条技术帖

相关推荐

热门标签

相关帖子推荐

guzhang

恭喜,你发布的帖子

评为精华帖!

快扫描右侧二维码晒一晒吧!

再发帖或跟帖交流2条,就能晋升VIP啦!开启更多专属权限!

  • 分享

  • 只看
    楼主

top
X 图片
您收到0封站内信:
×
×
信息提示
很抱歉!您所访问的页面不存在,或网址发生了变化,请稍后再试。