Pemrograman Pocket PC dengan VB.NET - bag 3

sebelumnya :
Pemrograman Pocket PC dengan VB.NET - bag 2

Pemrograman .NET CF Menggunakan VB.NET

Akhirnya kita masuk juga ke sesi implementasi pemrogramannya.  Pada tutorial ini penulis akan membuat contoh sederhana yaitu program “Jackpot“ pada Pocket PC 2003 dengan menggunakan VB.NET 2005.

Langkah-langkahnya adalah sebagai berikut:

1. Jalankan Visual Studio 2005.
2. Buat project baru, Visual Basic > Smart Device > Pocket PC 2003.  Kemudian pilih yang Device Application, bernama projectnya JackPot.
    
3. Kemudian akan muncul Form Designer, di mana kita desain beberapa komponen sebagai berikut:
   A. Buat 3 buah komponen Label untuk menampilkan angka JackPot:
   i. Atur properti textnya: 9
   ii. Atur properti namenya: jack1, jack2, dan jack3.
   iii. Atur fontnya berukuran: 72pt
   B. Atur properti text dari Form, menjadi: Jack Pot
   C. Buat komponen Label untuk menampilkan uang, berinama lblUang.
   D. Buat komponen Button, atur properti name: btnPlay dan text: Play
   E. Buat komponen PictureBox, berinama: pic, size=92x100, dan SizeMode=StrechImage.
   F. Buat 4 buah timer, aturlah:
   i. Timer1 bernama: t, enabled false, inteval 100
   ii. Timer2 bernama ts1, enabled false, interval 1000
   iii. Timer3 bernama ts2, enabled false, interval 2000
   iv. Timer4 bernama ts3, enabled false, interval 3000
   G. Buat komponen ImageList dan isi dengan 3 gambar (terserah Anda) untuk menunjukkan menang dan kalah.
   H. Buat komponen MainMenu, tambahkan menu:
   Game > Play, Exit
   About
   Tampilan desain sebagai berikut:
    
