Novità

modifica su script SE

  • Creatore Discussione Creatore Discussione lla
  • Data di inizio Data di inizio

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
 
E si gioca una volta l'anno all'incirca ma poi come li giochi i 20 numeri? il gioco è su tutte,grazie.
 
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 :D
 
Prova questo

Codice:
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
 
Ultima modifica:
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
 
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
 
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
 
Ma ti pare che un alieno faccia gli script so guidare l'astronave ,trasformarmi in un albero ma lo script no:unsure::p:p:p
 
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
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 14 gennaio 2025
    Bari
    41
    25
    12
    73
    55
    Cagliari
    54
    20
    48
    32
    67
    Firenze
    75
    23
    68
    10
    38
    Genova
    33
    27
    81
    70
    64
    Milano
    68
    01
    64
    86
    87
    Napoli
    47
    75
    45
    10
    21
    Palermo
    55
    86
    33
    53
    70
    Roma
    88
    78
    61
    06
    07
    Torino
    76
    08
    23
    61
    82
    Venezia
    25
    15
    49
    21
    81
    Nazionale
    70
    10
    32
    78
    07
    Estrazione Simbolotto
    Bari
    07
    14
    28
    45
    31
Indietro
Alto