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
    sabato 31 maggio 2025
    Bari
    72
    01
    07
    20
    16
    Cagliari
    39
    04
    81
    79
    09
    Firenze
    87
    73
    57
    72
    63
    Genova
    80
    81
    32
    30
    75
    Milano
    07
    63
    39
    57
    64
    Napoli
    47
    06
    11
    26
    66
    Palermo
    04
    81
    15
    76
    48
    Roma
    84
    15
    52
    56
    25
    Torino
    12
    34
    06
    54
    26
    Venezia
    44
    86
    74
    48
    80
    Nazionale
    44
    77
    11
    58
    62
    Estrazione Simbolotto
    Milano
    41
    25
    12
    08
    22
Indietro
Alto