سلام بر همگی
دنبال دستور العملی در بیسکام میگردم که بتونم 16 بایت اول کارت تلفن را بخونم
اگه راهنمایی کنید ممنون میشم.
:wow:
دنبال دستور العملی در بیسکام میگردم که بتونم 16 بایت اول کارت تلفن را بخونم
اگه راهنمایی کنید ممنون میشم.
:wow:
-
r.pسابق -
پاسخ : قفل رمز کارتی(کارت تلفن)
'///////////////////////////////////////////////////////////////////////////////
'^^^^^^^^^^^^^^^^^^^^^^^^^^in the name of god^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
'///////////////////////////////////////////////////////////////////////////////
$regfile = "m8def.dat"
$crystal = 1000000
$baud = 1200
'iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii
Config Portb = Output
Config Portc = Output
Config Portd = Output
Config Lcdpin = Pin , Db4 = Pinb.4 , Db5 = Pinb.3 , Db6 = Pinb.2_
, Db7 = Pinb.1 , Rs = Pinc.0 , E = Pinb.5 'k.o
Config Lcd = 16 * 2
'------------------------------------alias--------------------------------------
Res Alias Portb.6 : Config Pinb.6 = Output 'Connected to Pin No.1 Of MMC (CS)
'Vcc Alias Portd.0 : Config Pind.0 = Output 'Connected to Pin No.2 Of MMC (DataIn)
Clk Alias Portb.7 : Config Pinb.7 = Output 'Connected to Pin No.5 Of MMC (Clock)
Io Alias Pinb.0 : Config Pinb.0 = Input
Sw Alias Pind.3 : Config Pind.3 = Input
Led Alias Portd.2
Rel1 Alias Portc.2
Rel2 Alias Portc.3
Sww Alias Pind.6 : Config Pind.6 = Input
'-------------------------------------------------------------------------------
Declare Sub Haan
'--------------------------variable---------------------------------------------
Dim Tim As Byte
Dim N As Bit
Dim X As Integer
Dim Inn As Long
Dim Hafeze(512) As Eram Byte '32*kard(16 byte)
Dim Om As Long
Dim Omid As Byte
Dim Hafez(32) As Byte
Dim Shom As Byte
Dim Xx As Byte
Dim Nn As Byte
Dim Bb As Byte
Dim Mm As Byte
Dim Hafeze2 As Byte
'-----------------------------------main----------------------------------------
'Hafeze(1) = 01010567891
'Om = Hafeze(1)
'Waitms 4
'Print Om
'Set Clk
'Set Res
'Shom = 1
'Mm = 1
'Io = 1
'Pinb.0 = 1
'Cls
'Home
'Lcd "in the name of GOD"
'Lowerline
'Lcd "design by abolfazl"
'Set Led
'Wait 3
'Reset Led
Main:
'Do
'Loop Until Sw = 1
'Set Led
'Cls
'Home
'Lcd "reading..."
'Wait 1
'------------------------------------------only read pass----------------------
Reader:
Set Io ' IO high for input
Reset Res ' Reset low
Reset Clk
Waitms 350
Print "-------------start"
Set Res ' Reset High
Set Clk ' CLK High
nop
nop
Reset Clk ' CLK Low
Reset Res ' Reset Low
nop
nop
Waitms 15
For Tim = 0 To 255
Reset Clk
nop
N = Io
Lcd N ; ",";
X = Tim Mod 7
If X = 0 Then
Wait 2
Cls
End If
Set Clk
nop
Next
'Print "------------Finish"
من با این خوندم
موفق باشیعلم چندانکه بيشتر خواني چون عمل در تو نيست ناداني -
پاسخ : قفل رمز کارتی(کارت تلفن)
میشه لطف کنید شماتیک را هم بذارید ؟دیدگاه
-
پاسخ : قفل رمز کارتی(کارت تلفن)
data sheetکارت تلفن رو با یه سرچ ساده میتونین پیدا کنین
از هر پایه ای هم میتونین استفاده کنین نیازی به شماتیک نیس
ولی اگر اسرار دارین بگین تا بذارمعلم چندانکه بيشتر خواني چون عمل در تو نيست نادانيدیدگاه
-
پاسخ : قفل رمز کارتی(کارت تلفن)
اگه شما تیک رو بگزارید من هم ممنون میشممعجزه پس از معجزه می آید و شگفتی ها از تجلی باز نمی مانند.دیدگاه
-
پاسخ : قفل رمز کارتی(کارت تلفن)
نوشته اصلی توسط nima_1981r.pسابقدیدگاه
-
پاسخ : قفل رمز کارتی(کارت تلفن)
چرا قسمت main رو rem کردین؟
به همون قسمت هم ایراد میگیره
اگه میشه کمی در مورد برنامه توضیح بدین
ممنون :wow:r.pسابقدیدگاه
-
پاسخ : قفل رمز کارتی(کارت تلفن)
جدی نگیر حذفش کن.اخه این یه پروزه خاص بود
شماتیک رو رسیدم شیراز میزارمعلم چندانکه بيشتر خواني چون عمل در تو نيست نادانيدیدگاه
-
پاسخ : قفل رمز کارتی(کارت تلفن)
پست تکراری.لطفا حذف شودعلم چندانکه بيشتر خواني چون عمل در تو نيست نادانيدیدگاه
-
پاسخ : قفل رمز کارتی(کارت تلفن)
میشه در مورد برنامه کمی توضیح بدین؟
من الان اینو بستم ولی وقتی پایه ریست کارتو وصل میکنم کلا صفر نشون میده!!!ولی اگه از مدار حذف کنم یه چیزایی نشون میده :angry: :angry: :angry:r.pسابقدیدگاه
-
پاسخ : قفل رمز کارتی(کارت تلفن)
$regfile = "m8def.dat"
$crystal = 1000000
$baud = 1200
'------------------------------------alias-------------------------------------
Res Alias Portd.4 : Config Pind.4 = Output 'Connected to Pin No.1 Of MMC (CS)
Vcc Alias Portd.0 : Config Pind.0 = Output 'Connected to Pin No.2 Of MMC (DataIn)
Clk Alias Portd.2 : Config Pind.2 = Output 'Connected to Pin No.5 Of MMC (Clock)
Io Alias Pind.3 : Config Pind.3 = Input
'--------------------------variable--------------------------------------------
Dim Tim As Byte
Dim N As Bit
Dim X As Integer
'------------------------------------------only read pass----------------------
Restart:
Set Io ' IO high for input
Reset Res ' Reset low
Reset Clk
Set Vcc
Waitms 350
Print "-------------start"
Set Res ' Reset High
Set Clk ' CLK High
nop
nop
Reset Clk ' CLK Low
Reset Res ' Reset Low
nop
nop
Waitms 15
For Tim = 0 To 255
Reset Clk
nop
N = Io
Print N ; ",";
X = Tim Mod 16
If X = 0 Then Print ""
Set Clk
nop
Next
Print "------------Finish"
End 'end program
'-------------------------------note--------------------------------
'------------------------------------------------------------------------------
'---------************************************************** ***----------------
'-------------*******************************************----------------------
'paye io bayad pullup bala keshandeh shavad ba moghavemate 1 kiloo be vcc
'Paye Vcc Bayad Be Moghavemat 1 Kiloo Vasl Shavad
'------------------------------------------------------------------------------
'---------************************************************** ***----------------
'-------------*******************************************----------------------
'-------------------*********************************--------------------------
'-----------------------*************************------------------------------
' BCCARD.BAS
' This AN shows how to use the BasicCard from Zeitcontrol
' www.basiccard.com
'------------------------------------------------------------------------------
'connections:
' C1 = +5V portb.0
' C2 = PORTb.1 - RESET
' C3 = PIN b.2 - CLOCK
' C5 = GND
' C7 = PORTb.3 - I/O
' /----------------------------------------\
' | |
' | C1 C5 |
' | C2 C6 |
' | C3 C7 |
' | |
' l l
' | |
' \----------------------------------------/
و vcc رو حتما با یک 1kسری کنین بعد بدین به vcc
اقا پایه دیتا رو پوا اپ کن
موفق باشیــــــــــــــــــــــــــــــــــــــــــــــ ـــــــــــــــــــــــــــــــــــــــــــــد :wow: :wow:
علم چندانکه بيشتر خواني چون عمل در تو نيست نادانيدیدگاه
-
پاسخ : قفل رمز کارتی(کارت تلفن)
$regfile = "m8def.dat"
$crystal = 1000000
$baud = 1200
'------------------------------------alias-------------------------------------
Res Alias Portd.4 : Config Pind.4 = Output 'Connected to Pin No.1 Of MMC (CS)
Vcc Alias Portd.0 : Config Pind.0 = Output 'Connected to Pin No.2 Of MMC (DataIn)
Clk Alias Portd.2 : Config Pind.2 = Output 'Connected to Pin No.5 Of MMC (Clock)
Io Alias Pind.3 : Config Pind.3 = Input
'--------------------------variable--------------------------------------------
Dim Tim As Byte
Dim N As Bit
Dim X As Integer
'------------------------------------------only read pass----------------------
Restart:
Set Io ' IO high for input
Reset Res ' Reset low
Reset Clk
Set Vcc
Waitms 350
Print "-------------start"
Set Res ' Reset High
Set Clk ' CLK High
nop
nop
Reset Clk ' CLK Low
Reset Res ' Reset Low
nop
nop
Waitms 15
For Tim = 0 To 255
Reset Clk
nop
N = Io
Print N ; ",";
X = Tim Mod 16
If X = 0 Then Print ""
Set Clk
nop
Next
Print "------------Finish"
End 'end program
'-------------------------------note--------------------------------
'------------------------------------------------------------------------------
'---------************************************************** ***----------------
'-------------*******************************************----------------------
'paye io bayad pullup bala keshandeh shavad ba moghavemate 1 kiloo be vcc
'Paye Vcc Bayad Be Moghavemat 1 Kiloo Vasl Shavad
'------------------------------------------------------------------------------
'---------************************************************** ***----------------
'-------------*******************************************----------------------
'-------------------*********************************--------------------------
'-----------------------*************************------------------------------
' BCCARD.BAS
' This AN shows how to use the BasicCard from Zeitcontrol
' www.basiccard.com
'------------------------------------------------------------------------------
'connections:
' C1 = +5V portb.0
' C2 = PORTb.1 - RESET
' C3 = PIN b.2 - CLOCK
' C5 = GND
' C7 = PORTb.3 - I/O
' /----------------------------------------\
' | |
' | C1 C5 |
' | C2 C6 |
' | C3 C7 |
' | |
' l l
' | |
' \----------------------------------------/
و vcc رو حتما با یک 1kسری کنین بعد بدین به vcc
اقا پایه دیتا رو پوا اپ کن
موفق باشیــــــــــــــــــــــــــــــــــــــــــــــ ـــــــــــــــــــــــــــــــــــــــــــــد :wow: :wow:
علم چندانکه بيشتر خواني چون عمل در تو نيست نادانيدیدگاه
-
پاسخ : قفل رمز کارتی(کارت تلفن)
سلام
خیلی ممنون من تونستم بخونم
اما یه سوال
این nop چیه تو برنامه نوشتین؟؟؟
ممنون :applause: :wow:r.pسابقدیدگاه
-
پاسخ : قفل رمز کارتی(کارت تلفن)
سلام دوست عزیزاما یه سوال
این nop چیه تو برنامه نوشتین؟؟؟
ممنون
ببخشید من بجای آقای omega_adiban جواب می دم :icon_razz:
nop مخفف no operation هستش و مفهمومش اینه که تو اون خط برنامه هیچ کاری انجام نده!
موفق باشید :byeدیدگاه
-
پاسخ : قفل رمز کارتی(کارت تلفن)
درسته.دلیلش هم اینه که بعد از تغییر پورت بهتره یه کم صبر پیشه کنین
علم چندانکه بيشتر خواني چون عمل در تو نيست نادانيدیدگاه
دیدگاه