پاسخ : کمک برای راه اندازی سون سگمنت های مالتی پلکس
سلام
از راهنمایی هاتون واقعا ممنون هستم.
یه زحمت دارم براتون.یه برنامه بنویسید که مقدار رو از adc بگیره و روی سون سگمنت 4تایی نشون بده.بعد خط به خط توضیح بدین.
بازم تشکر..........
پاسخ : کمک برای راه اندازی سون سگمنت های مالتی پلکس
سلام خدمت همگی.
من یه برنامه با بسکام که قبلا نوشته بودم براتون گذاشتم.
امیدوارم به کارتون بیاد.
تو این برنامه عدد 0146 روی سون سگمنت کاتد مشترک به نمایش در میاد.
$regfile = "m32def.dat" : $crystal = 1000000
Config Portc = Output : Config Portd = Output
Declare Sub 7_seg(byval X As Word)
Dim A(3) As Byte , S(2) As String * 4
'-------------------------------------------------------------------------------
Do
Call 7_seg(146)
Loop
'-------------------------------------------------------------------------------
Sub 7_seg(byval X As Byte)
S(1) = Str(x) : S(1) = Format(s(1) , "0000"
For A(1) = 1 To 4 Step 1
S(2) = Mid(s(1) , A(1) , 1) : A(2) = Val(s(2))
Portc = Lookup(a(1) , Sel) : Portd = Lookup(a(2) , Dta)
Waitms 5
Next : End Sub
'-------------------------------------------------------------------------------
Dta:
Data 63 , 6 , 91 , 79 , 102 , 109 , 125 , 7 , 127 , 111
Sel:
Data 0 , 247 , 251 , 253 , 254
تولید کننده انواع تابلو فرمان آسانسور با تکنولوژی روز دنیا
پاسخ : کمک برای راه اندازی سون سگمنت های مالتی پلکس
با سلام نسبت به دوستان عزیز و با تشکر از جوابهای داده شده
فقط اگر در مورد برنامه یه توضیحی داده بشه و یه شماتیک از مدار هم بود خیلی عالی میشد. اگر ممکنه
دیدگاه