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.

Rispondi quotando