Langsung saja, sebelum kita memulai membuat aplikasi tersebut , yang wajib kamu miliki adalah :
- Aplikasi Visual Basic.
- Jalur / Konsep rute dari sirkuit hamilton yang akan menjadi patokan langkah kuda catur , kurang lebih seperti gambar di bawah ini
Nah, kalau sudah, kita bisa segera memulai proses pembuatannya.. ikuti langkah - langkah di bawah ini ya...
- Buka aplikasi Visual Basic, pilih new -- project --windows application, lalu beri nama (contoh: Catur) dan klik OK.
- Tekan Ctrl+Alt+X untuk memunculkan Toolbox pada VB, yang akan kita gunakan untuk membuat desain aplikasinya, sebagai informasi.. yang akan kita gunakan adalah tools Label, Button, Panel, ImageList dan juga Timer.
- Buat kotak pada Form sebanyak 64 buah menggunakan Panel yang disusun dengan ukuran 8x8 sesuai ukuran papan catur, beri warna hitam dan putih secara berseling pada tiap - tiap kotak.
- Masukkan 2 buah button, lalu beri nama Start dan Stop/Reset.
- Pada kotak Panel papan catur yang sudah kamu buat, masukkan Label
yang berisi nomor - nomor rute urutan langkah kuda yang akan kamu buat (jangan lupa, set semua Label pada keadaan Visible = False pada kotak properties). Sebagai contoh, saya akan membuat rute seperti gambar di bawah ini
- Setelah itu, kita masuk ke bagian coding.. tapi sebelumnya saya ingin menjelaskan, prinsip sebenarnya dari aplikasi ini adalah menyembunyikan label/nomor yang ada pada panel, lalu memunculkannya dengan suatu interval waktu tertentu sehingga membentuk suatu deret angka dengan satu rute yang sudah kita tentukan sebelumnya. Jadi angka - angka akan kita tampilkan secara bergantian sesuai urutannya dari 1 s/d 64.
- Untuk melakukannya, kita membutuhkan tools timer, yang akan dipicu saat kita menekan tombol Start, dan akan berhenti saat kita menekan tombol Stop/Reset.
- Lalu masuk ke bagian coding, ini dia saya tampikan contoh codingnya, ini tentu anda bisa memodifikasi sendiri source code nya, barangkali anda bisa menemukan coding yang lebih efisien..
Public Class FrmCatur
Dim mil As Integer = 0
Dim detik As Integer = 0
Dim menit As Integer = 0
Dim xmil, xdetik As String
Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles L8.Click
End Sub
'Source code pada Timer
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
mil = mil + 1
xmil = mil
If mil = 10 Then
mil = 0
detik = detik + 1
xdetik = detik
End If
If detik = 1 Then
L1.Visible = True
End If
If detik = 2 Then
L2.Visible = True
End If
If detik = 3 Then
L3.Visible = True
End If
If detik = 4 Then
L4.Visible = True
End If
If detik = 4 Then
L4.Visible = True
End If
If detik = 5 Then
L5.Visible = True
End If
If detik = 6 Then
L6.Visible = True
End If
If detik = 7 Then
L7.Visible = True
End If
If detik = 8 Then
L8.Visible = True
End If
If detik = 9 Then
L9.Visible = True
End If
If detik = 10 Then
L10.Visible = True
End If
If detik = 11 Then
L11.Visible = True
End If
If detik = 12 Then
L12.Visible = True
End If
If detik = 13 Then
L13.Visible = True
End If
If detik = 14 Then
L14.Visible = True
End If
If detik = 15 Then
L15.Visible = True
End If
If detik = 16 Then
L16.Visible = True
End If
If detik = 17 Then
L17.Visible = True
End If
If detik = 18 Then
L18.Visible = True
End If
If detik = 19 Then
L19.Visible = True
End If
If detik = 20 Then
L20.Visible = True
End If
If detik = 21 Then
L21.Visible = True
End If
If detik = 22 Then
L22.Visible = True
End If
If detik = 23 Then
L23.Visible = True
End If
If detik = 24 Then
L24.Visible = True
End If
If detik = 25 Then
L25.Visible = True
End If
If detik = 26 Then
L26.Visible = True
End If
If detik = 27 Then
L27.Visible = True
End If
If detik = 28 Then
L28.Visible = True
End If
If detik = 29 Then
L29.Visible = True
End If
If detik = 30 Then
L30.Visible = True
End If
If detik = 31 Then
L31.Visible = True
End If
If detik = 32 Then
L32.Visible = True
End If
If detik = 33 Then
L33.Visible = True
End If
If detik = 34 Then
L34.Visible = True
End If
If detik = 35 Then
L35.Visible = True
End If
If detik = 36 Then
L36.Visible = True
End If
If detik = 37 Then
L37.Visible = True
End If
If detik = 38 Then
L38.Visible = True
End If
If detik = 39 Then
L39.Visible = True
End If
If detik = 40 Then
L40.Visible = True
End If
If detik = 41 Then
L41.Visible = True
End If
If detik = 42 Then
L42.Visible = True
End If
If detik = 43 Then
L43.Visible = True
End If
If detik = 44 Then
L44.Visible = True
End If
If detik = 45 Then
L45.Visible = True
End If
If detik = 46 Then
L46.Visible = True
End If
If detik = 47 Then
L47.Visible = True
End If
If detik = 48 Then
L48.Visible = True
End If
If detik = 49 Then
L49.Visible = True
End If
If detik = 50 Then
L50.Visible = True
End If
If detik = 51 Then
L51.Visible = True
End If
If detik = 52 Then
L52.Visible = True
End If
If detik = 53 Then
L53.Visible = True
End If
If detik = 54 Then
L54.Visible = True
End If
If detik = 55 Then
L55.Visible = True
End If
If detik = 56 Then
L56.Visible = True
End If
If detik = 57 Then
L57.Visible = True
End If
If detik = 58 Then
L58.Visible = True
End If
If detik = 59 Then
L59.Visible = True
End If
If detik = 60 Then
L60.Visible = True
End If
If detik = 61 Then
L61.Visible = True
End If
If detik = 62 Then
L62.Visible = True
End If
If detik = 63 Then
L63.Visible = True
End If
If detik = 64 Then
L64.Visible = True
End If
If L64.Visible = True Then
End If
If detik = 64 Then
Timer1.Stop()
MsgBox(" Sirkuit Hamilton Selesai!", , "Info :")
End If
End Sub
'Source code Button Start
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnStart.Click
Timer1.Enabled = True
Timer1.Start()
End Sub
'Source Code Button Stop/Reset
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnStop.Click
detik = 0
Timer1.Stop()
L1.Visible = False
L2.Visible = False
L3.Visible = False
L4.Visible = False
L5.Visible = False
L6.Visible = False
L7.Visible = False
L8.Visible = False
L9.Visible = False
L10.Visible = False
L11.Visible = False
L12.Visible = False
L13.Visible = False
L14.Visible = False
L15.Visible = False
L16.Visible = False
L17.Visible = False
L18.Visible = False
L19.Visible = False
L20.Visible = False
L21.Visible = False
L22.Visible = False
L23.Visible = False
L24.Visible = False
L25.Visible = False
L26.Visible = False
L27.Visible = False
L28.Visible = False
L29.Visible = False
L30.Visible = False
L31.Visible = False
L32.Visible = False
L33.Visible = False
L34.Visible = False
L35.Visible = False
L36.Visible = False
L37.Visible = False
L38.Visible = False
L39.Visible = False
L40.Visible = False
L41.Visible = False
L42.Visible = False
L43.Visible = False
L44.Visible = False
L45.Visible = False
L46.Visible = False
L47.Visible = False
L48.Visible = False
L49.Visible = False
L50.Visible = False
L51.Visible = False
L52.Visible = False
L53.Visible = False
L54.Visible = False
L55.Visible = False
L56.Visible = False
L57.Visible = False
L58.Visible = False
L59.Visible = False
L60.Visible = False
L61.Visible = False
L62.Visible = False
L63.Visible = False
L64.Visible = False
End Sub
- Jika sudah dimasukkan, maka anda bisa me-Run program tersebut, untuk penempatan source code nya, mungkin akan lebih mudah dimengerti jika anda tidak sekedar meng-copas saja, silahkan dibaca dan coba dipahami pelan-pelan, karena mungkin dalam source code diatas, ada nama variabel yang mungkin berbeda dengan milik anda, jelas proses compile tidak akan berjalan jika variabel pada source code tidak sesuai dengan nama variabel yang ada pada desain form.
- Untuk contoh jadi aplikasinya, dapat didownload di http://www.ziddu.com/download/22107690/Catur.zip.html
Demikian info yang bisa saya bagikan,sebelumnya saya minta maaf, penulis hanya manusia biasa yang masih amatir, pastilah banyak kurang dan salahnya.. he he..
sumber : http://jarvis91.blogspot.co.id
