Robofun 機器人論壇

 找回密碼
 申請會員
搜索
熱搜: 活動 交友 discuz
查看: 3167|回復: 1
打印 上一主題 下一主題

VB.NET去控制RFID卡的問題?

[複製鏈接]
跳轉到指定樓層
1#
發表於 2013-7-9 10:40:36 | 只看該作者 回帖獎勵 |倒序瀏覽 |閱讀模式
本帖最後由 k940714675 於 2013-7-9 20:26 編輯

我是剛觸碰Arduino跟VB的新手,想問各位高手們知道如何用VB.NET去讀取Arduino板的RFID卡的資料,我完全沒什麼頭緒要怎麼打,還請各位前輩指點!
Arduino 的部分我參考了標機器人的程式碼!
而VB的部分我完全沒頭緒,請各位前輩指點!
Arduino的程式碼:
#include <SoftwareSerial.h>
#define RFID_WRITE 0x02
#define RFID_READ 0x01
#define txPin 6
#define rxPin 8
SoftwareSerial mySerial(rxPin, txPin);
int val;
int runs = 0;
void setup()
{
Serial.begin(9600);
Serial.println("RFID Read/Write Test");
mySerial.begin(9600);
pinMode(txPin, OUTPUT);
pinMode(rxPin, INPUT);  
}
void suppressAll()  
{   
if(mySerial.available() > 0)
   
{ mySerial.read();
      
suppressAll();
   
}
}
void loop(){ int val;  
mySerial.print("!RW");  
mySerial.write(byte(RFID_READ));
  mySerial.write(byte(32));
  if(mySerial.available() > 0)
{
val = mySerial.read();
if (val != 1)
{suppressAll();}
}
if(mySerial.available() > 0)
{         
val = mySerial.read();
Serial.print(val, HEX);   
}
if(mySerial.available() > 0)
{           
val = mySerial.read();
Serial.print(val, HEX);   
}
if(mySerial.available() > 0)
{      
val = mySerial.read();
Serial.print(val, HEX);
}
if(mySerial.available() > 0)
{            
val = mySerial.read();
Serial.print(val, HEX);
}

delay(750);

}
2#
 樓主| 發表於 2013-7-9 15:24:17 | 只看該作者
vb的程式碼只知道:
Imports System.IO
Imports System.IO.Ports
Imports System.Threading
Public Class Form1
    Shared _serialport As SerialPort
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        SerialPort1.Close()
        SerialPort1.PortName = "com3"
        SerialPort1.BaudRate = 9600
        SerialPort1.DataBits = 8
        SerialPort1.Parity = Parity.None
        SerialPort1.StopBits = StopBits.One
        SerialPort1.Handshake = Handshake.None
        SerialPort1.Encoding = System.Text.Encoding.Default
    End Sub

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
   
    End Sub
End Class
您需要登錄後才可以回帖 登錄 | 申請會員

本版積分規則

小黑屋|手機版|Archiver|機器人論壇 from 2005.07

GMT+8, 2025-1-31 15:50 , Processed in 0.191736 second(s), 7 queries , Apc On.

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

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