2019-07-23

Option Explicit

Public Type HEADTYPE

    tester As String

    probcard As String

    pgm As String

    start As Date

    end As Date

    customer As String

    flow As String

    lotnum As String

    wafernum As String

    od As String


    unitclean As String

    unitcleandie As String

    unitcleanwafer  As String

    unitcleanod  As String

    unitcleantd As String


    waferclean As String

    wafercleandie As String

    wafercleanwafer As String

    wafercleanod As String

    wafercleantd As String




    PosX As String

    PosY As String

End Type

Dim HEAD As HEADTYPE

Public Type WMAPTYPE

    X As Integer

    Y As Integer

    Sbin As Integer

    hbin As Integer

    site As Integer

    retest As Integer

    indextime As Double

    testtime As Double

    failno As Long


End Type

Dim WMAP(250000) As WMAPTYPE

Public FirstPass As Long

Public RetestPass As Long

Public GrossDie As Long

Public MinX As Integer

Public MaxX As Integer

Public MinY As Integer

Public MaxY As Integer

Public TestQTY As Long

Public LineBin As Long

Public Summaryline%

Public Mapline%, Bmapline%, Amapline%

Public X_Max%, Y_Max%, X_min%, Y_min%

Public Summary_idx As Long

Public Map_idx As Long

'--------------------------------

'--------------------------------

'----------20190509--------------

'--------------------------------

'--------bin1passbin2fail--------

Public Function funPaiXu(arr As Variant)

Dim MaxV As Variant, i As Integer, j As Integer, n As Integer, b As Integer

n = UBound(arr) - 1

For j = 0 To n - 1

    For i = 0 To n - j

    If arr(i) > arr(i + 1) Then

    MaxV = arr(i)

    arr(i) = arr(i + 1)

    arr(i + 1) = MaxV

    End If

    Next i

Next j

funPaiXu = arr

End Function

Public Function GetBinsummary(file As String) As Boolean

    Dim filenum As Integer: Dim DosTempFile As String: DosTempFile = "D:\DosTempFile"

    Dim line&, summarybin As Object, Alltestbin As Object

    Dim coordX&, coordY&, Sbinvalue&, sitevalue&, maxsite&, minisite&, i&, m&, n&, sitenum&, Hbinvalue&

    Dim retestcord As Boolean

    Dim sbinGroup(), binvalue_all&

    maxsite = 0: minisite = 1: X_Max = 1: Y_Max = 1: X_min = 1: Y_min = 1


    Dim str As String: Dim Linestr As String ' str:line.value

    Dim strarray() As String 'strarray:arr(line.value)

    Set summarybin = CreateObject("scripting.dictionary") 'use to save the Sbin and All mount

    Set Alltestbin = CreateObject("scripting.dictionary")

    'allnoretestbin use to get after retest data

    Dim Sbin(2, -100 To 300, -100 To 300) 'Sbin.value = Sbin(1,coordY,coordX)

    Dim site(-100 To 300, -100 To 300)  'site.value = site(2,coordY,coordX)

    'Sbin(1, -100 To 300, -100 To 300) 'befor retest Map

    'Sbin(2, -100 To 300, -100 To 300) 'after retest Map

    Dim headinfo(21)

    '---------------------------------

    'strarray(0) coordX : strarray(1) coordY

    'strarray(2) Sbin : strarray(3) Hbin

    'strarray(4) site : strarray(5) Retest

    '---------------------------------

    LineBin = LineBin + 6


    filenum = FreeFile()

        Open file For Input As #filenum

        Do While Not EOF(filenum)

            Line Input #filenum, str

        Loop

        Close #filenum

        str = Replace(str, Chr(10), vbCrLf)

        Open DosTempFile For Output As #filenum

        Print #filenum, str

        Close #filenum


        Open DosTempFile For Input As #filenum

        Do While Not EOF(filenum)

        Line Input #filenum, Linestr

            line = line + 1

            If 0 < line And line < 21 Then

            headinfo(line) = Linestr

            End If

            If line > 21 And Linestr <> "" Then

                strarray() = Split(Linestr, ",")

                coordX = strarray(0): coordY = strarray(1)

                Sbinvalue = strarray(2):: Hbinvalue = strarray(3): sitevalue = strarray(4)

                Sbin(0, coordY, coordX) = Sbinvalue

                site(coordY, coordX) = sitevalue

                If strarray(5) = 0 Then Sbin(1, coordY, coordX) = Sbinvalue

                If strarray(5) = 1 Then Sbin(2, coordY, coordX) = Sbinvalue

                If sitevalue > maxsite Then maxsite = sitevalue

                If sitevalue < minisite Then minisite = sitevalue

                If coordX > X_Max Then X_Max = coordX

                If coordX < X_min Then X_min = coordX

                If coordY > Y_Max Then Y_Max = coordY

                If coordY < Y_min Then Y_min = coordY

                If summarybin.exists(Sbinvalue) = False Then summarybin.Add Sbinvalue, Sbinvalue


            End If

        Loop

    Close #filenum

    'Debug.Print X_Max & " " & Y_Max & " " & X_min & " " & Y_min

    'X_min -12 : X_Max 24  : Y_min 0 : Y_max 35

    'X-ray = 24-(-12)  Y-ray = 35-0 ,offset Abs(num) 絕對值

    Call MAPmake(Sbin, site, file, Mapline)

    Call Bmapmake(Sbin, site, file, Bmapline)

    Call Amapmake(Sbin, site, file, Amapline)



