√ Cara Menciptakan Real Count Aplikasi E-Voting Dengan Vb.Net

Bismillah....

Sahabat baiq yang berbahagia. Kali ini kembali saya akan menyebarkan wacana bahan pemrograman, yang sehabis beberapa ahad sempat tertunda. Namun sebelum saya lanjutkan pembahasannya, pastikan anda sudah membaca artikel saya wacana cara menciptakan aplikasi e-voting dengan vb.net. Jika belum, silahkan baca DISINI. Kenapa? Karena postingan kali ini, yakni kelanjutan dari bahan sebelumnya yaitu wacana cara menciptakan e-voting dengan VB.NET. Dan kali ini saya akan menyebarkan wacana cara menciptakan Real Count pada aplikasi e-voting dengan memakai VB.NET tentunya. Makara anda niscaya akan kebingungan kalau belum membaca artikel wacana cara menciptakan aplikasi e-voting yang sudah saya postingan sebelumnya. 

Baiklah kita mulai saja. Apa yang harus dipersiapkan?

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

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

Penamaan sanggup diadaptasi dengan coding, silahkan dianalisa sendiri.

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

Public Class Form7
‘Prosedur untuk menampilan jumlah bunyi paslon 1 menurut Lbl1.Text (Dibawah goresan pena 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 bunyi paslon 2 menurut Lbl2.Text (Dibawah goresan pena 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 bunyi paslon 3 menurut Lbl3.Text (Dibawah goresan pena 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 dikala 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 sanggup coba menjalankannya, lalu input aba-aba 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 klarifikasi bahan kali ini, yaitu wacana cara menciptakan real count pada aplikasi e-voting dengan memakai VB.NET. Agar aplikasi ini sanggup di jalankan di beberapa komputer client untuk para pemilih, silahkan pelajari DISINI. Semoga aplikasi ini, sanggup bermanfaat bagi anda-anda yang sedang mencari rujukan pemrograman VB.NET. Selain itu, mudah-mudahan aplikasi ini juga sanggup digunakan, minimal untuk pemilihan ketua dan wakilketua OSIS disekolah. Terimakasih sudah berkunjung. Semangat berbagi. Silahkan Download Modul Aplikasi E-VOTING versi 1.0.

Sumber http://pabaiq.blogspot.com