ايران ويج

(۱۵-دى-۱۳۸۹, ۱۹:۳۱:۲۰)ebka نوشته است: [ -> ]

کد:

$regfile = "m8def.dat"
$crystal = 8000000
Config Adc = Single , Prescaler = Auto
Config Portd = Output
Config Portb.0 = Output : Config Portb.1 = Output
Config Portb.2 = Output : Config Portb.3 = Output
: Dim Volt As Word , Dahgan As Byte , Yekan As Byte , C As Word , D As Byte , H As Byte , Sadgan As Word
Stop Adc : Start Adc
Do
Volt = Getadc(0)
Volt = Volt / 2
Sadgan = Volt / 100
C = Sadgan * 100
H = Volt - c
Dahgan = H / 10
D = Dahgan * 10
Yekan = H - D



Portd = Lookup(sadgan , Ebi)
Portb.0 = 1 : Portb.1 = 0 : Portb.2 = 1 : Portb.3 = 1
Waitms 10
Portb.1 = 1
Portd = Lookup(dahgan , Ebi)
Portb.2 = 0
Waitms 10
Portb.2 = 1
Portd = Lookup(yekan , Ebi)
Portb.3 = 0
Waitms 10
Portb.3 = 1

Loop
Ebi:
Data 63 , 6 , 91 , 79 , 102 , 109 , 125 , 7 , 127 , 111

این هم برنامه دماسنج از صفر تا 150 درجه....
سگمنت ها کاتد مشترک هستن!!!

خیلی خیلی ممنون از لطفتون
فقط دو تا چیز؛
یکیش این که از مگا 8 استفاده شده ! برای استفاده از مگا 16 فقط کافیه که تو کد نویسی بجای مگا8 ، مگا16 تعریف کنم دیگه ؟
دومیش هم اینکه که اینجا از 4 تا سون سگمنت کاتد مشترک استفاده شده !مال من 3تایی هست آخه ؟ مشکلی پیش نیاد ؟
راستی این برنامه رقم اعشار رو هم نشون میده ؟ مثل 15.5 ؟

(۱۶-دى-۱۳۸۹, ۰۲:۲۰:۲۵)رسول نوشته است: [ -> ]ابکا جون من مدارشو روی برد برد ساختم اما اون لرزش اینجا هم هست و هیچ عددی رو نشون نمیده ... حتی بدون سنسور هم همینطوریه

از مگا هشت صفر کیلومتر هم استفاده کردم ... سیمهاشم به درستی وصل کردم اما!!!

اینم فیلمش:



-----------------------------------
تبسم دشمن را دوست می کند