[wisbelle]

Im having a problem getting my calculations to work. I need to find the average letters per word. Can someone please lead me in the right direction.


Private Sub btnCount_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCount.Click
'Determine word count and average letters / word in the sentence
Dim iLength As Integer 'length of string
Dim iWords As Integer 'number of words in sentence
Dim iLetterCount As Integer 'count of letters
Dim sWord As String 'current word
Dim sPrevLetter As String 'previous letter
Dim x As Integer 'loop counter
Dim sLetter As String 'current letter from sentence
Dim sLine As String = txtInput.Text.Trim.ToLower 'entered text - no leading or trailing spaces - make all lowercase
Try
iLength = sLine.Length
If iLength = 0 Then
'nothing entered
MessageBox.Show("Please enter a sentence.")
Else
sWord = ""
sPrevLetter = ""
For x = 0 To iLength - 1
sLetter = sLine.Chars(x) 'get Next Letter
Select Case sLetter
Case "a" To "z"
iLetterCount += 1
'we are in a word - increment letter counter
sWord &= sLetter
Case Else
'we are in a break between words
If sPrevLetter <> " " Then 'we don't want to count succesive spaces as a word
'add word to list
lstLetters.Items.Add(sWord)
sWord = "" 'reset for next word
End If
End Select
sPrevLetter = sLetter
Next x
If sWord <> "" Then
lstLetters.Items.Add(sWord)
End If
lblAverage.Text = "Average letters per word: " & iLetterCount / iLength
lblWordCount.Text = "Words Counted: " & lstLetters.Items.Count
End If

Catch ex As Exception
MessageBox.Show(ex.Message)
End Try

[wisbelle]

I am guessing this is where my problem is....

wisbelle, on 10 Dec, 2009 - 03:17 PM, said:

I am guessing this is where my problem is....

lblAverage.Text = "Average letters per word: " & iLetterCount / iLength

[Metitron]

try putting moveing the code for the labels out side the try that should work and you will want to put your count above your average or it will count that as a line also

the other problem is that you never count the words so its going to be tuff to average teh letters per word currently its dividing the number of letters by the total number of characters (including spaces)

This post has been edited by Metitron: 10 December 2009 - 04:37 PM