Cara Membuat Real Count Aplikasi e-Voting Dengan VB.NET

Bismillah....

Sahabat baiq yang berbahagia. Kali ini kembali saya akan berbagi tentang materi pemrograman, yang setelah beberapa minggu sempat tertunda. Namun sebelum saya lanjutkan pembahasannya, pastikan anda sudah membaca artikel saya tentang cara membuat aplikasi e-voting dengan vb.net. Jika belum, silahkan baca DISINI. Kenapa? Karena postingan kali ini, adalah kelanjutan dari materi sebelumnya yaitu tentang cara membuat e-voting dengan VB.NET. Dan kali ini saya akan berbagi tentang cara membuat Real Count pada aplikasi e-voting dengan menggunakan VB.NET tentunya. Jadi anda pasti akan kebingungan jika belum membaca artikel tentang cara membuat aplikasi e-voting yang sudah saya postingan sebelumnya. 

Baiklah kita mulai saja. Apa yang harus dipersiapkan?

Sebelumnya, pastikan anda sudah membuat aplikasi e-voting sesuai dengan artikel yang pernah saya posting DISINI. Setelah itu anda bisa mengikuti langkah demi langkah kelanjutannya seperti yang akan saya jelaskan berikut ini:

1. Silahkan buka Project Aplikasi e-voting yang sudah dibuat sebelumnya
2. Tambahkan Form Baru, Project – Add Windows Form 
3. Kemudian, jika form sudah tampil, lakukan design seperti tampilan gambar di bawah ini.

Penamaan bisa disesuaikan dengan coding, silahkan dianalisa sendiri.

4. Setelah design selesai, kita mulai ketik codingnya, seperti di bawah ini:

Public Class Form7
‘Prosedur untuk menampilan jumlah suara paslon 1 berdasarkan Lbl1.Text (Dibawah tulisan PASLON)
Sub TampilJmlPaslon1()
    str = "select * from t_calon where no_urut='" & Lbl1.Text & "'"
    cmd = New Odbc.OdbcCommand(str, konek)
    rd = cmd.ExecuteReader
    rd.Read()
    If rd.HasRows Then
        JmlPaslon1.Text = rd.Item(3)
    Else
        JmlPaslon1.Text = ""
    End If
End Sub
‘Prosedur untuk menampilan jumlah suara paslon 2 berdasarkan Lbl2.Text (Dibawah tulisan PASLON)
Sub TampilJmlPaslon2()
    str = "select * from t_calon where no_urut='" & Lbl2.Text & "'"
    cmd = New Odbc.OdbcCommand(str, konek)
    rd = cmd.ExecuteReader
    rd.Read()
    If rd.HasRows Then
        JmlPaslon2.Text = rd.Item(3)
    Else
        JmlPaslon2.Text = ""
    End If
End Sub
‘Prosedur untuk menampilan jumlah suara paslon 3 berdasarkan Lbl3.Text (Dibawah tulisan PASLON)
Sub TampilJmlPaslon3()
    str = "select * from t_calon where no_urut='" & Lbl3.Text & "'"
    cmd = New Odbc.OdbcCommand(str, konek)
    rd = cmd.ExecuteReader
    rd.Read()
    If rd.HasRows Then
        JmlPaslon3.Text = rd.Item(3)
    Else
        JmlPaslon3.Text = ""
    End If
End Sub
‘Prosedur untuk menampilkan total suara, jml sudah memilih, jml belum memilih
Sub realcount()
    JmlSdhMemilih()
    TampilJmlPaslon1()
    TampilJmlPaslon2()
    TampilJmlPaslon3()
    LblSudah.Text = Val(TxtSdhMemilih.Text)/Val(TxtJmlPemilih.Text) *100
    LblSudah.Text = FormatNumber(LblSudah.Text)
    LblSudah.Text = LblSudah.Text + " %"
    LblBelum.Text = Val(TxtBlmMemilih.Text)/Val(TxtJmlPemilih.Text) *100
    LblBelum.Text = FormatNumber(LblBelum.Text)
    LblBelum.Text = LblBelum.Text + " %"
