ايران ويج

سلامـــ

میخوام با پروتئوس ساعت شطرنج طراحی کنم.
کسی اینجا هست بلد باشه و کمکم کنه؟

مرسی Shy

سلام.
ببین شما تشریف ببر تو قسمت پرتال اونجا همین پروژه هستش.

(۱۳-اسفند-۱۳۹۱, ۱۶:۱۵:۵۸)h.unique نوشته است: [ -> ]سلام.
ببین شما تشریف ببر تو قسمت پرتال اونجا همین پروژه هستش.

ببخشید کجا برم؟ Amaze

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

بله دقیقا. اگر راهنمائیم کنی ممنونتون میشم

نه شطرنج رو نمیخوام. ساعتی که فرمودید مدنظرم هست

نقل قول: بله دقیقا. اگر راهنمائیم کنی ممنونتون میشم

با LCDکه فوقالعاده ساده هستش
دوتا متغیر میسازید
دوتا کلید معرفی میکنید
هروقت یکی از کلید ها فشرده شد یدونه به متغیر ها اضافه بشه
بعد دوتا متغیرو رو LCDنشون میدید
میتونید یه کلید دیگم بزارید که وقتی میزنیدش متغیرا صفر بشن

کد php: 
$regfile = "m8def.dat"
$crystal = 8000000
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = PinB.0 , Db5 = PinB.1 , Db6 = PinB.2 , Db7 = PinB.3 , E = PinB.4 , Rs = PinB.5
Config Portc = Input
Dim A As Byte
Dim B As Byte
Do
If PinC.0 = 1 Then
Incr A
End If
If PinC.1 = 1 Then
Incr B
End If
If PinC.2 = 1 Then
A = 0
B = 0
End If
Lcd "PLAYER 1" : Lcd A
Lowerline
Lcd "PLAYER2:" : Lcd B
Cls
Loop
End 

اینو عجله ای نوشتم یه تست بکنید بی زحمت نتیجشو بگید

این برنامه رو توی بسکام بنویسم؟

یه چند لحظه صبر کنید تو پروتئوس ببینم چی میشه:d
خیلی حول حولکی نوشتم

بفرمایید
اون پرشه LCDم قابل برطرف کردنه ولی فکر نمیکنم زیاد مهم باشه:d

:rolleyes: مرسی

باز نمیشه

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

فقط من یه چند خط برنامه به برنامه ای که آقا وایت نویز ( اسمت رو فراموش کردم شرمنده ) اضافه کردم که برنامه کامل تر بشه و اون باگ هاش از بین بره.
اگه توجه کرده باشین تو برنامه دوستمون اگه کلید رو نگه داری متغیر هی اضافه میشه.
و ال سی دی هم یه حالته بدی داره چون همش cls میشه.
تو این برنامه ای که من ویراشش کردم دیگه این مشکلات نیس.

برنامه:

کد: 
$regfile = "m8def.dat"

$crystal = 8000000

Config Lcd = 16 * 2

Config Lcdpin = Pin , Db4 = Pinb.0 , Db5 = Pinb.1 , Db6 = Pinb.2 , Db7 = Pinb.3 , E = Pinb.4 , Rs = Pinb.5

Config Portc = Input

Dim A As Byte

Dim B As Byte

Dim S As String * 5

Cursor Off

S = Space(5)

Cls

Do

If Pinc.0 = 1 Then : Bitwait Pinc.0 , Reset : Incr A : End If

If Pinc.1 = 1 Then : Bitwait Pinc.1 , Reset : Incr B : End If

If Pinc.2 = 1 Then : Bitwait Pinc.2 , Reset : A = 0 : B = 0 : End If

Locate 1 , 1 : Lcd "PLAYER 1:" : Lcd A ; S

Locate 2 , 1 : Lcd "PLAYER 2:" : Lcd B ; S

Loop

End

موفق باشید...

sungirl69

aKaReZa75

sungirl69

WhiteNoise

sungirl69

WhiteNoise

sungirl69

WhiteNoise

sungirl69

WhiteNoise

aKaReZa75