ايران ويج

نسخه‌ی کامل: جدول lock up
شما در حال مشاهده‌ی نسخه‌ی متنی این صفحه می‌باشید. مشاهده‌ی نسخه‌ی کامل با قالب بندی مناسب.
صفحه‌ها: 1 2
با سلام
من میخواستم همه چیز رو در مورد جدول lock up بدونم
تنها چیزی که من میدونم اینه که با این جدول کی پد ماتریسی رو مثل ماشین حساب پیکر بندی میکنند اما چجوری ؟؟؟



با تشکر
سلام.
این تنها کاربرد این جدول نیست.
شما میتونی داخل این جدول مقدار هایی قرار بدی و بعد اونارو برگردونی.
یا به عبارت دیگه از اون مقدار هایی که تو جدول قرار دادی ، تو هر جایی که دوست داری استفاده کنی.
الان برای من مهمترین کاربردش همین پیکر بندی به صورت صفحه کلید ماشین حساب هست
دوستان لطفا یکی بیاد و اینو به بنده آموزش بده امیدوارم که این آموزش بدرد خیلی از دیگر دوستان هم که همین مشکل منو دارند بخوره
آخر برنامه جدولت رو تعریف می کنی مثلا اینطوری
کد:
key0:
data 1,2,3,4,5,6,7,8,9,10,11,12,13,14
بعدش هر جا بنویسی
کد:
a=lookup(a,key0)
متغیر a که عددی رو که داری به عدد مربوطش تو جدول تبدیل می کنه
مثلا اگر a ده باشه بعد از این دستور میشه عدد 11
البته با دستور case هم میشه این کارو کرد ها.
اینم بگم
با عرض شرمندگی من متوجه نشدم میشه یه چندتا مثال برام بزنید ؟؟؟
فکر کنم شما بد برداشت کردین برای راه اندازی کیپد اصلا نیازی به جدول lookup نداریم شما باید با یه روش (که اینجا چندتا گفتم) کی پد رو بخونین بعدش عددی رو که بدست اوردین با جدول lookup به عدد مورد نظرتون تغییر بدین
این مثال ببینید با جدول lookup عدد یه متغیر رو عوض کردم
کد:
$regfile = "m8def.dat"
$crystal = 1000000
Dim A As Byte
A = 10
Do
A = Lookup(a , Key0)
Loop
End                                                         'end program
Key0:
Date 1 , 2 , 3 , 4 , 5 , 6 , 7 , 8 , 9 , 10 , 11 , 12 , 13 , 14 , 15 , 16 , 17
اگر می خواهین کی پد راه اندازی کنین فعلا بیخیال جدول lookup بشین و خودش رو راه بندازین و بعدش برین سراغ جدول lookup
با اجازه من برنامه شما رو تحلیل میکنم هر جا اشتباه کردم بهم بگو لطفا

$regfile = "m8def.dat"
معرفی میکرو

$crystal = 1000000
معرفی کریستال

Dim A As Byte
متغیری رو معرفی کردیم با اسم a و نوع byte

A = 10
به متغیرمون مقدار دادیم

Do
ابتدای حلقه

A = Lookup(a , Key0)
شرمنده اینو شما توضیح بده

Loop
پایان حلقه

End
پایان برنامه
سوال
'end program پس این چیه و چرا از اونای دیگه فاصله داره ؟

Key0:
Date 1 , 2 , 3 , 4 , 5 , 6 , 7 , 8 , 9 , 10 , 11 , 12 , 13 , 14 , 15 , 16 , 17
اینم خودت زحمتشو بکش و بگو
قبل از این دستور
A = Lookup(a , Key0)
مقدار متغیر a ده است
وقتی میکرو میرسه به این دستور مقدار a رو می خونه میبینه که 10 خوب بعدش یازدهمین عدد رو به a انتساب میده یعنی a مساوی یازدهمین عدد توی جدول میشه که اینجا یازدهمین عدد 11 است و a مساوی 11 می شود
حالا چرا یازدهمین عدد چون صفر هم داریم و صفر میشه اولین عدد و ... تا 10 میشه یازدهمین عدد
'end program
یه یادداشت گذاشتیم تو برنامه تا بدونیم کجا برنامه تموم شده در واقع بود و نبودش تاثیری نداره و یاداشت ها همیشه از بقیه ی دستورا جدا هستن
Key0:
Date 1 , 2 , 3 , 4 , 5 , 6 , 7 , 8 , 9 , 10 , 11 , 12 , 13 , 14 , 15 , 16 , 17
این همون جدوله که دستور lookup بهش پرش می کنه
یه مشکلی این برنامه دارم الان توجه کردم اونم اینه که باید متغیر رو تو حلقه مقداردهی کنیم که اینجا اشتباه شد و بیرون حلقه مقدارش دادمWink
میشه یه مثال رو با فایل پروتیو.س برام بزاری چون من هر کاری میکنم درست نمیشه
این مشکل منه لطفا کمک کنید
صفحه‌ها: 1 2