ايران ويج

صفحه‌ها: 1 2 3

سلام کسی نبود؟

سلام
مهندس فایل پروتوس رو هم بزار
راستی این 573 لچ هستش نه شیفت رجیستر ( مگه با چیفت رجیستر نمی خاستی ؟)
برنامت رو والا یه نیگا کردم خیلی عجیب غریب اومد به نظرم !!
چرا تو حلقه صفر گرفتی ؟ اگه لازم نداری نزارش دیگه !
به جای این دستورها D = Lookup(x , Dta)
Portd = Not D
هم میتونی دیتا هاتو مکمل بگیری البته مشکلی ایجاد نمی کنه
استفاده از دیکدر یکمی کارتو مشکل می کنه وقتی که سطرهای تابلو روان 8 تاست دیگه چه نیازی به دیکدر هستش ( برای سطرهای 16تایی بهترین روش دیکر هستش و تو 8 تایی کافیه یه دونه از پورتهای میکرو رو به سطرها وصل کنی )
حالا یه دونه فایل پروتوس رو اینجا بزار

1- از شیفت رجیستر جواب نگرفتم برای همین از لچ استفاده کردم.
2- به خاطر این تو حلقه صفر گذاشتم چون این تابلو 8*16 هست اگه تابلو بشه 8*32 یا 16*16 این صفر ها تغییر میکنه و برای این مستقیم از پایه میکرو استفاده نکردم چون این مدار باید با دیکودر و لچ جواب بده.(برا ی گسترش تابلو راحت تره)
در ضمن من این کد رو برای تست مدار نوشتم و باید ستون ها دونه به دونه با تاخیر یک ثانیه روشن بشه اما یه مشکل خیلی عجیب داره وقتی ولتاژ رو به 7805 وصل میکنم تا ستون سوم میره و هنگ میکنه و ستون سوم همین طور روشن میمونه ولی وقتی ولتاژ مثبت رو به یکی از خروجی های لچ وصل میکنم درست کار میکنه. حالا مشکل کجاست ؟ فکر نمیکنید از ولتاژ باشه والا من که گیج شدم.

کد php: 
$regfile = "m32def.dat"
$crystal = 1000000
Config Porta = Output
Config Portc = Output
Config Portb = Output
Config Portd = Output
'*******************************************************************************
Dim Oe As Byte , En As Byte , I As Byte , J As Byte
Dim X As Byte , G As Byte , D As Byte , H As Byte
Dim K As Byte
'*******************************************************************************
Do
K = 1
En = &B11111110
Oe = &B11111110
Portc = En
Portb = Oe
K = Portb.0
X = 0
For I = 0 To 15
  Porta = X
  Portd = &H00
  Wait 1
  Portd = &HFF
  X = X + 1
Next I
Loop
End 

اینم فایل پروتیوس :

http://rapidshare.com/files/263495594/a.DSN.html

با تشکر.

پروتوس این ارور رو میده:
No model speciled for u5
مثل اینکه این ایسی کتابخونشو نداره!
شما دارین؟

نه من هم ندارم فکر کردم ایراد از نرم افزار منه!
حالا نمیتونید بگید که این کدی که جدید گذاشتم ایراد کجاست که این طوری میشه؟

سلام کسی نبود؟

سلام
راستش وقت نکردم هنوز برنامتو ببینم ولی یه پیشنهادی برات دارم
برو سایت forum.elec4u.com
دو تا پروژه هستش که تو یکی از دیکدر و لچ استفاده کرده حتما به دردت میخوره

سلام

کد: 
$regfile = "m32def.dat"

$crystal = 1000000

Config Porta = Output

Config Portc = Output

Config Portb = Output

Config Portd = Output

'*******************************************************************************​

Dim Oe As Byte , En As Byte , I As Byte , J As Byte

Dim X As Byte , G As Byte , D As Byte , H As Byte

Dim K As Byte

'*******************************************************************************

Do

K = 1

En = &B11111110

Oe = &B11111110

Portc = En

Portb = Oe

K = Portb.0

X = 0

For I = 0 To 15

 Porta = X

 Portd = &H00

 Wait 1

 Portd = &HFF

 X = X + 1

Next I

Loop

End

این کد که به نظر میرسه درسته ، اشکالش چیه ؟

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

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

نقل قول: به خاطر این تو حلقه صفر گذاشتم چون این تابلو 8*16 هست اگه تابلو بشه 8*32 یا 16*16 این صفر ها تغییر میکنه و برای این مستقیم از پایه میکرو استفاده نکردم چون این مدار باید با دیکودر و لچ جواب بده.(برا ی گسترش تابلو راحت تره)

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

نقل قول: فکر کنم حالا بهتر بشه گفت کد درسته یا نه؟

کد: 
$regfile = "m32def.dat"

$crystal = 1000000

Config Porta = Output

Config Portc = Output

Config Portb = Output

Config Portd = Output

'*******************************************************************************​

Dim Oe As Byte , En As Byte , I As Byte , J As Byte

Dim X As Byte , G As Byte , D As Byte , H As Byte

'*******************************************************************************

Do

En = &B11111110

Oe = &B11111110

X = 0

For H = 0 To 0

 For I = 0 To 15

 Porta = Lookup(j , Dc)

 Portc = En

 For J = 0 To 0

 D = Lookup(x , Dta)

 Portd = Not D

 Portb = Oe

 X = X + 1

 Waitus 20

 Portd = &HFF

 Rotate Oe , Left

 Next J

 Next I

 Rotate En , Left

Next H

Loop

End 'End Program

'*****************************************************************

Dc:

Data &H0 , &H1 , &H2 , &H3 , &H4 , &H5 , &H6 , &H7 , &H8 , &H9 , &HA , &HB , &HC , &HD , &HE , &HF

Dta:

Data &H00 , &H00 , &H00 , &H3F , &H7F , &HC4 , &HC4 , &HC4 , &H7F , &H3F , &H00 , &H00 , &H00 , &H00 , &H00 , &H00

**********

ببین مهندس این کد قراره چی کار کنه که از دو تا جدول استفاده می کنی؟
به مثال زیر توجه کن : برای دو تا حرف پشت سر هم که حرکت می کنن آوردم ، تو هم اگه میخای پشت سر هم حرکت بدی و یا هر چی میخای باید از یه جدول استفاده کنی مگر اینکه بخای یه جمله به طور کامل نمایش داده بشه بعد یه جمله دیگه بیاد که اون وقت دو تا جدول و ... میزاریم .
[attachment=2967]

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

با تشکر.

من پروژه ای رو که معرفی کرده بودید گرفتم اما دیکودرش چیه؟ فقط نوشته DECODER_4_16

http://rapidshare.com/files/263650796/DFX.DSN.html

ببخشید هیچ کس نظری نداره؟

سلام من این تابلو رو تو پروتیوس شبیه سازی کردم و جواب هم داد اما یه سری message میده که نمیدونم چیه؟

WDTOE is not set but WDE is not. nothing
Timer expired - processor will be reset

این هارو پشت سر هم مینویسه.

با تشکر.

کدوم ؟
مال خودت یا اونی که من ادرس دادم؟

صفحه‌ها: 1 2 3

فروم باز

mehrdadgh

فروم باز

mehrdadgh

فروم باز

فروم باز

mehrdadgh

فروم باز

فروم باز

فروم باز

mehrdadgh