7 سگمنت و ADC

[Ahp_online]

پاسخ : 7 سگمنت و ADC

سلام
شما می تونید برای جدا کردن رقم ها از هم عدد را تقسیم بر 10 کنی و بعد باقیمانده آن را دوباره تقسیم بر 10 کنی.

[hossein_edison]

پاسخ : 7 سگمنت و ADC

اینو دارم.بعضی رو از رو اون نوشتم.
ممنون.

[khoshtip118]

پاسخ : 7 سگمنت و ADC

دوست عزیز شما کاری به دما سنج نداشته باشین بیاین متغیر هایی رو که تعریف کردین به صورت دستی مقدار بدین ببینید چه چیزی نمایش داده میشه
اینجور ایراد کارتو زود در میاری
چون تو نمیدونی باید چه دمایی رو نشون بده مشکل ایرادشو در بیاری
بیا اول L , d , ... باقی متغیراتو دستی عدد بده ببین چی میشه

[khoshtip118]

پاسخ : 7 سگمنت و ADC

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

[hossein_edison]

پاسخ : 7 سگمنت و ADC

اوکی ممنون

روش کار میکنم بیبینم چه میشه کرد.

[khoshtip118]

پاسخ : 7 سگمنت و ADC

دوست عزیز توی یک فروم تبلیغ فروم دیگه رو نمیکنن
یکم غیر اخلاقیه

[hossein_edison]

پاسخ : 7 سگمنت و ADC

با سلام مجدد

درست شد .با راهنمایی شما ها بالاخره به نتیجه رسید.دمتون گرم.
$regfile = "m8def.dat"
$crystal = 6000000
Config Portb = Output
Config Portd = Output
Config Adc = Single , Prescaler = Auto
Dim W As Word , T As Single , A As Byte , B As Byte , C As Byte , D As Byte
Start Adc
Do
W = Getadc(0)
T = W / 2.04
A = Int(t)
B = A / 10
C = B * 10
D = A - C
Reset Portb.1
Portd = Lookup(b , Dta)
Waitms 1
Set Portb.1
Reset Portb.2
Portd = Lookup(d , Dta)
Waitms 1
Set Portb.2
Loop
End
Dta:
Data 63 , 6 , 91 , 79 , 102 , 109 , 125 , 7 , 127 , 111

از یک جفت 7 سکمنت استفاده کردم که با میکرو درایوش کردم.دیتا از پورت D ارسال میشه و با پورت b کنترل میشه.