680
社区成员
发帖
与我相关
我的任务
分享
string data1,data2
data1=char(210)
st=rf_write(icdev,sector*4,ref data1)
if st=0 then
lb_1.Additem("rf_write ok")
else
lb_1.Additem("rf_write error")
end if
data2=space(32)
st=rf_read(icdev,sector*4,ref data2)
if st=0 then
lb_1.Additem("rf_read ok "+data2)
else
lb_1.Additem("rf_read error")
end if
messagebox("",asc(data2))