modifica su script SE

[lla]

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

 

[lla]

neesuno nessuno?

 

[Alien.]

E si gioca una volta l'anno all'incirca ma poi come li giochi i 20 numeri? il gioco è su tutte,grazie.

 

[lla]

ciao Alien

in realtà mi serve solo per fare ricerche e verifiche, a differenza del lotto di programmi per il supernalotto ce ne sono pochi e ho pensato di usare questo semplice semplice, solo che mette la posizione sui numeri e volevo essere libera di scegliere 2 numeri sulla sestina senza la posizione.
io sono stata capace solo di modificare If EstrattoSE(k,1) + EstrattoSE(k,2) = 30

in
If EstrattoSE(k,1)= Numero a scelta 1 and EstrattoSE(k,2) =numero a scelta 2 ma mi tocca cambiare le posizioni a mano

 

[Master]

Prova questo

Sub Main
   ' gioca i numeri da 1 a 20 per 10 colpi se trova i 2 numeri scelti nell'estrazione
   Dim RetEsito,RetColpi,RetEstratti,RetIdEstr
   Dim xlp,xColpi,AA,S,A,B,P,P1,P3,E1,Sorte
   AA = InputBox("Inserisci 2 Numeri SEPARATI dal punto"," NUMERI SPIA","38.60")
   AA = "0." & AA
   S = Split(AA,".")
   A = CInt(S(1)) : B = CInt(S(2))
   Sorte = CInt(InputBox("Sorte ?","SORTE",3))
   xColpi = CInt(InputBox("Quanti colpi ?","COLPI",10))
   ReDim aNumeri(30) ' array nueri in giocoo
   Dim k ' contrllo cicli
   For k = 20 To 30 ' preimposto i numeri in gioco da 1 a 20
      aNumeri(k) = k
   Next
   For k = 1 To EstrazioniArchivioSE ' gioco su tutto l'archivio
      For P = 01 To 6
         For P1 = 01 To 6
            If EstrattoSE(k,P) = A And EstrattoSE(k,P1) = B Then ' a e b numeri spia
               Scrivi(k) & " " & DataEstrazioneSE(k,1) & " - ",1,0
               For P3 = 1 To 8
                  E1 = EstrattoSE(k,P3)
                  If E1 = A Or E1 = B Then
                     ColoreTesto 2
                  Else
                     ColoreTesto 0
                  End If
                  Scrivi Format2(E1) & " ",1,0
                  ColoreTesto 0
               Next
               Scrivi" -"
               'Call ScriviEstrazioneSE(k,True)
               For xlp = 01 To xColpi
                  If VerificaEsitoSE(aNumeri,k + xlp,Sorte,01,RetEsito,RetColpi,RetEstratti,RetIdEstr) = True Then
                     ColoreTesto 2
                     Call Scrivi(FormatSpace(xlp,02,- 01) & "° clp.. " & DataEstrazioneSE(k + xlp) & _
                     " ... " & StringaNumeri(aNumeri) & " ... " & StringaEstrattiSE(k + xlp) & " --- " & FormatSpace(RetEsito,08,- 01) & " " & RetEstratti)
                     ColoreTesto 0
                  ElseIf RetEsito = "" And RetColpi < 01 Then
                     Call Scrivi("Esito in Corso per il " & Format2(xlp) & "° clp ",01)
                  Else
                     Call Scrivi(FormatSpace(xlp,02,- 01) & "° clp.. " & DataEstrazioneSE(k + xlp) & _
                     " ... " & StringaNumeri(aNumeri) & " ... " & StringaEstrattiSE(k + xlp) & " --- " & "negativo ")
                  End If
                  If k + xlp > EstrazioniArchivioSE Then Exit For
               Next
               Scrivi
            End If
         Next
      Next
   Next
End Sub

 

[i legend]

Ciao, non ho il programma quindi non posso verificare
Se ho letto bene lo script , se vuoi verificare la presenza dell ambo spia
Potresti usare la funzione puntisuarray ma non ricordo se esiste anche per Superenalotto, oppure anziché fare due cicli usare
If posizione del primo numero >0 and posizione secondo numero >0 then
Questo dovrebbe velocizzare la ricerca .
Se ho interpretato male , spero che questa soluzione possa essere utile in altrio contesto.
Ciao
P.s
Del Superenalotto non conosco neanche le regole

 

[Master]

Ciao i legend
punti su array non l'ho ancora usato, quando ho tempo lo proverò,
non sono stato tanto a velocizzare lo script
dato che impiega circa 2 secondi dall'estrazione 1 all'estrazione fin
ti ringrazio per i consigli, c'è sempre qualcosa da imparare
alla prossima

 

[lla]

grazie

 

[genios]

Visto che si parla di SuperEnalotto Qualcuno potrebbe sviluppare il seguente script per super enalotto : dall estrazione iniziale all estrazione finale step 10 Consideriamo le 30 terzine simmetriche quindi selezionare le terzine simmetriche che in 10 estrazioni non hanno dato nessun estratto (1) questa condizione deve essere verificata su i primi 7 numeri della colonna vincente . Raggrupparle le terzine simmetriche che in 10 estrazioni non hanno dato nessun estratto e metterle insieme , quindi fare il controllo su i risultati per 2 3 4 5 e 6 punti .Il controllo dovrà essere fatto su i 6 numeri della colonna vincente per 5 estrazioni .

ciao Eugenio

 

[Alien.]

 

[genios]

Cioè Alien ?

 

[Alien.]

SI DIMMI:

 

[genios]

io pensavo facessi lo script .

 

[Alien.]

Ma ti pare che un alieno faccia gli script so guidare l'astronave ,trasformarmi in un albero ma lo script no

 

[genios]

Peccato sapevo che gli aliene riescono a fare tutto .

 

[lla]

vi vedo felici e scherzosi avete fatto terno? ?

Master o chi può
si potrebbero aggiungere sempre a questo script modificato un paio di informazioni?

una tabellina con una colonna che dice quali sono i numeri + frequenti dopo l'ambo spia ?
per es. dopo l'ambo spia a scelta 10- 20 che mettiamo si sia verificato in 10 estrazioni su 100
quante volte è uscito il 12?
per es.3 volte sulle 10 totali

e un'altra colonna dove inserisce gli ambi più frequenti
quindi quante volte dopo il 10 e 20 si è verificato per es. il 12-14?

grazie