sbinGroup = summarybin.keys  ' all Sbin

sbinGroup = funPaiXu(sbinGroup)

For i = 0 To UBound(sbinGroup)

    Sheets("Bintable").Cells(LineBin + i, 1) = sbinGroup(i)

Next i

'-------------------------

For sitenum = minisite To maxsite

    Sheets("Bintable").Cells(LineBin - 1, sitenum + 4) = "Site" & sitenum

    For m = -100 To 300

        For n = -100 To 300

            If site(n, m) = sitenum Then

                Alltestbin(Sbin(Val(Sheets("SETUP").Range("b9").Value), n, m)) = Alltestbin(Sbin(Val(Sheets("SETUP").Range("b9").Value), n, m)) + 1  '!!!!!!!

            End If

        Next n

    Next m


    For i = 0 To UBound(sbinGroup)

    If Alltestbin.exists(Val(Sheets("Bintable").Cells(LineBin + i, 1))) Then

    Sheets("Bintable").Cells(LineBin + i, sitenum + 4) = Alltestbin(Val(Sheets("Bintable").Cells(LineBin + i, 1)))

    Else

    Sheets("Bintable").Cells(LineBin + i, sitenum + 4) = 0

    End If

    binvalue_all = binvalue_all + Alltestbin(Val(Sheets("Bintable").Cells(LineBin + i, 1)))

    Next i

    Sheets("Bintable").Cells(LineBin + UBound(sbinGroup) + 1, sitenum + 4) = binvalue_all

    Sheets("Bintable").Cells(LineBin - 1, 1) = "Sbin"

    Sheets("Bintable").Cells(LineBin - 1, 2) = "Total"

    Sheets("Bintable").Cells(LineBin - 1, 3) = "Yeild"

    Sheets("Bintable").Cells(LineBin + UBound(sbinGroup) + 1, 1) = "aMount"


    Alltestbin.RemoveAll

    binvalue_all = 0

Next sitenum

