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


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

主题：请教老师出现一个错误
帅哥哟，离线，有人找我吗？
fangdejin
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：411 积分：4309 威望：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


加好友 发短信
等级：一尾狐 帖子：411 积分：4309 威望：0 精华：0 注册：2018/7/18 21:08:00 		  发帖心情 Post By：2019/2/11 19:35:00 [显示全部帖子]

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

 回到顶部
帅哥哟，离线，有人找我吗？
fangdejin
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：411 积分：4309 威望：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
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：411 积分：4309 威望：0 精华：0 注册：2018/7/18 21:08:00 		  发帖心情 Post By：2019/2/11 20:35:00 [显示全部帖子]

出现这个~~~~~

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


加好友 发短信
等级：一尾狐 帖子：411 积分：4309 威望：0 精华：0 注册：2018/7/18 21:08:00 		  发帖心情 Post By：2019/2/11 21:34:00 [显示全部帖子]

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

 回到顶部
帅哥哟，离线，有人找我吗？
fangdejin
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：411 积分：4309 威望：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("完成向读写器装载密码!")

删除了，没有出现这个提示了，密码代码出问题。。。
 回到顶部
帅哥哟，离线，有人找我吗？
fangdejin
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：411 积分：4309 威望：0 精华：0 注册：2018/7/18 21:08:00 		  发帖心情 Post By：2019/2/11 22:08:00 [显示全部帖子]

好的，谢谢老师。

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04102 秒, 5 次数据查询