Tugas Vb

 

Membuat aplikasi games

Nah, saya akan membuat aplikasi games yang saya beri judul gamesnya “ Tangkap Titiknya”. Penjelasannya ialah, cara bermainnya kita akan mengikuti tanda yang akan  muncul di radio button, selanjutnya bila kita klik tanda itu kita dapat nilai dan jika terlambat/ tidak tepat mengkliknya  maka nyawa kita akan berkurang serta mengindikasikan itu kita semakin dekat ke game over.

Langkah – langkahnya:

·         Buka aplikasi vb.net terus pas udah di running, pilih menu file > New > Project > Widows Form Aplication.

·         Isi nama aplikasi: Games Tangkap Titiknya.

·         Pilih root tempat nyimpannya.

·         Akan muncul jendela Form1 tempat dimana program akan kita desain.

·         Klik button pada toolbox trus insert ke form1.

·         Rubah teks button dengan nama Permainan Diselesaikan.

·         Kemudian beri gambar latar Form1 dengan cara memilih properties Form1 > Bagroundimage > kemudian pilih gambar yang diinginkan untuk jadi latar Form1

·         Setelah itu masukkan 4 Radio Button.

·         Lalu klik Timer pada toolbox dan masukkan ke Form kita.

·         Masukkan 2 label pada Form, dengan nama “ Nyawa Anda Tinggal”, sama “Nilai Anda “.

·         Udah selesai desain Formnya, masukkan listing program ke dalam Form untuk mengaktifkan perintah-perintah yang ada di Form.

Kan source kodenya udah, buat aplikasinya jadi excecutable.Caranya Pada jendela Properties Solution Explorer > Pilih Games > Kemudian Klik kanan > Pilih build.

·         Tunggu sampai proses excecutablenya selesai.

·         Bila sudah lakukan test run untuk lihat hasilnya

Public Class Form1

    Inherits System.Windows.Forms.Form

    Dim value As Byte

    Dim life As Integer = 4

    Dim score As Integer

    Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        Dim x As Integer

        x = CInt(Int((4 - 1 + 1) * Rnd() + 1))

        checking()

        If x = 1 Then

            RadioButton1.Checked = True

            value = 1

        End If

        If x = 2 Then

            RadioButton2.Checked = True

            value = 2

        End If

        If x = 3 Then

            RadioButton3.Checked = True

            value = 3

        End If

        If x = 4 Then

            RadioButton4.Checked = True

            value = 4

        End If

    End Sub

    Sub checking()

        If life < 1 Then

            Button1.Visible = True

            life = 4

        End If

    End Sub

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

    End Sub

    Private Sub RadioButton4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton4.CheckedChanged

        If value = 4 Then

            RadioButton1.Checked = False

            score = score + 10

            Label1.Text = "Nilai Anda:" & score

        Else

            life = life - 1

            Label2.Text = "Nyawa Anda Tinggal:" & life

        End If

    End Sub

    Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged

        If value = 3 Then

            RadioButton1.Checked = False

            score = score + 10

            Label1.Text = "Nilai Anda:" & score

        Else

            life = life - 1

            Label2.Text = "Nyawa Anda Tinggal:" & life

        End If

    End Sub

    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged

        If value = 2 Then

            RadioButton1.Checked = False

            score = score + 10

            Label1.Text = "Nilai Anda:" & score

        Else

            life = life - 1

            Label2.Text = "Nyawa Anda Tinggal:" & life

        End If

    End Sub

    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged

        If value = 1 Then

            RadioButton1.Checked = False

            score = score + 10

            Label1.Text = "Nilai Anda:" & score

        Else

            life = life - 1

            Label2.Text = "Nyawa Anda Tinggal:" & life

        End If

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Button1.Visible = False

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Button1.Visible = False

        life = 4

        score = 0

    End Sub

End Class