'-------------------------

    Dim totalbin&, sbinnummount&, sbinyeild#, siteyeild#

    For i = 0 To UBound(sbinGroup) + 1

        For sitenum = minisite To maxsite


            sbinnummount = sbinnummount + Sheets("Bintable").Cells(LineBin + i, sitenum + 4).Value

        Next sitenum

        Sheets("Bintable").Cells(LineBin + i, 2) = sbinnummount

        sbinnummount = 0

    Next i

    For i = 0 To UBound(sbinGroup)

        sbinyeild = Sheets("Bintable").Cells(LineBin + i, 2) / Sheets("Bintable").Cells(LineBin + UBound(sbinGroup) + 1, 2)

        Sheets("Bintable").Cells(LineBin + i, 3) = sbinyeild

        Sheets("Bintable").Cells(LineBin + i, 3).NumberFormatLocal = "0.00%"

        Sheets("Bintable").Cells(LineBin + i, 3).Interior.ColorIndex = 35

    Next i

    Sheets("Bintable").Cells(LineBin + UBound(sbinGroup) + 2, 1) = "Site Yeild"

    For sitenum = minisite To maxsite

        siteyeild = Sheets("Bintable").Cells(LineBin, sitenum + 4) / Sheets("Bintable").Cells(LineBin + UBound(sbinGroup) + 1, sitenum + 4)

        Sheets("Bintable").Cells(LineBin + UBound(sbinGroup) + 2, sitenum + 4) = siteyeild

        Sheets("Bintable").Cells(LineBin + UBound(sbinGroup) + 2, sitenum + 4).NumberFormatLocal = "0.00%"

        Sheets("Bintable").Cells(LineBin + UBound(sbinGroup) + 2, sitenum + 4).Interior.ColorIndex = 34

    Next sitenum


    Sheets("Bintable").Cells(LineBin - 2, 3) = file

    LineBin = LineBin + UBound(sbinGroup)


    '-----------------------------------------------------------------

    '----call summary(headinfo as string)

    Sheets("SUMMARY").Cells(Summaryline + 2, 1).Value = headinfo(5)

    Sheets("SUMMARY").Cells(Summaryline + 2, 2).Value = headinfo(8)

    Sheets("SUMMARY").Cells(Summaryline + 2, 3).Value = headinfo(6)

    Sheets("SUMMARY").Cells(Summaryline + 2, 4).Value = headinfo(7)

    Sheets("SUMMARY").Cells(Summaryline + 2, 5).Value = CDate(headinfo(7)) - CDate(headinfo(6))

    Sheets("SUMMARY").Cells(Summaryline + 2, 6).Value = headinfo(1)

    Sheets("SUMMARY").Cells(Summaryline + 2, 7).Value = headinfo(9)

    Sheets("SUMMARY").Cells(Summaryline + 2, 13).Value = Split(headinfo(3))(0)

    Summaryline = Summaryline + 1

'    Erase Sbin

'    Erase site

'

'    summarybin.RemoveAll



End Function

'--------------------------------

'-----------------------------------------------------------------------------------

Function MyTrim(str As String) As String

    Dim lenth As Integer

    str = Trim(str)

      Do

        lenth = Len(str)

        str = Replace(str, "  ", " ")

      Loop While lenth <> Len(str)


    MyTrim = str

End Function

'-----------------------------------------------------------------------------------

Public Function MAPmake(Bin As Variant, site As Variant, file As String, Mapline As Integer) As Boolean

    'X_min -12 : X_Max 24  : Y_min 0 : Y_max 35

    'X-ray = 24-(-12)  Y-ray = 35-0 ,offset Abs(num) 絕對值

    'map 需要offset 1,1---> 2,2

    Dim i%, j%

    For i = 0 To X_Max - X_min

    Sheets("MAP").Cells(Mapline + 1, i + 2).Value = i + X_min

    Next i

    For j = 0 To Y_Max - Y_min

    Sheets("MAP").Cells(j + Mapline + 2, 1).Value = j - Y_min

    Next j


    For i = 0 To X_Max - X_min

        For j = 0 To Y_Max - Y_min

        If Bin(0, X_min + i, Y_min + j) <> " " And site(Y_min + j, X_min + i) <> "" Then

        Sheets("MAP").Cells(j + Mapline + 2, i + 2).Value = Bin(0, Y_min + j, X_min + i) ' & "[" & site(Y_min + j, X_min + i) & "]"

        End If

        Next j

    Next i

