What's in the eBook?
- Full list of reasons for poor performance
- Ultimate measures to speed things up
- Primary web monitoring types
- KPIs you should be monitoring in order to increase your ROI
'Declared Constants Const BOOKS_READ1Integer As Integer = 10 Const BOOKS_READ2Integer As Integer = 15 Const BOOKS_READ3Integer As Integer = 20 Const MAX_BOOKS_ALLOWED_READInteger As Integer = 10000 'Declared Variables Dim totalPointsDecimal, booksReadInteger, bookPoints, _ customerCountInteger, numberBooksReadInteger, totalBooksRead, _ numbooksRead, average, booksRead As Integer Private Function calculatePointsDataType(ByVal bookValue As String) As Integer Dim bookPoints As Integer Try Dim numberBooksRead As Integer = Integer.Parse(numBooksReadTextBox.Text) If numberBooksRead <= 1 And 3 Then bookPoints = numberBooksRead * BOOKS_READ1Integer ElseIf numberBooksRead < 3 And = 6 Then bookPoints = 3 * BOOKS_READ1Integer + numberBooksRead - 3 * BOOKS_READ2Integer ElseIf numberBooksRead >= 6 And MAX_BOOKS_ALLOWED_READInteger Then bookPoints = (3 * BOOKS_READ2Integer) + (3 * BOOKS_READ2Integer) + (numberBooksRead - 6) * (BOOKS_READ3Integer) End If Catch ex As Exception End Try Return bookPoints End Function
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.