سلام به همگی
میخوام با فشردن عددی از صفحه کلید3*4 ماتریسی همون عدد تو سون سگمنت نمایش بده ففط هم میخوام از یک رقم استفاده کنم که برای شروع برام راحتر باشه
به زبان بیسکام باشه
(۲۰-بهمن-۱۳۹۰, ۰۱:۱۵:۰۵)alihes نوشته است: [ -> ]سلام به همگی
میخوام با فشردن عددی از صفحه کلید3*4 ماتریسی همون عدد تو سون سگمنت نمایش بده ففط هم میخوام از یک رقم استفاده کنم که برای شروع برام راحتر باشه
به زبان بیسکام باشه
سلام..
دوسته من شما میخوایین وقتی کلید رو از صفحه کلید زدین اون عدد رو نشون بده؟؟؟؟ با یک سون سگمنت؟؟؟
سلام بله
هر عددی که فشردم همون عدد نمایش داده بشه
سلام.
كافيه كي پد رو كانفيگ كنيد و بعد از كدهاي زير كمك بگيريد.
کد:
do
gget:
a=getkbd()
if a>11 then
goto gget
waitms 500
end if
cls
lcd a
loop
اين يه نمونه ي ساده بود ، البته معمولا بايد از يه look up table استفادهه كني كه تو help بسكام مي توني پيگيريش كني ...
اگر تازه شروع كرديد ، كتاب 1nafar رو بهتون پيشنهاد مي كنم بخونيد كه براي دانلود در همين سايت هست. (سرچ كنيد)
اشتباهات زيادي توش هست ، اما براي شروع خوبه ...
موفق باشي.
يا علي.
كافيه كي پد رو كانفيگ كنيد? و بعد از كدهاي زير كمك بگيريد!
سلام در مورد lcd آموزش هست.
من برای سون سگمنت میخوام.یعنی با چه شرطی avr متوجه میشه که من به فرض سطریک و ستون یک رو فشردم یا سطر یک و ستون دو فشردم
فقط لطف کنید برنامه ای که گفتم برام قرار بدین خودم با آزمون و خطا لاد میگیرم
يه روش اينه كه شرط شرط بذاريد ...
اما تابع براي اين كار هست.
خود بسكام هم دارش و فقط كافيه config اش كنيد.
اگر هم مي خواهيد از شرط استفادهه كنيد كه توضيح نمي خواد ... ! مشخصه ...
نمونه برنامه با تابع همونيه كه بالا گذاشتم ...
فهميدن كدوم دكمه هم كار تابع هست و جدول look up اي كه براش تعريف مي كنيد.
توضيحات پست قبل رو دوبارهه بخونيد ...
موفق باشيد.
يا علي.
سلام
با این برنامه هر کلید کیپد رو که فشار بدی عدد متناظرش روی سون سگمن نمایش میده
این برنامه رو برای ساعت 4 دیجیت نوشته بودم با کمب تغییر برات گذاشتم
هر دکمه کیپد یه کد رو برای میکرو بر می گردونه که تفسیر این با خودته. مثلا ممکن رو کیپد عدد 2 رو بزنی و عدد 9 رو نشون بده که با کمی تغییر در برنامه میتونی بگی که با فشار هر کد چه عددی رو نشون بده
$regfile = "m32def.dat"
$crystal = 800000
Config Porta = Output
Config Portb = Output
Config Portc = Output
Config Pind.0 = Input , Pind.1 = Input
Config Kbd = Porta , Debounce = 10 , Delay = 255
Number Alias Porta
S1234 Alias Portb
Setkey Alias Pind.0
Plus Alias Pind.1
Dim D(5) As Byte , A As Byte , N(5) As Integer , Ws As Byte
Dim Stri As String * 4 , Ns As String * 1 , Cu As Byte
Dim H As Byte , M As Byte , S As Byte , I As Byte
Dim Ss As Bit , Mm As Bit , Hh As Bit , Seter As Bit
Cursor Off
Dim A As Byte
Do
A = Getkbd()
Stri = Str(n(a))
Gosub Showdigit
Loop
'================
Showdigit:
Select Case Len(stri)
Case 3
Stri = "0" + Stri
Case 2
Stri = "00" + Stri
Case 1
Stri = "000" + Stri
End Select
For A = 1 To 4
Ns = Mid(stri , A , 1)
N(a) = Val(ns)
D(a) = Lookup(n(a) , Digits)
Next
If Hh = 1 Then
If N(1) > 0 Then
S1234 = 8
Number = D(1)
Else
S1234 = 0
End If
Waitms Ws
If Ss = 1 Then D(2) = Lookup(n(2) , Digits) Else D(2) = Lookup(n(2) , Digits2)
S1234 = 4
Number = D(2)
Waitms Ws
End If
If Mm = 1 Then
S1234 = 2
Number = D(3)
Waitms Ws
S1234 = 1
Number = D(4)
Waitms Ws
End If
S1234 = 0
Return
'================
Digits:
Data &HC0 , &HF9 , &HA4 , &HB0 , &H99 , &H92 , &H82 , &HF8 , &H80 , &H90
' 0 1 2 3 4 5 6 7 8 9
'================
Digits2:
Data &H40 , &H79 , &H24 , &H30 , &H19 , &H12 , &H02 , &H78 , &H00 , &H10
' 0 1 2 3 4 5 6 7 8 9
سلام و ممنون امتحانش میکنم
dim a as byet که قبل از crroser off بود برداشتم برنامه بدون اشکال ذخیره شد.