OLED의 양자효율(Quantum Efficiency) 계산 방법

 

Public Sub CalcELmaxQE(ByRef Data As MeasureData_typ)
    Dim i As Integer
    
    ''--(1)--파장의 피크값을 찾는 루틴
    Dim max As Double
    ''--(1-1)-- Find the max starting from the left
    Dim indexLeft As Integer
    indexLeft = 0
    max = Data.LL(0)
    For i = 1 To Data.DataLen
        If max < Data.LL(i) Then
            max = Data.LL(i)
            
            indexLeft = i
        End If
    Next i

    ''--(1-2)-- 스펙트럼의 오른쪽부터 시작하여 피크치가 어떤 파장값인지 서치하는 루틴
    Dim indexRight As Integer
    indexRight = 0
    max = Data.LL(0)
    For i = Data.DataLen To 1 Step (-1)
        If max < Data.LL(i) Then
            max = Data.LL(i)
            
            indexRight = i
        End If
    Next i
    
    ''--(1-3)-- 왼쪽의 max와 오른쪽의 max값 사이의 중간파장값을 찾는 서치루틴 
      (정확한 피크값을 찾기 위한 방법)
    Dim Index As Integer
    If (indexLeft = indexRight) Then
        Index = indexLeft
    Else
        Index = indexLeft + (indexRight - indexLeft) / 2
    End If
    
    m_MeasDataPoint.Meas_ELmax = Data.wave(Index)
    
    ''--(2)--Q.E
    ''--(2-1)--각 파장에서의 광자(photon)의 갯수
    For i = 0 To Data.DataLen
        Data.x(i) = Data.LL(i) / ((6.6E-34) * 300000000 / (Data.wave(i) * 0.000000001)) * 3.14
    Next i
    
    ''--(2-2)--광자의 토탈 갯수
    Dim gNumber As Double     '
    gNumber = 0
    For i = 0 To Data.DataLen
        gNumber = gNumber + Data.x(i)
    Next i
    
    ''--(2-3)--전류밀도 
    Dim ifData As Double
    ifData = m_MeasDataPoint.Meas_If
    
    Dim area As Double
    area = m_SystemSpec.AreaOfEL_mm2
    
    Dim currentDensity As Double
'''    currentDensity = ifData / ((2 * 0.001) * (2 * 0.001))
''    currentDensity = ifData / (2 * 2 )
    If (area <> 0) Then
        currentDensity = ifData / area
'''        currentDensity = ifData / (area * 0.001 * 0.001)
    Else
        currentDensity = 9999999
    End If
    
    ''--(2-4)--injected electrons의 갯수
    Dim eNumber As Double
    eNumber = currentDensity / 1.6E-19
    
    ''--(2-5)--Q.E
    If (eNumber <> 0) Then
        m_MeasDataPoint.Meas_QE = (gNumber / eNumber) * 100
    Else
        m_MeasDataPoint.Meas_QE = -99.9
    End If
End Sub