Novità

SUPER URGENTE

Alien.

Advanced Premium Member
Messaggi
21.356
Punti reazione
138
Punti
63
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 ?
 

pontina

Super member
Messaggi
177
Punti reazione
17
Punti
18
CADVERTISEMENT
Ciao Alien, non hai scritto quali sono le due ruote, oppure non ho capito io, grazie.​
 

Master

Advanced Member
Messaggi
582
Punti reazione
8
Punti
18
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
Messaggi
21.356
Punti reazione
138
Punti
63
è 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

Advanced Member >PLATINUM PLUS<
Messaggi
3.240
Punti reazione
108
Punti
63
è 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
Messaggi
21.356
Punti reazione
138
Punti
63
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<
Messaggi
2.151
Punti reazione
67
Punti
48
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
Messaggi
21.356
Punti reazione
138
Punti
63
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<
Messaggi
2.151
Punti reazione
67
Punti
48
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

Advanced Member >PLATINUM PLUS<
Messaggi
3.240
Punti reazione
108
Punti
63
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ì 21 gennaio 2020
    Bari
    29
    60
    75
    26
    59
    Cagliari
    63
    32
    18
    33
    09
    Firenze
    41
    46
    35
    45
    67
    Genova
    05
    42
    69
    58
    68
    Milano
    71
    75
    68
    19
    69
    Napoli
    83
    59
    46
    06
    77
    Palermo
    54
    05
    68
    43
    10
    Roma
    72
    16
    25
    36
    20
    Torino
    52
    42
    21
    39
    22
    Venezia
    13
    54
    20
    04
    28
    Nazionale
    46
    58
    10
    06
    70
Alto