Cara Membuat Aplikasi System Polling dengan VB6

Cara Membuat Aplikasi System Polling dengan VB6 - Selamat siang para pencinta tip dan trik Visual Basic, pada pertemuan kali Saya 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 Saya memberikan beberapa nilai yang nanti Anda sendiri yang akan menilai dengan cara klik OptionButton.Setelah itu Anda akan menekan Tombol Vote. Adapun nilai yang saya berikan adalah Excellent, Very Good, Good, satisfactory dan Bad.


Cara Membuat Polling dengan VB6 :

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

Desain Form
  • Beberapa label berada dalam Picture1 lihat gambar diatas yang di tunjukan garis merah
  • Untuk CommandButton1 Name: cmd_Vote
  • option1   Name: Option_Excel 
    option2   Name: Option_VG
    option3   Name: Option_G 
    option4.  Name: Option_Sat 
    option5   Name: Option_Bad
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

Excellent, Very Good, Good, Satisfactory and Bad
Excellent, Very Good, Good, Satisfactory and Bad
Excellent, Very Good, Good, Satisfactory and Bad
Excellent, Very Good, Good, Satisfactory and Bad
3. Simpan hasil pekerjaan Anda dan jalankan Program

Silahkan uji program Anda dengan klik OptionButton kemudian klik Vote

Catatan :
Silahkan atur  tata letak agar terlihat rapih.

Demikian tip Cara Membuat Aplikasi System Polling dengan VB6. Selamat mencoba semoga bermanfaat.

No comments: