پروژه قفل رمزی

[mohamad190]

پروژه قفل رمزی
سلام بچه ها
راستش من تازه عضو شدم
این ترم پروژه دارم قفل رمزی بسازم برنامه اش و نوشتم اما نمیدونم چرا مدارو میبندم اجرا نمیکنه ؟!!!!!!!!!!!
مشکل از کجاست نمیدونم :sad: :sad: :sad:
نمیدونم اینجا جاش هست یا نه اما من برنامه رو میذارم تروخدا هرکی بلده ببینه مشکل این برنامه کجاست بهم بگه
اگرم کسی امکاناتشو داره مدارم ببنده ببینه اجرا میشه واسش بعد واسم عکسشو بذاره خواهش میکنم
تروخدا کمک کنید من زیاد وقت ندارم :sad: :sad: :sad:












دوستان گل هم برنامه رو نوشتم هم عکسشو گذاشتم عکسارو save کنید قشنگ باز میشه
تورو زود کمک کنید وقت ندارم :cry2:

regfile = "m32def.dat$
crystal = 8000000$


Config Timer0 = Timer , Prescale = 8
Enable Interrupts
Enable Ovf0
On Ovf0 Timer_0

Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portb.4 , Db5 = Portb.5 , Db6 = Portb.6 , Db7 = Portb.7 , Rs = Portb.2 , E = Portb.3
Cursor Off

Config Kbd = Portc , Debounce = 30 , Delay = 30

Config Portd.4 = Output

Relay Alias Portd.4

Dim Kbd As Byte , B As Byte
Dim J As String * 4 , Point As Byte , G As Byte , W As String * 4
Dim Ww As String * 4 , R As String * 4 , P As Byte , S As Byte
Dim M As Byte , H As Byte , C As Word
C = 1 'rooz shomar
S = 0 'sanie shomar
M = 0 'daghighe shomar
H = 0 'saat shomar

'($eeprom
W = "1111"
Writeeeprom W , 0
Waitms 5
Ww = "2222"
Writeeeprom Ww , 5
Waitms 5
$data
&#039

Do
Home
Lcd "ENTER PASSWORD"




B = 0 : J = ""



Shoru:

Kbd = Getkbd()
If Kbd > 15 Then
JMP shoru
End If
Kbd = Lookup(kbd , Jadval)

If B =< 3 Then
Incr B
End If
Select Case Kbd
Case 48 To 57:

P = String(1 , Kbd)
J = J + String(1 , Kbd)
G = Len(j)
Point = B + 1
Locate 2 , Point
Lcd "*"
Waitms 50
If B = 4 Then
Goto Bb
End If

jmp shoru



Case Else :
Cls
Lcd "wrong password"
Waitms 100
Cls
End Select


Bb:
If G = 4 Then

Readeeprom W , 0
Readeeprom Ww , 5
If J = W Or J = Ww Then
Cls
If J = W Then
Home
Locate 1 , 5
Lcd H ; ":" ; M ; ":" ; S
Locate 2 , 2
Lcd "pari" ; " " ; "93/4/" ; C
Waitms 300
End If
If J = Ww Then
Home
Locate 1 , 5
Lcd H ; ":" ; M ; ":" ; S
Locate 2 , 2
Lcd "raha" ; " " ; "93/4/" ; C
Waitms 300
End If
Set Relay
Waitms 200
Reset Relay
Cls
Else
Cls
Home
Lcd "wrong password"
Waitms 100
End If
End If
Loop


End
Timer_0:

Incr S
If S = 59 Then
S = 0
Incr M
If M > 59 Then
M = 0
Incr H
If H > 23 Then
H = 0
Incr C
End If
End If
End If


Return

Jadval:
Data 49 , 50 , 51 , 43 , 52 , 53 , 54 , 45 , 55 , 56 , 57 , 42 , 61 , 48 , 47 _
, 35