Lampiran - 79

DAFTAR PUSTAKA

Kusumadewi, Sri dan Hari Purnomo.2004.Aplikasi Logika Fuzzy Untuk Mendukung Keputusan. Yogyakarta: Graha Ilmu. Kusumadewi, Sri dan Sri Hartati.2010. Neuro-Fuzzy Integrasi Sistem Fuzzy & Jaringan Syaraf. Yogyakarta: Graha Ilmu. Modul Data Mining PENS-ITS. “Bab 10 Clustering”. Surabaya: PENS-ITS, hal 89-115. Naba, Agus. 2009. Belajar Cepat Fuzzy Logic Menggunakan MATLAB. Yogyakarta: ANDI. RAJ.2010. “Question: How to export datagridview to excel using vb.net?”. (Online).

(http://stackoverflow.com/questions/680199/how-to-export-

datagridview-to-excel-using-vb-net, diakses Selasa, 19 Juli 2011) Suyanto.2008. Soft Computing. Bandung: Informatika. Wardani, I.I.P.2010. Analisa Keluarga Miskin Dengan Menggunakan Metode Fuzzy

C-Means

Clustering.

(PDF).(Http://repo.eepis-

its.edu/423/1/974.pdf, diunduh Selasa, 19 Juli 2011). Wikipedia. “Visual Basic 9.0(Visual Basic 2008)”. Visual Basic .NET. (Online). (http://id.wikipedia.org/wiki/Visual_Basic_.NET, diakses Jum’at, 10 Juni 2011)

79

Lampiran - I

LISTING PROGRAM

Form Utama '#Form Utama# Public Class FormUtama Private Sub mnViewSetting_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnViewSetting.Click Dim mymdi As New FormUtama Dim myfile As String = Application.StartupPath + "\SettingFile.xml" Dim mysett As New clSetting FormCurSett.inFileSetting.Text = myfile 'Read SettingFile.xml mysett.BacaFile(myfile) FormCurSett.MdiParent = Me FormCurSett.Show() End Sub Private Sub mnNewSetting_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnNewSetting.Click Dim mymdi As New FormUtama FormNewSett.MdiParent = Me FormNewSett.Show() End Sub Private Sub mnAnalyzer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnAnalyzer.Click Dim mymdi As New FormUtama FormAnalyzer.MdiParent = Me FormAnalyzer.Show() End Sub Private Sub FormUtama_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim myfile As String = Application.StartupPath + "\SettingFile.xml" Dim mysett As New clSetting FormCurSett.inFileSetting.Text = myfile 'Read SettingFile.xml mysett.BacaFile(myfile) End Sub End Class

Lampiran - II

Form Current Setting 'Form Current Setting Public Class FormCurSett Private Sub FormCurSett_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.WindowState = FormWindowState.Maximized End Sub Private Sub btLoadSetting_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btLoadSetting.Click Dim opd As New OpenFileDialog Dim myfile As String 'Open a Setting File opd.Filter = "Xml files (*.xml)|*.xml" myfile = opd.ShowDialog() 'Store Path & File Name to Text Box If myfile = Windows.Forms.DialogResult.OK Then inFileSetting.Text = opd.FileName End If End Sub Private Sub btLoadApply_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btLoadApply.Click Dim newSetting As New clSetting If inFileSetting.Text Application.StartupPath & "\SettingFile.xml" Then 'Copy a File to Setting File default newSetting.copyFileSetting(inFileSetting.Text) 'Clearing Display Form View Current Setting Me.gbCurrentSetting.Controls.Clear() 'Create Display for View Curent Setting newSetting.BacaFile(inFileSetting.Text) End If End Sub End Class

Form New Setting 'Form New Setting Public Class FormNewSett Private Sub FormNewSett_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.WindowState = FormWindowState.Maximized End Sub Private Sub btSetNoC_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btSetNoC.Click Dim newCls As New clSetting

Lampiran - III

'Checking for input Number of Cluster If Not IsNumeric(inNoC.Text) Or inNoC.Text = "0" Then MsgBox("Input Number Of Cluster, please!" & vbCrLf & "Only Number Accepted", vbOKOnly) Else 'Create Text Box & Label for Cluster newCls.CreateCluster(Convert.ToInt32(inNoC.Text)) End If End Sub Private Sub btNmCls_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btNmCls.Click Dim newform As New FormNewSettDetail Dim NMat As New ArrayList Dim n As Integer = Convert.ToInt32(inNoC.Text) Dim s As String 'Store Name of Cluster into an Array For x = 1 To n s = gbNewSetting.Controls.Item("tbCls" & x).Text NMat.Add(s) Next 'Clone an Array to Form Setting Detail newform.NamaCls = NMat.Clone() newform.Show() End Sub End Class

Form Current Setting Detail 'Form New Setting Detail Imports System.IO Imports System.Data Imports System.Xml Public Class FormNewSettDetail Public NamaCls As New ArrayList Public NumCls As Integer Public NomMK As Integer Public NameMK() As String Private Sub FormNewSettDetail_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim mymdi As New FormUtama Me.MdiParent = FormUtama Me.WindowState = FormWindowState.Maximized End Sub Private Sub btBrowse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btBrowse.Click Dim mysett As New clSetting Dim myfile As String Dim opd As New OpenFileDialog Dim oRead As System.IO.StreamReader = Nothing Dim strArray() As String = Nothing

Lampiran - IV

'Input File Data for Clustering opd.Filter = "Text files (*.txt)|*.txt" myfile = opd.ShowDialog() If myfile = Windows.Forms.DialogResult.OK Then inSettingDetail.Text = opd.FileName inSettingDetail.Text = opd.FileName 'Read a File oRead = New StreamReader(inSettingDetail.Text) Dim s As String s = oRead.ReadLine() 'Store First Line into an array strArray = Split(s, ControlChars.Tab) Dim n As Integer = strArray.Count Dim h As Integer = Convert.ToInt32(FormNewSett.inNoC.Text) 'Copy an Array for Attribute Name NameMK = strArray.Clone NomMK = n NumCls = h 'Create view Detail of Cluster For i = 1 To h Dim mygroupbox As New GroupBox mygroupbox.Name = "mygroupbox" & i mygroupbox.Text = FormNewSett.gbNewSetting.Controls.Item("tbCls" & i).Text mygroupbox.Top = 150 mygroupbox.Left = 20 + ((i - 1) * 220) mygroupbox.AutoSize = True

For q = 1 To strArray.Count - 1 Dim mycheck As New CheckBox mycheck.Text = strArray(q).ToString mycheck.Name = "mycheck" & q mycheck.Top = 2 + (q * 25) mycheck.Checked = False mygroupbox.Controls.Add(mycheck) Next Me.Controls.Add(mygroupbox) Next End If FormNewSett.Close() End Sub Private Sub btSaveSetting_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btSaveSetting.Click Dim sfd As New SaveFileDialog Dim myfile As String

Lampiran - V

Dim mysett As New clSetting 'Save Configuration into a XML File sfd.Filter = "XML files (*.xml)|*.xml" myfile = sfd.ShowDialog() If myfile = Windows.Forms.DialogResult.OK Then inSaveSetting.Text = sfd.FileName Dim myXmlSettings As New XmlWriterSettings myXmlSettings.Indent = True myXmlSettings.NewLineOnAttributes = True 'Write Configuration into XML File Using ProductWriter As XmlWriter = XmlWriter.Create(inSaveSetting.Text, myXmlSettings) ProductWriter.WriteComment("ConfigFile") ProductWriter.WriteStartElement("Data") ProductWriter.WriteElementString("JumCluster", NumCls.ToString) ProductWriter.WriteElementString("JumMK", ((NomMK) - 1).ToString) ProductWriter.WriteStartElement("MK_ALL") For s = 1 To NomMK - 1 ProductWriter.WriteElementString("NamaMK" & s, NameMK(s).ToString) Next ProductWriter.WriteEndElement() For k = 1 To Controls.Count - 1 If TypeOf Controls(k) Is GroupBox Then ProductWriter.WriteStartElement(Controls(k).Text) Dim z As Integer = 1 For Each CheckBox In Controls(k).Controls If CheckBox.checked = True Then ProductWriter.WriteElementString("MataKuliah" & z, CheckBox.Text) z = z + 1 End If Next ProductWriter.WriteEndElement() End If Next ProductWriter.WriteEndElement() End Using End If mysett.copyFileSetting(inSaveSetting.Text) MsgBox("Succeed Write " & inSaveSetting.Text, MsgBoxStyle.OkOnly) FormNewSett.Close() Me.Close()

Lampiran - VI

End Sub End Class

Form Analyze 'Form Analyzer Imports System.Data Public Class FormAnalyzer Public JlC As Integer Public JlMK As Integer Public MatUR(,) As Decimal Public MatData(,) As Decimal Const MaxIter As Integer = 1000 Const MaxErr As Decimal = 0.000001 Const w As Integer = 6 Public metaData(,) As Integer Public myCluster() As String

Private Sub FormAnalyzer_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.WindowState = FormWindowState.Maximized Dim mysett As New clSetting Dim mycls As New clCluster Dim setPath As String = Application.StartupPath & "\SettingFile.xml" 'Read Setting File mysett.BacaSetting(setPath) 'Get Meta Data Based on Cluster metaData = mycls.getmetadata(setPath) 'number of Cluster JlC = mysett.NoC 'number of mata kuliah JlMK = mysett.NoMK End Sub Private Sub btDataAnalyzer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btDataAnalyzer.Click Dim opd As New OpenFileDialog Dim myfile As String Dim mycls As New clCluster Dim mysett As New clSetting 'Checking for Data in Datagrid View If dgInput.RowCount > 1 Then dgInput.Rows.Clear() dgInput.Columns.Clear() dgResult.Rows.Clear() dgResult.Columns.Clear() End If

Lampiran - VII

'Name of Cluster myCluster = mycls.getClusterName() 'Open Input File for Clustering opd.Filter = "Text files (*.txt)|*.txt" myfile = opd.ShowDialog() If myfile = Windows.Forms.DialogResult.OK Then inAnalyzer.Text = opd.FileName 'Preparing Datagrid View For ndat = 1 To JlC + 1 dgResult.Columns.Add(ndat.ToString(), ndat.ToString()) If ndat = 1 Then dgResult.Columns(ndat.ToString).HeaderText = "NIM" Else dgResult.Columns(ndat.ToString).HeaderText = myCluster(ndat - 2).ToString End If Next 'Input file into Datagrid View mycls.InputData(inAnalyzer.Text) End If End Sub Private Sub btAnalyzer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btAnalyzer.Click Dim mysett As New clSetting Dim mycls As New clCluster Dim setPath As String = Application.StartupPath & "\SettingFile.xml" Dim p1 As Decimal = 0 Dim p2 As Decimal = 0 Dim nMHS As Integer Dim upper As Decimal Dim lower As Decimal Dim atas As Decimal Dim bawah As Decimal Dim nc As Integer Dim temp1 As Decimal Dim temp2 As Decimal Dim temp3 As Decimal Dim iter As Integer Dim nilai As Decimal Dim total As Decimal Dim pbar As Integer Dim bagi As Decimal Dim maxval1, maxval2 As Decimal 'Set Number of Data nMHS = dgInput.Rows.Count - 1 'Set Input Data Matrix MatData = mycls.DataMHS((nMHS - 1), (JlMK - 1)) 'Set Random Matrix/membership function MatUR = mycls.MatrixRandom((nMHS - 1), (JlC - 1))

Lampiran - VIII

'set marix hasil cluster Dim myhasil(nMHS - 1, 0) As String 'Set for Progress Bar pbar = nMHS + MaxIter 'Declare for Center of Cluster Matrix Dim MatV((JlC - 1), (JlMK - 1)) As Decimal nc = 0 ProBar.Value = 0 For iter = 1 To MaxIter '1. Calculate Center of cluster Dim Kc As Integer Dim Jc As Integer For Kc = 0 To JlC - 1 For Jc = 0 To JlMK - 1 upper = 0 lower = 0 For ic = 0 To nMHS - 1 upper = upper + (Math.Pow(MatUR(ic, Kc), w) * (MatData(ic, Jc) * (metaData(Kc, Jc)))) lower = lower + (Math.Pow(MatUR(ic, Kc), w) * (metaData(Kc, Jc))) Next If lower = 0 Then MatV(Kc, Jc) = 0 ElseIf (upper / lower) > 4 Then MatV(Kc, Jc) = 4 Else MatV(Kc, Jc) = (upper / lower) End If Next Next '2. Calculate Objective Function For ic = 0 To nMHS - 1 temp2 = 0 For Kc = 0 To JlC - 1 temp1 = 0 For Jc = 0 To JlMK - 1 temp1 = temp1 + ((Math.Pow((MatData(ic, Jc)) - MatV(Kc, Jc), 2))) Next temp2 = temp2 + (Math.Abs(temp1) * (Math.Pow(MatUR(ic, Kc), w))) Next p2 = p2 + temp2 Next

'3. Fixing Membership Function

Lampiran - IX

For ic = 0 To nMHS - 1 For Kc = 0 To JlC - 1 atas = 0 For Jc = 0 To JlMK - 1 atas = atas + ((Math.Pow(MatData(ic, Jc) - MatV(Kc, Jc), 2))) Next atas = Math.Pow(Math.Abs(atas), -1 / (w 1)) temp3 = 0 For di = 0 To JlC - 1 bawah = 0 For ji = 0 To JlMK - 1 bawah = bawah + ((Math.Pow(MatData(ic, ji) - MatV(di, ji), 2))) Next bawah = Math.Pow(Math.Abs(bawah), -1 / (w - 1)) temp3 = (temp3 + bawah) Next MatUR(ic, Kc) = (atas / temp3) Next Next

'4. Checking for stop If (Math.Abs(p2 - p1)) < MaxErr Then Exit For Else p2 = p1 End If ProBar.Value = iter / pbar * 100 Next 'Calculate for Cluster Distance For nc = 0 To nMHS - 1 'Jumlah MHS ProBar.Value = (nc + 1 + iter) / pbar * 100 maxval1 = 0 maxval2 = 0 For cl = 0 To JlC - 1 'Jumlah Bid. TA bagi = 0 nilai = 0 For jl = 0 To JlMK - 1 ' jumlah MK nilai = nilai + (Math.Abs(MatData(nc, jl) 4)) * (metaData(cl, jl) * MatUR(nc, cl)) bagi = bagi + (metaData(cl, jl)) Next total = nilai / bagi dgResult.Rows(nc).Cells(cl + 1).Value = (4 total) / 4 * 100 Next Next MessageBox.Show("PROCESS DONE !", "Information") ProBar.Value = 0 End Sub

Lampiran - X

Private Sub btSaveAnalyzer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btSaveAnalyzer.Click Dim SFD As New SaveFileDialog 'Function for Saving Result into Excel 2007 File SFD.Filter = "Excel Files(*.xlsx)|*.xlsx" If SFD.ShowDialog = Windows.Forms.DialogResult.OK Then inSaveResult.Text = SFD.FileName 'RAJ 31-12-2010@ http://stackoverflow.com/questions/680199/how-to-exportdatagridview-to-excel-using-vb-net Dim xlApp As Microsoft.Office.Interop.Excel.Application Dim xlWorkBook As Microsoft.Office.Interop.Excel.Workbook Dim xlWorkSheet As Microsoft.Office.Interop.Excel.Worksheet Dim oldCI As System.Globalization.CultureInfo = _ System.Threading.Thread.CurrentThread.CurrentCulture System.Threading.Thread.CurrentThread.CurrentCulture = _ New System.Globalization.CultureInfo("en-US") Dim misValue As Object = System.Reflection.Missing.Value Dim i As Integer Dim j As Integer xlApp = New Microsoft.Office.Interop.Excel.ApplicationClass xlWorkBook = xlApp.Workbooks.Add(misValue) xlWorkSheet = xlWorkBook.Sheets("Sheet1")

For i = 0 To dgResult.RowCount - 2 For j = 0 To dgResult.ColumnCount - 1 For k As Integer = 1 To dgResult.Columns.Count xlWorkSheet.Cells(1, k) = dgResult.Columns(k - 1).HeaderText xlWorkSheet.Cells(i + 2, j + 1) = dgResult(j, i).Value.ToString() Next Next Next xlWorkSheet.SaveAs(inSaveResult.Text) xlWorkBook.Close() xlApp.Quit() releaseObject(xlApp) releaseObject(xlWorkBook) releaseObject(xlWorkSheet)

Lampiran - XI

MsgBox("You can find the file " & inSaveResult.Text) End If End Sub Private Sub releaseObject(ByVal obj As Object) Try System.Runtime.InteropServices.Marshal.ReleaseComObject(obj) obj = Nothing Catch ex As Exception obj = Nothing Finally GC.Collect() End Try End Sub

End Class

Class clCluster Imports System.IO Imports System.Xml Imports System.Math Public Class clCluster Private newarray() As String Private Jbar As Integer Public Sub InputData(ByVal File As String) Dim oRead As System.IO.StreamReader = Nothing Dim nS As String Dim nVar As Integer newarray = Nothing 'reading a file oRead = New StreamReader(File) nS = oRead.ReadLine() newarray = Split(nS, ControlChars.Tab) nVar = newarray.Count 'Giving Header text to Datagrid View Input Data Clustering on form Analyzer For J = 1 To nVar FormAnalyzer.dgInput.Columns.Add(J.ToString(), J.ToString()) FormAnalyzer.dgInput.Columns(J.ToString).HeaderText = newarray(J - 1).ToString() Next Jbar = 0 'Counting Data Row Do Until oRead.EndOfStream oRead.ReadLine()

Lampiran - XII

Jbar = Jbar + 1 Loop 'read File input data Clustering oRead = New StreamReader(File) oRead.ReadLine() 'insert row to datagrid view input FormAnalyzer.dgInput.Rows.Add(Jbar) 'insert row to datagrid view result FormAnalyzer.dgResult.Rows.Add(Jbar) 'Input Data into Datagrid view For en = 0 To FormAnalyzer.dgInput.Rows.Count - 1 nS = oRead.ReadLine() Dim dtarray() As String = Nothing dtarray = Split(nS, ControlChars.Tab) For i = 0 To dtarray.Count - 1 FormAnalyzer.dgInput.Rows(en).Cells(i).Value = dtarray(i).ToString Next FormAnalyzer.dgResult.Rows(en).Cells(0).Value = dtarray(0).ToString Next oRead.Close() End Sub Public Function MatrixRandom(ByVal x As Integer, ByVal y As Integer) 'Function for Generate Matrix Random/membership function Dim myarry(x, y) As Decimal Dim random As New Random Dim temp1 As Decimal Dim temp2 As Decimal Dim total As Decimal For j = 0 To x total = 0 For i = 0 To y - 1 temp1 = Math.Abs(random.NextDouble()) If total + temp1 >= 1 Then Do temp1 = Math.Abs(random.NextDouble()) Loop Until (total + temp1) < 1 temp2 = temp1 Else temp2 = temp1 End If total = total + temp2 myarry(j, i) = temp2 Next temp2 = 1 - total total = total + temp2

Lampiran - XIII

myarry(j, (y)) = temp2 Next j Return myarry End Function Public Function DataMHS(ByVal a As Integer, ByVal b As Integer) 'Function for Generate Matrix Input Data Dim myMHS(a, b) As Decimal Dim bar As Integer = a Dim kol As Integer = b Dim ibar As Integer Dim ikol As Integer Dim dummy1 As String Dim dummy2 As Decimal For ibar = 0 To bar For ikol = 0 To kol dummy1 = FormAnalyzer.dgInput.Rows(ibar).Cells(ikol + 1).Value If dummy1 = "A" Then dummy2 = 4.0 ElseIf dummy1 = "B+" Then dummy2 = 3.5 ElseIf dummy1 = "B" Then dummy2 = 3.0 ElseIf dummy1 = "C+" Then dummy2 = 2.5 ElseIf dummy1 = "C" Then dummy2 = 2.0 Else dummy2 = 1.0 End If myMHS(ibar, ikol) = dummy2 Next Next Return myMHS End Function Public Function getmetadata(ByVal Fn As String) 'Function for Generate Matrix Metadata based on Cluster from File setting Dim xd As New XmlDataDocument Dim mylabel As New Label Dim myTbox As New TextBox Dim NoC As Integer Dim Ja As Integer xd.Load(Fn) NoC = Convert.ToInt32(xd.DocumentElement.ChildNodes.Item(0).InnerText ) Ja = xd.DocumentElement.ChildNodes.Item(2).ChildNodes.Count - 1 Dim matMeta(NoC - 1, Ja) As Integer For x = 3 To NoC + 2

Lampiran - XIV

For c = 0 To xd.DocumentElement.ChildNodes.Item(2).ChildNodes.Count - 1 Dim myText As String myText = xd.DocumentElement.ChildNodes.Item(2).ChildNodes.Item(c).InnerT ext For a = 0 To xd.DocumentElement.ChildNodes.Item(x).ChildNodes.Count - 1 If (xd.DocumentElement.ChildNodes.Item(x).ChildNodes.Item(a).Inner Text).ToString = myText Then matMeta((x - 3), c) = 1 Exit For Else matMeta((x - 3), c) = 0 End If Next Next Next Return matMeta End Function Public Function getClusterName() Dim ndx As New XmlDataDocument Dim fs As String = Application.StartupPath & "\SettingFile.xml" Dim Jk As Integer

ndx.Load(fs) Jk = Convert.ToInt32(ndx.DocumentElement.ChildNodes.Item(0).InnerTex t) Dim myCln(Jk - 1) As String For cluster = 0 To Jk - 1 myCln(cluster) = ndx.DocumentElement.ChildNodes.Item(cluster + 3).Name Next Return myCln End Function End Class

Class clSetting Imports System.Xml Imports System.IO Public Class clSetting Public NoC As Integer Public NmC As New ArrayList Public NoMK As Integer Public NmMK() As String

Public Sub BacaFile(ByVal File As String)

Lampiran - XV

'Function for Create Form View Curent Setting Dim xd As New XmlDataDocument Dim mylabel As New Label Dim myTbox As New TextBox xd.Load(File) NoC = Convert.ToInt32(xd.DocumentElement.ChildNodes.Item(0).InnerText ) mylabel.Name = "lbCurset" mylabel.Top = 33 mylabel.Left = 6 mylabel.Text = "Number of Cluster" mylabel.Width = 91 mylabel.Height = 13 FormCurSett.gbCurrentSetting.Controls.Add(mylabel) myTbox.Name = "txJCls" myTbox.Text = Convert.ToString(NoC) myTbox.Top = 30 myTbox.Left = 103 myTbox.Width = 63 myTbox.Height = 20 myTbox.Enabled = False FormCurSett.gbCurrentSetting.Controls.Add(myTbox) 'Create Group Box as many as Number of Cluster For x = 3 To NoC + 2 Dim mygroupbox As New GroupBox mygroupbox.Text = xd.DocumentElement.ChildNodes.Item(x).Name mygroupbox.Top = 75 mygroupbox.Left = 10 + ((x - 2) * 220) mygroupbox.AutoSize = True 'Create Radio Button as many as number of Cluster Attribute For c = 0 To xd.DocumentElement.ChildNodes.Item(2).ChildNodes.Count - 1 Dim mycheck As New CheckBox mycheck.Text = xd.DocumentElement.ChildNodes.Item(2).ChildNodes.Item(c).InnerT ext mycheck.Top = 2 + ((c + 1) * 25) For a = 0 To xd.DocumentElement.ChildNodes.Item(x).ChildNodes.Count - 1 If (xd.DocumentElement.ChildNodes.Item(x).ChildNodes.Item(a).Inner Text).ToString = mycheck.Text Then mycheck.Checked = True End If Next mygroupbox.Controls.Add(mycheck)

Lampiran - XVI

Next FormCurSett.gbCurrentSetting.Controls.Add(mygroupbox) Next End Sub Public Sub CreateCluster(ByVal Z As Integer) 'Generate text box & label for new Cluster on Form New Setting If FormNewSett.gbNewSetting.Controls.Count > 0 Then FormNewSett.gbNewSetting.Controls.Clear() End If For x = 1 To Z Dim myLabel As New Label myLabel.Name = "lbCls" & x myLabel.Text = "Cluster No " & x myLabel.Top = 10 + (x * 25) myLabel.Left = 10 FormNewSett.gbNewSetting.Controls.Add(myLabel) Dim myTextbox As New TextBox myTextbox.Name = "tbCls" & x myTextbox.Top = 5 + (x * 25) myTextbox.Left = 120 myTextbox.Width = 250 FormNewSett.gbNewSetting.Controls.Add(myTextbox) Next End Sub Public Sub BacaSetting(ByVal newfile As String) Dim setF As New XmlDataDocument 'reading a file Setting setF.Load(newfile) 'get number of Cluster NoC = Convert.ToInt32(setF.DocumentElement.ChildNodes.Item(0).InnerTe xt) 'get Number of Variable NoMK = setF.DocumentElement.ChildNodes.Item(2).ChildNodes.Count

End Sub Public Sub copyFileSetting(ByVal myfile As String) 'Function copy a file setting to Default Setting file(SettingFile.xml) Dim opath As String = Application.StartupPath + "\SettingFile.xml" Dim newF As String = opath If System.IO.File.Exists(myfile) = True Then System.IO.File.Delete(opath) System.IO.File.Copy(myfile, newF) End If

Lampiran - XVII

End Sub

End Class

Lampiran - XVIII

DATA AKADEMIK

Lampiran - XIX

Lampiran - XX

KELUARAN APLIKASI

Lampiran - XXI

DAFTAR RIWAYAT HIDUP Curriculum Vitae

Data Pribadi / Personal Details

Nama / Name

: TIKA WASTIKA

Alamat / Address

: Jl. Agung Utara 3C Sunter Agung Tg. Priok, Jakarta Utara

Nomor Telepon / Phone

: 089635522546

Email

: [email protected]

Jenis Kelamin / Gender

: Male

Tanggal Kelahiran / Date of Birth : 23rd July 1983 Status Marital / Marital Status

: Single

Warga Negara / Nationality

: Indonesia

Agama / Religion

: Muslim

Riwayat Pendidikan dan Pelatihan Educational and Professional Qualification

Jenjang Pendidikan

:

Education Information Periode

Sekolah / Institusi /

Jurusan

Jenjang IPK

Universitas 2005 - 2011

Universitas Mercu Buana

Teknik Informatika

S1

3.65

Lampiran - XXII

1999 - 2002

SMKN 3 Kuningan

Otomotif

SMK

1997 - 1999

SMPN 3 Ligung

SMP

1991 - 1997

SDN Beber 4

SD

1989 - 1990

TK Imbaraga

TK

Pendidikan Non Formal / Training – Seminar

1. English Course at Wallstreet Institute Level Upper Way Stage 2. SAP for Inventory Control (Internal Training) 3. SAP MM (Internal Training) 4. Toyota Production System (Internal Training) 5. Logistic Fundamental Skills (Internal Training) 6. EHS Training (Internal Training) 7. Japan-SOX Audit Training (Internal Training)

Riwayat Pengalaman Kerja Summary of Working Experience

Tahun

: 2003-2005

Instansi / Perusahaan : PT. Astra Daihastu Motor Posisi

: Logistic Staff/ Ordering section

Job Deskripsi

: Maintain Daily & Monthly Order using SAP & Kanban System.

Tahun

:

Instansi / Perusahaan :

2005-Present PT. Astra Daihatsu Motor

Posisi

: Team Leader Master Data/Inventory Control

Job Deskripsi

: Maintain Inventory. Maintain Master Data of Logistic System. Internal SAP Consultant. Internal IT Staff J-SOX Control

Lampiran - XXIII

Kecakapan Berbahasa Language Proficiency

No

Bahasa

1. 2.

Kemampuan Membaca

Menulis

Berbicara

Mendengar

Indonesia

Baik

Baik

Baik

Baik

Inggris

Baik

Baik

Baik

Baik