Novità

SUPER URGENTE

Alien.

Advanced Premium Member
CIAO,mi serve uno script facile,facile
DA input inserisco un numero mi deve trovare questo numero uscito in due ruote a questo punto .nello script fa la ricerca in queste due ruote l'uscita per ambata,ambo,terno, ed oltre dei seguenti numeri fissi:
4-6-9-10-39-53 .fatto,facile no ?
 

Master

Advanced Member >PLATINUM<
Ciao Alien
Prova questo
Sub Main()
Scrivi "Super urgente per Alien - https://forum.lottoced.com/threads/super-urgente.2192349/"
Scrivi
Dim n1,r1,r2,p1,p2,a,b,Ini,fin,ce,sm,es,k,casi
Dim ruote(2)
Dim poste(5)
poste(1) = 1 : poste(2) = 1 : poste(3) = 1 : poste(4) = 1 : poste(5) = 1
sm = CInt(InputBox("Quale spia?","spia",13))
ce = InputBox(" Quante estrazioni vuoi controllare? ","estrazioni",100)
k = InputBox("Quanti colpi?","colpi di gioco",9)
Ini = EstrazioneFin - ce
fin = EstrazioneFin
casi = 0
For es = Ini To fin
Messaggio("elab. estrazione........" & es & " script by Master ")
Call AvanzamentoElab(Ini,fin,es)
For r1 = 1 To 10
For r2 = r1 + 1 To 12
If r2 = 11 Then r2 = 12
For p1 = 1 To 5
For p2 = 1 To 5
a = Estratto(es,r1,p1) : b = Estratto(es,r2,p2)
If a = sm And b = sm Then
n1 = Array(00,04,06,09,10,39,53)
casi = casi + 1
Scrivi String(100,"°") & " Caso n°" & casi,1
ColoreTesto 1
Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & _
" ] * [ " & Format2(a) & " ]" & " Pos " & Format2(p1),1
Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r2) & " - " & StringaEstratti(es,r2) & _
" ] * [ " & Format2(b) & " ]" & " Pos " & Format2(p2),1
Scrivi
ruote(1) = r1 : ruote(2) = r2
ColoreTesto 0
ImpostaGiocata 1,n1,ruote,poste,k
Gioca es
End If
Next
Next
Next
Next
Next
Scrivi
ScriviResoconto,0
End Sub
 

Alien.

Advanced Premium Member
è vedi quando si digita è tutto sotto inteso ma non è così ed hai ragione le ruote sono dove sono usciti i due numeri uguali
es: 7 a milano e 7 a venezia si gioca sulle due ruote MI-VE

grazie.


ma cavolacci rileggendo è specificato:

questo numero uscito in due ruote a questo punto .nello script fa la ricerca in queste due ruote,è mi pare chiaro no !
 

i legend

Premium Member
è vedi quando si digita è tutto sotto inteso ma non è così ed hai ragione le ruote sono dove sono usciti i due numeri uguali
es: 7 a milano e 7 a venezia si gioca sulle due ruote MI-VE

grazie.


ma cavolacci rileggendo è specificato:

questo numero uscito in due ruote a questo punto .nello script fa la ricerca in queste due ruote,è mi pare chiaro no !
Ciao , Alien
Anche io non avevo ben chiaro come impostare lo script.
1 punto
Allora è giusto non voler rilevare i numeri di ricerca? In fin dei conti si chiede a qualcuno di fare qualcosa per te gratis.
Ma sorvolando su questo punto ,diciamo etico,e, non utile ai fini dello script , passo al punto 2 , ossia pratico.
Quella lunghetta, non è sicuramente universale quindi cambierà a seconda del numero spiA, ergo dovrò inserire un input box anche per questa.
II numero spia di queste due ruote dovrà essere isotopo? Va bene qualsiasi posizione?
Se nella estrazione il numero spia esce su quattro ruote o comunque più di due , come deve comportarsi il programma?
Deve scartare quella estrazione? Deve giocare su tutte le ruote che rispettano la condizione?
Devo fare la statistica con con resoconto giocata oppure ?
Ecco se si conoscono queste indicazioni per chi vuole cimentarsi è più facile.

Ciao a tutti :)
Faccio i complimenti a master per i suoi script.
 

Alien.

Advanced Premium Member
Ciao I LEGEND,NON è PER ME LO SCRIPT , ME LO HANNO CHIESTO, tutto qua ma mi ha detto che non torna ci dovrebbero essete più terni.
no isotopo se esce su più ruote in numero uguale 2/4/6 su quelle ruote si mette i sopra numeri fissi ,si resoconto ,vedo di sapere quale numero è.
 

salvo50

Advanced Member >PLATINUM PLUS<
Ciao I LEGEND,NON è PER ME LO SCRIPT , ME LO HANNO CHIESTO, tutto qua ma mi ha detto che non torna ci dovrebbero essete più terni.
no isotopo se esce su più ruote in numero uguale 2/4/6 su quelle ruote si mette i sopra numeri fissi ,si resoconto ,vedo di sapere quale numero è.

Ciao a Tutti.

Alien, sicuramente i terni usciranno in base alla spia che metti, prova a mettere come spia il

23 = 6 terni
82, 76 = 5 terni
86, 31, 87, 79 = 3 terni
12, 05, 29, 28, 32, 04, 80 = 2 terni

poi altri 23 spie con un solo terno
 
Ultima modifica:

Alien.

