اطلاعیه

**masoud_m_bf** · 2014-02-11T07:43:23

پاسخ : کمک در ذخیره کردن شماره با کی پد توی بسکام

نوشته اصلی توسط MOHANDES P

سلام به همه..میشه یکی کمکممممممم کنه..میخوام یه شماره ی موبایل رو که با کی پد مینویسم توی ایپرام میکرو مگا 32 ذخیره کنم..خیلی سعی کردم اما نشد..لطفا برنامه رو برام بزارید..keypad 4*4----atmega32---lcd 2*16---
محیط بسکام...خیلی ضروریه..تورو خدا کمک کنید..از همه تون ممنونم.. :sad: :angry:

سلام دوست عزیز
شما شروع کنید و برنامه رو تیکه تیکه جلو ببرید و اینجا بذارید
اونوقت دوستان مشکلات شما رو رفع میکنن
مطمئن باشید اینجا تنها نمیمونید
موفق باشید

**sinaitg** · 2014-02-11T13:04:28

پاسخ : کمک در ذخیره کردن شماره با کی پد توی بسکام

من کار کردم و تا اینجاش رسوندم .. ولی هنوز مشکل داره .
میشه برنامه منو همراه شبیه ساز پروتیوسش رو دانلود کنین و اگه موردی داره ردیفش کنی و توضیحاتش رو هم بدی ؟؟

البته ببخشید ها ..

لینک دانلود: http://uplod.ir/bjejyyt8ru2a/New_Win...ve_(2).zip.htm

**masoud_m_bf** · 2014-02-11T14:21:11

پاسخ : کمک در ذخیره کردن شماره با کی پد توی بسکام

نوشته اصلی توسط sinaitg

من کار کردم و تا اینجاش رسوندم .. ولی هنوز مشکل داره .
میشه برنامه منو همراه شبیه ساز پروتیوسش رو دانلود کنین و اگه موردی داره ردیفش کنی و توضیحاتش رو هم بدی ؟؟

البته ببخشید ها ..

لینک دانلود: http://uplod.ir/bjejyyt8ru2a/New_Win...ve_(2).zip.htm

خب اونجوری که باید شروع نکردی :biggrin:
ولی بفرما:
http://masoudmbf.persiangig.com/othe...g.rar/download
البته همه میدونن برنامه نویسی من زیاد خوب نیست
دوستان کمک کنن برنامه بهتر بشه

ببینم خودت میتونی ببریش تو E2prom!

**MOHANDES P** · 2014-02-11T15:07:58

پاسخ : کمک در ذخیره کردن شماره با کی پد توی بسکام

بابا دمتون گرم..خیلی خوشحال شدم از همراهیتون.

.منبرنامه رو میزارم تا باهم پیش ببریم..
$regfile = "m32def.dat"
$crystal = 8000000

Config Portd.5 = Output
Config Portd.4 = Output
Config Portd.1 = Output
Config Portd.0 = Output
Config Portc.7 = Output
Config Portc.6 = Output
Config Portc.5 = Output
Config Portc.0 = Input
Config Portd.7 = Input

Config Debounce = 25

Lcdlight Alias Portc.5
Led1 Alias Portc.7
Led2 Alias Portc.6

Config Lcdpin = Pin , Db4 = Portc.1 , Db5 = Portc.2 , Db6 = Portc.3 , Db7 = _
Portc.4 , E = Portd.2 , Rs = Portd.3
Config Lcd = 16 * 2

Config Kbd = Portb , Debounce = 10 , Delay = 180

Dim Keypad As Byte
Dim A1 As Byte , A2 As Byte , A3 As Byte , A4 As Byte
Dim S As String * 11
Dim S1 As String * 11
Dim S2 As String * 11
Dim A As Eram Byte
Main:

Cls
home
Readkey:
Do

Keypad = Getkbd()
Keypad = Lookup(keypad , Read_key)
If Keypad < 16 Then
Select Case Keypad
Case 0 To 9
Lcd Keypad

Case 10:
Goto Save
Case 11:
goto loading
Case 12:

Case 13:

Case 14:

Case 15:

End Select
End If
Loop
End

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

Save:
Writeeeprom Keypad
Cls
Home
Lcd "save"
Waitms 500
Cls
Goto Readkey
Loading:
Readeeprom Keypad
Cls
Home
Lcd Keypad

میخوام شماره ای که با کی پد میدم رو ذخیره کنم تو ایپرام..نمیشه..

**masoud_m_bf** · 2014-02-11T20:01:29

پاسخ : کمک در ذخیره کردن شماره با کی پد توی بسکام

نوشته اصلی توسط MOHANDES P

بابا دمتون گرم..خیلی خوشحال شدم از همراهیتون.

.منبرنامه رو میزارم تا باهم پیش ببریم..

کد:

$regfile = &quot;m32def.dat&quot;
$crystal = 8000000

Config Portd.5 = Output
Config Portd.4 = Output
Config Portd.1 = Output
Config Portd.0 = Output
Config Portc.7 = Output
Config Portc.6 = Output
Config Portc.5 = Output
Config Portc.0 = Input
Config Portd.7 = Input

