Cara Membuat Aplikasi Perhitungan Perolehan Suara dalam Pemilu

Cara mendapatkan 3 Dolar per hari, kerjanya cuma klik iklan yang muncul langsung dibayar caranya:klik gambar dibawah ini atau klik Register Clixsense, lengkapi identitas, tekan Sign-Up kemudian konfirmasi Email.Anda siap klik iklan. Info Lengkap

Pemilihan merupakan salah satu hal pokok yang dilakukan oleh organisasi maupun lembaga masyarakat tertentu. Contohnya saja dalam menentukan ketua organisasi sering dilakukan proses voting, kandidat dengan suara terbanyaklah yang akan mengisi posisi tertentu. Masih dengan pembahasan yang sama dengan pos saya sebelumnya, saya akan share sedikit tentang cara membuat aplikasi voting suara. Aplikasi ini sangat memudahkan dalam perhitungan suara yang selama ini masih sering menggunakan penghitungan suara secara manual dengan menuliskan angka-angka di papan tulis.

Posting kali ini saya buat karena beberapa waktu lalu saya diminta tolong untuk membuatkan aplikasi untuk rekapitulasi suara pemilihan rektor. Dengan pengalaman itulah saya memiliki ide menuliskan langkah-langkah membuat aplikasi yang sudah ada ke blog ini :)

gambar 1. hasil aplikasi

Kurang lebih kita akan membuat aplikasi seperti gambar di atas, namun kita akan menghilangkan beberapa item yang tidak kita butuhkan. Langsung ke tahap pertama
1. Seperti biasa buka Visual Basic 6.0 dan pilih Standard EXE lalu klik Open

gambar 2

gambar 3

2. Lalu buat tools sebagai berikut :

• Form 1 :
• Caption : APLIKASI REKAPITULASI SUARA
• Label 1 :
• Caption : APLIKASI REKAPITULASI SUARA
• Label 2 : 
• Caption : 0
• Name : lblNo1
• Label 3 :
• Caption : 0
• Name : lblNo2
• Label 4 :
• Caption : 0
• Name : lblNo3
• Label 5 :
• Caption : 0
• Name : lblNo4
• Label 6 :
• Caption : 0
• Name : lblRusak
• Label 7 :
• Caption : 0
• Name : lblAbstain
• Label 8 : 
• Caption : 0
• Name : lblTotalSah
• Label 9 :
• Caption : 0
• Name : lblTidakSah
• Label 10 :
• Caption : 0
• Name : lblTotalSuara
• Comman Button 1 :
• Caption : 1
• Name : cmdNo1
• Command Button 2 :
• Caption : 2
• Name : cmdNo2
• Command Button 3 :
• Caption : 3
• Name : cmdNo3
• Command Button 4 :
• Caption : 4
• Name : cmdNo4
• Command Button 5 :
• Caption : Suara Rusak
• Name : cmdRusak
• Command Button 6 :
• Caption : Abstain
• Name : cmdAbstain
• Comman Button 7 :
• Caption : Kunci
• Name : cmdKunci
• Command Buttin 8 :
• Caption : Keluar
• Name : cmdKeluar

Jadi total yang dibuat :

1. Label : 10
2. Command Button : 8

Dan atur kurang lebih seperti ini, atau juga bisa anda atur sesuai keinginan

gambar 4

3. Langkah selanjutnya mengisi desain yang sudah kita buat tadi dengan script

Klik 2 kali pada command button 1 dan isikan script di bawah

Private Sub cmdNo1_Click()
lblNo1.Caption = lblNo1.Caption + 1
lblTotalSah.Caption = lblTotalSah.Caption + 1
lblTotalSuara.Caption = Val(lblTotalSah.Caption) + Val(lblTidakSah.Caption)
End Sub

Klik 2 kali pada command button 2 dan isikan script di bawah

Private Sub cmdNo2_Click()
lblNo2.Caption = lblNo2.Caption + 1
lblTotalSah.Caption = lblTotalSah.Caption + 1
lblTotalSuara.Caption = Val(lblTotalSah.Caption) + Val(lblTidakSah.Caption)
End Sub

Klik 2 kali pada command button 3 dan isikan script di bawah

Private Sub cmdNo3_Click()
lblNo3.Caption = lblNo3.Caption + 1
lblTotalSah.Caption = lblTotalSah.Caption + 1
lblTotalSuara.Caption = Val(lblTotalSah.Caption) + Val(lblTidakSah.Caption)
End Sub

Klik 2 kali pada command button 4 dan isikan script di bawah

Private Sub cmdNo4_Click()
lblNo4.Caption = lblNo4.Caption + 1
lblTotalSah.Caption = lblTotalSah.Caption + 1
lblTotalSuara.Caption = Val(lblTotalSah.Caption) + Val(lblTidakSah.Caption)
End Sub

Klik 2 kali pada command button Suara Rusak dan isikan script di bawah

Private Sub cmdRusak_Click()
lblRusak.Caption = lblRusak.Caption + 1
lblTidakSah.Caption = lblTidakSah.Caption + 1
lblTotalSuara.Caption = Val(lblTotalSah.Caption) + Val(lblTidakSah.Caption)
End Sub

Klik 2 kali pada command buttin Abstain dan isikan script di bawah

Private Sub cmdAbstain_Click()

lblAbstain.Caption = lblAbstain.Caption + 1

lblTidakSah.Caption = lblTidakSah.Caption + 1

lblTotalSuara.Caption = Val(lblTotalSah.Caption) + Val(lblTidakSah.Caption)

End Sub

Klik 2 kali pada command button Kunci dan isikan script di bawah

Private Sub cmdKunci_Click()

cmdNo1.Enabled = False

cmdNo2.Enabled = False

cmdNo3.Enabled = False

cmdNo4.Enabled = False

cmdRusak.Enabled = False

cmdAbstain.Enabled = False

End Sub

Klik 2 kali pada command buttin Keluar dan isikan script di bawah

Private Sub cmdKeluar_Click()

End

End Sub

Jika semua langkah di atas sudah dilakukan dengan benar, maka tidak akan ada masalah dalam pengujian apikasi. Jika aplikasi masih error ketika dijalankan, teliti ulang script yang ada

gambar 5

Masih Bingung??

Langsung isi di kolom komentar aja :)

Penulis: tutorial ~ Nurhasan Blogger | Blog Tutorial dan Informasi |

Artikel Cara Membuat Aplikasi Perhitungan Perolehan Suara dalam Pemilu ini dipublish oleh tutorial pada hari Monday 7 March 2016
Terima kasih Anda telah membaca artikel tentang Cara Membuat Aplikasi Perhitungan Perolehan Suara dalam Pemilu.