lla
Premium Member
ciao a tutti
ho trovato questo scriptino per superenalotto
qualcuno gentilmente potrebbe modificarmelo in modo tale che anzichè trovare estrazioni dove il 1°+ il 2°=30 trovi 2 numeri a scelta a prescindere dalla posizione di uscita, tipo ambo spia?
e se possibile vedere nei 10 colpi anche l'estrazione per verifica? per ora mette solo gli estratti e fianco la data
grazie mille
Sub Main
' gioca i numeri da 1 a 20 per 10 colpi se la somma del primo e secondo numero dell'estrazione fa 30
' i 10 colpi si interrompono se fa 4 punti
ReDim aNumeri(20) ' array nueri in giocoo
Dim k ' contrllo cicli
For k = 1 To 20 ' preimposto i numeri in gioco da 1 a 20
aNumeri(k) = k
Next
For k = 1 To EstrazioniArchivioSE ' gioco su tutto l'archivio
If EstrattoSE(k,1) + EstrattoSE(k,2) = 30 Then ' se la somma del primo e secondo numero fa 30 gioco
Call ScriviEstrazioneSE(k,True) ' scrivo l'estrazione che ha generato il pronostico
Call ImpostaGiocataSE(1,aNumeri,,10,4) ' gioca per 10 colpi che si interrompono appena fa 4 punti
Call GiocaSE(k) ' gioco i numeri al superenalotto
End If
Next
Call ScriviResocontoSE ' scrivo resoconto superenalotto
End Sub
ho trovato questo scriptino per superenalotto
qualcuno gentilmente potrebbe modificarmelo in modo tale che anzichè trovare estrazioni dove il 1°+ il 2°=30 trovi 2 numeri a scelta a prescindere dalla posizione di uscita, tipo ambo spia?
e se possibile vedere nei 10 colpi anche l'estrazione per verifica? per ora mette solo gli estratti e fianco la data
grazie mille
Sub Main
' gioca i numeri da 1 a 20 per 10 colpi se la somma del primo e secondo numero dell'estrazione fa 30
' i 10 colpi si interrompono se fa 4 punti
ReDim aNumeri(20) ' array nueri in giocoo
Dim k ' contrllo cicli
For k = 1 To 20 ' preimposto i numeri in gioco da 1 a 20
aNumeri(k) = k
Next
For k = 1 To EstrazioniArchivioSE ' gioco su tutto l'archivio
If EstrattoSE(k,1) + EstrattoSE(k,2) = 30 Then ' se la somma del primo e secondo numero fa 30 gioco
Call ScriviEstrazioneSE(k,True) ' scrivo l'estrazione che ha generato il pronostico
Call ImpostaGiocataSE(1,aNumeri,,10,4) ' gioca per 10 colpi che si interrompono appena fa 4 punti
Call GiocaSE(k) ' gioco i numeri al superenalotto
End If
Next
Call ScriviResocontoSE ' scrivo resoconto superenalotto
End Sub