ارتباط با کامپوتر
با سلام و عرض خسته نباشید
من یک مدار دماسنج با مگا32 و MAX232 طراحی کردم و مقدار دما را از طریق دستور PRINT به پورت ارسال میکنم
ولی وقتی به قسمت Terminal در bascom میرم و اطلاعات را میخونم همش vu یا ux ارسال میکند و مقدار عددی دما را نمی دهد
[PHP]$regfile = "m32def.dat"
$crystal = 1000000
$baud = 9600
'-------------------------------lcd---------------------------------------------
'rs=pinb.6,e=pinb.0,db4=pinb.2,db5=pinb.3,db6=pinb .4,db7=pinb.5
Config Lcd = 16 * 2
Config Lcdpin = Pin , Rs = Pinb.0 , E = Pinb.1 , Db4 = Pinb.2 , Db5 = Pinb.3 , Db6 = Pinb.4 , Db7 = Pinb.5
'-------------------------------key board---------------------------------------
Config Kbd = Portc
'Use the following code to disable JTAG
Mcusr = &H80
Mcusr = &H80
'--------------------------------pwm--------------------------------------------
Config Timer1 = Pwm , Pwm = 10 , Compare A Pwm = Clear Up , Compare B Pwm = Clear Down , Prescale = 1
Start Timer1
'--------------------------------dim-------------------------------------------
'a,b for keyboard, c for chek , d for pwm, tanzim for setdama
Dim A As Word , B As Word , C As Word , D As Word , Tanzim As Byte , E As Byte
Dim Lop As Byte
Dim Dama As Byte , Lm35 As Word , Motor As Word
'--------------------------------adc-------------------------------------------
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Start Adc
'--------------------------------main------------------------------------------
Config Pind.4 = Output
Config Pind.5 = Output
'------------------------------------------------------------------------------
A = 0
B = 0
Cursor Off
Cls
Locate 1 , 5
Lcd "Hello"
Wait 2
Cls
'-------------------------------------------------------------------------------
Do
Lm35 = Getadc(0)
Waitms 10
Lm35 = Lm35 / 2
Locate 1 , 1
Lcd "TEMPERATURE= " ; Lm35 ; "c "
Locate 2 , 1
Lcd "temp=" ; Lm35
If Lm35 =< B Then
Compare1a = 1
Compare1b = 1
End If
Print Lm35
Loop
End
[/PHP]
پاسخ با نقل قول
