Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
RACCOMANDO ANCHE A TT:::
' https://forum.lottoced.com/threads/metodo-somma-fascia-spia.2205975/#post-2446851
' metodo di utente imaginig
Sub main
Dim idestr, aE1,aE2
Dim aR(1):aR(1)=2
Dim aP(1):aP(1)=1
Dim aP2(2):aP2(2)=1
For idestr=1 to estrazionefin
If sommaestratti(idestr,ar(1))= 284 then
Ae1= array(0,4,77)
Ae2=array(0,4,77,12,32,38,72,83)
Call impostagiocata(1,ae1,ar, ap,9)
Call impostagiocata(2,ae2,ar, ap2,9)
' remmare la giocata che non si vuole verificare
Call gioca (idestr)
End if
Next
Scriviresoconto
End sub
scaricato e funziona perfettamenteCiao Salvo
Ma i code per il codice non è
<CODE>
</CODE>
Sub main
Dim idestr, aE1,aE2
Dim aR(1):aR(1)=2
Dim aP(1):aP(1)=1
Dim aP2(2):aP2(2)=1
dim i,j,k
Dim nSum: nsum= 284 ' questa è la somma che vuoi cercare metti il valore che vuoi
Ae1= array(0,4,77) ' qui metti i capogiochi in base alla tua somma sostituisci il 4 e il 77 con i nuovi
Ae2=array(0,12,32,38,72,83) ' qui metti i numeri degli abbinamenti sostituisci questi con i nuovi
Dim aAmbo
For idestr=1 to estrazionefin
If sommaestratti(idestr,ar(1))= nsum then
K=0
For i =1 to ubound (ae1)
For j =1 to ubound( ae2)
Aambo= array( 0, ae1(i),ae2(j) )
K=k+1
Call impostagiocata(k,aambo,ar, ap2,9)
Call gioca (idestr)
Next
Next
End if
Next
Scriviresoconto
End sub
Perfettamente funzionante senza parentesi quadre........Ciao riprova ora
mancava una parentesi come da messaggio.
In base al al risultato della somma si fa il pronostico ......Ciao immagini ho inserito i commenti sulle righe .
lo script serve a te per verificare i tuoi risultati e fare una statistica.
Esempio vedi che l ultima estrazione di Cagliari a somma= 200
Puoi verificare nel passato quante volte sono usciti gli ambi che tu vuoi proporre . Basterebbe inserire una linea di codice per verificare anche i due capogiochi per ambata.
E semplice .
Inserisci un tuo valore e verificarlo.![]()