Category

Development Platform
Home > SourceCode/Document > OS Develop > View Code
THERM.C
Package: ertos.rar　[view]
Upload User: sunrenlu
Upload Date: 2022-06-13
Package Size: 1419k
Code Size: 2k
Category:

OS Develop

Development Platform:

DOS

THERM.C：Code Content
  1. /*
  2.  * therm.exe - display thermometer results
  3.  *           - see README file
  4.  */
  6. #include <rtos.h>
  7. #include <kconio.h>
  8. #include <ldriver.h>
  9. #include <emath.h>
  12. /*********************************************************************/
  14. /*********************************************************************/
  16. /***********************************************************************/
  17. /***********************************************************************/
  18. void therm_thread(DWORD port)
  19. {
  20.     int i, j;
  21.     int a;
  22.     // float temp;
  23.     int degreesF, degreesC;
  24.     EM emF, emC;
  25.     char buffer[ 64 ];
  26.     for ( j = 0 ; j < 10 ; ++j ) {
  27.         for ( i = 0 ; i < 2 ; ++i ) {
  28.             PutA2DChannel( i );
  29.             a = GetA2D();
  31.             /* integer calculations */
  32.             degreesC = (a-2732)/10;
  33.             degreesF = ( (a*9)/5 - 4597 ) / 10;
  35.             /* fixed point, higher accuracy calculations */
  36.             emC = EM_DIV( EM_SUB( EM_ASSIGN(a,1), EM_ASSIGN( 2732 , 1 )), EM_ASSIGN( 10, 1));
  37.             emF = EM_DIV( EM_SUB( EM_MUL(EM_ASSIGN(a,1),EM_ASSIGN(9,5)), EM_ASSIGN( 4597,1)),EM_ASSIGN(10,1));
  39.             cprintf("sensor %u: %i F, %i C,  ", i, degreesF, degreesC );
  40.             cprintf(" %s F, ", emtostr( emF, buffer ));
  41.             cprintf(" %s C  ", emtostr( emC, buffer ));
  43.             cprintf("rn");
  44.         }
  45.         rt_sleep( 1000 );
  46.     }
  47.     rt_halt("done");
  48. }
  49. /*********************************************************************/
  51. main ()
  52. {
  53.     int msg;
  54.     DWORD data;
  56.     rt_init (200);
  57.     rt_timerfreq( 100 );
  58.     kpreemptive = 1;
  60.     rt_newthread(therm_thread, 0 , 8192, 0, "therm session" );
  61.     kreadmessage( &msg, &data );
  62. }