Background

Background

Silahkan klik beberapa gambar di bawah ini

  • image1
  • image2
  • image3
  • image4
  • image2
  • image1
  • image4
  • image3

Permainan Pencocokan pada Visual Basic 6

Aplikasi Game Pencocokan
Ruzannah Ismah Mutiah, Dinar Ajeng Kuntari
Jurusan Teknik Informatika, Fakultas Teknologi Industri
Universitas Gunadarma
PENDAHULUAN
Game atau yang dalam bahasa indonesianya adalah permainan mungkin akan memberikan suatu dampak negative kepada pemainnya seperti kecanduan. Oleh karena itu, dengan game pencocokan ini mungkin akan memberikan rasa ingin kembali bermain kepada pemain tanpa berlebihan yang akan menyebabkan pemain kembali untuk bermain  dengan target skor yang lebih tinggi.Dengan bermain game pencocokan ini, membantu pemain untuk meningkatkan daya ingatnya. Sehingga dampak negatif dari bermain game bisa kita ubah menjadi hal yang positif.
Permainan Pencocokan ini diciptakan bukan hanya untuk kalangan tertentu. Permainan Pencocokan ini diciptakan untuk semua kalangan. Baik dari perempuan maupun laki-laki. Dari yang muda sampai yang tua. Aplikasi Permainan Pencocokan ini merupakan aplikasi berbasis desktop. Sehingga permainan ini tidak dapat ditemukan kecuali pada desktop.
Tujuan dari pembuatan game pencocokan ini ialah merubah adanya dampak negatif dari game menjadi suatu hal yang positif, yaitu membantu pemain dalam melatih daya ingat pemain. Sehingga kembalinya pemain untuk bermain game pencocokan ini akan membantu pemain dalam melatih daya ingatnya
PEMBAHASAN
 Visual Basic merupakan bahasa pemograman komputer. Bahasa pemograman adalah perintah-perintah atau instruksi yang dimengerti oleh komputer untuk melakukan tugas-tugas tertentu. Visual Basic selain disebut sebagai bahasa pemograman, juga sering disebut sebagai sarana (tool) untuk menghasilkan program-program aplikasi berbasiskan windows.
Visual Basic memungkinkan pembuatan aplikasi  Graphical User Interface (GUI) atau pemograman yang menggunakan tampilan grafis sebagai alat komunikasi dengan pemakainya. Dalam Visual Basic untuk pembuatan tampilan user interface relatif mudah dilakukan karena hanya  perlu meletakkan objek-objek grafis ke sumber (form) yang sudah disediakan Visual Basic. Setelah itu cukup mengatur properti dari objek-objek tersebut.
Beberapa kemampuan atau manfaat dari Visual Basic diantaranya adalah :
·         Untuk membuat program aplikasi berbasis Window
·         Untuk membuat objek-objek pembantu program seperti kontrol ActiveX, file Help, aplikasi internet dan sebagainya.
·         Menguji program (debugging) dan menghasilkan program akhir berakhiran EXE yang bersifat Executable atau dapat langsung dijalankan.

Aplikasi Game Pencocokan ini merupakan game yang mengunggulkan daya ingat pemain. Dimana pemain harus mencari kesamaan angka atau huruf atau nama dari beberapa baris dan baris.setiap percobaan dalam penebakan pencocokan angka atau huruf atau nama yang gagal akan dihitung menjadi 1 tries atau 1 tindakan pencarian.Setelah permainan berhasil dimenangkan maka akan ditampilkan gambar pada layar permainan. Jumlah baris pada permainan ersebut dapat diatur sebelum pemain memulai permainan. Begitu juga dengan background gambar yang akan di tampilkan ketika pemain berhasil memenangkan satu ronde.

