سلام .
اگه میشه یه کد بنویسید که باهاش بتونم مقدار اندازه گیری شده دما رو با سیم به یک میکروی دیگه منتقل کنم .
خودم با دستور Print و Waitkey نوشتم ولی فقط یک بار نشونش میده و بعد مقدار دما صفر میشه . :angry:
اگه کمکم کنید ممنون میشم . :rolleyes:
با بسکام کار میکنم و میکرو هم Atmega8 است .
این کدیه که خودم نوشتم . فرستنده
اینم برای گیرنده
اگه میشه یه کد بنویسید که باهاش بتونم مقدار اندازه گیری شده دما رو با سیم به یک میکروی دیگه منتقل کنم .
خودم با دستور Print و Waitkey نوشتم ولی فقط یک بار نشونش میده و بعد مقدار دما صفر میشه . :angry:
اگه کمکم کنید ممنون میشم . :rolleyes:
با بسکام کار میکنم و میکرو هم Atmega8 است .
این کدیه که خودم نوشتم . فرستنده
کد:
$regfile = "m8def.dat" $crystal = 8000000 Config Lcdpin = Pin , Db4 = Pinb.0 , Db5 = Pinb.1 , Db6 = Pinb.2 , Db7 = Pinb.3 , E = Pinb.4 , Rs = Pinb.5 Config Lcd = 16 * 2 Config Adc = Single , Prescaler = Auto , Reference = Internal Start Adc Dim B As Word Dim A As Word Dim C As Single Dim F As String * 10 Deflcdchar 0 , 32 , 4 , 10 , 4 , 32 , 32 , 32 , 32 Cursor Off Cls Main: Do Home B = Getadc(1) A = Getadc(2) C = B - A C = C / 4 F = Str(c) Home Lcd "Temp : " ; C ; " C" : Lcd Chr(0) ; Waitms 50 jmp data_r Loop Data_r: Do Waitms 50 Print F Waitms 50 jmp main Loop Return
کد:
$regfile = "m8def.dat" $crystal = 8000000 Config Lcdpin = Pin , Db4 = Pinb.0 , Db5 = Pinb.1 , Db6 = Pinb.2 , Db7 = Pinb.3 , E = Pinb.4 , Rs = Pinb.5 Config Lcd = 16 * 2 Dim S As Single Dim F As String * 10 Deflcdchar 1 , 7 , 5 , 7 , 32 , 32 , 32 , 32 , 32 Cursor Off Cls Main: Do Waitms 50 Input S F = Waitkey(s) jmp lcd_r Loop Lcd_r: Do Home Lcd "Temp : " ; S ; "C" : Lcd Chr(1) : Waitms 950 jmp main Loop Return
دیدگاه