با سلام ،
دوست عزیز شما در حال استفاده از ورژنی قدیمی از اینترنت اکسپلورر هستید ، برای اینکه مشکلات ناشی از نمایش را نداشته باشید ، لطفا اقدام به دریافت مرورگری مناسب کرده و یا از ورژن قدیمی ما استفاده نمایید.


امتیاز موضوع:
  • 0 رأی - میانگین امتیازات: 0
  • 1
  • 2
  • 3
  • 4
  • 5
ارتباط کی پد با سون سگمنت
#1
سلام دوستان.
یه پروژه داشتم میخاستم به یه سون سگمنت 6تایی از طریق یه کی پد عدد بدم.که با زدن کلید ستاره شروع کنه به عدد گرفتن ولی نمیدونم چرا جواب نمیده؟؟!!
با بسکام نوشتمش فایل بسکام با پروتئوسش رو میذارم اگه کسی تونست اشکالم رو بگیره ممنون میشم کمکم کنه
[attachment=396][attachment=397]

کد:
$regfile = "m16def.dat"
$crystal = 8000000
'-------------------------------config---------------------
Config Portd = Output
Config Portb = Output
Config Kbd = Portc , Debounce = 75
Declare Sub Import
'-------------------------------Var-----------------------
Dim Dig As Byte
Dim A As Byte
'------------------------------Main---------------------
Main:
Do
Dig = Getkbd()
If Dig < 16 Then
   Dig = Lookup(dig , Table)
   Select Case Dig
   Case 13 : Gosub Import
   End Select
  End If
Loop
End                                             'end program
  '---------------------------Table----------------------
Table:
Data 14 , 12 , 0 , 13 , 14 , 9 , 8 , 7 , 14 , 6 , 5 , 4 , 14 , 3 , 2 , 1
  '----------------------------import------------------------
Sub Import:
Waitms 500
A = Getkbd()
If A < 16 Then
A = Lookup(a , Table)
End If
Reset Portb.0
Set Portb.1
Set Portb.2
Set Portb.3
Set Portb.4
Set Portb.5
Portd = A
Waitms 10
A = Getkbd()
If A < 16 Then
A = Lookup(a , Table)
End If
Reset Portb.1
Set Portb.0
Set Portb.2
Set Portb.3
Set Portb.4
Set Portb.5
Portd = A
Waitms 10
A = Getkbd()
If A < 16 Then
A = Lookup(a , Table)
End If
Reset Portb.2
Set Portb.1
Set Portb.0
Set Portb.3
Set Portb.4
Set Portb.5
Portd = A
Waitms 10
A = Getkbd()
If A < 16 Then
A = Lookup(a , Table)
End If
Reset Portb.3
Set Portb.1
Set Portb.2
Set Portb.0
Set Portb.4
Set Portb.5
Portd = A
Waitms 10
A = Getkbd()
If A < 16 Then
A = Lookup(a , Table)
End If
Reset Portb.4
Set Portb.1
Set Portb.2
Set Portb.3
Set Portb.0
Set Portb.5
Portd = A
Waitms 10
A = Getkbd()
If A < 16 Then
A = Lookup(a , Table)
End If
Reset Portb.5
Set Portb.1
Set Portb.2
Set Portb.3
Set Portb.4
Set Portb.0
Portd = A
Waitms 10
End Sub


فایل‌(های) پیوست شده
.rar   tablo.rar (اندازه: 518 bytes / تعداد دفعات دریافت: 18)
.rar   tablo P.rar (اندازه: 14.79 KB / تعداد دفعات دریافت: 12)
پاسخ
#2
سلام مرتضی عزیز با اجازتون نوشتتون رو ویرایش کردم چون کدی که گذاشته بودین قابل خوندن نبود

بنده بیسیک بلد نیستم دوستان بیسیکی هم معلوم نیست رفتن کجا !بیان حتما کمکتون میکنن
آدم تا چیزی رو به کسی یاد نده خودش یاد نمیگیره !
پاسخ
#3
(10 فروردين 1392، 11:23 صبح)حسام مغربی نوشته است: دیدن لینک ها برای شما امکان پذیر نیست. لطفا ثبت نام کنید یا وارد حساب خود شوید تا بتوانید لینک ها را ببینید.
سلام مرتضی عزیز با اجازتون نوشتتون رو ویرایش کردم چون کدی که گذاشته بودین قابل خوندن نبود

بنده بیسیک بلد نیستم دوستان بیسیکی هم معلوم نیست رفتن کجا !بیان حتما کمکتون میکنن
سلام مهندس
ممنون.پس منتظر میمونم
پاسخ
#4
(10 فروردين 1392، 12:34 عصر)morteza1372 نوشته است: دیدن لینک ها برای شما امکان پذیر نیست. لطفا ثبت نام کنید یا وارد حساب خود شوید تا بتوانید لینک ها را ببینید.
سلام مهندس
ممنون.پس منتظر میمونم


سلام :

متأسفانه اینترنت یا سایت مشکل داره و نمیتونم فایل شماتیک شما رو دانلود کنم . موقع دانلود ، این پیغام عجیب ظاهر میشه و بعدش هم پیغام Error :

   

