Visual Basic

Tufail Ahmad wrote:

Send source code please

A-dogg2009 wrote:

Would it be better to use a database

A-dogg2009 wrote:

stuck on retreiving the data

A-dogg2009 wrote:

which numbers occur most often with in this file

Johnkokk wrote:

It should be easy but i am completely stuck in here.

David Skelly wrote:

It's not really the average, though, if I've understood the question.

David Skelly wrote:

Interpolation

Dim arr() As Single = {17, 18, 0, 0, 24, 23, 0, 20, 0, 0, 0, 16}
Dim idx1 As Int16 = -1, idx2 As Int16 = -1
Dim FoundAZero As Boolean = False

For i As Int16 = 0 To arr.GetUpperBound(0)

    If Not FoundAZero Then
        If arr(i) = 0 Then
            FoundAZero = True 'once we find an zero the else will be used below until we find the next non zero
        Else
            idx1 = i 'hold on to the index every non zero
        End If
    Else
        If arr(i) <> 0 Then '
            idx2 = i 'hold on to the index of the non zero
            '--------------------------------------
            'get the value that's held in both indexes
            Dim val1 As Int16 = arr(idx1), val2 As Int16 = arr(idx2)
            Dim IncVal As Single

            'increment value is non zero 1 minus non zero 2 / the number of zeros between
            'the * -1 is whether or not we need to increment up or down depending on values of the array

            If val1 < val2 Then
                IncVal = (val2 - val1) / (idx2 - idx1)
            Else
                IncVal = ((val1 - val2) / (idx2 - idx1)) * -1
            End If

            For x As Int16 = idx1 + 1 To idx2 - 1
                arr(x) = arr(x - 1) + IncVal 'replace the 0 inbetween both indexes with the incremented value
            Next
            '--------------------------------------
            idx1 = idx2        'take the last none zero and set it to the first hold as we continue down the array
            FoundAZero = False 'reset finding a zero flag
        End If
    End If
Next