Cara Membuat Aplikasi Perhitungan Perolehan Suara dalam Pemilu

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 :)

Baca Selengkapnya »

Sering Kerja di Depan Komputer Seharian? Ini Yang Anda Harus Lakukan

 

 

Jakarta - Bekerja dengan duduk seharian di depan komputer bisa berdampak negatif bagi kesehatan maupun postur tubuh. Sakit punggung, sakit leher, juga gangguan penglihatan kerap dialami pekerja yang setiap harinya menghabiskan waktu lama dalam posisi duduk. Berbagai gangguan kesehatan itu bisa dicegah dan diatasi, dengan melakukan tujuh langkah berikut ini yang dikutip dari Self.

1. Sesuaikan Tinggi Monitor dengan Posisi Duduk
Layar komputer sebaiknya sejajar dengan mata Anda. Jika komputer terlalu rendah dari posisi duduk, akan berisiko sakit punggung dan leher. Sementara apabila layar komputer terlalu tinggi dari posisi duduk sehingga kepala harus menengadah, bisa terjadi kekeringan pada mata. Atur tinggi kursi kerja Anda hingga posisi kepala sejajar dengan layar monitor.

2. Cukupi Asupan Air
Minum cukup air penting untuk memelihara kesehatan, tapi juga bisa menghindarkan Anda dari gangguan tulang leher dan punggung. Dengan meminum banyak air, tentu Anda perlu lebih sering berjalan ke pantry untuk mengisi ulang gelas. Usahakan tidak menyimpan botol minum besar agar frekuensi Anda bangun dan berjalan ke pantry untuk mengambil air lebih banyak. Tubuh yang lebih banyak bergerak tentu lebih baik ketimbang selalu duduk berjam-jam.

3. Pasang Alarm
Bukan untuk membangunkan jika Anda tertidur di meja kantor. Pasang alarm yang berbunyi setiap satu jam. Setiap kali alarm berbunyi, ingatkan pada diri sendiri bahwa sudah saatnya Anda bangun dari kursi untuk ambil air, ke toilet atau sekadar berjalan-jalan di sekitar kantor. Tubuh pun jadi lebih aktif dan banyak bergerak.

Baca Juga: 50 Tas dan Sepatu Favorit Selebriti

4. Kurangi Naik Lift
Jika kantor Anda berada di lantai yang tidak terlalu tinggi, misalnya hanya terletak di lantai dua atau tiga, manfaatkanlah tangga ketimbang lift. Gunakan tangga untuk naik dari lantai dasar ke kantor, atau sebaliknya. Naik-turun tangga akan membuat tubuh juga lebih banyak bergerak, juga ikut melatih otot agar tidak terlalu pasif karena seharian duduk di kantor.

5. Stretching
Luangkanlah waktu sejenak untuk meregangkan otot-otot agar tubuh lebih segar dan bersemangat hingga jam pulang kantor. Mengetik terus di depan komputer bisa membuat tulang lengan atas dan tulang selangka terasa kaku. Regangkan dengan menggerakkan tangan kanan ke depan menyamping kiri. Tekan di bagian siku menggunakan tangan kiri, tahan 10 detik. Selama itu, Anda akan merasakan kontraksi. Lakukan hal yang sama pada tangan lain.

6. Gunakan Font Huruf yang Besar
Ketika teks di layar komputer terlalu kecil, Anda cenderung akan menyondongkan tubuh ke depan sehingga punggung dalam posisi bungkuk. Inilah yang menyebabkan tubuh sering pegal-pegal dan kelelahan pada mata. Maka dari itu pilihlah font huruf berukuran besar yang cukup jelas Anda lihat dengan posisi tegak dan menyender pada kursi.

7. Banyak-banyak Berkedip
Terlalu lama menatap layar komputer cenderung membuat mata kering karena secara otomatis, mata akan lebih jarang berkedip. Biasakanlah untuk lebih sering mengedipkan mata ketika bekerja. Lakukan juga aturan 20-20-20 saat menatap layar komputer. Setiap 20 menit, alihkan pandangan mata ke tempat lain dengan jarak 20 kaki (sekitar 6 meter) dari posisi duduk, lalu tatap objek itu selama 20 detik. (hst/hst)

Baca Selengkapnya »

Cara Copy-Paste Artikel dari Situs yang Terkunci

Kegiatan menyalin sebuah isi konten situs dapat dikatakan sudah jamak dilakukan di era internet saat ini. Hanya saja, belum semua orang sadar untuk menyantumkan sumber dari laman yang disalin.

Kegiatan ini jelas dipandang sebagai sebuah bentuk plagiarisme. Untuk itu, beberapa situs seperti blog, menyertakan alat khusus yang dapat mencegah konten sebuah tulisan disalin.
Namun, dalam beberapa kesempatan, kemampuan menyalin sebuah isi konten jelas dibutuhkan. Oleh karena itu,Saya akan memberikan beberapa cara yang dapat digunakan beberapa peramban untuk menyalin isi konten terproteksi atau terkunci.

Baca Selengkapnya »

Ini dia manfaat Blog bagi Bisnis Anda

Membahas manfaat blog sama halnya dengan menghitung ikan di lautan. Ada banyak sekali manfaatnya, namun di artikel ini saya hanya akan fokus membahas manfaat blog di bidang bisnis, khususnya bagi para pelaku bisnis online shop.

Baca Selengkapnya »

Pengemudi Gojek Warga Gondrong Petir Tewas Tertabrak Fortuner

Kecelakaan maut mobil Fortuner dengan sepeda motor nyatanya meninggalkan duka yang mendalam bagi keluarga yang ditinggalkan korban tewas dalam kecelakaan tersebut.

Bukan hanya keluarga yang turut berduka cita, melainkan rekan-rekan satu pekerjaan juga turut sedih dengan meninggalnya salah seorang rekan akibat kecelakaan Fortuner.

Ada sejumlah ratusan pengemudi ojek online, GoJek yang memadati kawasan Jalan KH Ahmad Dahlan, Kelurahan Petir, Cipondoh, Tangeran, Senin (8/2/2016) siang.

Ratusan pengendara GoJek tersebut turut mengiringi kepulangan dari salah seorang jenazah yang juga merupakan pengendara ojek online menjadi korban dalam kecelakaan Fortuner tersebut dari RSCM.
Memang dari sekian banyak rekan satu profesi yang datang ke rumah korban tidak semuanya mengenal korban, namun demikian rasa solidaritas yang tinggi karena satu profesi membuat rekan-rekan pengendara GoJek berdatangan untuk melayat dan memberikan dukungan kepada keluarga yang ditinggalkan.

                                         GoJek

Baca Selengkapnya »