طراحی ساعت شطرنج با پروتئوس

[sungirl69]

سلامـــ

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

مرسی

[aKaReZa75]

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

[sungirl69]

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

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

[WhiteNoise]

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

[sungirl69]

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

---

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

[WhiteNoise]

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

با 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 


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

[sungirl69]

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

[WhiteNoise]

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

---

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

[sungirl69]

:rolleyes: مرسی

---

باز نمیشه

[WhiteNoise]

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

[aKaReZa75]

فقط من یه چند خط برنامه به برنامه ای که آقا وایت نویز ( اسمت رو فراموش کردم شرمنده ) اضافه کردم که برنامه کامل تر بشه و اون باگ هاش از بین بره.
اگه توجه کرده باشین تو برنامه دوستمون اگه کلید رو نگه داری متغیر هی اضافه میشه.
و ال سی دی هم یه حالته بدی داره چون همش 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

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