Diffraktometrie/Reflektometrie

		  sprintf(buf,"%.3f %.3f %.3f\n",x,y,z);

		  sprintf(buf,"%.3f %.3f %.3f",x,y,z);
		  strcat(buf,EOL);

        if ( bSaveContinuous || bSaveOnReady || bOldDataLoaded)
            SaveFile( SaveWithNewName );

if (bSaveContinuous)- Anweisung die Zeile 
      bFileChanged= False;

	 for ( cnt = 0; ; cnt++ )

	 for ( cnt = 0; !bReady ; cnt++ )

id_ChooseMotor: in case CBN_SELCHANGE
 das Kommando 
     FORWARD_WM_COMMAND(GetHandle(),cm_ParamSet,0,0,PostMessage); 

FILE* hFile;                       ==> int hFile; OFSTRUCT of;
hFile=fopen(FileName,"rb+");       ==> hFile=OpenFile(FileName,&of,OF_WRITE);
hFile=fopen(FileName,"w");         ==> hFile=OpenFile(FileName,&of,OF_CREATE);
if(!hFile)                         ==> if(-1==hFile)
fwrite(data,strlen(data),1,hFile); ==> _lwrite(hFile,data,strlen(data));
fclose(hFile);                     ==> _lclose(hFile);

     FileOpen("Altes Datenfile laden ...",Filter,NewFileName,szDataPath);

	 if((strcmp(strupr(&(NewFileName[strlen(NewFileName)-3])),"CRV"))&&
		 (strcmp(strupr(&(NewFileName[strlen(NewFileName)-2])),"BK"))&&
		 (strcmp(strupr(&(NewFileName[strlen(NewFileName)-3])),"DTN")))
		  return FALSE;

  if (bMonitorUsed)
    {
         Monitor->MeasureStop();
         Monitor->SetHost( hWndChild );
     	 Monitor->SetExposureValues( 0.8*fMaxTime, dwMaxCounts, fFailure );
    }

if ( bMonitorUsed )
  {     // normalize signal
	Monitor->GetData( z );
	Steering.SetNorm( z );
  }
else
  z = 0.0;

if ( bMonitorUsed )
  { 
  if ( lParam == Monitor->GetId() )
   {
        // normalize signal
	Monitor->GetData( z );
	Steering.SetNorm( z );
        return;
    }
  }
else
  z = 0.0;

bMonitorUsed = ScanW->bMonitorUsed;
if(bMonitorUsed)
  Monitor = lpDList->DP(ScanW->Monitor->GetId());

		MainCurve->SetPP(0);
		MainCurve->PGet(x2,y2,z2);
		MainCurve->GetGravityCenter(intens,intens,peakpos,2);
		ScanReport->PAdd(z2,x2,intens);

		  switch (eScanType){
		  case Omega2ThetaScan:if (!bPsdDevice)
						  {
						  //! die Werte zu der letzten Scankurve in Report-
						  //! kurve ablegen
						  //! FIX Fehler 30,40
						float x2,y2,z2,intens,peakpos;
		 				MainCurve->SetPP(0);
						MainCurve->PGet(x2,y2,z2);
						MainCurve->GetGravityCenter(intens,intens,peakpos,2);
						ScanReport->PAdd(z2,x2,intens);
						}
						break;

		  default: ;
		  }

TCCode TAreaScanCmd::ControlStep(void)
{
  if(nThetaPoint >= nMaxThetaPoint)
  if(nOmegaPoint >= nMaxOmegaPoint)
  {
    eStep = CReadyStep;
    bNoMeasure = TRUE;
    StartMove(nOmega,Steering.dStartPoint);
    StartMove(nTheta,dStartPointTheta);
  }
else
  {
    AreaScanW->bThetaScanCompleted = TRUE;
    dOmega += dOmegaWidth;
    nOmegaPoint++;
    StartMove(nOmega,dOmega);
    nThetaPoint = 0;
    dTheta = dOmega * dMoveRelation - dThetaWindow / 2.0;
    StartMove(nTheta,dTheta);
  }
  else 
  {
    nThetaPoint++;
    dTheta += dThetaWidth;
    StartMove(nTheta,dTheta);
  }
  return CRecall;
};

if(SaveOnReady || SaveContinuous)
        SaveFile(SaveWithNewName);

 vor
                ScanReport->FastPAdd(omega,theta,intens);
 folgende Zeilen einfügen
                TheCurve = lpDBase->GetCurve(cnt);
                TheCurve->GetGravityCenter(dummy,intens,dummy,2);

	intens = -1.0;
      

	if (bSaveContinuous)
		UpdateFile();

lpDBase->AddCurve( MainCurve->GetPNumber() );

       Device->SetSignalGrowUp(True);
durch 
       Device->SetSignalGrowUp(False);

      ... = PsdReadOut(IntermediateRead);
durch 
      ... = PsdReadOut(AccumulationRead);

      bSaveOnReady = GetPrivateProfileInt( Ident, "SaveOnReady", 1, GetCFile() );

