کمک : خواندن دمای هشت سنسور lm35 و بسته بندی ان به صورت رشته

[MRGMRG]

با سلام
کمک
اساتید محترم کمک
دمای هشت سنسور lm35 رو میخوام بخونم( با ای وی ار و کامپایلر بسکام )و به صورت رشته و یکجا با پورت سریال بفرستم به لب ویو موندم چطوری اول همه دما هارو بخونم بعد تو یه رشته بریزم و پس از فراخوانی از لب ویو با پورت سریال ارسالش کنم :angry: :angry:

[ben-robot]

پاسخ : کمک : خواندن دمای هشت سنسور lm35 و بسته بندی ان به صورت رشته

سلام

اول با یک مولتی پلکسر انالوگ استتفاده کن بعد با adc میکرو بخون بعد تک تک به پورت سریال ارسال کن بعد با دستور match pattern لب ویو این داده ها رو از هم جدا کن

این شکلی damaهمون دما هستش

s1:dama
s2:dama
s3:dama

[MRGMRG]

پاسخ : کمک : خواندن دمای هشت سنسور lm35 و بسته بندی ان به صورت رشته

با سلام استاد عزیز
اخه من دما ها رو تک تک به لب ویو میفرستم ولی چون در بستر اترنت هستش داده های سریال رو اول با مبدل سریال به اترنت به لب ویو ارسال میکنم بعد روی اونا پردازش انجام میدم ولی توی این میون چنتا از سنسورا مقدارشون میپره

[ben-robot]

پاسخ : کمک : خواندن دمای هشت سنسور lm35 و بسته بندی ان به صورت رشته

برنامه میکرو و لب ویو رو بزار اینجا تا ببینیم مشکلش چیه؟

[MRGMRG]

پاسخ : کمک : خواندن دمای هشت سنسور lm35 و بسته بندی ان به صورت رشته

اره دقیقا با همون فرمت
T1=16.25 T2=25.25 T3=-20.12
به لب ویو میفرستم که به این مشکل میخورم توی ارتباط سریال خود لب ویو این کار راحت تر انجام میشه ولی باTcp/ip مشکله اول باید همه دما هارو تو میکرو خوند تو یه رشته ریخت بعد ارسالش کرد به لب ویو تازه باید تهداد بیتاش هم ثابت باشه مثل سریال بایت ات پورت نداره

[MRGMRG]

پاسخ : کمک : خواندن دمای هشت سنسور lm35 و بسته بندی ان به صورت رشته

ممنون استاد البته با سنسور ds18b20 هستش ولی در کل خوندن دماست نمیدونم کار کردین یا نه؟

[MRGMRG]

پاسخ : کمک : خواندن دمای هشت سنسور lm35 و بسته بندی ان به صورت رشته

با سلام
این برنامه بسکامش برای هشت سنسور
$regfile = "m16def.dat"
$crystal = 7372800
$baud = 9600
'$sim

Config Lcdpin = Pin , Rs = Portd.7 , E = Portd.6 , Db4 = Portd.5 , Db5 = Portd.4 , Db6 = Portd.3 , Db7 = Portd.2
Config Lcd = 16 * 2
Cursor Off
'Config 1wire = Portb.7
Dim Byte0 As Byte
Dim Byte1 As Byte
Dim Sign As String * 1
Dim T As String * 20

Dim T1 As Single
Dim T2 As Single
Dim X As Byte
Dim N As String * 7
Dim S As String * 4
'============================================ ====
Dim W As Word
Dim I As Byte
Dim Portb_rx As Bit , Data_rx As Byte , Tr_enable As Bit

'**************
On Urxc Rec_isr
Enable Urxc
Enable Interrupts

Do
Loop

Rec_isr:
Data_rx = Udr
If Data_rx = "1" Then

'Then Tr_enable = 1
'If Tr_enable = 1 Then

1wreset Pinb , 7
If Err = 1 Then

Print "T1= Error"
Wait 1
Goto Next1
Else
1wwrite &HCC , 1 , Pinb , 7

[ben-robot]

پاسخ : کمک : خواندن دمای هشت سنسور lm35 و بسته بندی ان به صورت رشته

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

من این برنامه رو قبلا نوشتم با لب ویو به مشکل هم نخوردم



و برنامه ی سی هم

printf("s1%i",a);
printf("s2%i",b);
printf("s3%i",c);
.
.
.

[MRGMRG]

پاسخ : کمک : خواندن دمای هشت سنسور lm35 و بسته بندی ان به صورت رشته

ممنون
ولی این برنامه لب ویو مال ارتباط سریاله کار کردن باهاش راحتتره ولی با tcp/ip مسئله فرق میکنه ولی در کل اگه همه دما ها رو توی یه رشته بریزم و یکجا ارسال کنم مشکلم حل میشه که موندم چی کار کنم