huunguyen1990
07-07-2012, 12:39 AM
Em làm mạch đo nhiệt độ dùng LM35 đang trong giai đoạn mô phỏng ! chương trình đo và hiển thị lên LCD , giao tiếp với PC qua RS232 để hiển thị nhiệt độ trên giao diện VB6.0, khi chạy trương trình hiển thị LCD thì ok rồi ,chỉ có điều là trên giao diện VB 6.0 hiển thị không đúng, em cho in thử một số lên cũng không đúng !! Code em sai chỗ nào anh chị chỉ rùm em với ạ!! thanks anh chị ! .
Code CCS :
......
While (true)
{
adc = read_adc();
nd=adc*500/1023;
LCD_putcmd(0xC0);
Printf(LCD_putchar," t = %f",nd) ;
LCD_putcmd(0xCA);
LCD_putchar("(C)") ;
delay_ms(500);
printf("%f",nd);
}
}
Code VB6.0 :
------------------------------------------------
Private Sub Form_Load()
MSComm1.CommPort = 1
MSComm1.Settings = "9600,n,8,1"
MSComm1.RThreshold = 1
MSComm1.SThreshold = 255
MSComm1.PortOpen = True
End Sub
------------------------------------------------
Private Sub MSComm1_OnComm()
Dim n As Integer
If (MSComm1.CommEvent = comEvReceive) Then
n = Asc(MSComm1.Input)
Text1.Text = CDec(n)
End If
End Sub
Hình chương trình em mô phỏng đây ạ!
http://www.mediafire.com/imageview.php?quickkey=k853z6d3073mmom
Code CCS :
......
While (true)
{
adc = read_adc();
nd=adc*500/1023;
LCD_putcmd(0xC0);
Printf(LCD_putchar," t = %f",nd) ;
LCD_putcmd(0xCA);
LCD_putchar("(C)") ;
delay_ms(500);
printf("%f",nd);
}
}
Code VB6.0 :
------------------------------------------------
Private Sub Form_Load()
MSComm1.CommPort = 1
MSComm1.Settings = "9600,n,8,1"
MSComm1.RThreshold = 1
MSComm1.SThreshold = 255
MSComm1.PortOpen = True
End Sub
------------------------------------------------
Private Sub MSComm1_OnComm()
Dim n As Integer
If (MSComm1.CommEvent = comEvReceive) Then
n = Asc(MSComm1.Input)
Text1.Text = CDec(n)
End If
End Sub
Hình chương trình em mô phỏng đây ạ!
http://www.mediafire.com/imageview.php?quickkey=k853z6d3073mmom