SUPER URGENTE

Alien. · 14 Gennaio 2020

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 · 14 Gennaio 2020

CADVERTISEMENT

Ciao Alien, non hai scritto quali sono le due ruote, oppure non ho capito io, grazie.

Master · 14 Gennaio 2020

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. · 14 Gennaio 2020

è 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 !

Alien. · 14 Gennaio 2020

Grazie Master è perfetto.

i legend · 14 Gennaio 2020

Alien. ha scritto:
è 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. · 18 Gennaio 2020

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 · 19 Gennaio 2020

Alien. ha scritto:
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

Alien. · 19 Gennaio 2020

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 · 19 Gennaio 2020

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 · 19 Gennaio 2020

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

Cerca

Cerca

SUPER URGENTE

Alien.

Advanced Premium Member

pontina

Advanced Member

Master

Advanced Member >PLATINUM<

Alien.

Advanced Premium Member

Alien.

Advanced Premium Member

i legend

Premium Member

Alien.

Advanced Premium Member

salvo50

Advanced Member >PLATINUM PLUS<

Alien.

Advanced Premium Member

salvo50

Advanced Member >PLATINUM PLUS<

i legend

Premium Member

Ultima estrazione Lotto

Ultimi Messaggi