DAFTAR PUSTAKA. Anton, Howard Aljabar Linier Elementer. Jakarta: Erlangga

DAFTAR PUSTAKA

Anton, Howard.1995. Aljabar Linier Elementer. Jakarta: Erlangga Arsyad, Azhar. 2002. Media Pembelajaran. Jakarta: PT. Raja Grafindo Persada Beizer, B. 1990. Software Testing Techniques. Boston, International Thompson Computer Press. Leon, Steven J. 2001. Aljabar Linear Dan Aplikasinya. Erlangga. Jakarta. Munawar.2005.Pemodelan Visual Menggunakan UML : Graha Ilmu, Yogyakarta. Mundit, Armawi K.1986.Teori-soal penyelesaian Aljabar Linear.CV ARMICO. Bandung. Nursal, S.Kom. 2006. Buku Panduan Visual Basic I. LP3I. Pressman, Roger S.(2002). Rekayasa Perangkat Lunak (Black Box). Yogyakarta: ANDI. Pressman, Roger S.2002. Rekayasa Perangkat Lunak Buku 1. Yogyakarta: Andi Ruminta.2009. Matriks Persamaan Linier dan Pemrograman Linier. Bandung: Rekayasa Sains Sibero, Alexander F.K.2010.DASAR–DASAR VISUAL BASIC.net. Yogyakarta: Mediakom. Soetomo. 1993. Dasar-dasarInteraksi Belajar Mengajar. Surabaya: Usaha Nasional. Sudjana, Nana. 1989. Media Pengajaran. Bandung: Sinar Baru. Suparto, J.2003. Pengantar MATRIX. Jakarta: RINEKA CIPTA Sutojo, T. Bowo N, Erna Z.A dan Setia Astuti.2010. Teori dan Aplikasi Aljabar Linier dan Matriks. Yogyakarta: Andi Sutojo, T. S.si. dkk.2009.Teori dan Aplikasi Aljabar Linear & Matriks. Yogyakarta: ANDI.

117

http://digilib.mercubuana.ac.id/

Sutopo, Ariesto Hadi. 2003. Multimedia Interaktif dengan Flash.Graha Ilmu.Yogyakarta. Tata, Sutabri.2003.Analisa Sistem Informasi. Yogyakarta: ANDI. http://ncalculators.com/matrix/matrix-determinant-calculator.htm, diakses pada tanggal 21 April 2013. http://www.m-edukasi.web.id/2012/04/pengertian-media-pembelajaran.html, diakses pada tanggal 13 Maret 2013. Search.Proquest.com.1997. Microsoft offers Office 97 service release update, http://search.proquest.com/docview/227486468/140477E4AD77E61A08A /5?accountid=34643#, diakses pada tanggal 17 Agustus 2013. Search.Proquest.com.2004. FUDBusters, http://search.proquest.com/ docview/ 215438777/ 140478DD7F51D90FDA8/20?accountid=34643#, diakses pada tanggal 17 Agustus 2013. http://ayuliana_st.staff.gunadarma.ac.id/Downloads/files/25114/Pertemuan+04 +- +%28Software+Testing+Techniques%29.pdf diakses pada tanggal 12 November 2013.

118


LAMPIRAN

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Random(MatrixB) End Sub

SPLASH SCREEN Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick ProgressBar.Value += 20 If ProgressBar.Value = 100 Then Timer1.Dispose() Me.Visible = False MainMenu.Show() End If End Sub

#Reset Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click MatrixA.Controls.Clear() End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

KALKULATOR #Apply Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click TambahElemen(MatrixA, Val(BarisA.Text), Val(KolomA.Text)) End Sub

MatrixB.Controls.Clear() End Sub

#Penjumlahan Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tambah.Click If Val(BarisA.Text) = Val(BarisB.Text) And Val(KolomA.Text) = Val(KolomB.Text) Then 'Reset saat tombol ditekan

Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click TambahElemen(MatrixB, Val(BarisB.Text), Val(KolomB.Text)) End Sub

#Random

Hasil.Controls.Clear()

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Random(MatrixA) End Sub

'Memasukkan elemen ke array matriks Masukkan_ke_Array(MatrixA, A, Val(BarisA.Text), Val(KolomA.Text))

119


'<<<<<<<<<<< PROSES PENGURANGAN >>>>>>>>>>> For i = 1 To Val(BarisA.Text) For j = 1 To Val(KolomA.Text) C(i, j) = A(i, j) - B(i, j) Next j Next i

Masukkan_ke_Array(MatrixB, B, Val(BarisB.Text), Val(KolomB.Text)) '<<<<<<<<<< PENJUMLAHAN >>>>>>>>>> For i = 1 To Val(BarisA.Text) For j = 1 To Val(KolomA.Text) C(i, j) = A(i, j) + B(i, j) Next j Next i

TambahElemen(Hasil, Val(BarisA.Text), Val(KolomA.Text)) Tampilkan_hasil() Reset() Else MsgBox("ERROR: Ukuran kedua matriks tidak memenuhi syarat penjumlahan matrix") End If End Sub

