RFID example

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