سلام دوست عزیز
ممنون برای لطفی که کردین ..... بینهایت ممنون و متشکرم
پ.ن: ببخشید این موضوع را عرض میکنم ... ولی وقتی دیدم که به زحمت افتادید
و کدها را در فایل قرار دادید و آپلود کردید .... این را مینویسم :
برای قرار دادن کد در کامنتتون - متن کدها را را کپی پیست کرده و با رایت کلیک کدها
را آبی کرده و بعد روی # کلیک کنید تا کدها در تاپیک درست قرار گیرند....
کد:
$regfile = "m8def.dat"
$crystal = 8000000
Config Portd.7 = Output
Lighta Alias Portd.7
Config Portb.0 = Output
Lightk Alias Portb.0
Config Portc.4 = Output
Pota Alias Portc.4
Config Portc.2 = Output
Potk Alias Portc.2
Lightk = 0
Lighta = 1
Pota = 1
Potk = 0
Config Portb.1 = Output
Trigger Alias Portb.1
Trigger = 0
'--------------------------------------------
Config Portb.3 = Input
Ddrb.3 = 0
Portb.3 = 1
'------------------------------------
Cls
Waitms 100
Lcd " Ali Haddad"
Locate 2 , 1
Lcd " DIGIT METER "
Wait 5
Dim A As Word
Dim S As Single
'--------------------------------------------
Const K = 0.1725
Waitms 50
Do
Trigger = 1
Waitus 15
Trigger = 0
Waitus 10
Pulsein A , Pinb , 3 , 1
S = A * K
Waitms 1
Cls
Lcd Fusing(s , "###.#")
Locate 1 , 8
Lcd " cm "
Locate 2 , 1
Lcd " >--------<"
Waitms 400
Loop
End
دلیل: ادغام دو پست برای جلوگیری از اسپم
یک سوال ؟
مقدار عدد S در برنامه بالا بین چه اعدادی میتواند باشد؟ تغییر هر عدد بیانگر چند سانتیمتر است