Masalah Bagaimana membaca RFID Reader

[rakanety]

Senang bertemu Anda menguasai EDAboard elektronika, saya ingin bertanya.

Aku punya Reader RFID seperti ini:

Mulai OK
Data 0 = 30
Data 1 = 30
Data 2 = 31
Data 3 = 38
Data 4 = 36
Data 5 = 31
Data 6 = 37
Data 7 = 45
Checksum 0 = 31
Checksum 1 = 35
Data Akhir

dengan jumlah 1.597.822 kartu.

Saya ingin menanyakan apakah serial ouput adalah ASCII atau lainnya? Jika ASCII bagaimana membacanya dalam tabel ini:
02-10 data karakter ascii-checksum-CR-LF-03
Dan terakhir jenis kartu yang ini adalah itu ID-10, ID-19, dll?
Harap kirimi saya email ke sini atau langsung ke rakanety (at) yahoo.com.Thank Anda.

 

[antaranya]

Ini hex ASCII.

Kode diterjemahkan ke ASCII 0018617E yang 1.597.822 dalam desimal.

Brian.

 

[rakanety]

antaranya menulis:

Ini hex ASCII.Kode diterjemahkan ke ASCII 0018617E yang 1.597.822 dalam desimal.Brian.

 

[antaranya]

Sulit untuk mengatakan di mana jumlah ekstra datang dari, ini tergantung pada tag RFID itu sendiri dan perangkat ini benar-benar membacanya.Aku akan menebak '12 'adalah baik nomor status dari pembaca RFID atau mungkin kode produsen untuk tag RFID itu sendiri.

The '15 'pada akhirnya akan checksum.Pada dasarnya, nomor diturunkan oleh makan semua angka sebelumnya menjadi rumus matematika untuk memastikan mereka semua diterima dengan benar.Tidak ada standar untuk melakukan hal ini, itu tergantung pada produsen pembaca.Tiga cara utama yang digunakan hanya untuk menambah nilai dari seluruh karakter sebelumnya dan menunjukkan total, untuk menambahkan mereka dalam suatu persamaan polinomial atau menggunakan nomor yang membuat total menjadi jumlah yang dikenal.Lembar data untuk pembaca harus memberitahu Anda bagaimana dihitung.

Saya khawatir saya tidak dapat membantu dengan kode VB, saya tidak pernah diprogram dalam bahasa sering Micro $ sama sekali.Aku hanya program dalam bahasa assembly atau 'C' untuk mikrokontroler atau kadang-kadang, di Linux.

45 adalah kode ASCII heksadesimal untuk 'F E' tidak '!

Brian.

 

[rakanety]

The '15 \ \ 'dari data HyperTerminal: 120018617E15 ketika Anda menghitung

XOR 12hex 00hex XOR 18hex XOR 61hex XOR 7Ehex = 15 hex saya mendapatkannya dari beberapa referensi dan \ '12 'mungkin \ itu kode manufaktur seperti yang Anda sebutkan sebelumnya.

Mungkin Anda dapat mengirimkan saya untuk mendapatkan data dari HyperTerminal ke perakitan atau bahasa c, dan saya terjemahkan ke vb bahasa dengan myself.thank Anda untuk membantu.

 

[antaranya]

I don't think HyperTerminal memiliki cara untuk menyampaikan informasi kepada aplikasi lain selain tabungan sebagai teks atau memotong & paste.

Saya pikir apa yang perlu Anda lakukan adalah menggunakan VB untuk membuka port serial sebagai file dan membaca karakter dari itu.Maaf tapi saya tidak pernah menggunakan VB DASAR biarkan saja jadi saya tidak dapat membantu dengan instruksi-instruksi program yang tepat Anda harus menggunakan.Jika Anda membuka port serial, itu akan menjadi orang yang sama sekarang menggunakan HyperTerminal, Anda harus dapat membaca karakter langsung ke dalam program Anda.

Brian.

 

[rakanety]

Bisakah saya punya program untuk membuka port serial, untuk membaca karakter dari HyperTerminal? Terima kasih 'm you.i masih bertanya-tanya bagaimana untuk mendapatkan data ini untuk program ini ..

 

[rakanety]

Saya sudah mencoba source code ini

Private Sub Form_Load ()
MSComm1.Settings = "9600, n, 8,1"
MSComm1.CommPort = 1
Benar MSComm1.PortOpen =
End Sub

Private Sub Form_Unload (Batal As Integer)
Jika MSComm1.PortOpen = True Lalu MSComm1.PortOpen = Salah
End Sub

Private Sub MSComm1_OnComm ()
Jika MSComm1.CommEvent = comEvReceive Lalu
Text1.Text = MSComm1.Input
End If
End Sub

yang text1.text masih kosong, apakah aku untuk menangkap ini dari HyperTerminal ke file teks atau i program dengan ini?? bisa Anda memberikan beberapa informasi tentang ini terima kasih ...

NB: saya menggunakan 9600 dan COM1 untuk itu, karena di atas 9600 saya tidak dapat menggunakan

 

[windi]

coba anda gunakan Sintax ini semoga bisa membantu
Private Sub Form_Load()
MSComm1.PortOpen = True
End Sub

Private Sub MSComm1_OnComm()
Dim strinput As String
strinput = MSComm1.Input
text1.Text = text1.Text & strinput
strinput = HexIt(strinput)
end sub

Public Function HexIt(stext As String) As String
Dim a As Long
For a = 1 To Len(stext)
On Error Resume Next
DoEvents
Next a
End Function