請選擇 進入手機版 | 繼續訪問電腦版

施勢帆老師的教學網站

 找回密碼
 註冊
搜索
熱搜: 活动 交友 discuz
查看: 956|回復: 0

RFID example

[複製鏈接]
shie 發表於 2014-12-17 14:46:34 | 顯示全部樓層 |閱讀模式
include "global.tbh"

'====================================================================
dim baudrate as long
dim rx_data as string    'RFID卡號資料
dim last_tagid as string

sub on_sys_init()
' TODO: place "on_sys_init" event handler code here...
        dim ip as string
        ip="120.96.57.253"
        set_net_ip(ip)
        
        html_init
        
        '========== set ser =============
        ser.num = 0                              
        baudrate = 9600
        if baudrate >= 9600 then        
                ser.baudrate = ser.div9600/(baudrate/9600)
        else
        
                ser.baudrate= ser.div9600*(9600/baudrate)
        end if        
        ser.interface =PL_SER_SI_FULLDUPLEX
        ser.interchardelay = 50
        ser.parity = PL_SER_PR_NONE
        ser.rxbuffrq(1)
        ser.txbuffrq(1)
        sys.buffalloc        
        ser.enabled = YES
end sub


sub on_ser_data_arrival()
' TODO: place "on_ser_data_arrival" event handler code here...
        rx_data = ""
        last_tagid =""
        dim ss as string
        dim aa as word
        dim bb as dword
        while ser.rxlen > 0
                rx_data =  rx_data + ser.getdata(255)
                wend
                last_tagid = mid(rx_data,2,8)
                sys.debugprint("ser0:"+rx_data+chr(13)+chr(10))        
end sub


'sub on_ser_data_arrival()
' TODO: place "on_ser_data_arrival" event handler code here...
'        rx_data = ""
'     while ser.rxlen > 0
'                rx_data = rx_data + ser.getdata(255)
'        wend
'end sub

'public dim s as string
'sub on_sys_timer()
' TODO: place "on_sys_timer" event handler code here...
'        dim i as word
'         if sys.timercount mod 2 =0 then
'                romfile.open("sn.txt")
'                i=romfile.find(romfile.pointer,">",1) ' 以符號>為分界點取出資料
'                while i<>0 '讀出所有資料
'                  romfile.pointer=i+1 '從>符號開始的位置往後移動一個
'                  s= s + romfile.getdata(10)+"<br>" '取出7個bytes
''                  i=romfile.find(romfile.pointer,">",1) '找到下一個>起始的位置
'        wend
'        
'        'i=romfile.find(romfile.pointer,"9403005",1) '找到9403005的起始位置
'        
'        end if
'end sub






本帖子中包含更多資源

您需要 登錄 才可以下載或查看,沒有帳號?註冊

x
您需要登錄後才可以回帖 登錄 | 註冊

本版積分規則

小黑屋|手机版|Archiver|施勢帆老師的教學網站  

GMT+8, 2021-4-21 01:27 , Processed in 0.083902 second(s), 20 queries .

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回復 返回頂部 返回列表