Advanced Premium Member
Salvo hai fatto un bel lavoro hai provato tutti i numeri?
con il 23= 6 numeri ma 5 mi pare che sono sempre gli stessi usciti.
Questo perchè se il numero spia esce tre estrazioni prima ed uno tre estrazioni dopo ci ritroviamo sempre lo stesso terno e lo script lo conta 1+1.

No l'idea è deludente mi son fatto dire il numero spia era il 90.Peccato,grazie a tutti.
 

salvo50

Advanced Member >PLATINUM PLUS<
Si ho provato tutti i numeri, ho fatto una piccola modifica allo script di Master

Codice:
Sub Main()
   Scrivi "Super urgente per Alien - https://forum.lottoced.com/threads/super-urgente.2192349/"
   Scrivi
   Dim n1,r1,r2,p1,p2,a,b,Ini,fin,ce,sm,es,k,casi
   Dim ruote(2)
   Dim poste(5)
   poste(1) = 1 : poste(2) = 1 : poste(3) = 1 : poste(4) = 1 : poste(5) = 1
   'sm = CInt(InputBox("Quale spia?","spia",13))
   ce = InputBox(" Quante estrazioni vuoi controllare? ","estrazioni",50)
   k = InputBox("Quanti colpi?","colpi di gioco",9)
   Ini = EstrazioneFin - ce
   fin = EstrazioneFin
   casi = 0
   For es = Ini To fin
      Messaggio("elab. estrazione........" & es & " script by Master ")
      Call AvanzamentoElab(Ini,fin,es)
      For r1 = 1 To 10
         For r2 = r1 + 1 To 12
            If r2 = 11 Then r2 = 12
            For p1 = 1 To 5
               For p2 = 1 To 5
                  a = Estratto(es,r1,p1) : b = Estratto(es,r2,p2)
                 For sm = 1 To 90
                  If a = sm And b = sm Then
                     n1 = Array(00,04,06,09,10,39,53)
                     casi = casi + 1
                     Scrivi String(100,"°") & " Caso n°" & casi,1
                     ColoreTesto 1
                     Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & _
                     " ] * [ " & Format2(a) & " ]" & " Pos " & Format2(p1),1
                     Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r2) & " - " & StringaEstratti(es,r2) & _
                     " ] * [ " & Format2(b) & " ]" & " Pos " & Format2(p2),1
                     Scrivi
                     ruote(1) = r1 : ruote(2) = r2
                     ColoreTesto 0
                     ImpostaGiocata 1,n1,ruote,poste,k
                     Gioca es
                  End If
                  Next
               Next
            Next
         Next
      Next
   Next
   Scrivi
   ScriviResoconto
End Sub
 

i legend

Premium Member
ADVERTISEMENT

ADVERTISEMENT
ciao a tutti
ho fatto uno script che raccoglie i dati e gioca da un minimo di 2 ruote
se le ruote sono tre non contra tre coppie di ruote ma le tre ruote
esempio:numero 1 su ba na ve
non controlla ba.na |ba ve | na ve | =6 previsioni
ma ba na ve = 3 previsioni .
ecco lo script
controllare se ci sono errori lo script è veloce ,controllare se è anche preciso
lo script è commentato​
Codice:
Option Explicit
'lo script è pensato per essere veloce  per favore controllare se funziona e raccoglie tutti i dati
Sub Main
   Dim IdEstr,R,m



   Dim aN(1):aN(1) = CInt(InputBox("Inserieci un nuero compreso tra 1 e 90","Numero Spia",1)) ' questo è il numero di ricerca
   If isNumeroValidoLotto(aN(1)) = False Then Exit Sub
   Dim aPA:aPA = Array(0,0,1)
   Dim sRic
   sRic = InputBox("Inserisci stringa di ricerca separati dalla Virgola","Numeri da controllare","5,15,18,19,23,40,42,64,74,81") ' questa è una stringa di numeri casuale ,si puo sostitutire
   ReDim aNum(0):Call SplitByChar("0," & sRic,",",aNum)
   Dim Ini,Fin,nMinRu,nClp
   Ini = EstrazioneIni
   Fin = EstrazioneFin
   nMinRu = 2 ' numero minimo di ruote su cui si cercs il numero
   nClp = 9 ' numero di colpi di ricerca
   Call ResetTimer
   For IdEstr = Ini To Fin
      m = 0
      ReDim aR(0)
      For R = 1 To 10
         If Posizione(IdEstr,R,aN(1)) Then
            m = m + 1
            ReDim Preserve aR(m)
            aR(m) = R
         End If
      Next
      ' se ci sono almeno il numero di ruote minimo parte la ricerca
      If UBound(aR) >= nMinRu Then
         Call ImpostaGiocata(1,aNum,aR,aPA,nClp)
         Call Gioca(IdEstr)
      End If
      Call AvanzamentoElab(EstrazioneIni,EstrazioneFin,IdEstr)
   Next
   Scrivi TempoTrascorso
   Call ScriviResoconto
End Sub

 
Ultima modifica:

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 26 marzo 2024
    Bari
    30
    51
    17
    01
    53
    Cagliari
    13
    70
    25
    68
    47
    Firenze
    28
    30
    54
    70
    88
    Genova
    67
    87
    22
    03
    62
    Milano
    22
    34
    13
    47
    24
    Napoli
    20
    72
    59
    01
    52
    Palermo
    05
    72
    65
    52
    32
    Roma
    28
    43
    75
    54
    87
    Torino
    16
    08
    17
    24
    38
    Venezia
    67
    28
    55
    60
    29
    Nazionale
    15
    69
    22
    63
    39
    Estrazione Simbolotto
    Firenze
    44
    09
    31
    22
    16
Alto