اگه میتونی برام ایمیلش کن تا بررسی کنم .
پاسخ
#5
وحید جان عزیز
دوست عزیزمون اشتباه آپلود کردن وگرنه سایت مشکلی نداره
آدم تا چیزی رو به کسی یاد نده خودش یاد نمیگیره !
پاسخ
#6
(10 فروردين 1392، 02:53 عصر)حسام مغربی نوشته است: دیدن لینک ها برای شما امکان پذیر نیست. لطفا ثبت نام کنید یا وارد حساب خود شوید تا بتوانید لینک ها را ببینید.
وحید جان عزیز
دوست عزیزمون اشتباه آپلود کردن وگرنه سایت مشکلی نداره
میبخشید آقا حسام میشه راهنماییم کنی چه جوری آپلود کنم؟
چون فکر کنم یه کم با سایتهای دیگه فرق داره

سلام فکر کنم درست شده باشه!!

(10 فروردين 1392، 02:28 عصر)Pixar نوشته است: دیدن لینک ها برای شما امکان پذیر نیست. لطفا ثبت نام کنید یا وارد حساب خود شوید تا بتوانید لینک ها را ببینید.
(10 فروردين 1392، 12:34 عصر)morteza1372 نوشته است: دیدن لینک ها برای شما امکان پذیر نیست. لطفا ثبت نام کنید یا وارد حساب خود شوید تا بتوانید لینک ها را ببینید.
سلام مهندس
ممنون.پس منتظر میمونم


سلام :

متأسفانه اینترنت یا سایت مشکل داره و نمیتونم فایل شماتیک شما رو دانلود کنم . موقع دانلود ، این پیغام عجیب ظاهر میشه و بعدش هم پیغام Error :



اگه میتونی برام ایمیلش کن تا بررسی کنم .
سلام فایل پیوست رو اصلاح کردم
ممنون از اینکه وقت میذارین
پاسخ
#7
(10 فروردين 1392، 02:53 عصر)حسام مغربی نوشته است: دیدن لینک ها برای شما امکان پذیر نیست. لطفا ثبت نام کنید یا وارد حساب خود شوید تا بتوانید لینک ها را ببینید.
وحید جان عزیز
دوست عزیزمون اشتباه آپلود کردن وگرنه سایت مشکلی نداره
عجب ... پس از صبح تا حالا سر کاریم دیگه ....:@


حالا درست شد .Exclamation

تا شب یا شایدم فردا ! منتظر باشید . فعلا" دیگه باید برم ...
پاسخ
#8
(10 فروردين 1392، 03:02 عصر)Pixar نوشته است: دیدن لینک ها برای شما امکان پذیر نیست. لطفا ثبت نام کنید یا وارد حساب خود شوید تا بتوانید لینک ها را ببینید.
(10 فروردين 1392، 02:53 عصر)حسام مغربی نوشته است: دیدن لینک ها برای شما امکان پذیر نیست. لطفا ثبت نام کنید یا وارد حساب خود شوید تا بتوانید لینک ها را ببینید.
وحید جان عزیز
دوست عزیزمون اشتباه آپلود کردن وگرنه سایت مشکلی نداره
عجب ... پس از صبح تا حالا سر کاریم دیگه ....:@


حالا درست شد .Exclamation
منتظر باشید ...
من که گفتم ببخشید!!!!!!!!İmage
پاسخ
#9
مرتضی جان وحید شوخه جدی نگیر !

استاد بیسیکمون وحیده .
من از بیسیک سر در نمیارم وگرنه راهنماییت میکردم وایسا تا وحید بیاد
آدم تا چیزی رو به کسی یاد نده خودش یاد نمیگیره !
پاسخ
#10
(10 فروردين 1392، 03:26 عصر)حسام مغربی نوشته است: دیدن لینک ها برای شما امکان پذیر نیست. لطفا ثبت نام کنید یا وارد حساب خود شوید تا بتوانید لینک ها را ببینید.
مرتضی جان وحید شوخه جدی نگیر !

استاد بیسیکمون وحیده .
من از بیسیک سر در نمیارم وگرنه راهنماییت میکردم وایسا تا وحید بیاد
سلام.من عجله ای ندارم
ممنون از اینکه وقت میذارید
İmage
پاسخ
مشترک شدن در این موضوع


پرش به انجمن:

کاربرانِ درحال بازدید از این موضوع: 1 مهمان

انتخاب پوسته :

دسترسی سریع
درباره ما
انجمن سرزمین الکترونیک در 20 شهریور 91 تاسیس شده ، که همیشه سعی کرده با ظاهری متفاوت و سرعتی خوب رضایت کاربران را جلب کند ، امیدواریم توانسته باشیم گامی کوچک در پیشرفت فناوری در ایران برداشته باشیم...
نیرو گرفته از MyBB 1.8.6 با فارسی سازی مای بی بی ایران - طراحی شده در : ملت دیزاین
© تمامی حقوق برای انجمن سرزمین الکترونیک محفوظ می باشد .

پوسته‌ی انجمن: