Public Const cmessanz = 720
 
' Bestandteil von tmessrec und tdatenblock
Public Type tmwarraytyp
    sngZylwerte(0 To cmessanz) As Single
End Type
 
' Bestandteil des tmessrec datenblocks
Public Type tmotrec
    sngLuftTvLk As Single     
    sngLuftTnLk As Single     
    sngAbgasTnT As Single  
    sngLuftpnT As Single       
    sngTurbn As Single         
    sngAbgasTnZ As Single      
    sngPumpf As Single         
End Type
 
' Bestandteil von Type tdatenblock
Public Type tmessrec
    m As motrec                 
    byZeith As Byte             
    byZeitmin As Byte           
    dtDatum As Date             
    sngF_Faktor As Single       
    sngSensemf As Single        
    sngAbtast As Single         
    sngDrehz As Single          
    mw As tmwarraytyp           
    sngF_Faktor_pmax As Single  
    sng_pmax(0 To 9) As Single  
    sngCrc As String            
End Type
 
' bentutzerdef Datentyp kompletter Datensatz
Public Type tdatenblock
    byMreihanz As Byte          
    byMnr As Byte               
    byZnr As Byte               
    byNr As Byte                
    sngWinkel As Single         
    tMdat As tmessrec           
    strName As String           
    strM_r_source As String     
End Type
 
Public block As tdatenblock
 
block.tMdat