terminal.c

OBD软件给Palm平台系统所使用范例程式.

							FrmHideObject(pForm, FrmGetObjectIndex(pForm, P3Label));
							FrmHideObject(pForm, FrmGetObjectIndex(pForm, P4Label));
							FrmHideObject(pForm, FrmGetObjectIndex(pForm, P5Label));
							FrmHideObject(pForm, FrmGetObjectIndex(pForm, P6Label));
							break;
						case 4:
							FrmShowObject(pForm, FrmGetObjectIndex(pForm, Param1Popup));
							FrmShowObject(pForm, FrmGetObjectIndex(pForm, Param2Popup));
							FrmHideObject(pForm, FrmGetObjectIndex(pForm, Param3Popup));
							FrmHideObject(pForm, FrmGetObjectIndex(pForm, Param4Popup));
							FrmHideObject(pForm, FrmGetObjectIndex(pForm, Param5Popup));
							FrmHideObject(pForm, FrmGetObjectIndex(pForm, Param6Popup));
							FrmShowObject(pForm, FrmGetObjectIndex(pForm, P1Label));							
							FrmShowObject(pForm, FrmGetObjectIndex(pForm, P2Label));
							FrmHideObject(pForm, FrmGetObjectIndex(pForm, P3Label));
							FrmHideObject(pForm, FrmGetObjectIndex(pForm, P4Label));
							FrmHideObject(pForm, FrmGetObjectIndex(pForm, P5Label));
							FrmHideObject(pForm, FrmGetObjectIndex(pForm, P6Label));
							break;
						case 5:
							FrmShowObject(pForm, FrmGetObjectIndex(pForm, Param1Popup));
							FrmHideObject(pForm, FrmGetObjectIndex(pForm, Param2Popup));
							FrmHideObject(pForm, FrmGetObjectIndex(pForm, Param3Popup));
							FrmHideObject(pForm, FrmGetObjectIndex(pForm, Param4Popup));
							FrmHideObject(pForm, FrmGetObjectIndex(pForm, Param5Popup));
							FrmHideObject(pForm, FrmGetObjectIndex(pForm, Param6Popup));
							FrmShowObject(pForm, FrmGetObjectIndex(pForm, P1Label));							
							FrmHideObject(pForm, FrmGetObjectIndex(pForm, P2Label));
							FrmHideObject(pForm, FrmGetObjectIndex(pForm, P3Label));
							FrmHideObject(pForm, FrmGetObjectIndex(pForm, P4Label));
							FrmHideObject(pForm, FrmGetObjectIndex(pForm, P5Label));
							FrmHideObject(pForm, FrmGetObjectIndex(pForm, P6Label));
							break;	
						case 6:
							FrmHideObject(pForm, FrmGetObjectIndex(pForm, Param1Popup));
							FrmHideObject(pForm, FrmGetObjectIndex(pForm, Param2Popup));
							FrmHideObject(pForm, FrmGetObjectIndex(pForm, Param3Popup));
							FrmHideObject(pForm, FrmGetObjectIndex(pForm, Param4Popup));
							FrmHideObject(pForm, FrmGetObjectIndex(pForm, Param5Popup));
							FrmHideObject(pForm, FrmGetObjectIndex(pForm, Param6Popup));
							FrmHideObject(pForm, FrmGetObjectIndex(pForm, P1Label));							
							FrmHideObject(pForm, FrmGetObjectIndex(pForm, P2Label));
							FrmHideObject(pForm, FrmGetObjectIndex(pForm, P3Label));
							FrmHideObject(pForm, FrmGetObjectIndex(pForm, P4Label));
							FrmHideObject(pForm, FrmGetObjectIndex(pForm, P5Label));
							FrmHideObject(pForm, FrmGetObjectIndex(pForm, P6Label));
							break;
						case 7:
							FrmShowObject(pForm, FrmGetObjectIndex(pForm, Param1Popup));
							FrmShowObject(pForm, FrmGetObjectIndex(pForm, Param2Popup));
							FrmShowObject(pForm, FrmGetObjectIndex(pForm, Param3Popup));
							FrmShowObject(pForm, FrmGetObjectIndex(pForm, Param4Popup));
							FrmShowObject(pForm, FrmGetObjectIndex(pForm, Param5Popup));
							FrmShowObject(pForm, FrmGetObjectIndex(pForm, Param6Popup));
							FrmShowObject(pForm, FrmGetObjectIndex(pForm, P1Label));							
							FrmShowObject(pForm, FrmGetObjectIndex(pForm, P2Label));
							FrmShowObject(pForm, FrmGetObjectIndex(pForm, P3Label));
							FrmShowObject(pForm, FrmGetObjectIndex(pForm, P4Label));
							FrmShowObject(pForm, FrmGetObjectIndex(pForm, P5Label));
							FrmShowObject(pForm, FrmGetObjectIndex(pForm, P6Label));
							break;
						case 8:
							FrmShowObject(pForm, FrmGetObjectIndex(pForm, Param1Popup));
							FrmHideObject(pForm, FrmGetObjectIndex(pForm, Param2Popup));
							FrmHideObject(pForm, FrmGetObjectIndex(pForm, Param3Popup));
							FrmHideObject(pForm, FrmGetObjectIndex(pForm, Param4Popup));
							FrmHideObject(pForm, FrmGetObjectIndex(pForm, Param5Popup));
							FrmHideObject(pForm, FrmGetObjectIndex(pForm, Param6Popup));
							FrmShowObject(pForm, FrmGetObjectIndex(pForm, P1Label));							
							FrmHideObject(pForm, FrmGetObjectIndex(pForm, P2Label));
							FrmHideObject(pForm, FrmGetObjectIndex(pForm, P3Label));
							FrmHideObject(pForm, FrmGetObjectIndex(pForm, P4Label));
							FrmHideObject(pForm, FrmGetObjectIndex(pForm, P5Label));
							FrmHideObject(pForm, FrmGetObjectIndex(pForm, P6Label));
							break;		
						}
		
			}
			break;
	
		case ctlSelectEvent:
    			switch (pEvent->data.ctlEnter.controlID) {
    				case SendButton:
    					switch (LstGetSelection(FrmGetObjectPtr(pForm, FrmGetObjectIndex(pForm, ModesList)))){
							case 0:
								param[0]=LstGetSelection(FrmGetObjectPtr(pForm, FrmGetObjectIndex(pForm, Param1List)));
	    						nbanswer=sendGenericOBDCommand(LstGetSelection(FrmGetObjectPtr(pForm, FrmGetObjectIndex(pForm, ModesList)))+1, param, 1, answer);
								break;
							case 1:
								param[0]=LstGetSelection(FrmGetObjectPtr(pForm, FrmGetObjectIndex(pForm, Param1List)));
	    						nbanswer=sendGenericOBDCommand(LstGetSelection(FrmGetObjectPtr(pForm, FrmGetObjectIndex(pForm, ModesList)))+1, param, 1, answer);
								break;
							case 2:
	    						nbanswer=sendGenericOBDCommand(LstGetSelection(FrmGetObjectPtr(pForm, FrmGetObjectIndex(pForm, ModesList)))+1, param, 0, answer);
								break;
							case 3:
								nbanswer=sendGenericOBDCommand(LstGetSelection(FrmGetObjectPtr(pForm, FrmGetObjectIndex(pForm, ModesList)))+1, param, 0, answer);
								break;
							case 4:
								param[0]=LstGetSelection(FrmGetObjectPtr(pForm, FrmGetObjectIndex(pForm, Param1List)));
	    						nbanswer=sendGenericOBDCommand(LstGetSelection(FrmGetObjectPtr(pForm, FrmGetObjectIndex(pForm, ModesList)))+1, param, 1, answer);
								break;
							case 5:
								param[0]=LstGetSelection(FrmGetObjectPtr(pForm, FrmGetObjectIndex(pForm, Param1List)));
								param[1]=LstGetSelection(FrmGetObjectPtr(pForm, FrmGetObjectIndex(pForm, Param2List)));							
	    						nbanswer=sendGenericOBDCommand(LstGetSelection(FrmGetObjectPtr(pForm, FrmGetObjectIndex(pForm, ModesList)))+1, param, 2, answer);
								break;	
							case 6:
								nbanswer=sendGenericOBDCommand(LstGetSelection(FrmGetObjectPtr(pForm, FrmGetObjectIndex(pForm, ModesList)))+1, param, 0, answer);
								break;
							case 7:
								param[0]=LstGetSelection(FrmGetObjectPtr(pForm, FrmGetObjectIndex(pForm, Param1List)));
								param[1]=LstGetSelection(FrmGetObjectPtr(pForm, FrmGetObjectIndex(pForm, Param2List)));
								param[2]=LstGetSelection(FrmGetObjectPtr(pForm, FrmGetObjectIndex(pForm, Param3List)));
								param[3]=LstGetSelection(FrmGetObjectPtr(pForm, FrmGetObjectIndex(pForm, Param4List)));
								param[4]=LstGetSelection(FrmGetObjectPtr(pForm, FrmGetObjectIndex(pForm, Param5List)));
								param[5]=LstGetSelection(FrmGetObjectPtr(pForm, FrmGetObjectIndex(pForm, Param6List)));
	    						nbanswer=sendGenericOBDCommand(LstGetSelection(FrmGetObjectPtr(pForm, FrmGetObjectIndex(pForm, ModesList)))+1, param, 2, answer);
								break;
							case 8:
								param[0]=LstGetSelection(FrmGetObjectPtr(pForm, FrmGetObjectIndex(pForm, Param1List)));
	    						nbanswer=sendGenericOBDCommand(LstGetSelection(FrmGetObjectPtr(pForm, FrmGetObjectIndex(pForm, ModesList)))+1, param, 6, answer);
								break;		
						}
						
						convertHexToChars(answer, nbanswer, answerText);
    					setFieldText(ReponseText, answerText);
    				
						handled=true;
    					break;
    			
    				case GeneralButton:
    					FrmGotoForm(MainForm);
    					handled=true;
    			
    					break;
    					
    				case AboutButton:
    					FrmGotoForm(AboutForm);

    					handled = true;
						break;
    			
    				default:
      					break;
    			}
    			break;
    		
    		case nilEvent:
    			break;

		default:
			break;
	}
	
	return handled;
}