Foxtable(狐表)用户栏目专家坐堂 → 请教老师出现一个错误


  共有2676人关注过本帖树形打印复制链接

主题:请教老师出现一个错误

帅哥哟,离线,有人找我吗?
fangdejin
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:410 积分:4274 威望:0 精华:0 注册:2018/7/18 21:08:00
请教老师出现一个错误  发帖心情 Post By:2019/2/11 19:34:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:微信图片_20190211193419.png
图片点击可在新窗口打开查看

btnInitDev按钮click代码

icdev = Mwrf32.rf_init(0, 9600)
If (icdev > 0) Then
    AppendStatus("成功连接读写器")
    Dim status As New String(status, 20)
    Dim st = Mwrf32.rf_get_status(icdev, status)
    If (st = 0) Then
        status = ClearNullString(status)
        e.Form.Controls("lblDevVer").Text = "硬件版本号: " & status
    Else
        e.Form.Controls("lblDevVer").Text = ""
    End If
    status =  New String(status, 16)
    st = Mwrf32.rf_srd_snr(icdev,16, status)
    If (st = 0) Then
        status = ClearNullString(status)
        e.Form.Controls("lblCardSeq").Text = "设备序列号: 2019年001号 " & status
    Else
        e.Form.Controls("lblCardSeq").Text = ""
    End If
    
    '向读写器装载指定扇区的新密码(不与卡片进行通讯) ,读写器中有16个扇区的密码(0~15) ,每个扇区有两个密码(KEY  A 和 KEY B)
    Dim keyA = "ffffffffffff" '默认密码
    Dim keyB = "ffffffffffff" '默认密码
    For sector As Integer = 0 To 15
        Dim dr As DataRow = DataTables("读写器密码").Find("扇区 = " & sector ) ' 从数据表获取加载密码
        If dr IsNot Nothing Then
            keyA = dr("密码A")
            keyB = dr("密码B")
        End If
        '装载密码A
        st = Mwrf32.rf_load_key_hex(icdev, 0, sector, keyA)
        If (st <> 0) Then
            AppendStatus("向读写器扇区" & sector & "装载密码A错误: " & GetErrorDesc(st))
        End If
        '装载密码B
        st = Mwrf32.rf_load_key_hex(icdev, 4, sector, keyB)
        If (st <> 0) Then
            AppendStatus("向读写器扇区" & sector & "装载密码B错误: " & GetErrorDesc(st) )
        End If
    Next
    AppendStatus("完成向读写器装载密码!")
    
    e.Form.Controls("pnlOprate").Visible = True
    e.Form.Controls("btnCloseDev").Enabled = True
    e.Form.Controls("btnInitDev").Enabled = False
    e.Form.Controls("btnReadCards").Enabled = True

    ''st = rf_beep(icdev, 30) '蜂鸣30ms,根据需要使用
Else
    AppendStatus("连接读写器失败,请查看是否已连接读写器,或者读写器已被其它程序占用: " & GetErrorDesc(icdev))
End If

 回到顶部
帅哥哟,离线,有人找我吗?
fangdejin
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:410 积分:4274 威望:0 精华:0 注册:2018/7/18 21:08:00
  发帖心情 Post By:2019/2/11 19:35:00 [只看该作者]

不知道哪个参数错了。。。。。。。。。。。

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105481 积分:536396 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/2/11 20:21:00 [只看该作者]

调试技巧:http://www.foxtable.com/webhelp/scr/1485.htm

看是哪一句代码出错

 回到顶部
帅哥哟,离线,有人找我吗?
fangdejin
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:410 积分:4274 威望:0 精华:0 注册:2018/7/18 21:08:00
  发帖心情 Post By:2019/2/11 20:35:00 [只看该作者]

出现这个
图片点击可在新窗口打开查看此主题相关图片如下:微信图片_20190211203956.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2019/2/11 20:37:10编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
fangdejin
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:410 积分:4274 威望:0 精华:0 注册:2018/7/18 21:08:00
  发帖心情 Post By:2019/2/11 20:35:00 [只看该作者]

出现这个~~~~~

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105481 积分:536396 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/2/11 20:45:00 [只看该作者]

重启一下项目,再重新测试

 回到顶部
帅哥哟,离线,有人找我吗?
fangdejin
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:410 积分:4274 威望:0 精华:0 注册:2018/7/18 21:08:00
  发帖心情 Post By:2019/2/11 21:34:00 [只看该作者]

还是不行 还是第一张图的提示, Range对象中,Min(2)必须小于或等于Max(-1)

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105481 积分:536396 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/2/11 21:54:00 [只看该作者]

调试技巧:http://www.foxtable.com/webhelp/scr/1485.htm

看是哪一句代码出错

 回到顶部
帅哥哟,离线,有人找我吗?
fangdejin
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:410 积分:4274 威望:0 精华:0 注册:2018/7/18 21:08:00
  发帖心情 Post By:2019/2/11 21:56:00 [只看该作者]

蓝老师,我把
 '向读写器装载指定扇区的新密码(不与卡片进行通讯) ,读写器中有16个扇区的密码(0~15) ,每个扇区有两个密码(KEY  A 和 KEY B)
    Dim keyA = "ffffffffffff" '默认密码
    Dim keyB = "ffffffffffff" '默认密码
    For sector As Integer = 0 To 15
        Dim dr As DataRow = DataTables("读写器密码").Find("扇区 = " & sector ) ' 从数据表获取加载密码
        If dr IsNot Nothing Then
            keyA = dr("密码A")
            keyB = dr("密码B")
        End If
        '装载密码A
        st = Mwrf32.rf_load_key_hex(icdev, 0, sector, keyA)
        If (st <> 0) Then
            AppendStatus("向读写器扇区" & sector & "装载密码A错误: " & GetErrorDesc(st))
        End If
        '装载密码B
        st = Mwrf32.rf_load_key_hex(icdev, 4, sector, keyB)
        If (st <> 0) Then
            AppendStatus("向读写器扇区" & sector & "装载密码B错误: " & GetErrorDesc(st) )
        End If
    Next
    AppendStatus("完成向读写器装载密码!")

删除了,没有出现这个提示了,密码代码出问题。。。

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105481 积分:536396 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/2/11 22:03:00 [只看该作者]

可能的原因:
1、卡片没有16个扇区那么多,或者卡片存储的不是12位密码,具体咨询一下购买卡片的商家
2、存储的密码不正确,超过了范围

 回到顶部
总数 11 1 2 下一页