Config Debounce = 25

Lcdlight Alias Portc.5
Led1 Alias Portc.7
Led2 Alias Portc.6

Config Lcdpin = Pin , Db4 = Portc.1 , Db5 = Portc.2 , Db6 = Portc.3 , Db7 = _
Portc.4 , E = Portd.2 , Rs = Portd.3
Config Lcd = 16 * 2

Config Kbd = Portb , Debounce = 10 , Delay = 180



Dim Keypad As Byte
Dim A1 As Byte , A2 As Byte , A3 As Byte , A4 As Byte
Dim S As String * 11
Dim S1 As String * 11
Dim S2 As String * 11
Dim A As Eram Byte
Main:

Cls
home
Readkey:
Do

Keypad = Getkbd()
Keypad = Lookup(keypad , Read_key)
If Keypad &lt; 16 Then
Select Case Keypad
Case 0 To 9
Lcd Keypad

Case 10:
Goto Save
Case 11:
goto loading
Case 12:

Case 13:

Case 14:

Case 15:

End Select
End If
Loop
End


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

Save:
Writeeeprom Keypad
Cls
Home
Lcd &quot;save&quot;
Waitms 500
Cls
Goto Readkey
Loading:
Readeeprom Keypad
Cls
Home
Lcd Keypad

میخوام شماره ای که با کی پد میدم رو ذخیره کنم تو ایپرام..نمیشه..

اینجوری خودتون رو اذیت نکنید
یه متغییر تو ای2پرام تعریف کنید و به راحتی تو برنامه متغییر رو به اون منتقل کنید
مثلا:

کد:

Dim VAR As Eram Byte

نوشته اصلی توسط sinaitg

جناب masoud_m_bf خیلی مخلصتیم ...
کارم راه افتاد ...
خدا پدر و مادرتو واست نگه داره (البته اگه در قید حیات هستند)
خدا بیامرزدشون اگه در قید حیات نیستند ...

خواهش میکنم
خدا رو شکر سایشون هنوز رو سرمه
همینطور واسه شما

**MOHANDES P** · 2014-02-11T21:12:01

پاسخ : کمک در ذخیره کردن شماره با کی پد توی بسکام

داداش گلم نمیشه..این کارو کردم..ارایه نوشتم..متغیر تعریف کردم..نمیشه..شما برنامه ای که فکر میکنی جواب میده رو اینجا بزار ببینیم به کجا میرسیم.. :read:

**sinaitg** · 2014-02-11T22:04:44

پاسخ : کمک در ذخیره کردن شماره با کی پد توی بسکام

دوباره سلام ..
هدف من از این کارا ساختن یه فقل رمزه که به دست خودم ساخته شده باشه نه کپی از سایتها ..
تا اینجاشو کامل متوجه شدم البته با برنامه جناب masoud_m_bf ... اگه میشه درمورد ایجاد منو های فقل رمز واسم توضیح بدید ...
ممنونم ...

**MOHANDES P** · 2014-02-11T22:19:21

پاسخ : کمک در ذخیره کردن شماره با کی پد توی بسکام

دوست عزیزم بستگی داره که شما میخوای چجور منو داشته باشی..اما میتونی از دستور case استفاده کنی..بطور مثال میخوای با زدن کلید شماره ی 10 کی پد ال سی دی تنظیمات رو نشون بده..
Do
home
Keypad = Getkbd()
Keypad = Lookup(keypad , Read_key)
If Keypad < 16 Then
Select Case Keypad
Case 0 To 9
Lcd Keypad

Case 10:
Cls
HOME
lcd"SETTING.."
CASE 11:
LOWERLINE
LCD" INSERT YOURE CODE:
CASE12:
CLS
HOME
LCD"CHANGE CODE"
و خیلی چیزای دیگه..حالا شما میتونی توی هر CASE کار هایی که میخوای انجام بدی رو بنویسی..به همین سادگی..موفق باشی

End Select
End If
Loop

**sinaitg** · 2014-02-11T22:50:14

پاسخ : کمک در ذخیره کردن شماره با کی پد توی بسکام

سلام
میخوام یه پسوورد دیفالت داشته باشه و یه کلید واسه مواقعی که پسوورد یادمون میره ..
اولین بار که روشن میکنیم مدار را ،پسوورد دیفالت رو بخواد و بخواد که تغییرش بدیم.
یه منو داشته باشه که هر وقت خواستیم رمز رو تغییرش بدیم بشه این کار رو کرد .
بعد دیگه روال عادی کاش که مقایسه کردن رمزی که قبلا تو eeprom ریخته شده (بواسطه تعویض رمز)و در انتها فعالسازی یه رله ..
اگه یکی از دوستان کمک کنه و منو از این فلاکت در بیاره ، در دنیا یکی و صد درآخرت دعاش میکنم ..
:cry: :cry: :cry: :cry:

**masoud_m_bf** · 2014-02-12T07:23:02

پاسخ : کمک در ذخیره کردن شماره با کی پد توی بسکام

نوشته اصلی توسط MOHANDES P

