اگرورودی یک شود آنگاه lcd ...

[رسول]

باسلام
من برنامه ای می خواهم که وقتی یکی ازپایه های میکرو یک شد آنگاه برروی ال سی دی کلمه ای نشان داده شود یعنی اینکه اگریکی ازپینهای میکرو مگا8 بعنوان ورودی یک شود درخروجی برروی ال سی دی کلمه ای نوشته شود.برنامه به زبان بیسکام باشد.
لطفا هرکدام ازدوستان که می توانند برنامه اش رابنویسند.
باتشکروسپاس فراوان

[EBKA]

این برنامه.... امیدوارم که تونسته باشم کمکت کنم
$regfile = "m8def.dat"
$crystal = 8000000
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portc.1 , Db5 = Portc.2 , Db6 = Portc.3 , Db7 = Portc.4 , E = Portd.2 , Rs = Portd.3
: Dim A As Word
Config Pind.1 = Input
Cls
Iran:
Do
If Portd.1 = 1 Then
Home
Lcd "EBKA"
End If
Loop
موفق باشی رفیق.....

[رسول]

باسلام وتشکرفراوان ازشما
من این دستورات رانوشتم اماموفق به اجرای آن نشدم.
من پایه های گفته شده رادرست وصل کردم همچنین پایه های 3و5و7و8و9و10 ال سی دی راهم به منفی وصل کردم وپایه ورودی رابا یک کلید شستی فشاری به مثبت وصل کردم و ورودی رابایک مقاومت 10کیلویی (پول آپ )به منفی وصل کردم امانتوانستم جوابی بگیرم.
لطفا کمکم کنید.
خیلی ممنون

[EBKA]

باسلام وتشکرفراوان ازشما
من این دستورات رانوشتم اماموفق به اجرای آن نشدم.
من پایه های گفته شده رادرست وصل کردم همچنین پایه های 3و5و7و8و9و10 ال سی دی راهم به منفی وصل کردم وپایه ورودی رابا یک کلید شستی فشاری به مثبت وصل کردم و ورودی رابایک مقاومت 10کیلویی (پول آپ )به منفی وصل کردم امانتوانستم جوابی بگیرم.
لطفا کمکم کنید.
خیلی ممنون

regfile = "m8def.dat"
$crystal = 8000000
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portb.1 , Db5 = Portb.2 , Db6 = Portb.3 , Db7 = Portb.4 , E = Portb.5 , Rs = Portb.6
Config Pind.1 = Input
Cls
Iran:
home
lcd"salam"
portd.1=1
Do
If Portd.1 = 0 Then
Homel
Lcd "EBKA"
End If
Loop
تو بسکام error که نمیده؟؟؟
حالا اینو وصل کن.... بجای 1 صفر بده...
بیبن ایا (سلام )رو مینویسه....که ببینیم ال سی دی رو درست وصل کردی یا نه!!
ال سی دی رو به پورت b وصل کن....

[رسول]

بازم جواب نداد.
برای امتحان ال سی دی رو درست وصل کردم وفقط برنامه زیر رانوشتم ببینم که کارمی کنه یانه دیدم سلام رونشون داد
$regfile = "m8def.dat"
$crystal = 8000000
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portb.1 , Db5 = Portb.2 , Db6 = Portb.3 , Db7 = Portb.4 , E = Portb.5 , Rs = Portb.6
Lcd "salam"
End

اما برنامه IF رواجرانمیکنه.
من حتی خودمیکرو رو هم عوض کردم اما نشد.

[EBKA]

بازم جواب نداد.
برای امتحان ال سی دی رو درست وصل کردم وفقط برنامه زیر رانوشتم ببینم که کارمی کنه یانه دیدم سلام رونشون داد
$regfile = "m8def.dat"
$crystal = 8000000
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portb.1 , Db5 = Portb.2 , Db6 = Portb.3 , Db7 = Portb.4 , E = Portb.5 , Rs = Portb.6
Lcd "salam"
End

اما برنامه IF رواجرانمیکنه.
من حتی خودمیکرو رو هم عوض کردم اما نشد.

do
debounce pind.1,1,ebka
loop
ebka:
home l
lcd "hello"
waitms 500
goto iran
اینو بجای hf بذار ببین درست میشه...

[t3r!p3000]

مهندس واسه ورودی خوندن باید از pin استفاده کرد و نه از port !
چون تو دستور شرطون پورت گذاشته بودین که اشتباه هستش !

[EBKA]

مهندس واسه ورودی خوندن باید از pin استفاده کرد و نه از port !
چون تو دستور شرطون پورت گذاشته بودین که اشتباه هستش !

افرین...درسته....این امتحان هام واسم حواس نذاشته.....
regfile = "m8def.dat"
$crystal = 8000000
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portc.1 , Db5 = Portc.2 , Db6 = Portc.3 , Db7 = Portc.4 , E = Portd.2 , Rs = Portd.3
: Dim A As Word
Config Pind.1 = Input
Cls
Iran:
Do
If Pind.1 = 1 Then
Home
Lcd "EBKA"
End If
Loop

[رسول]

باسلام وتشکردوباره
بالاخره جواب داد خیلی ممنون.
اگر بخواهیم ورودی مان بیشترشود ودر خروجی هر ورودی کلمه دیگری نوشته شود چه برنامه ای دارد؟
(مثلا سه ورودی باخروجی های متفاوت)

[t3r!p3000]

خوب مهندس خودت یه برنامه رو نگاه کن !

فقط کافیه تعداد شرطها رو اضافه کنی !!!!

همین

[EBKA]

باسلام وتشکردوباره
بالاخره جواب داد خیلی ممنون.
اگر بخواهیم ورودی مان بیشترشود ودر خروجی هر ورودی کلمه دیگری نوشته شود چه برنامه ای دارد؟
(مثلا سه ورودی باخروجی های متفاوت)

regfile = "m8def.dat"
$crystal = 8000000
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portb.1 , Db5 = Portb.2 , Db6 = Portb.3 , Db7 = Portb.4 , E = Portb.5 , Rs = Portb.6
Config Pind.1 = Input
Config Pind.2 = Input
Config Pind.3 = Input
Cls
Iran:
home
lcd"salam"
Do
portd.1=0
If Pind.1 = 1Then
cls
Homel
Lcd "EBKA1"
End If
If Pind.2 =1Then
cls
Homel
Lcd "EBKA2"
End If
If Pind.3 = 1 Then
cls
Homel
Lcd "EBKA3"
End If
Loop
موفق باشی رفیق....