Novità

Come controllare che il valore immesso non superi il valore limite di 10000?

lotto_tom75

Advanced Premium Member
Dato che questa funzione input sembra avere il limite di 10000 come fare per non dare errore e per non bloccare lo script in caso di immissione errata per sbaglio o disattenzione di un valore che supera questo limite?

Codice:
numerocolonne = CInt(InputBox("QUANTE COLONNE RANDOM ANALIZZARE (max 10000)",,10000))

Al momento se viene immesso 10001 ad esempio lo script viene bloccato con errore di over flow...
mentre a me piacerebbe avvertire che è stato messo un valore non contemplato dallo script
e far riprovare ad immettere un valore entro i limiti o terminare lo script in modo normale...

E' possibile immettere questo tipo di controllo? Se si come fare?

Thanks! :)
 
Ultima modifica:
Tom prova cosi

Codice:
Sub Main
	numerocolonne = CInt(InputBox("QUANTE COLONNE RANDOM ANALIZZARE (max 10000)",,10000))
	If numerocolonne <= 10000 Then Scrivi "valore immesso = " & numerocolonne & " esatto "
	Ini = EstrazioneFin - 100
	fin = EstrazioneFin
	For es = Ini To Fin
		If numerocolonne > 10000 Then Exit For
		'If numerocolonne =< 10000 Then Scrivi "valore immesso = " & numerocolonne & " esatto "
		Scrivi Es
	Next
	Scrivi " valore troppo alto ..... Riprovare "
End Sub
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 29 maggio 2025
    Bari
    45
    10
    60
    68
    59
    Cagliari
    04
    31
    24
    61
    63
    Firenze
    71
    59
    65
    53
    46
    Genova
    21
    26
    50
    63
    86
    Milano
    46
    52
    45
    21
    15
    Napoli
    88
    90
    17
    46
    12
    Palermo
    31
    40
    71
    32
    12
    Roma
    86
    81
    41
    12
    19
    Torino
    75
    32
    64
    46
    04
    Venezia
    26
    65
    38
    56
    60
    Nazionale
    16
    55
    64
    57
    12
    Estrazione Simbolotto
    Milano
    45
    26
    36
    08
    22
Indietro
Alto