4. Sekarang kita akan memberikan logic control untuk program jackpot kita.
   Pada Kode program, diantara Public Class Form1 dan End Class, kita deklarasikan variabel sebagai berikut:
   Dim uang As Integer
   Kemudian kita membuat sebuah fungsi untuk mengacak angka, letakkan tepat dibawah deklarasi variabel uang:
   Public Function Acak() As Integer
           Return CInt(Rnd() * 9 - 0.5) + 1
   End Function
   Double click form1, pada event form_load, ketikkan program berikut:
   Kita membuat uang pertama kali di set ke 100.000. dan memanggil fungsi Randomize agar angka yang dibuat benar-benar acak.
   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
     Randomize()
     uang = 100000
   End Sub
   Kemudian double click btnPlay, ketikkan kode berikut pada event btnPlay_Click:
   Kita akan menginisialisasi picture kita menjadi kosong setiap kali button play di click.  Kemudian kita akan mengacak 3 angka sambil mengecek jika uang yang kita miliki sudah habis, maka permainan akan berakhir, tapi jika belum, maka kita akan mengacak angka sekaligus menganimasinya dengan indah.  Setiap kali kita menekan tombol play, uang kita juga akna dikurangi 1000 rupiah.  Jika uang habis akan ditampilkan gambar tengkorak membawa golok.
   Private Sub btnPlay_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPlay.Click
           pic.Image = Nothing
           jack1.Text = Acak()
           jack2.Text = Acak()
           jack3.Text = Acak()
           If uang = 0 Then
             ;   MessageBox.Show("Uang habis!", "Game Over", MessageBoxButtons.OK, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button1)
             ;   pic.Image = ImageList1.Images(3)
             ;   Exit Sub
           End If
           uang -= 1000       
           t.Enabled = True
           ts1.Enabled = True
           ts2.Enabled = True
           ts3.Enabled = True
           Me.Text = "JackPot"
   End Sub
   Double  click timer pertama (timer t), ketikkan program:
   Program ini akan menampilkan tulisan hasil random angka untuk masing-masing angka jackpot.
   Private Sub t_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles t.Tick       
           If ts1.Enabled Then
             ;   jack1.Text = Acak()        & nbsp;  
           End If
           If ts2.Enabled Then
             ;   jack2.Text = Acak()
           End If
           If ts3.Enabled Then
             ;   jack3.Text = Acak()
           End If
   End Sub
   Double click untuk timer kedua (ts1) ketikkan program.
   Program ini akan menampilkan hasil angka acak pertama.
   Private Sub ts1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ts1.Tick
           ts1.Enabled = False       
           jack1.Text = Acak()
           jack1.Refresh()
   End Sub
   Double click untuk timer ketiga (ts2) ketikkan program.
   Program ini akan menampilkan hasil angka acak kedua.
   Private Sub ts2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ts2.Tick
           ts2.Enabled = False       
           jack2.Text = Acak()
           jack2.Refresh()
   End Sub
   Double click untuk timer keempat (ts3) ketikkan program.
   Program ini akan menampilkan hasil angka acak ketiga, sekaligus memeriksa kemengan dan point untuk setiap hasil acakan yang dilakukan.  Jika salah satu ada angka sembilan uang bertambah 10000 dan gambar bunga ditampilkan, sedangkan jika ada 2 angka sembilan, uang bertambah 25000 dan gambar dolar ditampilkan, dan jika semua angka sembilan, maka uang bertambah 50000 dan gambar uang banyak ditampilkan.
   Private Sub ts3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ts3.Tick
           Dim Menang As Integer       
           ts3.Enabled = False       
           jack3.Text = Acak()
           jack3.Refresh()
           t.Enabled = False
           'Cek jika menang
           If jack1.Text = "9" And jack2.Text = "9" And jack3.Text = "9" Then
             ;   Menang = 50000
             ;   pic.Image = ImageList1.Images(0)
           ElseIf (jack1.Text = "9" AndAlso jack2.Text = "9") OrElse (jack1.Text = "9" AndAlso jack3.Text = "9") OrElse (jack2.Text = "9" AndAlso jack3.Text = "9") Then
             ;   Menang = 25000
             ;   pic.Image = ImageList1.Images(1)
           ElseIf jack1.Text = "9" Or jack2.Text = "9" Or jack3.Text = "9" Then
             ;   Menang = 10000
             ;   pic.Image = ImageList1.Images(2)
           End If
           'Uang kemenangan tambahkan ke uang pokok
           uang += Menang
           If Menang = 50000 Then
             ;   Me.Text = "JackPot - Selamat, Menang 50000"
             ;   MsgBox("Jackpot!")
           ElseIf Menang > 0 Then
             ;   lblUang.Text = "Menang Rp. " + Format(Menang, "0")
             ;   Me.Text = "JackPot - Uang bertambah!"
           Else        &nb sp;  
             ;   Me.Text = "JackPot - Maaf!"
           End If
           lblUang.Text = "Uang Anda Rp. " + Format(uang, "0")
   End Sub

Untuk menu Play, Exit dan About ketikkan kode sebagai berikut:
Menu Play
Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click
        btnPlay_Click(sender, e)
End Sub

Menu About
Private Sub MenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem4.Click
        MsgBox("Jackpot by Antonie 2007")
End Sub

Menu Exit
Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
        MessageBox.Show("Anda selesai dengan" & Str(uang) & " rupiah.", "Game Over", MessageBoxButtons.OK, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button1)
        Me.Close()
End Sub

Jika program dijalankan, beginilah tampilannya!

Akhirnya selesai sudah program JackPot kita.  Penulis berharap Anda dapat mengembangkan program ini dengan sebaik mungkin, dengan menambah lagi fitur-fitur lain yang mungkin dan menambah keindahan program.  Jika Anda ingin meminta source code program dan bertanya kepada penulis, silahkan hubungi email penulis.

Yang jelas, pemrograman di smart device tidak sulit.  Kita dapat menggunakan .NET untuk membantu mempermudah dan mempercepat pembuatan program.  Tiada kata lain selain belajar dan belajar!  Selamat mencoba!

Penulis : Antonius Rachmat C, S.Kom (anton@ukdw.ac.id)
Tabloid Informatica Universitas Kristen Duta Wacana Yogyakarta - Edisi 04/2007