مشکل input

[sajad-soft]

با سلام خدمت اساتید گل:
من یه مشکل دارم اینه که من برنامم اینه:
[tt]$regfile = "m16def.dat"
$crystal = 8000000

Config Portb = Input
Config Portc = Output

Do
If Pinb.0 = 1 Then
Set Portc.0
Waitms 500
Reset Portb.0
End if
Loop
End[/tt]
میشه بگید درسته؟؟؟
من GND رو به portb وصل میکنم ولی هیچ تغییری نمیکنه
میشه یه لینکی چیزی در این مورد بدید؟
با تشکر

[meysamjet]

پاسخ : مشکل input

با سلام خدمت اساتید گل:
من یه مشکل دارم اینه که من برنامم اینه:
[tt]$regfile = "m16def.dat"
$crystal = 8000000

Config Portb = Input
Config Portc = Output

Do
If Pinb.0 = 1 Then
Set Portc.0
Waitms 500
Reset Portb.0
End if
Loop
End[/tt]
میشه بگید درسته؟؟؟
من GND رو به portb وصل میکنم ولی هیچ تغییری نمیکنه
میشه یه لینکی چیزی در این مورد بدید؟
با تشکر

سلام. پین B.0 رو با یه مقاومت 10 کیلو به زمین وصل کنی و درضمن توبرنامه گفتی If Pinb.0 = 1 Then یعنی اگر پین b.0 یک شد بیا اینکارارو بکن پس تو هم برای تحریک پین b.0 باید اونو به VCC یا +5 وصل کنی تابیاد زیربرنامه رو برات انجام بده نه GND یا منفی!!!

[meysamjet]

پاسخ : مشکل input

درضمن به جای

Set Portc.0
Waitms 500
Reset Portb.0
End if

باید بنویسی
Set Portc.0
Waitms 500
Reset Portc.0
End if
خروجیت c.0 دیگه

[sajad-soft]

پاسخ : مشکل input

شرمنده پروتئوس نداشتم نقاشی کردم
اینجور ببندم درسته؟؟؟

اگه اینجوری درسته ، بستم کار نکرد
اگه میشه کمک کنید

[meysamjet]

پاسخ : مشکل input

آره مهندس اگه pb.0 رو یک بار به +5 وصل کنی یک بار برنامه اجرا میشه به عبارتی LED یکبار روشن و خاموش میشه ولی اگر دائم وصل کنی چشمک میزنه. بجاش یه شستی گذاشتم و ال ای دی هم با یه مقاومت 330 اهم به زمین وصل شده عکسو ببین

[meysamjet]

پاسخ : مشکل input

درضمن برنامت هم ویرایش کن و کریستال میکرو رو با کریستالی که تو برنامه معین کردی یکی کن. یعنی اگر 8000000 تعیین کردی در میکرو هم باید 8Mhz انتخاب کنی. البته میکرو ها همگی به صورت پیشفرض 1 مگاهرتز هستند. میتونی تو برنامه ای که نوشتی به جای 8000000 هرتز بنویسی $crystal=1000000

[sajad-soft]

پاسخ : مشکل input

این dll رو پیدا نمیکنم چه کار کنم؟؟؟؟
پروتئوسم این dll رو میخواد

میتونید کمک کنید؟

[meysamjet]

پاسخ : مشکل input

این dll رو پیدا نمیکنم چه کار کنم؟؟؟؟
پروتئوسم این dll رو میخواد

میتونید کمک کنید؟

پروتئوست ورژن هشته؟
کرکش کردی؟سالمه؟
لایسنس رو نصب کردی؟

[sajad-soft]

پاسخ : مشکل input

درست شد دستت درد نکنه ولی من یه مشکل دیگه دارم یعنی 2 تا :
1- این کد مشکلی داره؟؟
$regfile = "m16def.dat"
$crystal = 1000000

Config Portb = Input
Config Portc = Output
Config Portd = Output

Do
If Pinb.0 = 0 Then
Set Portc.0
Waitms 500
Reset Portc.0
End If

If Pinb.1 = 0 Then
Set Portc.0
Waitms 500
Reset Portc.0
End If

If Pinb.2 = 0 Then
Set Portc.0
Waitms 500
Reset Portc.0
End If

If Pinb.3 = 0 Then
Set Portd.7
Waitms 500
Reset Portd.7
End If
Loop
End

2-پروتئوسم نیو پروژش روشن نیست که روش کلیک کنم
با تشکر

[meysamjet]

پاسخ : مشکل input

درست شد دستت درد نکنه ولی من یه مشکل دیگه دارم یعنی 2 تا :
1- این کد مشکلی داره؟؟
$regfile = "m16def.dat"
$crystal = 1000000

Config Portb = Input
Config Portc = Output
Config Portd = Output

Do
If Pinb.0 = 0 Then
Set Portc.0
Waitms 500
Reset Portc.0
End If

If Pinb.1 = 0 Then
Set Portc.0
Waitms 500
Reset Portc.0
End If

If Pinb.2 = 0 Then
Set Portc.0
Waitms 500
Reset Portc.0
End If

If Pinb.3 = 0 Then
Set Portd.7
Waitms 500
Reset Portd.7
End If
Loop
End

2-پروتئوسم نیو پروژش روشن نیست که روش کلیک کنم
با تشکر

برنامت مشکلی نداره اما
دوتا سوال
1 چرا سه پین pb.0 , pb.1 , pb.2 فقط پورت c.0 رو روشن میکنن؟؟ میخوای چیکارکنی؟ برای راحتتر شدن برنامه میتونی اینو بنویسی

If Pinb.0 = 0 or pinb.1=0 or pinb.2=0 Then
Set Portc.0
Waitms 500
Reset Portc.0
End If
If Pinb.3 = 0 Then
Set Portd.7
Waitms 500
Reset Portd.7
End If
Loop
End
تحریک پین های ورودیت با منفی کار میکنه
2- از پروتئوست یه عکسی بذار و بگو ورژنش چنده؟

[sajad-soft]

پاسخ : مشکل input


این عکس از محیط پروتئوسمه
این برنامه رو برای بمب دارن مینویسم D:
می خوام ببرم مدرسه
من یک آلتراسونیک دارم میخوام راش بندازم آسون ترین برنامه راه اندازیشو دارین؟؟
با تشکر