Membuat Aplikasi Rekapitulasi Suara Menggunakan Visual Basic 6.0

Unknown 05.00 Tips Trick , Tutorial , VB 6 4 komentar

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 :

Label : 10
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