Survey and polling tools are
often used in marketing or politics to assess
rating for certain services or
products. Polling tools can take many forms, some just use a
simple dichotomous scale of Yes and No, or Likert Scale that
consists of three or more choices. You can create Polling
tool in Visual Basic easily by using the option buttons. In
my program, I give the users five choices, Excellent, Very
Good, Good, Satisfactory and Bad.
Then the results are presented
in frequency and percentage respectively.
In the example on the right, I
have included graphical display of the percentages of the
five scores using the Line method. The general format to
draw the rectangular bar in a picture box is
Picture1.Line (x1, y1)(x2,
y2), color, BF
where (x1,y1) is the coordinates
of the upper left corner of the bar and
(x2,y2) is the coordinates of
the lower right corner of the bar.
To show the bar length according
to the percentage, I use certain value to multiply the
decimal value of each score and put it under x2.
And I use the Picture1.Cls
method to clear the picture box in order to refresh the
drawing.

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 = Excel_total
ElseIf Option_VG.Value = True Then
VG_total = VG_total + 1
Lbl_VGTotal = VG_total
ElseIf Option_G.Value = True Then
G_total = G_total + 1
Lbl_GTotal = G_total
ElseIf Option_Sat.Value = True Then
Sat_total = Sat_total + 1
Lbl_SatTotal = Sat_total
ElseIf Option_Bad.Value = True Then
Bad_total = Bad_total + 1
Lbl_BadTotal = 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, 950), 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