TambahElemen(Hasil, Val(BarisA.Text), Val(KolomA.Text)) Tampilkan_hasil() Reset() Else MsgBox("ERROR: Ukuran kedua matriks tidak memenuhi syarat penjumlahan matrix") End If End Sub

#Perkalian Private Sub Kali_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kali.Click 'Reset saat tombol ditekan Hasil.Controls.Clear()

#Pengurangan Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kurang.Click If Val(BarisA.Text) = Val(BarisB.Text) And Val(KolomA.Text) = Val(KolomB.Text) Then 'Reset saat tombol ditekan

'Memasukkan elemen ke array matriks Masukkan_ke_Array(MatrixA, A, Val(BarisA.Text), Val(KolomA.Text)) Masukkan_ke_Array(MatrixB, B, Val(BarisB.Text), Val(KolomB.Text))

Hasil.Controls.Clear()

'<<<<<<<<<< PROSES PERKALIAN >>>>>>>>>>>> If Val(KolomA.Text) = Val(BarisB.Text) Then For i = 1 To Val(BarisA.Text) For j = 1 To Val(KolomB.Text) For o = 1 To Val(BarisB.Text)

'Memasukkan elemen ke array matriks Masukkan_ke_Array(MatrixA, A, Val(BarisA.Text), Val(KolomA.Text)) Masukkan_ke_Array(MatrixB, B, Val(BarisB.Text), Val(KolomB.Text))

120


End Sub

C(i, j) = C(i, j) + A(i, o) * B(o, j) Next o Next j Next i

#Hitung Determinan Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

TambahElemen(Hasil, Val(BarisA.Text), Val(KolomA.Text)) Tampilkan_hasil() Reset() Else MsgBox("ERROR: Matrix yang anda masukkan tidak memenuhi syarat perkalian matrix") End If

'PanelDeterminan.Visible = True Masukkan_ke_Array(Determinan, A, Val(BarisC.Text), Val(KolomC.Text)) Hitung_Determinan(A, Val(BarisC.Text), Val(KolomC.Text)) End Sub

End Sub

#Apply Determinan Private Sub Button5_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

MATERI Sub FP_Init() Dim gv_sAppPath As String '-- Application Path gv_sAppPath = New System.IO.FileInfo(Application .ExecutablePath).DirectoryName

TambahElemen(Determinan, Val(BarisC.Text), Val(KolomC.Text)) End Sub

'rtfPenjelasan.Text = "test" 'Shell("C:\Users\erwin\Documen ts\Visual Studio 2008\Projects\WindowsApplicati on1\WindowsApplication1\PENJEL ASAN.rtf") '('Application.ExecutablePath( "C:\Users\erwin\Documents\Visu al Studio 2008\Projects\WindowsApplicati on1\WindowsApplication1\PENJEL ASAN.rtf")

#Random Determinan Private Sub Button7_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click Random(Determinan) End Sub

'Me.rtfPenjelasan.LoadFile App.Path & "\Penjelasan.rtf"

#Reset Determinan

'rtfPenjelasan.LoadFile(Applic ation.ExecutablePath("C:\PENJE LASAN.rtf"))

Private Sub Button8_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click

rtfdeterminan.LoadFile((gv_sAp pPath) + "\" + ("File\determinan.rtf"))

Determinan.Controls.Clear()

121


rtfMatrik.LoadFile((gv_sAppPat h) + "\" + ("File\matrik.rtf"))

Contoh Soal Matriks Private Sub cmdSelDet_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 'framedet.Visible = True 'Me.Hide()

Public Class frmContohSoal

'Dim Frm As New frmHelpMatrik 'Frm.MdiParent = Me 'Frm.Show()

RtfPenMatrik.LoadFile(Applicat ion.StartupPath & "\File\PenMatrik.rtf")

Private Sub frmContohSoal_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

rtf1.LoadFile(Application.Star tupPath & "\File\rft1.rtf") 'Frm.WindowState = FormWindowState.Normal

rtf2.LoadFile(Application.Star tupPath & "\File\rft2.rtf")

'Me.Hide() 'frmHelpMatrik.Show()

RichTextBox1.LoadFile(Applicat ion.StartupPath & "\File\rtfTambah.rtf")

framedet.Visible = False

rtf3.LoadFile(Application.Star tupPath & "\File\rft1.rtf")

framemat.Visible = True

rtf4.LoadFile(Application.Star tupPath & "\File\rft2.rtf") End Sub rtf5.LoadFile(Application.Star tupPath & "\File\rtfKurang.rtf") Private Sub cmdKemDet_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Me.Hide()

rtf6.LoadFile(Application.Star tupPath & "\File\rft1.rtf") rtf7.LoadFile(Application.Star tupPath & "\File\rft2.rtf")

'Dim Frm As New frmHelpMatrik 'Frm.MdiParent = Me

rtf8.LoadFile(Application.Star tupPath & "\File\rtfKali.rtf") Panel2.Visible = False Panel3.Visible = False Panel4.Visible = False End Sub

'Frm.Show() 'Frm.WindowState = FormWindowState.Normal 'Me.Hide() 'frmHelpMatrik.Show()

Private Sub Panel2_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEven tArgs) Handles Panel2.Paint

framedet.Visible = False framemat.Visible = True

rtfJumlah.LoadFile(Application End Sub

122


.StartupPath & "\File\jumlah.rtf") End Sub

.StartupPath & "\File\kurang.rtf") End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Panel2.Visible = True End Sub