typedef struct
{    
    double dThetaWindow, dMoveRelation, dOmegaMin, dOmegaMax;
    double dThetaMinFirst, dThetaMaxFirst, dThetaMinLast, dThetaMaxLast; 
    float fAngleRange, fAngleStep;
    BOOL bPsd;
}
TDisplay;

     sprintf(buf,"%.3f",y);
durch 
     sprintf(buf,"%.3f",x);

      ScanReport->SetPP(10000);
 durch 
      ScanReport->SetPP(nActiveScan);

       dThetaOffset=0; 

if ( !strcmp( strupr( &( buf[ strlen( buf ) - 3 ] ) ), "BMP" ) )
    {
        strcpy( buf, "*.bmp" );
        hFile = OpenFile( buf, &of, OF_READ );
        retval = BSource->ProcessBitmapFile( hFile );
        _lclose( hFile );
        return retval;
    }

	dStepWidth = Device->GetAngleStep()

	Device->SetAngleStep(val_f);

	dStepWidth = val_f

• Omegamax: 
  • Eingabewert ist kleiner als minimal erlaubter Winkel
  • Omegamax ist kleiner als Omegamin
• Omegamin: 
  • Eingabewert ist größer als maximal erlaubter Winkel
• Thetawindow ist negativ
• Thetaschrittweite ist negativ
• Meßzeit ist negativ
• Meßcount ist negativ 

Ursache: in m_arscan.cpp in TSetupAreaScan::CanClose() werden die Werte auf diese Kriterien nicht überprüft 
Behebung: beinhaltet gleichzeitig Behebung von Fehler 52
in TSetupAreaScan::CanClose()

	 if ( (valueF < mlGetValue( nOmega, MaxDistance ))&&
			(valueF > mlGetValue( nOmega, MinDistance )))
		  Scan->dOmegaMax = valueF;
	 else
	 {
		  Scan->dOmegaMax = ( mlGetValue( nOmega, MaxDistance ) -
									 mlGetValue( nOmega, Width ) );
		  sprintf( buf, mGetDF(), Scan->dOmegaMax );
		  SetDlgItemText( GetHandle(), id_AngleMax, buf );
		  bFailure = TRUE;

	 if (Scan->dOmegaMin >= Scan->dOmegaMax)
	  {
		Scan->dOmegaMax = ( mlGetValue( nOmega, MaxDistance ) -
								  mlGetValue( nOmega, Width ) );
		sprintf( buf, mGetDF(), Scan->dOmegaMax );
		SetDlgItemText( GetHandle(), id_AngleMax, buf );
		Scan->dOmegaMin = ( mlGetValue( nOmega, MinDistance ) +
								  mlGetValue( nOmega, Width ) );
		sprintf( buf, mGetDF(), Scan->dOmegaMin );
		SetDlgItemText( GetHandle(), id_AngleMin, buf );
		bFailure = TRUE;
	  }

• Omegaschrittweite: 
  • ist negativ
  • ist null (führt bei Scanstart zu Absturz)
  • ist kleiner als minmal erlaubte (für diesen Motor)
• Relation: 
  • ist negativ
  • ist null (ist zwar nicht sinnlos ,dafür ist aber "Theta-achse fixieren" gedacht)

Ursache: in m_arscan.cpp in TSetupAreaScan::Dlg_OnCommand() case cm_InquireRelevantData werden die Werte auf diese Kriterien nicht überprüft 
Behebung: siehe Behebung Fehler 38

      if(Scan->bPsdDevice)
        CheckDlgButton(GetHandle(),id_FixThetaAxis,FALSE);
      else
        CheckDlgButton(GetHandle(),id_FixThetaAxis,TRUE);

      if ( nThetaPoint > nMaxThetaPoint )
ersetzen durch
      else if ( nThetaPoint > nMaxThetaPoint )

     EnableWindow(GetDlgItem(hwnd,id_AbsorberUsed),TRUE);

     EnableWindow(GetDlgItem(hwnd,id_AbsorberUsed),FALSE);
     CheckDlgButton(hwnd,id_AbsorberUsed,FALSE);

     EnableWindow(GetDlgItem(hwnd,id_AbsorberUsed),TRUE);

	GetPrivateProfileString( Ident, "Report", "Integral", buf, MaxString,
                            GetCFile() );
        strupr( buf );
	while ( 1 )
    	{
	...
	}
      

EnableWindow( GetDlgItem( hwnd, id_MaxCounts ), FALSE);

EnableWindow( GetDlgItem( hwnd, id_MaxCounts ), TRUE);

EnableWindow( GetDlgItem( hwnd, id_MaxCounts ), FALSE);

aktuelle Positionen : omega= 29.7894
                      2Theta= 61.225

Es werden KEINE Offset verwendet.

Areascan : Omega,min : -0.6
           Omega,max :  0.6
           Omega,step:  0.004

           2Theta,min: -1.2
           2Theta,step: 0.03
           Relation:    2
           Window:      4.2
  
           Time/step:   1s

Der Scan wird mit einem 0-dim. Detektor gefahren.
Das Stehenbleiben erfolgt immer bei einem 2Theta-scan,
d.h das Programm hat irgendwann Probleme die
2Theta-Achse zu bewegen. Allerdings tritt das Problem
NICHT immer an der selben Stelle im Areascan auf.

Merkwürdigerweise lief ein Testscan, den ich zwischen
den 3Versuchen durchführte ohne Probleme zu Ende.
Dabei waren folgende Werte modifiziert:

Omega,step: 0,01

2Theta-window: 2.1

      case id_SaveContinuous: CheckDlgButton(GetHandle(),id_SaveOnReady,FALSE);
                              break;
      case id_SaveOnReady:    CheckDlgButton(GetHandle(),id_SaveContinuous,FALSE);
                              break;

	 TheCmd->bRestart=TRUE;

switch(TheCmd->GetId()){
   case Scan:
   case AreaScan:
   mlSetAxis(nMotor= nOldMotor);//! FIX Fehler 79
   DeviceRequest();
   break;
   default:
   Device->MeasureStart();
   };
in TScanCmd und TAreaScanCmd konstruktor jeweils die Zeile

 bRestart=FALSE;
 einfügen.

in TScanCmd::ControlStep() existierende Motorsteuerung bei bRestart=False beibehalten ansonsten folgende Zeilen ausführen:

 bRestart = FALSE;
 StartMove( nMotor, dArgument );
 if ( bOmega2Theta)
   StartMove( nTheta, dArgument * dMoveRelation );
 return CRecall;

analog in TAreaScanCmd::ControlStep()
   bRestart=FALSE;
   StartMove( nOmega, dOmega );
   StartMove( nTheta, dTheta );
   return CRecall;

	#ifdef GermanVersion
	TChooseScan::TChooseScan( TAreaScan* ascan ) : TModelessDlg( "ChooseScan" )
	#else
	TChooseScan::TChooseScan( TAreaScan* ascan ) : TModelessDlg( "ChooseScanEng" )
	#endif

        if (!mlIsAxisValid (Omega))||
          	((!mlIsAxisValid(Theta)&&!dlIsDeviceValid(PsdDevice))))
          {
          MessageBox(GetFocus(),"Hardware ist nicht vollst&aauml;ndig verfügbar!",szMsgFailure,MBINFO);
          break;
          } 

        if(!mlIsAxisValid(Theta))
	      Scan->eScanType=StandardScan;

             Scan->eScanType = Omega2ThetaScan;

             if(!mlIsAxisValid(Theta) && !Scan->bPsdDevice)
              {
              Scan->SetDevice( dlGetIdByName(PsdDevice));
              Device= lpDList->DP(dlGetIdByName(PsdDevice));
              ComboBox_SelectString( hDeviceList, 0, Device->Characteristic );
              }
             else
              if( Scan->bPsdDevice)
               Scan->eScanType = StandardScan;
              else
               Scan->eScanType = Omega2ThetaScan;

      if (!mlIsAxisValid(Theta))
	   CheckDlgButton(GetHandle(),id_FixThetaAxis,TRUE);