End Sub ‘Perintah untuk menampilan data real count ketika tekan enter pada txtNPS
Private Sub TxtNPS_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TxtNPS.TextChanged     str = "select * from t_SEKOLAH where nps='" & TxtNPS.Text & "'"

    cmd = New Odbc.OdbcCommand(str, konek)     rd = cmd.ExecuteReader          rd.Read()     
    If rd.HasRows Then
        TxtJmlPemilih.Text = rd.Item("jml_pemilih")
        JmlSdhMemilih()
        TampilJmlPaslon1()
        TampilJmlPaslon2()
        TampilJmlPaslon3()
        blSudah.Text = Val(TxtSdhMemilih.Text)/ Val(TxtJmlPemilih.Text)*100
        LblSudah.Text = FormatNumber(LblSudah.Text)
        LblSudah.Text = LblSudah.Text + " %"
        LblBelum.Text = Val(TxtBlmMemilih.Text)/ Val(TxtJmlPemilih.Text) * 100
        LblBelum.Text = FormatNumber(LblBelum.Text)
        LblBelum.Text = LblBelum.Text + " %"
    Else
        TxtJmlPemilih.Clear()
        TxtSdhMemilih.Clear()
        TxtBlmMemilih.Clear()
        JmlPaslon1.Clear()
        JmlPaslon2.Clear()
        JmlPaslon3.Clear()
        LblPersen1.Text = ""
        LblPersen2.Text = ""
        LblPersen3.Text = ""
        LblSudah.Text = ""
        LblBelum.Text = ""
    End If
End Sub
‘Prosedur untuk menampilkan isi record dari tabel t_Calon kedalam datagridview
Sub Tampil()
    Koneksi()
    da = New Odbc.OdbcDataAdapter("select no_urut,nama_caketu, nama_cawaketu,jumlah_suara from t_CALON order by no_urut", konek)
    ds = New DataSet
    ds.Clear()
    da.Fill(ds, "t_calon")
    DGV.DataSource = (ds.Tables("t_calon"))
End Sub
Private Sub Form7_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Koneksi()
    Tampil()
End Sub
Sub JmlSdhMemilih()
    Dim totalberat As Double
    totalberat = 0
    For t As Integer = 0 To DGV.Rows.Count - 1
        totalberat = totalberat + Val(DGV.Rows(t).Cells(3).Value)
    Next
        TxtSdhMemilih.Text = totalberat
        TxtBlmMemilih.Text = Val(TxtJmlPemilih.Text)- Val(TxtSdhMemilih.Text)
End Sub
Private Sub JmlPaslon1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JmlPaslon1.TextChanged
    LblPersen1.Text = Val(JmlPaslon1.Text) / Val(TxtSdhMemilih.Text) * 100
    LblPersen1.Text = FormatNumber(LblPersen1.Text)
    LblPersen1.Text = LblPersen1.Text + " %"
End Sub
Private Sub JmlPaslon2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JmlPaslon2.TextChanged
    LblPersen2.Text = Val(JmlPaslon2.Text) / Val(TxtSdhMemilih.Text) * 100
    LblPersen2.Text = FormatNumber(LblPersen2.Text)
    LblPersen2.Text = LblPersen2.Text + " %"
End Sub

Private Sub JmlPaslon3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JmlPaslon3.TextChanged
    LblPersen3.Text = Val(JmlPaslon3.Text) / Val(TxtSdhMemilih.Text) * 100
    LblPersen3.Text = FormatNumber(LblPersen3.Text)
    LblPersen3.Text = LblPersen3.Text + " %"
End Sub
End Class

5. Jika sudah selesai, silahkan anda bisa coba menjalankannya, kemudian input kode sekolah pada textbox TXTNPS yang terletak di kiri atas.
Hasil Runing dari aplikasi real count e-voting, akan tampak sepeti gambar berikut ini:

Baca juga : Cara Menghubungkan Client Server pada VB.NET

Demikian penjelasan materi kali ini, yaitu tentang cara membuat real count pada aplikasi e-voting dengan menggunakan VB.NET. Agar aplikasi ini dapat di jalankan di beberapa komputer client untuk para pemilih, silahkan pelajari DISINI. Semoga aplikasi ini, bisa bermanfaat bagi anda-anda yang sedang mencari referensi pemrograman VB.NET. Selain itu, mudah-mudahan aplikasi ini juga bisa digunakan, minimal untuk pemilihan ketua dan wakilketua OSIS disekolah. Terimakasih sudah berkunjung. Semangat berbagi. Silahkan Download Modul Aplikasi E-VOTING versi 1.0.