LOGIKA PEMROGRAMAN
Private Sub cmbPictures_Click()
On Error Resume Next
imgImage.Picture = LoadPicture(App.Path & "\" & cmbPictures.Text & ".jpg")
End Sub
 
Memilih background yang digunakan


Memilih jumlah baris
Private Sub cmbRows_Click()
If cmbRows.Text = "2" Then
  numRows = 2
  numButtons = (numRows * 4)
  For i = 0 To numButtons - 1
    cmdButton(i).Height = 90
  Next i
  For i = 4 To 7
    cmdButton(i).Top = cmdButton(0).Top + cmdButton(0).Height
  Next i
  Initialise
End If
 
            Ketika jumlah baris yang dipilih adalah 2






If cmbRows.Text = "3" Then
  numRows = 3
  numButtons = (numRows * 4)
  For i = 0 To numButtons - 1
    cmdButton(i).Height = 60
  Next i
  For i = 4 To 7
    cmdButton(i).Top = cmdButton(0).Top + cmdButton(0).Height
  Next i
  For i = 8 To 11
    cmdButton(i).Top = cmdButton(0).Top + cmdButton(0).Height * 2
  Next i
  Initialise
End If
 
            Ketika jumlah baris yang dipilih adalah 3









If cmbRows.Text = "4" Then
  numRows = 4
  numButtons = (numRows * 4)
  For i = 0 To numButtons - 1
    cmdButton(i).Height = 45
  Next i
  For i = 4 To 7
    cmdButton(i).Top = cmdButton(0).Top + cmdButton(0).Height
  Next i
  For i = 8 To 11
    cmdButton(i).Top = cmdButton(0).Top + cmdButton(0).Height * 2
  Next i
  For i = 12 To 15
    cmdButton(i).Top = cmdButton(0).Top + cmdButton(0).Height * 3
  Next i
  Initialise
End If
 
            Ketika jumlah baris yang dipilih adalah 4









            Ketika jumlah baris yang dipilh adalah 5
If cmbRows.Text = "5" Then
  numRows = 5
  numButtons = (numRows * 4)
  For i = 0 To numButtons - 1
    cmdButton(i).Height = 36
  Next i
  For i = 4 To 7
    cmdButton(i).Top = cmdButton(0).Top + cmdButton(0).Height
  Next i
  For i = 8 To 11
    cmdButton(i).Top = cmdButton(0).Top + cmdButton(0).Height * 2
  Next i
  For i = 12 To 15
    cmdButton(i).Top = cmdButton(0).Top + cmdButton(0).Height * 3
  Next i
  For i = 16 To 19
    cmdButton(i).Top = cmdButton(0).Top + cmdButton(0).Height * 4
  Next i
  Initialise
End If
 
 










            Ketika jumlah baris yang dipilih adalah 6
If cmbRows.Text = "6" Then
  numRows = 6
  numButtons = (numRows * 4)
  For i = 0 To numButtons - 1
    cmdButton(i).Height = 30
  Next i
  For i = 4 To 7
    cmdButton(i).Top = cmdButton(0).Top + cmdButton(0).Height
  Next i
  For i = 8 To 11
    cmdButton(i).Top = cmdButton(0).Top + cmdButton(0).Height * 2
  Next i
  For i = 12 To 15
    cmdButton(i).Top = cmdButton(0).Top + cmdButton(0).Height * 3
  Next i
  For i = 16 To 19
    cmdButton(i).Top = cmdButton(0).Top + cmdButton(0).Height * 4
  Next i
  For i = 20 To 23
    cmdButton(i).Top = cmdButton(0).Top + cmdButton(0).Height * 5
  Next i
  Initialise
End If
cmdReset_Click
End Sub
 
 














Menampilkan pilihan teks yang ada.
1.      Angka
2.      Huruf
3.      Nama
picNum = picNum + 1
      If picNum > 3 Then picNum = 0
 
Disimpan dalam var picnum dan dideskripsikan dengan nilai awal nol. Setelah melalui satu permainan maka akan dilakukan penambahan pada var tersebut dengan angka 1. Sehingga akan berlanjut dari teks angka menjadi buruf, setelah satu putaran lagi menjadi nama. Ketika sudah menampilkan nama, picnum bernilai 3 dan selesai melalui satu ronde picnum dijumlah lagi menjadi 4 dan picnum bernilai lebih dari 3 maka akan kembali menjadi bernilai nol.
Private Sub cmdButton_Click(Index As Integer)

If state = 0 Then
  state = 1
  selection1 = Index
  cmdButton(selection1).Caption = word(number(selection1), picNum)
  GoTo 20
End If

If state = 1 Then
  If Index = selection1 Then GoTo 20
  state = 0
  selection2 = Index
  cmdButton(selection2).Caption = word(number(selection2), picNum)
  tries = tries + 1: lblNumTries.Caption = Str(tries)
  If number(selection1) = number(selection2) Then
  'pairs match
    cmdButton(selection1).Visible = False
    cmdButton(selection2).Visible = False
    matches = matches + 1
    If matches = numNumbers Then
      MsgBox ("Yea.. Berhasil dalam " & Str(tries) & " Klik")
      If record = tries Then
        MsgBox ("Rekor baru nih.. ;)")
      End If
      If record > tries Then
        record = tries
        lblNumRecord.Caption = Str(record)
        MsgBox ("Masih sama dengan Rekor sebelumnya :P !")
      End If
      picNum = picNum + 1
      If picNum > 3 Then picNum = 0
      cmdReset_Click
    End If
  Else
  'pairs dont match
    MsgBox ("Coba Lagi")
    cmdButton(selection1).Caption = ""
    cmdButton(selection2).Caption = ""
  End If
  GoTo 20
End If
20:
End Sub
 
Aturan dalam permainan




















DAFTAR PUSTAKA
1        http://masydur.blogspot.co.id/2013/04/mengenal-vb-60.html
(diakses pada tanggal 10 Juli 2017)
2        http://media-kreatif.com/home/post/94/tutorial-menggunakan-percabangan-dalam-vb-6.0.prm
(diakses pada tanggal 10 Juli 2017)

3        http://ketikvisualbasic.blogspot.co.id/2013/04/mengenal-fungsi-function-visual-basic-6.html
(diakses pada tanggal 10 Juli 2017)
Read More 0 komentar