Sheets("MAP").Cells(Y_Max + Mapline + 3, 5).Value = file

Mapline = Mapline + Y_Max + 5

End Function

'-----------------------------------------------------------------------------------

Public Function Bmapmake(Bin As Variant, site As Variant, file As String, Bmapline As Integer)

    Dim i%, j%

    For i = 0 To X_Max - X_min

    Sheets("BeferMAP").Cells(Bmapline + 1, i + 2).Value = i + X_min

    Next i

    For j = 0 To Y_Max - Y_min

    Sheets("BeferMAP").Cells(j + Bmapline + 2, 1).Value = j - Y_min

    Next j


    For i = 0 To X_Max - X_min

        For j = 0 To Y_Max - Y_min

        If Bin(1, X_min + i, Y_min + j) <> " " Then

        Sheets("BeferMAP").Cells(j + Bmapline + 2, i + 2).Value = Bin(1, Y_min + j, X_min + i) ' & "[" & site(Y_min + j, X_min + i) & "]"

        End If

        Next j

    Next i

Sheets("BeferMAP").Cells(Y_Max + Bmapline + 3, 5).Value = file

Bmapline = Bmapline + Y_Max + 5

End Function

'-----------------------------------------------------------------------------------

Public Function Amapmake(Bin As Variant, site As Variant, file As String, Amapline As Integer)

    Dim i%, j%

    For i = 0 To X_Max - X_min

    Sheets("AfterMAP").Cells(Amapline + 1, i + 2).Value = i + X_min

    Next i

    For j = 0 To Y_Max - Y_min

    Sheets("AfterMAP").Cells(j + Amapline + 2, 1).Value = j - Y_min

    Next j


    For i = 0 To X_Max - X_min

        For j = 0 To Y_Max - Y_min

        If Bin(2, X_min + i, Y_min + j) <> " " Then

        Sheets("AfterMAP").Cells(j + Amapline + 2, i + 2).Value = Bin(2, Y_min + j, X_min + i)

            If Val(Sheets("AfterMAP").Cells(j + Amapline + 2, i + 2).Value) = 1 Then

            Sheets("AfterMAP").Cells(j + Amapline + 2, i + 2).Interior.ColorIndex = 33

            Sheets("AfterMAP").Cells(j + Amapline + 2, i + 2).Value = Sheets("AfterMAP").Cells(j + Amapline + 2, i + 2) & "[" & site(Y_min + j, X_min + i) & "]"

            End If

            If Val(Sheets("AfterMAP").Cells(j + Amapline + 2, i + 2).Value) > 1 Then

            Sheets("AfterMAP").Cells(j + Amapline + 2, i + 2).Interior.ColorIndex = 22

            Sheets("AfterMAP").Cells(j + Amapline + 2, i + 2).Value = Sheets("AfterMAP").Cells(j + Amapline + 2, i + 2) & "[" & site(Y_min + j, X_min + i) & "]"

            End If

        End If

        Next j

    Next i

Sheets("AfterMAP").Cells(Y_Max + Amapline + 3, 5).Value = file

Amapline = Amapline + Y_Max + 5

End Function