if ((bMeasurementActive&& !bInterrupt)|| !bScanSetupOK) ...

  if (bMeasurementActive)
  {
    EnableMenuItem(hMenu,cm_Save,MF_GRAYED);
    EnableMenuItem(hMenu,cm_SaveAs,MF_GRAYED);
  }
  else
  {
    EnableMenuItem(hMenu,cm_Save,MF_ENABLED);
    EnableMenuItem(hMenu,cm_SaveAs,MF_ENABLED);
  }

if (1>SecondCurve->GetPNumber())
      {
		   EnableMenuItem( TheMenu, cm_FreezeCurve, MF_ENABLED );
     	 EnableMenuItem( TheMenu, cm_SaveSecondCurve, MF_GRAYED );
    	 EnableMenuItem( TheMenu, cm_KillSecondCurve, MF_GRAYED );
       ModifyMenu( TheMenu, 5, MF_STRING|MF_BYPOSITION,5,"Scan" );
      }
      else
      {
		   EnableMenuItem( TheMenu, cm_FreezeCurve, MF_GRAYED );
     	 EnableMenuItem( TheMenu, cm_SaveSecondCurve, MF_ENABLED );
    	 EnableMenuItem( TheMenu, cm_KillSecondCurve, MF_ENABLED );
       ModifyMenu( TheMenu, 5, MF_STRING|MF_BYPOSITION,5,"fixierten Scan" );
      }

void TPlotData::FreezeCurve(void)
//! speichert Objektzustand von MainCurve in SecondCurve
{
    if(1> MainCurve->GetPNumber())
      return ;
    *SecondCurve = *MainCurve;
};

	 Device->MeasureStop();
	 Device->SetHost( NULL );