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
    martedì 27 maggio 2025
    Bari
    15
    61
    19
    34
    80
    Cagliari
    69
    10
    33
    22
    25
    Firenze
    18
    55
    30
    29
    78
    Genova
    64
    18
    35
    56
    57
    Milano
    41
    86
    61
    17
    89
    Napoli
    87
    31
    27
    57
    16
    Palermo
    31
    69
    53
    64
    14
    Roma
    14
    24
    02
    08
    29
    Torino
    83
    04
    79
    49
    27
    Venezia
    19
    57
    53
    10
    33
    Nazionale
    14
    68
    86
    56
    58
    Estrazione Simbolotto
    Milano
    42
    04
    44
    34
    07

Ultimi Messaggi

Indietro
Alto