Tutorial Lengkap Source Code Aplikasi Sistem Polling dengan VB6

Cara Membuat Aplikasi System Polling dengan VB6 - Selamat siang para pencinta tip dan trik Visual Basic, pada pertemuan kali kami akan membuat bagaimana cara membuat system polling dengan menggunakan VB6. Kita pasti tau apa itu polling, pollimg biasanya di gunakan untuk mengambil suatu pendapat yang disebabkan adanya perbedaan pendapat sehinga diambilah sistem polling untuk mengambil suara terbanyak untuk mencapai kesepakatan.Misalnya sering kita menyaksikan dan melihat polling tentang pemilihan prsiden atau kepala desa dan lain-lainnya.

Polling adalah suatu metode untuk mengetahui pendapat umum yang merupakan bagian dari ekspresi sekaligus metode untuk mengetahui pendapat umum tentang suatu isu atau masalah tetentu.

Untuk itu pada kesempatan kali ini tip dan trik akan membuat sistem polling dengan menggunakan Visual Basic 6.0. Didalam Aplikasi ini kami memberikan beberapa nilai yang nanti Anda sendiri yang akan menilai dengan cara klik OptionButton.Setelah itu Anda akan menekan Tombol Vote. Adapun nilai yang kami berikan adalah Excellent, Very Good, Good, satisfactory dan Bad.

1. Buka Form VB6 Anda tanamkan beberapa Label, PictureBox, OptionButton dan Command           button  desainlah form seperti gambar dibawah ini :

2. Setelah Anda mendesain Form lalu copy-paste semua kode dibawah ini dibagian General-                   Declaration :

Dim total, Excel_total, VG_total, G_total, Sat_total, Bad_total As Integer

Dim Excel_percent, VG_percent, G_percent, Sat_percent, Bad_percent As Single

Dim done As Boolean

Private Sub cmd_Vote_Click()

Picture1.Cls

If Option_Excel.Value = True Then

Excel_total = Excel_total + 1

Lbl_ExcelTotal.Caption = Excel_tototal

ElseIf Option_VG.Value = True Then

VG_total = VG_total + 1

Lbl_VGTotal.Caption = VG_total

ElseIf Option_G.Value = True Then

G_total = G_total + 1

Lbl_GTotal.Caption = G_total

ElseIf Option_Sat.Value = True Then

Sat_total = Sat_total + 1

Lbl_SatTotal.Caption = Sat_total

ElseIf Option_Bad.Value = True Then

Bad_total = Bad_total + 1

Lbl_BadTotal.Caption = Bad_total

End If

total = Excel_total + VG_total + G_total + Sat_total + Bad_total

Lbl_Total = total

Excel_percent = Excel_total / total

VG_percent = VG_total / total

G_percent = G_total / total

Sat_percent = Sat_total / total

Bad_percent = Bad_total / total

Lbl_Excel.Caption = Format(Excel_percent, "Percent")

Lbl_VG.Caption = Format(VG_percent, "Percent")

Lbl_G.Caption = Format(G_percent, "Percent")

Lbl_Sat.Caption = Format(Sat_percent, "Percent")

Lbl_Bad.Caption = Format(Bad_percent, "Percent")

Picture1.Line (100, 750)-(3800 * Excel_percent, 500), vbRed, BF

Picture1.Line (100, 1450)-(3800 * VG_percent, 1650), vbMagenta, BF

Picture1.Line (100, 2150)-(3800 * G_percent, 2350), vbGreen, BF

Picture1.Line (100, 2850)-(3800 * Sat_percent, 3050), vbBlue, BF

Picture1.Line (100, 3550)-(3800 * Bad_percent, 3750), vbYellow, BF

End Sub

Private Sub Form_Load()

cmd_Vote.Enabled = False

Option_Excel.Value = False

Option_VG.Value = False

Option_G.Value = False

Option_Sat.Value = False

Option_Bad.Value = False

End Sub

Private Sub Option_Bad_Click()

cmd_Vote.Enabled = True

End Sub

Private Sub Option_Excel_Click()

cmd_Vote.Enabled = True

End Sub

Private Sub Option_G_Click()

cmd_Vote.Enabled = True

End Sub

Private Sub Option_Sat_Click()

cmd_Vote.Enabled = True

End Sub

Private Sub Option_VG_Click()

cmd_Vote.Enabled = True

End Sub