BAB IV IMPLEMENTASI DAN PENGUJIAN Pada BAB ini akan dibahas mengenai Implementasi aplikasi simulasi kendaraan roda dua terhadap putaran sudut gas motor beserta factor-faktor pendukung system, serta hasil pengujian aplikasi.
4.1 Implementasi Setelah sistem dianalisis dan didesain secara rinci, maka akan menuju tahap mplementasi. Implementasi sistem merupakan tahap meletakkan sistem sehingga
siap
mengkonfirmasi
untuk
dioperasikan.
modul-modul
Implementasi
bertujuan
untuk
perancangan, sehingga pengguna dapat
memberi masukan kepada pengembangan sistem.
4.1.1 Spesifikasi Kebutuhan Sistem Berikut spesifikasi kebutuhan minimum sistem hardware dan software yang digunakan pada saat membuat aplikasi ini: Hardware: 1. Proccesor Intel® Core i5-5200U-2.7Ghz 2. 4GB DDR3 3. VGA Nvidia GeForce GT 820M 2GB
Software: 1. Operating System Windows 7 2. Visual Basic 2010
4.2 Pengumpulan Bahan Pengumpulan bahan atau material berupa perputaran gas pada motor, perhitungan sudut dan kecepatan yang didapat. Tombol navigasi yang diperoleh dengan cara membuat sendiri dengan menggunakan program standar Visual Basic.
4.3 Penulisan Code (Coding)
27
Pada bagian ini penulis akan menjabarkan source code dari aplikasi ini secara rinci. Coding ini di tulis di program Visual Basic 2010 dan di running Visual Basic sebagai acuan apakah aplikasi sudah berjalan dengan semestinya. Bila belum maka kode akan kembali diperbaiki sehingga di dapatlah aplikasi berjalan dan berfungsi dengan baik.
4.1 Tabel Fungsi Program Option Explicit On
Kode pada class yang
PublicClassForm1
menjelaskan tentang variable
Dim MyListText(100) AsString
yang digunakan.
Dim MyListItem AsListViewItem Dim sdt, kcp AsInteger Dim x AsInteger = 0 Dim array(100), aray(100) AsInteger Dim BarisEdit AsInteger Dim Baris AsInteger PrivateSub Form1_Load(ByVal sender As
Saat membuka aplikasi
System.Object, ByVal e As System.EventArgs)
pertama kali, Listview akan
HandlesMyBase.Load
dibersihkan dan pada
ListView1.Clear
ListView akan menampilkan
ListView1.View = View.Details
kolom sudut dan kecepatan
ListView1.Columns.Add("Sudut", 70, HorizontalAlignment.Left) ListView1.Columns.Add("Kecepatan (KM/Jam)", 145, HorizontalAlignment.Left) EndSub PrivateSub cmin_Click(ByVal sender As
Saat Button input diklik, isi
System.Object, ByVal e As System.EventArgs)
textbox akan disimpan pada
Handles cmin.Click
Listview, jika nilainya antara 0 - 90 derajat.
sdt = TextBox1.Text If (sdt >= 0 And sdt <= 90) Then kcp = (sdt / 90) * 110 MyListText(0) = sdt
28
MyListText(1) = kcp MyListText(2) = "Coba" MyListItem = NewListViewItem(MyListText) ListView1.Items.Add(MyListItem) TextBox1.Clear() Else MessageBox.Show("Sudah lebih dari 90 derajat", "Pemberitahuan", MessageBoxButtons.OK, MessageBoxIcon.Information) EndIf TextBox1.Focus() EndSub
PrivateSub cmpil_Click(ByVal sender As
Saat Button tampil diklik,
System.Object, ByVal e As System.EventArgs)
akan menampilkan grafik
Handles cmpil.Click
berbentuk line, sebanyak data
Chart1.Refresh()
yang ada pada ListView.
For i = 0 To ListView1.Items.Count - 1 aray(i) = ListView1.Items(i).SubItems(1).Text array(i) = ListView1.Items(i).SubItems(0).Text Next With Chart1 .Series.Clear() .Series.Add("Kecepatan") .ChartAreas(0).AxisX.Maximum = 20 .ChartAreas(0).AxisX.Minimum = 0 .ChartAreas(0).AxisX.Interval = 20 .ChartAreas(0).AxisY.Maximum = 120 .ChartAreas(0).AxisX.Interval = 10 .ChartAreas(0).AxisY.Minimum = 0 .Series(0).ChartType = DataVisualization.Charting.SeriesChartType.Line
29
.Series(0).XValueType = DataVisualization.Charting.ChartValueType.Double .Series(0).YValueType = DataVisualization.Charting.ChartValueType.Double For b AsInteger = 0 To 20 .Series(0).Points.AddXY(b, aray(b)) Next EndWith EndSub PrivateSub cm_edit_Click(ByVal sender As
Saat Button Edit diklik,
System.Object, ByVal e As System.EventArgs)
makan akan merubah data
Handles cm_edit.Click
yang telah di pilih di
sdt = TextBox1.Text
ListView
If (sdt >= 0 And sdt <= 90) Then kcp = (sdt / 90) * 110 MyListText(0) = sdt MyListText(1) = kcp MyListText(2) = "Coba" MyListItem = NewListViewItem(MyListText) ListView1.Items(BarisEdit).SubItems(0).Text = sdt
ListView1.Items(BarisEdit).SubItems(1).Text = kcp TextBox1.Clear() Else MessageBox.Show("Sudah lebih dari 90 derajat", "Pemberitahuan", MessageBoxButtons.OK, MessageBoxIcon.Information) EndIf TextBox1.Focus() EndSub
PrivateSub
Saat ListView diklik, maka
ListView1_SelectedIndexChanged(ByVal sender
mendakan data pada list
As System.Object, ByVal e As System.EventArgs)
tersebut
30
Handles ListView1.SelectedIndexChanged BarisEdit = ListView1.FocusedItem.Index TextBox1.Focus() EndSub EndClass
Tampilan saat aplikasi baru dijalankan
Gambar 4.1 Tampilan Awal Aplikasi Untuk mendapatkan data grafik, isi teksbox tersebut dengan nilai antara 0 90, kemudian klik input. Nilai yang ada pada teksbox akan masuk ke kolom sudut, dan untuk kolom kecepatan akan bernilai sesuai dengan rumus.
31
Gambar 4.2 Aplikasi mendapat inputan data Jika ingin merubah data yang ada pada listview, klik data yang akan dirubah, kemudian masukan data tersebut pada teksbox dan klik edit.
Gambar 4.3 Tampilan Proses Edit pada Data
32
Gambar 4.4 Tampilan setelah proses edit data Dengan meng-klik tampil, maka grafik dari data listview akan ditampilkan.
Gambar 4.5 Tampilan saat klik tampil 4.4 Pengujian Fungsionalitas Aplikasi Proses pengujian ini di lakukan dengan cara install aplikasi pada setiap device. Dalam hal ini saya akan menggunakan metode pengujian aplikasi blackbox. Untuk melihat apakah fungsifungsi pada aplikasi berjalan dengan baik atau tidak, dan juga mengetahui di bagian mana saja bagian aplikasi ini yang tidak sesuai, untuk segera dapat di perbaiki oleh penulis.
4.4.1 Lingkungan Pengujian Aplikasi simulasi ini dijalankan pada Laptop Asus, Komputer dan Laptop Toshiba. Spesifikasi Laptop Asus A455L: -
Intel Core i5-5200U-2.7Ghz
-
4GB DDR3
-
VGA Nvidia GeForce GT 820M 2GB
Spesifikasi Komputer : -
AMD Athlon (tm) II X2 250-3Ghz
-
4GB DDR3
-
VGA Nvidia GeForce GT 210M 2GB
Spesidikasi Toshiba Satellite Pro L300
33
-
Intel Pentium Dual Core T2370
-
1GB DDR2
-
Intel Graphics Media Accelerator (GMA) X3100
4.4.2 Skenario Pengujian Pengujian aplikasi ini dilakukan pada tanggal 25 Juli 2015 menggunakan Laptop Asus, Komputer dan Laptop Toshiba. Item yang diuji antara lain: Tabel 4.2 Skenario Pengujian No
Nama Tes
Hasil Yang diharapkan
1
Membuka aplikasi
Masuk ke aplikasi
2
Input data
Menampilkan data di listbox
3
Edit data
Merubah data pada listbox
4
Tampil Grafik
Menampilkan grafik pada data listbox
4.4.3 Hasil Pengujian Tabel 4.3 Hasil pengujian No
Nama Tes
Hasil Yang diharapkan
Hasil
1
Membuka aplikasi
Masuk ke aplikasi
Sesuai
2
Input data
Menampilkan data di listbox
Sesuai
3
Edit data
Merubah data pada listbox
Sesuai
4
Tampil Grafik
Menampilkan grafik pada data listbox
Sesuai
34
