سوال در مورد lcd گرافیکی

[main]

سلام.
سوالی در مورد glcd داشتم. زبان برنامه نویسی بیسیک.

من یه شکل هندسی میخوام درست کنم که با یک کلید 90درجه بچرخه ایا چنین دستوری در glcd هست.(2 هفته است دارم بیسیک کار میکنم)
توضیح : شکل هم باید به سمت پایین حرکت کنه هم کنترل چرخش داشته باشه.
راحت بگم مثل بازی تتریس (خونه سازی) طریقه ساخت شکل هندسی هم بگید ممنون می شم.
مرسی

[mojtaba bahador]

پاسخ : سوال در مورد lcd گرافیکی

شاید این دستور باشه ولی من نمیدونم. میتونی همون شکل رو بصورت 90 درجه چرخش هم بکشی و وقتی کلید خورد شکل چرخیده شده رو فراخوانی کنی :nerd:

[main]

پاسخ : سوال در مورد lcd گرافیکی

ایا راهی هست که یه شکل هندسی رو به صورت یه متغیر رشته بریزیم. (مثل lcd کارکتری که توسط lcd design که شکل درست می کنیم) البته میدونم ساختار شون فرق می کنه. فقط برام سوال بود. میشه برا نمونه حرف N به صورت گرافیکی نه ;کدشو بنویسید. چون معمولا آموزش هایی که من دیدیم شکل از قبل آماده می کنند.
ممنون

[mojtaba bahador]

پاسخ : سوال در مورد lcd گرافیکی

دوست عزیز یک نرم افزار دارم که مخصوص ال سی دی های گرافیکیه
البته هنوز باهاش کار نکردم. ولی 99.99٪ کار میکنه. روالشم به این صورته که دقیقا مثل همون ال سی دی کاراکتری باید با ماوس روی پیکسلها کلیک کنی و در آخر خروجی یک فایل با پسوندbmp بهت میده که همون چیزیه که ما میخوایم.
دانلودش کن و بعد از دانلود حالشو ببر.......... :nerd:
http://rapidshare.com/files/37504099...o.com.rar.html
در ضمن باید وینرار داشته باشی(فایل رو فشرده کردم). الان تستش کن و خبرشو با PM بده

[main]

پاسخ : سوال در مورد lcd گرافیکی

با سلام.
ابتدا تشکر کنم از جناب آقای بهادر.
برنامه ی عالیی بود!
من یه برنامه نوشتم که یه شکل رو حرکت بده از بالا به پایین (همون طور که گفتم تازه کارم تو بسکام)
حالا با کمک شما می خوام برم جلو :redface: :nerd:
این کد برنامه ام هست.
قبلش بگم نمیدونم این پروتئوسم چه مرگشه تا می خوام run کنم ارور می گیره(ارورش اینه invalid open code0x0008 at pc=0x0090)
وسایل هم دم دستم نیست عملی ببندم

$lib "glcdks108.lbx"
$include "font8x8.font"
Dim A As Byte
Config Graphlcd = 128 * 64sed , Dataport = Portc , Controlport = Portd , Ce = 0 , Ce2 = 1 , _
Cd = 2 , Rd = 3 , Reset = 5 , Enable = 4
Cls
Do
For A = 0 To 20 Step 1
Showpic A , 12 , Aks
Next A
Loop
End
Aks:
$bgf "k.bgf"

می دونم چند خط بیشتر نیست ولی اروم اروم با ( :read: ) زیاد میشه
تا اینجا که مشکلی نداره؟
پست بعدی می خوامkey pad هم اضاف کنم رو چرخشش کار کنم

[mojtaba bahador]

پاسخ : سوال در مورد lcd گرافیکی

دوست عزیز من حدود 2 سال پیش ال سی دی گرافیکی کار میکردم و الان چیزی یادم نمونده و به خاطر مشغله کاری ای که دارم فعلا نمی تونم دوباره برنامه نویسی شو بخونم. به همین خاطر شرمنده ی شما میشم.البته مشغله کاریم یه پروژه س که متاسفانه ال سی دی گرافیکی نداره اگرنه کمکت میکردم.
:redface:

[main]

پاسخ : سوال در مورد lcd گرافیکی

ممنون از شما. شما وظیفه ای به پاسخگویی سوالات من ندارید. تا همین قدر هم کمک شایانی به من کردید.
از دوستان glcd باز این ادامه برمامه من و اتصال keypad و چرخش 90 در جه هست.
مطمعا هستم یه جایه کار ایراد داره ولی هیچ امکاناتی برا تستش ندارم

$lib "glcdks108.lbx"
$include "font8x8.font"
Dim A As Byte , B As Byte , M As Byte
B = 0
Config Kbd = Porta
Config Graphlcd = 128 * 64sed , Dataport = Portc , Controlport = Portd , _
Ce = 0 , Ce2 = 1 , Cd = 2 , Rd = 3 , Reset = 5 , Enable = 4
Cls
Do
For A = 0 To 20 Step 1
Showpic A , 12 , Aks
Next A
M = Getkbd()
If M = 5 Then Incr B
Select Case B
Case 1 : Goto Aks
Case 2 : Goto Aks2
Case 3 : Goto Aks3
Case 4 : Goto Aks4
Loop
End

Aks:
$bgf "k.bgf"

Aks2:
$bgf "2.bgf"

Aks3:
$bgf "3.bgf"

Aks4:
$bgf "4.bgf"

با فشار دادن دکمه 5 هر بار عکس تغییر وضعیت می ده
ممنون می شم تو اصلاحش کمکم کنید. جز شما دوستان کسی رو برای راهنمایی نمی شناسم

[main]

پاسخ : سوال در مورد lcd گرافیکی

سلام.
اساتید اگه تو اصلاحیه این برنامه حداقل کمک نمی کنید.نحوه چرخش عکس رو حداقل کدشو بزارید. ممنون می شم.(اونی که من نوشتم اصلاحش می کنید چون تو عمل حواب نداد).
مرسی.