داداش گلم نمیشه..این کارو کردم..ارایه نوشتم..متغیر تعریف کردم..نمیشه..شما برنامه ای که فکر میکنی جواب میده رو اینجا بزار ببینیم به کجا میرسیم.. :read:

مگه دست خودشه که نشه؟

کد:

$regfile = &quot;m32def.dat&quot;
$crystal = 8000000

Config Portd.5 = Output
Config Portd.4 = Output
Config Portd.1 = Output
Config Portd.0 = Output
Config Portc.7 = Output
Config Portc.6 = Output
Config Portc.5 = Output
Config Portc.0 = Input
Config Portd.7 = Input

Config Debounce = 25

Lcdlight Alias Portc.5
Led1 Alias Portc.7
Led2 Alias Portc.6

Config Lcdpin = Pin , Db4 = Portc.1 , Db5 = Portc.2 , Db6 = Portc.3 , Db7 = _
Portc.4 , E = Portd.2 , Rs = Portd.3
Config Lcd = 16 * 2

Config Kbd = Portb , Debounce = 10 , Delay = 180



Dim Keypad As Byte
Dim A1 As Byte , A2 As Byte , A3 As Byte , A4 As Byte
Dim S As String * 11
Dim S1 As String * 11
Dim S2 As String * 11
Dim A As Eram Byte
dim passsave as eram byte
Main:

Cls
home
Readkey:
Do

Keypad = Getkbd()
Keypad = Lookup(keypad , Read_key)
If Keypad &lt; 16 Then
Select Case Keypad
Case 0 To 9
Lcd Keypad

Case 10:
Goto Save
Case 11:
goto loading
Case 12:

Case 13:

Case 14:

Case 15:

End Select
End If
Loop
End


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

Save:
passsave=keypad
Cls
Home
Lcd &quot;save&quot;
Waitms 500
Cls
Goto Readkey

Loading:
Keypad=passsave
Cls
Home
Lcd Keypad

نوشته اصلی توسط sinaitg

دوباره سلام ..
هدف من از این کارا ساختن یه فقل رمزه که به دست خودم ساخته شده باشه نه کپی از سایتها ..
تا اینجاشو کامل متوجه شدم البته با برنامه جناب masoud_m_bf ... اگه میشه درمورد ایجاد منو های فقل رمز واسم توضیح بدید ...
ممنونم ...

کاری نداره که
به جای اون صفرهایی که من تو برنامه دادم عدد بده(از 10 تا 15)
بعد تو برنامه تعیین کن که هر عدد به چه منویی بره

نوشته اصلی توسط sinaitg

سلام
میخوام یه پسوورد دیفالت داشته باشه و یه کلید واسه مواقعی که پسوورد یادمون میره ..
اولین بار که روشن میکنیم مدار را ،پسوورد دیفالت رو بخواد و بخواد که تغییرش بدیم.
یه منو داشته باشه که هر وقت خواستیم رمز رو تغییرش بدیم بشه این کار رو کرد .
بعد دیگه روال عادی کاش که مقایسه کردن رمزی که قبلا تو eeprom ریخته شده (بواسطه تعویض رمز)و در انتها فعالسازی یه رله ..
اگه یکی از دوستان کمک کنه و منو از این فلاکت در بیاره ، در دنیا یکی و صد درآخرت دعاش میکنم ..
:cry: :cry: :cry: :cry:

رو کاغذ اول منوهاتو بنویس و اینکه در هر منو با فشار دادن کدوم کلید به کدوم منو بره

**sinaitg** · 2014-02-12T09:06:05

پاسخ : کمک در ذخیره کردن شماره با کی پد توی بسکام

میشه اون منوهایی که توضیح دادم رو واسم در قالب یه برنامه بنویسید؟؟
البته ببخشیدا ..

**MOHANDES P** · 2014-02-13T00:41:15

پاسخ : کمک در ذخیره کردن شماره با کی پد توی بسکام

داداش همین برنامه رو پروگرام کردم..ولی نشد..وقتی load میکنه یه عدد واسه خودش میده..میده1010

**masoud_m_bf** · 2014-02-13T07:28:14

پاسخ : کمک در ذخیره کردن شماره با کی پد توی بسکام

نوشته اصلی توسط MOHANDES P

داداش همین برنامه رو پروگرام کردم..ولی نشد..وقتی load میکنه یه عدد واسه خودش میده..میده1010

لطفا شماتیک رو تو پروتئوس بذارید

**sinaitg** · 2014-02-13T12:25:23

پاسخ : کمک در ذخیره کردن شماره با کی پد توی بسکام

قبلا توضیح دادم که چرا میخوام خودم این کار را بکنم..
واسه یادگیریش ..
وگر نه اگه میخواستم کپی کنم که مزاحم شما نمیشدم .. وقت شما و سایر دوستان رو نمیگرفتم ...
من به یادگیری این برنامه نیاز دارم ... لطفا کمکم کنید ...

اطلاعیه

کمک در ذخیره کردن شماره با کی پد توی بسکام

کمک در ذخیره کردن شماره با کی پد توی بسکام

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه