Bentuk umum penulisan rumusannya, adalah sebagai berikut :

Modul Kuliah Pemrograman Visual Basic Net

GAMES EDUKASI MATEMATIKA DENGAN VISUAL BASIC NET

DASAR TEORI Pemberian komentar Jika kita hari ini membuat program, dan pada saat yang sama semua logika serta rumusan dapat kita ingat dengan baik, tetapi bagaimana kalau kita membaca kembali program yang pernah kita buat untuk 3 bulan yang lalu, apakah anda masih mengingatnya ? Bagaimana kita membuat program kita mudah di pahami kembali ? Tentu saja dengan memberikan keterangan secukupnya. Pada Visual Basic pembuatan keterangan dapat menggunakan simbol ' (petik tunggal) maupun keyword REM. Contoh : ' Ini adalah keterangan REM Ini adalah keterangan

Randomize Randomize adalah sebuah fungsi pengajakan subuah nilai. Adapun bentuk fungsinya adalah Rnd. Fungsi Rnd mengembalikan suatu nilai kurang dari satu namun lebih dari sama dengan nol. Umumnya fungsi ramdomize digunakan dalam suatu proses pengundian. Bentuk umum penulisan rumusannya, adalah sebagai berikut :

Int(Rnd()*Jumlah Nilai Random)

Penjelasan.

Int berfungsi untuk membulatkan suatu bilangan. Contoh 3,2. Jika proses random tidak dibulatkan dengan fungsi Int, maka hasil dari suatu random berupa bilangan decimal. Contoh : 2.77 , 3.657.

STMIK CIKARANG-2010

Hal. 22

Modul Kuliah Pemrograman Visual Basic Net

Contoh

Int(Rnd()*10) Maksudnya akan dilakukan perandoman dari 0 sampa dengan kurang dari 10. Jadi nilai yang akan tampil 0,1,2,3,4,5,6,7,8,9

Variabel Pemrogramam yang baik tentu saja menggunakan pendekatan yang terstruktur dalam pengembangan program, salah satu ciri dari program yang terstruktur adalah mendeklarasikan semua variabel yang digunakan dalam program. Pada Visual Basic Net perintah Dim digunakan untuk mendeklarasikan variabel dan memberikan nilai awal kepadanya. Contoh : Dim Dim Dim Dim

Harga, Jumlah As Single Kuantitas As Integer = 10 Lanjutkan As Boolean = True Keterangan As String = "Visual Studio .NET"

Pada Visual Basic pemakaian variabel harus dideklarasikan terlebih dahulu, jika tidak anda akan mendapatkan kesalahan kompiler, karena default setting Explicit pada Visual Basic adalah Option Explicit On. Kemudian Jika anda tidak memberikan nilai awal pada suatu variabel pada dideklarasikan, maka nilai berikut akan diberikan sebagai nilai awal variabel tersebut : -

0 untuk semua tipe data numerik (termasuk Byte).

-

Binary 0 untuk Char.

-

Nothing untuk semua tipe reference (termasuk Object, String, dan semua array).

-

False untuk Boolean.

-

12:00 AM pada 1 Januari 1 untuk Date.

Sesuatu hal yang perlu anda perhatikan adalah daya tampung variabel berdasarkan tipe yang ditentukan, jika anda memasukan nilai diluar dari daya tampung variabel, suatu kesalahan overflow exception akan terjadi.

STMIK CIKARANG-2010

Hal. 23

Modul Kuliah Pemrograman Visual Basic Net

DESAIN FORM GAMES MATEMATIKA Desain program yang akan dibuat adalah sbb:

ALUR LOGIKA Program games matematika ini dibuat untuk menguji kemampuan matematika. Operand akan diacak oleh vb net menggunakan fungis ramdomize. Jawaban soal akan diuji dengan menggunakan logika kondisi (if). Dan Perhitungan jumlah soal, jawaban benar dan jawaban salah akan disimpan dalam variabel.

CODING Double klik pada area kosong untuk membuka area code form load: 1. REM menampilkan angka acak ketika form pertama kali dibuka 2. Randomize() 3. Me.textAngka1.Text = Int(Rnd() * 10) 4. Me.textAngka2.Text = Int(Rnd() * 10)

STMIK CIKARANG-2010

Hal. 24

Modul Kuliah Pemrograman Visual Basic Net

Double klik pada button next, dan ketikkan kode berikut: 1. 'mengacak kembali angka 2. Me.textAngka1.Text = Int(Rnd() * 10) 3. Me.textAngka2.Text = Int(Rnd() * 10) 4. 'membersihkan textbox hasil, label pesan, dan focus kembali ke textbox hasil 5. Me.textHasil.Clear() 6. Me.pesan.Text = "" 7. Me.textHasil.Focus()

STMIK CIKARANG-2010

Hal. 25

Modul Kuliah Pemrograman Visual Basic Net

Double klik pada button check, dan ketikkan kode berikut: 1. ' dekalarasi variabel yang dibutuhkan 2. Dim angka1, angka2, hasil As Integer 3. angka1 = Me.textAngka1.Text 4. angka2 = Me.textAngka2.Text 5. hasil = angka1 + angka2 6. 'cek apakah user tidak memasukkan angka 7. If Me.textHasil.Text = "" Then 8. ' jika kosong munculkan pesan dan focus kembali ke textbox hasil 9. MessageBox.Show("Harus diisi..", "Warning", MessageBoxButtons.OK, MessageBoxIcon.Warning) 10.

Me.textHasil.Focus()

11.

Else

12.

'jika tidak kosong lanjutkan proses

13.

'menghitung jumlah soal

14.

totalJawab = totalJawab + 1

15.

If Me.textHasil.Text = hasil Then

16.

Me.pesan.Text = "Jawaban benar......"

17.

'memainkan audio dari sistem

18. My.Computer.Audio.PlaySystemSound(Media.SystemSounds.Excl amation) 19.

'menghitung jawaban benar

20.

jawabBenar = jawabBenar + 1

21.

Else

22.

Me.pesan.Text = "Salah, Coba lagi...."

23. )

My.Computer.Audio.PlaySystemSound(Media.SystemSounds.Hand

24.

'menghitung jawaban salah

25.

jawabSalah = jawabSalah + 1

26.

End If

27.

End If

STMIK CIKARANG-2010

Hal. 26

Modul Kuliah Pemrograman Visual Basic Net

Double klik pada button exit, dan ketikkan code berikut 1. 'deklarasi variabel 2. Dim x, y, z As String 3. x = "Jawaban Salah : " & jawabSalah 4. y = "Jawaban Benar : " & jawabBenar 5. z = "Total Soal : " & totalJawab 6. 'menampilkan kotak pesan berisi informasi jawaban salah, jawaban benar dan soal yang sudah diselesaikan 7. MessageBox.Show(x & ControlChars.NewLine & y & ControlChars.NewLine & z, "Hasil AKhir", MessageBoxButtons.OK, MessageBoxIcon.Asterisk) 8. 'mengembalikan nilai totaljawab, jawabSalah dan JawabBenar ke 0 9. totalJawab = 0 10.

jawabBenar = 0

11.

jawabSalah = 0

12.

Me.textHasil.Text = ""

13.

Me.pesan.Text = ""

14.

'menutup form

15.

Me.Close()

STMIK CIKARANG-2010

Hal. 27