برنامه رمز دیجیتال 4 رقمی قابل تعویض

[nesarian]

سلام خدمت شما دوستان عزیز
ممنون میشم ÷اسخ بدین
با تشکر فراوان

[alirezalahij]

پاسخ : برنامه رمز دیجیتال 4 رقمی قابل تعویض

سلام

تو این کتاب برنامه قفل
با فایل پروتیوس هست

[mohsen.hex]

پاسخ : برنامه رمز دیجیتال 4 رقمی قابل تعویض

سلام
من دارم روی یه پروژه با 0 تا 10 رقم رمز و تعدای یوزر (هنوز تعریف نکردم ) میزازم اگه خاستین بزارم

[nesarian]

پاسخ : برنامه رمز دیجیتال 4 رقمی قابل تعویض

سلام خدمت شما دوستان
امکان نمایش رو lcd گرافیکی هست با فونت فارسی
با تشکر

[AFTN]

پاسخ : برنامه رمز دیجیتال 4 رقمی قابل تعویض

سلام
من دارم روی یه پروژه با 0 تا 10 رقم رمز و تعدای یوزر (هنوز تعریف نکردم ) میزازم اگه خاستین بزارم

اگه به زبان c هست لطفا بذارید

[mohsen.hex]

پاسخ : برنامه رمز دیجیتال 4 رقمی قابل تعویض

سلام خدمت شما دوستان
امکان نمایش رو lcd گرافیکی هست با فونت فارسی
با تشکر

والا من سواد ندارم یکی برام این متن بالا رو ترجمه کنه و به زبان گویا تر بزاره

اگه به زبان c هست لطفا بذارید

نه من بسکامی هستم :wow:

[سعید خیری]

پاسخ : برنامه رمز دیجیتال 4 رقمی قابل تعویض

من در گذشته های دور با 8051 اسمبلی نوشتم که فکر نکنم بدردتون بخوره
و فقط کیبورد و ال سی دی 2*16 داشت با یه رله :redface:

[nesarian]

پاسخ : برنامه رمز دیجیتال 4 رقمی قابل تعویض

سلام خدمت شما دوستان عزیز
جواب میدین
فارسی نویسی در LCD گرافیکی+رمز4رقمی
با تشکر

[milad2546]

پاسخ : برنامه رمز دیجیتال 4 رقمی قابل تعویض

فکر نمیکنید اگر خودتون هم تلاشی بکنید به ضرر خودتون نیست؟

[khast khodaiebehnam]

پاسخ : برنامه رمز دیجیتال 4 رقمی قابل تعویض

$regfile = "m16def.dat"
Config Lcd = 16 * 2
$crystal = 1000000
Config Lcdpin = Pin , Rs = Pb.5 , E = Pb.4 , Db4 = Pb.3 , Db5 = Pb.2 , Db6 = Pb.1 , Db7 = Pb.0
Config Portd = Output
Config Portb = Output
Config Kbd = Porta
Dim I As Long
Dim K As Long
Dim D As Byte
Dim Z As Byte
K = 3245
Writeeeprom K , 0
Waitms 5
'############################################ ####################################
B:
D = Getkbd()
If D > 15 Then
jmp B
End If
D = Lookup(d , Mykbd)
If D > 9 Then
Select Case D
Case 10: '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%55
I = I / 10
Cls
Lcd I
C:
Z = Getkbd()
If Z > 15 Then
jmp B
Else
jmp C
End If


Case 11: '************************************88
Incr I
Cls
Lcd I
E:
Z = Getkbd()
If Z > 15 Then
jmp B
Else
jmp E
End If


Case 12: '&&&&&&&&&amp ;&&&&&&&&&&amp ;&&&&&&&&&&amp ;&&&&&&&&&&amp ;
Decr I
Cls
Lcd I
F:
Z = Getkbd()
If Z > 15 Then
jmp B
Else
jmp F
End If


Case 15:
Readeeprom K , 0
Waitms 5 '******************************************** **88
If K = I Then
Cls
Lcd "OK MY COD"
Set Portd.0
Wait 1
Reset Portd.0
Else
Cls
Lcd "EROR PASWORD"
End If
I = 0
G:
Z = Getkbd()
If Z > 15 Then
jmp B
Else
jmp G
End If



Case 13: '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ^^^^^^^
Cls
Lcd "PASWORD"
H:
D = Getkbd()
If D > 15 Then
jmp H
End If
D = Lookup(d , Mykbd)
If D > 9 Then
Select Case D
Case 10:
I = I / 10
Cls
Lcd "PASWORD"
Locate 2 , 2
Lcd I
J:
Z = Getkbd()
If Z > 15 Then
jmp H
Else
jmp J
End If


Case 15:
K = I
Cls
Lcd "NEW PASWORD="
Locate 2 , 2
Lcd K
L:
Z = Getkbd()
If Z > 15 Then
jmp B
Else
jmp L
End If
End Select

Else
I = I * 10
I = I + D
Cls
Lcd I
End If
M:
Z = Getkbd()
If Z > 15 Then
jmp H
Else
jmp M
End If

End Select
JMP B
Else
I = I * 10
I = I + D
Cls
Lcd I
End If
A:
Z = Getkbd()
If Z > 15 Then
jmp B
Else
jmp A
End If

Mykbd:
Data 1
Data 2
Data 3
Data 10
Data 4
Data 5
Data 6
Data 11
Data 7
Data 8
Data 9
Data 12
Data 13
Data 0
Data 14
Data 15



این واسه شروع

تحلیل کن اگر نخواستی میشه تغییرش داد یا به یه زبون دیگه نوشت
واسه فنت فارسی هم به نظر من glcd :eek:

[nesarian]

پاسخ : برنامه رمز دیجیتال 4 رقمی قابل تعویض

سلام خدمت شما دوستان عزیز
خیلی ممنون