Membaca magnetic swipe card dengan AVR 8535

Fungsi magnetic swipe card adalah untuk membaca magnetik kartu , biasanya aplikasi untuk membaca kartu kredit,membaca kartu atm, dan yang sering digunakan pada kartu mainanan anak anak atau time zone , dimana kartu tersebut digesek maka AVR atau mikrokontroller akan megirim informasi kartu ke komputer database, dan kemudian diolah oleh database,... tanpa baasa basi silahkan lihat source code untuk membaca magnetic card reader dengan BASCOM AVR:
kalau ada pertanyaan hubungi saya  Muhammad Yassin  HP 0857-7918-4510 email :mhdyasseen@yahoo.com



$crystal = 11059200

$regfile = "m8535.dat"

$lib "lcd4busy.Lbx"

$baud = 9600

$hwstack = 32

$swstack = 10

$framesize = 40

Config Lcd = 16 * 2
Const _lcdport = Porta
Const _lcdddr = Ddra
Const _lcdin = Pina
Const _lcd_e = 2
Const _lcd_rw = 1
Const _lcd_rs = 0
Cursor Off
Dim Ar(100) As Byte , B As Byte , A As Byte ,
Dim C As Byte
Dim D As String * 10
Dim F As String * 40

_mport Alias Pinb

_mdata Alias 3

_mcs Alias 1

_mclock Alias 2

Portb = 255


'------------------MAIN PROGRAM -----------------------------------
Do
'------- jika ada card digesek maka panggil program baca reader----
If Pinb.1 = 0 Then
Gosub Baca
End If
Cls
'------------------------------------------------------------------
Loop

'--------  SUB rutin program baca card reader-----------------------
Baca:
F = ""
Readmagcard Ar(1) , B , 5
For A = 1 To B
D = Str(ar(a))
F = F + D
Next
Locate 1 , 1
Lcd F
Wait 2
Return

'--------Sub Routine baca card reader--------------------------------