Novità

SUPER URGENTE

Alien.

Advanced Premium Member
Messaggi
22.943
Punti reazione
219
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
185
Punti reazione
19
Punti
18
CADVERTISEMENT
Ciao Alien, non hai scritto quali sono le due ruote, oppure non ho capito io, grazie.​
 

Master

Advanced Member >GOLD<
Messaggi
776
Punti reazione
29
Punti
28
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
22.943
Punti reazione
219
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.918
Punti reazione
450
Punti
83
è 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
22.943
Punti reazione
219
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.868
Punti reazione
1.000
Punti
113
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
22.943
Punti reazione
219
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.868
Punti reazione
1.000
Punti
113
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.918
Punti reazione
450
Punti
83
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
    sabato 26 settembre 2020
    Bari
    14
    86
    85
    68
    16
    Cagliari
    31
    45
    42
    79
    21
    Firenze
    74
    69
    10
    63
    35
    Genova
    67
    32
    79
    36
    66
    Milano
    89
    59
    36
    77
    90
    Napoli
    58
    33
    06
    18
    56
    Palermo
    30
    19
    62
    90
    17
    Roma
    33
    70
    35
    75
    21
    Torino
    15
    20
    57
    21
    35
    Venezia
    36
    29
    71
    15
    26
    Nazionale
    73
    02
    20
    72
    10
    Estrazione Simbolotto
    Palermo
    21
    07
    14
    16
    18
Alto