©著作权归作者所有,转载或内容合作请联系作者
  • 人面猴
    序言：七十年代末，一起剥皮案震惊了整个滨河市，随后出现的几起案子，更是在滨河造成了极大的恐慌，老刑警刘岩，带你破解...
    沈念sama阅读 200,176评论 5赞 469
  • 死咒
    序言：滨河连续发生了三起死亡事件，死亡现场离奇诡异，居然都是意外死亡，警方通过查阅死者的电脑和手机，发现死者居然都...
    沈念sama阅读 84,190评论 2赞 377
  • 救了他两次的神仙让他今天三更去死
    文/潘晓璐 我一进店门，熙熙楼的掌柜王于贵愁眉苦脸地迎上来，“玉大人，你说我怎么就摊上这事。” “怎么了？”我有些...
    开封第一讲书人阅读 147,232评论 0赞 332
  • 道士缉凶录：失踪的卖姜人
    文/不坏的土叔 我叫张陵，是天一观的道长。 经常有香客问我，道长，这世上最难降的妖魔是什么？ 我笑而不...
    开封第一讲书人阅读 53,953评论 1赞 272
  • 港岛之恋（遗憾婚礼）
    正文 为了忘掉前任，我火速办了婚礼，结果婚礼上，老公的妹妹穿的比我还像新娘。我一直安慰自己，他们只是感情好，可当我...
    茶点故事阅读 62,879评论 5赞 360
  • 恶毒庶女顶嫁案：这布局不是一般人想出来的
    文/花漫 我一把揭开白布。 她就那样静静地躺着，像睡着了一般。 火红的嫁衣衬着肌肤如雪。 梳的纹丝不乱的头发上，一...
    开封第一讲书人阅读 48,177评论 1赞 277
  • 城市分裂传说
    那天，我揣着相机与录音，去河边找鬼。 笑死，一个胖子当着我的面吹牛，可吹牛的内容都是我干的。 我是一名探鬼主播，决...
    沈念sama阅读 37,626评论 3赞 390
  • 双鸳鸯连环套：你想象不到人心有多黑
    文/苍兰香墨 我猛地睁开眼，长吁一口气：“原来是场噩梦啊……” “哼！你这毒妇竟也来了？” 一声冷哼从身侧响起，我...
    开封第一讲书人阅读 36,295评论 0赞 254
  • 万荣杀人案实录
    序言：老挝万荣一对情侣失踪，失踪者是张志新（化名）和其女友刘颖，没想到半个月后，有当地人在树林里发现了一具尸体，经...
    沈念sama阅读 40,436评论 1赞 294
  • 护林员之死
    正文 独居荒郊野岭守林人离奇死亡，尸身上长有42处带血的脓包…… 初始之章·张勋 以下内容为张勋视角 年9月15日...
    茶点故事阅读 35,365评论 2赞 317
  • 白月光启示录
    正文 我和宋清朗相恋三年，在试婚纱的时候发现自己被绿了。 大学时的朋友给我发了我未婚夫和他白月光在一起吃饭的照片。...
    茶点故事阅读 37,414评论 1赞 329
  • 活死人
    序言：一个原本活蹦乱跳的男人离奇死亡，死状恐怖，灵堂内的尸体忽然破棺而出，到底是诈尸还是另有隐情，我是刑警宁泽，带...
    沈念sama阅读 33,096评论 3赞 315
  • 日本核电站爆炸内幕
    正文 年R本政府宣布，位于F岛的核电站，受9级特大地震影响，放射性物质发生泄漏。R本人自食恶果不足惜，却给世界环境...
    茶点故事阅读 38,685评论 3赞 303
  • 男人毒药：我在死后第九天来索命
    文/蒙蒙 一、第九天 我趴在偏房一处隐蔽的房顶上张望。 院中可真热闹，春花似锦、人声如沸。这庄子的主人今日做“春日...
    开封第一讲书人阅读 29,771评论 0赞 19
  • 一桩弑父案，背后竟有这般阴谋
    文/苍兰香墨 我抬头看了看天上的太阳。三九已至，却和暖如春，着一层夹袄步出监牢的瞬间，已是汗流浃背。 一阵脚步声响...
    开封第一讲书人阅读 30,987评论 1赞 255
  • 情欲美人皮
    我被黑心中介骗来泰国打工， 没想到刚下飞机就差点儿被人妖公主榨干…… 1. 我叫王不留，地道东北人。 一个月前我还...
    沈念sama阅读 42,438评论 2赞 346
  • 代替公主和亲
    正文 我出身青楼，却偏偏与公主长得像，于是被迫代替她去往敌国和亲。 传闻我的和亲对象是个残疾皇子，可洞房花烛夜当晚...
    茶点故事阅读 42,032评论 2赞 341

推荐阅读更多精彩内容