Ciao,
ragazzi da 1 ora cerco di risolvere un problema assurdo..
questo è il codice:
codice:
Private Sub btnTemperatureMax_Click(sender As Object, e As EventArgs) Handles btnTemperatureMax.Click
Dim temperatureMax As Single
Dim indice As Integer
temperatureMax = 0
If n > 0 Then
For Me.i = 0 To temperatureCityList.Count - 1
If temperatureCityList(i) > temperatureMax Then
temperatureMax = temperatureCityList(i)
indice = i
End If
Next
visualizza(indice)
End If
End Sub
Private Sub btnTemperatureMin_Click(sender As Object, e As EventArgs) Handles btnTemperatureMin.Click
Dim temperatureMin As Single
Dim indice As Integer
temperatureMin = 1000
If n > 0 Then
For Me.i = 0 To temperatureCityList.Count - 1
If temperatureCityList(i) <= temperatureMin Then
temperatureMin = temperatureCityList(i)
indice = i
End If
Next
visualizza(indice)
End If
End Sub
Ho fatto svariati test per vedere, di fatto, dove si interrompeva il codice.. ma in modo assurdo il tasto relativo al calcolare la temperatura massima funziona, mentre quello relativo alla temperatura minima non funziona! Il codice è esattamente uguale..
Nota da aggiungere è che stranamente quello per la temperatura minima funziona solo se nei vettori delle temperature delle liste metto dei valori minori di 0 tipo temperatura -1 o -2 ecc.
Spero di poter ricevere aiuto, grazie.