Private Sub Panel4_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEven tArgs) Handles Panel4.Paint rtfKali.LoadFile(Application.S tartupPath & "\File\kali.rtf") End Sub Private Sub Tambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tambah.Click

Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click Panel2.Hide() End Sub

End Sub End Class


Contoh Soal Determinan Public Class frmContohSoalDeter


Private Sub frmContohSoalDeter_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load rtf1.LoadFile(Application.Star tupPath & "\File\deter1.rtf")


rtf3.LoadFile(Application.Star tupPath & "\File\deter2.rtf") rtf6.LoadFile(Application.Star tupPath & "\File\deter3.rtf") Panel2.Visible = False Panel3.Visible = False Panel4.Visible = False Panel5.Visible = False End Sub




rtfSoal1.LoadFile(Application. StartupPath & "\File\deter1_hasil.rtf") End Sub

rtfKurang.LoadFile(Application

123


StartupPath & "\File\deter3_hasil.rtf") End Sub






Private Sub Label11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label11.Click Panel5.Hide() End Sub End Class


Latihan Soal


rtfSoal1.LoadFile(Application.StartupPa th & "\File\rtfSoal1.rtf")

rtfSoal2.LoadFile(Application. StartupPath & "\File\deter2_hasil.rtf") End Sub

#Cek Skor Private Sub Btcekskor_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btcekskor.Click


If ListBox1.Items.Item(0) = ListBox2.Items.Item(0) = True Then txtskor.Text += 20 End If If ListBox1.Items.Item(1) = ListBox2.Items.Item(1) = True Then txtskor.Text += 20 End If If ListBox1.Items.Item(2) =

Private Sub Panel4_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEven tArgs) Handles Panel4.Paint rtfSoal3.LoadFile(Application.

124


'LBLJWB2.Text = ListBox1.Items.Item(1) 'LBLJWB3.Text = ListBox1.Items.Item(2) 'LBLJWB4.Text = ListBox1.Items.Item(3) 'LBLJWB5.Text = ListBox1.Items.Item(4)

ListBox2.Items.Item(2) = True Then txtskor.Text += 20 End If If ListBox1.Items.Item(3) = ListBox2.Items.Item(3) = True Then txtskor.Text += 20 End If If ListBox1.Items.Item(4) = ListBox2.Items.Item(4) = True Then txtskor.Text += 20 End If Panel10.Visible = True lblskor.Visible = True

'LBLkunci1.Text ListBox2.Items.Item(0) 'Lblkunci2.Text ListBox2.Items.Item(1) 'Lblkunci3.Text ListBox2.Items.Item(2) 'Lblkunci4.Text ListBox2.Items.Item(3) 'Lblkunci5.Text ListBox2.Items.Item(4)

lblskor.Text = txtskor.Text If lblskor.Text = 100 Then LBLStatus.Text = "SELAMAT !! Anda lulus." End If If lblskor.Text = 80 Then LBLStatus.Text = "SELAMAT !! Anda lulus dengan nilai baik." End If If lblskor.Text = 60 Then LBLStatus.Text = "Anda Tidak Lulus !! Perbanyak belajar !" End If If lblskor.Text = 40 Then LBLStatus.Text = "Anda Tidak Lulus !! Perbanyak belajar !" End If If lblskor.Text = 20 Then LBLStatus.Text = "Anda Tidak Lulus !! Perbanyak belajar !" End If If lblskor.Text = 0 Then LBLStatus.Text = "Anda Tidak Lulus !! Perbanyak belajar !" End If 'LBLJWB1.Text = ListBox1.Items.Item(0)

= = = = =

LBLStatus.Visible = True Btcekskor.Visible = False BtExit.Visible = True 'Panel11.Visible = True End Sub

#Exit Private Sub BtExit_Click1(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtExit.Click Me.Close() End Sub

Keluar Private Sub cmd_EXIT_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_EXIT.Click 'If MessageBox.Show("Are you want to quit from the application ???", "Konfirmasi" MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then ' Application.Exit() 'End If Select Case MessageBox.Show("Are you want to quit from the application

125


????", "Konfirmasi", MessageBoxButtons.YesNo, MessageBoxIcon.Question) Case Windows.Forms.DialogResult.Yes Application.Exit() 'nothing to do here the form is already closing Case Windows.Forms.DialogResult.No 'e.Cancel = True 'cancel the form closing event 'minimize to tray/hide etc here End Select End Sub

126


DAFTAR PUSTAKA. Anton, Howard Aljabar Linier Elementer. Jakarta: Erlangga

Recommend Documents