ra8835.c

SSD1963.zip

    break;
    
    case SCREENEVENT:
    LCDBox(0,0,39,18); 	//heading box
    LCDBox(0,20,39,214);
    LCDBox(0,216,39,239);     //warning message
    
    LCDText("***TIME EVENT TABLE***",1,8); 	
    LCDText("TIME(min) ON1     OFF1    ON2     OFF2",6,1);    
    LCDText("EVENT1:",8,1);
    LCDText("EVENT2:",10,1);
    LCDText("EVENT3:",12,1);
    LCDText("EVENT4:",14,1);
    LCDText("EVENT5:",16,1);
    LCDText("EVENT6:",18,1);    
    LCDText("EVENT7:",20,1);
    LCDText("EVENT8:",22,1);    
    break;

    case SCREENSPLIT:
    LCDBox(0,0,39,18); 	//heading box
    LCDBox(0,20,39,34);
    LCDBox(0,36,39,214);
    LCDBox(0,216,39,239);     //warning message
    
    LCDText("***SPLIT FLOW CONTROL***",1,7); 	
    LCDText("INJECTOR :",3,2);  
    sprintf(Buffer,"%d",Gc.SelInj+1);
    LCDText(Buffer,3,10);
    LCDText(InjType[Gc.Inj[Gc.SelInj].Type],3,12);
    switch(Gc.Inj[Gc.SelInj].Type)
    {
      case SSL:
      case PTV:
      LCDText("CARRIER GAS       :",6,2);
      LCDText("INJECTION MODE    :",8,2);
      LCDText("SPLIT STATUS      :",10,2);
      LCDText("SPLIT MODE        :",12,2);
      LCDText("SPLIT FUEL ECONOMY:",14,2);
      LCDText("SPLITON -TIME(min):",16,2);
      LCDText("SPLITOFF-TIME(min):",18,2);
      LCDText("SPLIT FLOW(mlpm)  :",20,2);
      LCDText("SPLIT RATIO(1:xxx):",22,2);
      break;
    } 
    break;        
    
    case SCREENSEQUENCE:
    LCDBox(0,0,39,18); 	//heading box
    LCDBox(0,20,39,34);
    LCDBox(0,36,39,214);
    LCDBox(5,85,34,160);    
    LCDBox(0,216,39,239);     //warning message    
    
    LCDText("***METHOD SEQUENCING***",1,8); 	
    
    LCDText("METHOD IN USE :",3,11);    
    
    LCDText("STEP NUMBER      :",13,10);
    LCDText("METHOD NUMBER    :",15,10);
    LCDText("NUMBER OF REPEAT :",17,10);

    LCDText("DOWN FOR NEXT STEP & UP FOR PREV. STEP",25,1);
    break; 

    case SCREENCHRONO:
    LCDBox(0,0,39,20);       //heading box
    LCDBox(0,22,39,214);
    LCDBox(5,95,34,150);
    LCDBox(0,216,39,239);     //warning message
    
    LCDText("***CHRONOMETER PROGRAM***",1,7); 	
    LCDText("TIME          :",14,8);
    LCDText("FLOW (REF 1ml): ---",16,8);	
    break;
    
    case SCREENCONFIGURE:
    LCDBox(0,0,39,18);       //heading box DrawRect(0,0,39,21);
    LCDBox(0,20,13,214);
    LCDBox(14,20,39,214);
    LCDBox(0,216,39,239);     //warning message    

    LCDText("***GC CONFIGURATION***",1,10);
  
    LCDText("INJECTORS:",4,2);    
    LCDText("I1->NONE",6,2);
    LCDText("I2->NONE",8,2);
    LCDText("I3->NONE",10,2);
    LCDText("I4->NONE",12,2);
  
    LCDText("DETECTORS:",16,2);
    LCDText("D1->NONE",18,2);
    LCDText("D2->NONE",20,2);
    LCDText("D3->NONE",22,2);
    LCDText("D4->NONE",24,2);
  
    LCDText("PRESSURES / FLOWS:",4,16);
    LCDText("1 ->",6,16);
    LCDText("2 ->",8,16);
    LCDText("3 ->",10,16);
    LCDText("4 ->",12,16);
    LCDText("5 ->",14,16);
    LCDText("6 ->",16,16);
    LCDText("7 ->",18,16);
    LCDText("8 ->",20,16);
    LCDText("9 ->",22,16);
    LCDText("10->",24,16);  
    break;    
    
    case SCREENPASSWORD:
    LCDBox(0,0,39,18);       //heading box DrawRect(0,0,39,21);
    LCDBox(0,20,39,214);
    LCDBox(2,95,37,135);
    LCDBox(0,216,39,239);     //warning message
    
    LCDText("***ADMINISTRATOR PASSWORD***",1,6); 	     
   
    LCDText("ENTER ADMINISTRATOR PASSWORD",13,6);        
    LCDText("*****",15,18);            
    break;    

    case SCREENADMIN:
    LCDBox(0,0,39,18);       //heading box
    LCDBox(0,20,39,214);
    LCDBox(0,216,39,239);     //warning message    
    
    LCDText("***GC ADMINISTRATOR***",1,10); 	

    LCDText("1.GC INJ/DET/EPC/EFC CONFIGURATION",4,3);
    LCDText("2.TEMPERATURE ACCURACY CHECK",7,3);
    LCDText("3.GC AUTODIAGNOSIS:         ",10,3);
    LCDText("4.METHOD SEQUENCING:         ",13,3);   
    LCDText("5.EDIT READY CONDITION & PRESS UNIT",16,3);
    LCDText("6.OVEN CRYOGENIC CONTROL:         ",19,3);
    LCDText("7.SET TIME AND DATE",22,3);        
    break;    
   
    case SCREENREADYCOND:      
    LCDBox(0,0,39,18);       //heading box DrawRect(0,0,39,21);
    LCDBox(0,20,39,214);   
    LCDBox(0,216,39,239);     //warning message    
     
    LCDText("***EDIT READY CONDITION***",1,7); 	  
   
    LCDText(" READY PARAMETER  SET COND.  STATUS",4,2);
    
    LCDText("1.OVEN TEMP     :",6,2);
    LCDText("2.INJECTOR TEMP :",8,2);
    LCDText("3.DETECTOR TEMP :",10,2);
    LCDText("4.INJECTOR GASES:",12,2);    
    LCDText("5.DETECTOR GASES:",14,2);
    LCDText("6.AUXILLARY TEMP:",16,2);
    LCDText("7.FLAME (FID)   :",18,2);
    LCDText("8.READY INHIBIT :",20,2);
    LCDText("9.PRESSURE UNIT :",22,2);
    break;
    
    case SCREENMETHOD:     
    LCDBox(0,0,39,18);       //heading box DrawRect(0,0,39,21);
    LCDBox(0,20,39,49);
    LCDBox(0,51,39,214);

    LCDBox(0,216,39,239);     //warning message
    
     
    LCDText("***METHOD HANDLING MENU***",1,7); 	
    
    LCDText("CURRENT METHOD IN USE :",4,7);
    
    LCDText("1.SAVE CURRENT METHOD",9,8);
    LCDText("2.LOAD NEW METHOD",12,8);
    LCDText("3.CREATE NEW METHOD",15,8);
    LCDText("4.STORE GC CONFIGURATION",18,8);
    LCDText("5.FORMAT MEMORY",21,8);
    break;        
    
    case SCREENCLOCK:
    LCDBox(0,0,39,18);       //heading box DrawRect(0,0,39,21);
    LCDBox(0,20,39,214);
    LCDBox(3,40,36,194);

    LCDBox(0,216,39,239);     //warning message
    
     
    LCDText("***CLOCK HANDLING MENU***",1,7); 	
    
    
    LCDText("1.SET DATE  :",8,8);
    LCDText("2.SET DAY   :",11,8);
    LCDText("3.SET TIME  :",14,8);
    LCDText("4.AM/PM     :",17,8);

    LCDText("PRESS ENTER TO SET CLOCK",20,8);
    break;

    case SCREENSUMMARY:
    LCDBox(0,0,39,18); 	//heading box
    LCDBox(0,20,39,34);
    LCDBox(0,36,39,50);
    LCDBox(0,52,39,84);    
    LCDBox(0,86,39,172);
    LCDBox(0,174,39,214);
    LCDBox(0,216,39,239);	//warning message
    
    LCDText("***SUMMARY SCREEN***",1,10); 	

    LCDText("METHOD NUMBER :",3,2);

    LCDText("OVEN TEMP ACTUAL C:      SET C:     ",5,2);	
    LCDChar(0xdf,5,18);		//Deg for actual tempr
    LCDChar(0xdf,5,30);	        //Deg for set tempr

    switch(Gc.Inj[Gc.SelInj].Type)
    {    
      case SSL:
      LCDText("INJ :         C:",7,2);
      LCDChar(0xdf,7,15);
      LCDText("INJ MODE:",7,24);
      LCDText("CARR:",9,2);
      LCDText("ml/min:",9,11);
      LCDText("SPLIT RT:",9,24);
      break;
      
      case PTV:
      LCDText("INJ :         C:",7,2);
      LCDChar(0xdf,7,15);
      LCDText("INJ MODE:",7,24);
      LCDText("CARR:",9,2);
      LCDText("ml/min:",9,11);
      LCDText("SPLIT RT:",9,24);
      break;  

      case PKD:
      LCDText("INJ :                      C:",7,2);
      LCDChar(0xdf,7,28);
      LCDText("CARR:",9,2);
      LCDText("ml/min:",9,24);
      break;
      
      case NONE:
      default:
      LCDText("INJ :",7,2);
      break;      
    }    

    switch(Gc.Det[Gc.SelDet].Type)
    {
      case FID:
      LCDText("DET :         C:",12,2);
      LCDChar(0xdf,12,15);
      LCDText("SIG(mV):",12,24); 
      LCDText("ATTN   :",14,24);
      LCDText("RANGE  :10^",16,24);
      LCDText("FLAME  :",18,24);             
      LCDText("MKUP   :    ml/min",14,2);
      LCDText("AIR    :    ml/min",16,2);
      LCDText("H2     :    ml/min",18,2);
      break;
      
      case ECD:
      LCDText("DET :         C:",12,2);
      LCDChar(0xdf,12,15);
      LCDText("SIG(mV):",12,24); 
      LCDText("ATTN   :",14,24);      
      LCDText("CURRENT:",16,24);             
      LCDText("MKUP   :    ml/min",14,2);
      break;

      case TCD:
      LCDText("DET :         C:",12,2);
      LCDChar(0xdf,12,15);
      LCDText("SIG(mV):",12,24);
      LCDText("ATTN   :",14,24);      
      LCDText("RANGE  :10^",16,24);
      LCDText("CURRENT:",18,24);
     
      LCDText("MKP1   :    ml/min",14,2);
      LCDText("MKP2   :    ml/min",16,2);
      LCDText("VOLTAGE:",18,2);      
      break;

      case NPD:
      LCDText("DET :         C:",12,2);
      LCDChar(0xdf,12,15);
      LCDText("SIG(mV):",12,24);
      LCDText("ATTN   :",14,24);      
      LCDText("RANGE  :10^",16,24);

      LCDText("MKUP   :    ml/min",14,2);
      LCDText("AIR    :    ml/min",16,2);
      LCDText("H2     :    ml/min",18,2);
      break;  
      
      case NONE:
      default:
      LCDText("DET :",12,2);
      break;      
    }
    
    LCDText("GC STATUS :",23,9);	
    LCDText("RUN TIME  :",25,9);	    
    break;
    
    
    default:
    break;
    
    
  }   
}  
//------------------------------------------------------------------------------
// Function Name: Refreshscreen
// Parameters: None
// 0: Startup screen
// Return: none
// Description: function to Refresh screen as per screen no.
//------------------------------------------------------------------------------
void RefreshScreen(void)
{ 
  if (CurrScreen != PrevScreen)
    DrawScreen(CurrScreen);
  if (Refresh < 80)
    return; 
//  do
//  {
    switch(CurrScreen)
    {
      case SCREENSTRATUP:
      break;
      //--------------------------------------------------------------------------
      case SCREENSUMMARY:  
      sprintf(Buffer,"%d",Gc.CurrMeth+1);        
      LCDText(Buffer,3,18);
  
      sprintf(Buffer,"%ld",Gc.Oven.OvenAct.Temp);
      LCDText(Buffer,5,22);
      sprintf(Buffer,"%ld",Gc.Oven.OvenSet.Temp);
      LCDText(Buffer,5,34); 

      sprintf(Buffer,"%d",Gc.SelInj+1);    
      LCDText(Buffer,7,5);    
      LCDText(InjType[Gc.Inj[Gc.SelInj].Type],7,7);      
      switch(Gc.Inj[Gc.SelInj].Type)
      {
        case SSL:
        sprintf(Buffer,"%ld",Gc.Inj[Gc.SelInj].Ssl.SslAct.Temp);
        LCDText(Buffer,7,18);
        LCDText(SplitMode[Gc.Inj[Gc.SelInj].Ssl.SslSet.SplitMode],7,34);
        LCDText(Gas[Gc.Inj[Gc.SelInj].Ssl.SslSet.Carrier],9,7);   
        sprintf(Buffer,"%3d",Gc.Inj[Gc.SelInj].Ssl.SslAct.Flow);
        LCDText(Buffer,9,18);
        sprintf(Buffer,"%3d",Gc.Inj[Gc.SelInj].Ssl.SslAct.SplitRatio);
        LCDText(Buffer,9,33);    
        break;
        
        case PTV:
        sprintf(Buffer,"%ld",Gc.Inj[Gc.SelInj].Ptv.PtvAct.Temp);
        LCDText(Buffer,7,18);
        LCDText(SplitMode[Gc.Inj[Gc.SelInj].Ptv.PtvSet.SplitMode],7,34);
        LCDText(Gas[Gc.Inj[Gc.SelInj].Ptv.PtvSet.Carrier],9,7);   
        sprintf(Buffer,"%3d",Gc.Inj[Gc.SelInj].Ptv.PtvAct.Flow);
        LCDText(Buffer,9,18);
        sprintf(Buffer,"%3d",Gc.Inj[Gc.SelInj].Ptv.PtvAct.SplitRatio);
        LCDText(Buffer,9,33);    
        break;  
        
        case PKD:
        sprintf(Buffer,"%ld",Gc.Inj[Gc.SelInj].Pkd.PkdAct.Temp);
        LCDText(Buffer,7,32);