Diposting oleh
Raissa Amanda Putri, S.Kom, M.T.I.
on
Rabu, 14 Oktober 2009
Desain ujicoba untuk software atau produk teknik lainnya sama sulitnya dengan desain inisial dari produk itu sendiri. Dengan tujuan dari ujicoba itu sendiri yaitu, mendesain ujicoba yang tingkat kemungkinan penemuan kesalahan yang tinggi dengan jumlah waktu dan usaha yang sedikit.
Selama beberapa dekade, metode desain ujicoba kasus telah dikembangkan. Metode ini menyediakan pendekatan sistematik untuk ujicoba. Hal yang lebih penting yaitu, metode-metode ini menyediakan mekanisme yang dapat membantu memastikan kelengkapan ujicoba dan menyediakan tingkat kemungkinan yang tinggi dalam penemuan kesalahan pada software.
Semua produk yang dikembangkan (engineered) dapat diujicoba dengan salah satu cara dari 2 cara berikut :
1.Mengetahui fungsi-fungsi yang dispesifikasikan pada produk yang didesain untuk melakukannya, ujicoba dapat dilakukan dengan mendemonstrasikan setiap fungsi secara menyeluruh;
2. Mengetahui cara kerja internal dari produk, ujicoba dapat dilakukan untuk memastikan bahwa seluruh operasi internal dari produk dilaksanakan berdasarkan pada spesifikasi dan komponen internal telah digunakan secara tepat.
Pendekatan pertama adalah black box testing dan yang kedua adalah white box testing. Black box testing menyinggung ujicoba yang dilakukan pada interface software. Walaupun didesain untuk menemukan kesalahan, ujicoba blackbox digunakan untuk mendemonstrasikan fungsi software yang dioperasikan; apakah input diterima dengan benar, dan ouput yang dihasilkan benar; apakah integritas informasi eksternal terpelihara.
Ujicoba blackbox memeriksa beberapa aspek sistem, tetapi memeriksa sedikit mengenai struktur logikal internal software.
White box testing didasarkan pada pemeriksaan detail prosedural. Alur logikal suatu software diujicoba dengan menyediakan kasus ujicoba yang melakukan sekumpulan kondisi dan/atau perulangan tertentu. Status dari program dapat diperiksa pada beberapa titik yang bervariasi untuk menentukan apakah status yang diharapkan atau ditegaskan sesuai dengan status sesungguhnya.
Sepintas seolah-olah white box testing akan menghasilkan program yang 100% benar, yang diperlukan hanyalah mendefinisikan alur logikal, membangun kasus uji untuk memeriksa software tersebut dan mengevaluasi hasil yang diperoleh. Sayangnya, ujicoba yang menyeluruh ini menghadirkan masalah logical tertentu. Untuk sebuah program sederhana sekalipun, terdapat banyak alur logikal yang memungkinkan.
Sehingga white box testing sebaiknya hanya dilakukan pada alur logikal yang penting. Struktur data-struktur data yang penting dapat diujikan dengan uji validitas. Atribut dari black box testing dan white box testing dapat dikombinasikan untuk digunakan bersama.
PrivateSub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal_ e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
Me.BackgroundImage = New Bitmap(Me.OpenFileDialog1.FileName)
EndSub
PrivateSub btnStg_Click(ByVal sender As System.Object, ByVal e As_ System.EventArgs) Handles btnStg.Click
MessageBox.Show("cara bermain games ini sangat mudah. Anda_
cukup meng-klik tombol spin dan membiarkannya berhenti.Anda akan mendapatkan_ nilai seperti terdapat pada ketentuan.Apabila gambar yang Anda dapatkan_
tidak ada dalam ketentuan maka nilai Anda akan di kurangi Rp.1.000,-_
Anda juga dapat mengganti wallpaper games ini sesuai selera Anda. Silahkan_ mencoba... semoga Anda cepat kaya!")
EndSub
PrivateSub timjam_Tick(ByVal sender As System.Object, ByVal e As_ System.EventArgs) Handles timjam.Tick
Me.lbljam.Text = Format(Now, "dddd,dd MMM yyyyHH : mm : ss")
EndSub
EndClass
Keterangan Coding Programnya :
OptionExplicitOn
OptionStrictOn
Kedua fungsi ini berfungsi untuk menampilkan kesalahan sintaks apabila kita membuat konversi tipe data secara eksplisit yang bisa menyebabkan hilangnya data. Juga adanya penanganan eksepsi ( kejadian yang tidak diharapkan yang muncul saat kode di eksekusi). Kedua fungsi ini juga mengurangi ketidak-telitianprogrammer dalam mendeklarasikan variable yang digunakan. Dengan fungsi ini, tidak ada variable yang sama yang dideklarasikan dengan tipe yang berbeda. Sehingga kesalahan dalam pengkodean program menjadi lebih sedikit.
Dim Uang AsInteger
Dim Final(3) AsInteger
Dim Pilih(7) As PictureBox
Const jeruk AsInteger = 1
Const cherry AsInteger = 2
Const gom2 AsInteger = 3
Const meyie AsInteger = 4
Const manda AsInteger = 5
Const tujuh AsInteger = 6
Const Bar AsInteger = 7
Disini, semua variabel yang akan digunakan di deklarasikan.
Uang: Menampung nilai uang yang diakumulasikan
Final(3): Array yang menampung gambar akhir dari perputaran gambar pada 3 PicSlot
Pilih(7): Array yang menampung setiap gambar pada 7 picPilih
jeruk: Isi dari Array ke (1)
cherry: Isi dari Array ke (2)
gom2: Isi dari Array ke (3)
meyie: Isi dari Array ke (4)
manda: Isi dari Array ke (5)
tujuh: Isi dari Array ke (6)
bar: Isi dari Array ke (7)
PrivateFunction AngkaAcak() AsInteger
ReturnCInt(Rnd() * 7 - 0.5) + 1
EndFunction
Fungsi untuk mengacak tujuh gambar yang ada. Fungsi ini nantinya akan dipanggil pada saat tombol spin ditekan.
PrivateSub btnOK_Click(ByVal sender As System.Object, ByVal e As _ System.EventArgs) Handles btnOK.Click
MessageBox.Show("ANDA MENDAPATKAN UANG SEBESAR Rp." + Str(Uang) +_ " " + "TERIMA KASIH TELAH MEMAINKAN GAMES KAMI")
Me.Close()
EndSub
Tombol exit untuk keluar dari permainan. Sebelum benar – benar keluar dari aplikasi permainan jackpot, akan keluar sebuah messageBox yang berisi jumlah uang yang terakhir di dapatkan. Kemudian aplikasi akan di tutup setelah pengguna menekan tombol OK.
PrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As _ System.EventArgs) HandlesMyBase.Load
Me.lbljam.Text = Format(Now, "dddd,dd MMM yyyyHH : mm : ss")
Randomize()
Uang = 100000
picPilih1.Image = Image.FromFile("jeruk.jpg")
picPilih2.Image = Image.FromFile("cherry.jpg")
picPilih3.Image = Image.FromFile("gom2.jpg")
picPilih4.Image = Image.FromFile("meyie.jpg")
picPilih5.Image = Image.FromFile("manda.jpg")
picPilih6.Image = Image.FromFile("tujuh.jpg")
picPilih7.Image = Image.FromFile("bar.jpg")
Pilih(1) = picPilih1
Pilih(2) = picPilih2
Pilih(3) = picPilih3
Pilih(4) = picPilih4
Pilih(5) = picPilih5
Pilih(6) = picPilih6
Pilih(7) = picPilih7
Me.CenterToScreen()
picSlot1.Image = Pilih(AngkaAcak()).Image
picSlot2.Image = Pilih(AngkaAcak()).Image
picSlot3.Image = Pilih(AngkaAcak()).Image
btnSpin.Focus()
EndSub
Kami menyediakan sebuah label jam pada sudut kanan bawah permainan jackpot. Jam ini akan muncul sejak pertama kali aplikasi di jalankan. Bersamaan dengan itu, pada setiap picPilih akan disimpankan gambar yang nantinya akan dimunculkan secara acak. Kemudian setiap picPilih ini dideklarasikan sebagai array. Me.CenterToScreen( ) berfungsi untuk menempatkan form ke tengah layar pada saat aplikasi dijalankan. Randomize( ) berfungsi untuk membuat array benar-benar acak. Dan pada masing- masing picSlot juga langsung ditempatkan gambar yang sudah di acak. Kami juga mengeset tombol Spin sebagai focus, agar pengguna dapat menekan tombol Enter atau huruf S untuk menjalankan Spin.
PrivateSub btnSpin_Click(ByVal sender As System.Object, ByVal e As_ System.EventArgs) Handles btnSpin.Click
Pada saat button Spin ditekan, akan keluar suara spin yang sudah kami simpan di dalam resource. Penyimpanan file suara atau gambar di dalam resource, agar pengguna tidak perlu lagi mengganti directory suara atau gambar tersebut pada saat program ini dipindahkan ke komputer lain atau ke folder yang berbeda.
Apabila uang sudah habis, maka pada saat tombol spin di tekan, akan keluar sebuah messageBox yang memberi tahu pemain bahwa uangnya sudah habis.
PrivateSub TimSpin_Tick(ByVal sender As System.Object, ByVal e As_ System.EventArgs) Handles TimSpin.Tick
Disini gambar akan ditampilkan secara acak ke masing – masing picSlot yang sudah disediakan. Tempo pengacakan gambar pada setiap timer pada setiap picSlot dibuat berbeda intervalnya, agar picSlot 1 lebih dulu berhenti diikuti picSlot 2 kemudian picSlot 3.
PrivateSub TimStop1_Tick(ByVal sender As System.Object, ByVal e As_ System.EventArgs) Handles TimStop1.Tick
TimStop1.Enabled = False
Final(1) = AngkaAcak()
picSlot1.Image = Pilih(Final(1)).Image
picSlot1.Refresh()
EndSub
PrivateSub TimStop2_Tick(ByVal sender As System.Object, ByVal e As_ System.EventArgs) Handles TimStop2.Tick
TimStop2.Enabled = False
Final(2) = AngkaAcak()
picSlot2.Image = Pilih(Final(2)).Image
picSlot2.Refresh()
EndSub
PrivateSub TimStop3_Tick(ByVal sender As System.Object, ByVal e As_ System.EventArgs) Handles TimStop3.Tick
Dim Menang AsInteger
TimStop3.Enabled = False
Final(3) = AngkaAcak()
picSlot3.Image = Pilih(Final(3)).Image
picSlot3.Refresh()
TimSpin.Enabled = False
If Final(1) = cherry Then
Menang = 2000
If Final(2) = cherry Then
Menang = 4000
If Final(3) = cherry Then
Menang = 6000
EndIf
EndIf
ElseIf Final(1) = gom2 And Final(2) = gom2 And _
Final(3) = gom2 Then
Menang = 10000
ElseIf Final(1) = meyie And Final(2) = meyie And _
Final(3) = meyie Then
Menang = 15000
ElseIf Final(1) = manda And Final(2) = manda And _
lblUang.Text += " - Uang Rp. " + Format(Uang, "0")
EndSub
Gambar akhir, hasil dari pengacakan pada picSlot 1 , kemudian disimpan dalam sebuah variabel array Final(1) begitu juga pada picSlot 2 dan 3. Setelah picSlot 3 selesai menempatkan gambarnya pada Final(3), langsung dilakukan pengecekan terhadap hasil gambar yang didapatkan apakah ada yang sama dengan ketentuan yang sudah ditetapkan. Apabila ada salah satu dari ketentuan gambar tersebuat,maka uang akan ditambahkan sesuai dengan ketentuan tersebut. Dan nilai uang yang sudah ditambahkan akan dicetak ke lblUang. Dan akan keluar suara win.wav. Sebaliknya, apabila tidak ada gambar yang sama dengan ketentuan yang ada, akan dicetak kata “maaf” ke lblUang tersebut, dan akan keluar suara blow.wav.
PrivateSub btnWpp_Click(ByVal sender As System.Object, ByVal e As_ System.EventArgs) Handles btnWpp.Click
PrivateSub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal_ e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
Me.BackgroundImage = New Bitmap(Me.OpenFileDialog1.FileName)
EndSub
Untuk membuat permainan jackpot ini fleksibel. Kami sengaja membuat fasilitas untuk mengganti wallpaper sesuai dengan keinginan pengguna. Pada saat button wallpaper ditekan, akan keluar sebuah kotak dialog open file, yang akan memudahkan pengguna untuk memilih directory penyimpanan gambar yang pengguna inginkan sebagai wallpaper permainan jackpot ini. Setelah pengguna menekan tombol open maka gambar yang dipilih akan ditempatkan sebagai backgroundImage permainan ini. Kami juga membatasi file gambar yang akan diambil yaitu hanya gambar yang ekstensinya jpg, bmp, dan gif.
PrivateSub btnStg_Click(ByVal sender As System.Object, ByVal e As_ System.EventArgs) Handles btnStg.Click
MessageBox.Show("cara bermain games ini sangat mudah. Anda_
cukup meng-klik tombol spin dan membiarkannya berhenti.Anda akan mendapatkan_ nilai seperti terdapat pada ketentuan.Apabila gambar yang Anda dapatkan_
tidak ada dalam ketentuan maka nilai Anda akan di kurangi Rp.1.000,-_
Anda juga dapat mengganti wallpaper games ini sesuai selera Anda. Silahkan_ mencoba... semoga Anda cepat kaya!")
EndSub
Kami memberikan bantuan untuk pengguna yang belum mengetahui cara bermain game kami dengan membuat satu button ABOUTyang apabila ditekan akan memunculkan sebuah MessageBox yang berisi penjelasan tentang cara bermain permainan jackpot yang kami buat.
PrivateSub timjam_Tick(ByVal sender As System.Object, ByVal e As_ System.EventArgs) Handles timjam.Tick
Me.lbljam.Text = Format(Now, "dddd,dd MMM yyyyHH : mm : ss")
EndSub
timJam ini adalah sebuah timer yang mengatur jam yang dimunculkan pada sudut kanan bawah form permainan jackpot ini. Agar pengguna dapat melihat waktu saat bermain permainan jackpot ini.
