Somma 90 in 4* e 5* posizione

[Djbene]

il 90 si sioca a tutte in cadenza 3

90 03

90 13

90 23

90 33

90 43

90 53

90 63

90 73

90 83

 

[Djbene]

il 90 si sioca a tutte in cadenza 3

90 03

90 13

90 23

90 33

90 43

90 53

90 63

90 73

90 83

il 90 si sioca a tutte in cadenza 3

90 03

90 13

90 23

90 33

90 43

90 53

90 63

90 73

90 83

 

[Djbene]

A colpo Napoli Tutte ambo secco 90. 83

 

[Djbene]

Bari 86 4 in 4 e quinta posizione !

In gioco a tutte

90 in cadenza tre

90 3
90 13
90 23
90 33
90 43
90 53
90 63
90 73
90 83

chi riesce a fare un script gliene sarei grato grazie

 

[lotto_tom75]

Bari 86 4 in 4 e quinta posizione !

In gioco a tutte

90 in cadenza tre

90 3
90 13
90 23
90 33
90 43
90 53
90 63
90 73
90 83

chi riesce a fare un script gliene sarei grato grazie

Salvo errori guarda se ti può andare bene questo che ti ho fatto al volo...
Provandolo ho cercato di vedere da altro tipo di analisi (incmax x A in c5 con la fissa qui rilevata by es 8117) quale potrebbe essere la ruota teoricamente favorita per l'ipotetica caduta su TTeNZ della coppia con colpi rimanenti teorici pari a 2 e la ruota avente + risultanze di questo tipo è risultata PA. Good Luck

'Option Explicit
Sub Main
   'metodo rilevamento condizione di ambo di  somma 90 e verifica coppie con 90 fisso e cadenza 3 x A su TT e NZ by djbene
   'script by tom
   'ruota = ScegliRuota
   Dim colpidiverifica
   colpidiverifica = CInt(InputBox("colpi di verifica",,35))
   Dim sortediverifica
   sortediverifica = CInt(InputBox("sorte di verifica",,2))
   For es = EstrazioneFin - 108 To EstrazioneFin '1080 ok anche per ultime 306 es
      For ruota = 1 To 12
         If ruota = 11 Then
            ruota = 12
         End If
         'Scrivi StringaEstratti(es,ruota,".")
         For p = 1 To 5
            a1 = Estratto(es,ruota,p)
            If p <= 4 Then
               a2 = Estratto(es,ruota,p + 1)
            End If
            'If StringaNumeri(a1) <> Null And StringaNumeri(a2) <> Null Then
            'If Len(StringaNumeri(a1)) = 2 And Len(StringaNumeri(a2)=2) Then
            If a1 <> a2 Then
               If(a1) +(a2) = 90 Then
                  Scrivi "trovata condizione! con " & a1 & " - " & a2 & " in " & NomeRuota(ruota) & " " & StringaEstratti(es,ruota,".") & " es " & GetInfoEstrazione(es)
                  'trovata la condizione di coppia di somma 90 provo a comporre l'ambata secondo metodo... ovvero le formando le coppie con 90 e singoli elementni di cadenza 3...
                  ReDim coppia1(2)
                  coppia1(1) = 90
                  coppia1(2) = 3
                  ReDim coppia2(2)
                  coppia2(1) = 90
                  coppia2(2) = 13
                  ReDim coppia3(2)
                  coppia3(1) = 90
                  coppia3(2) = 23
                  ReDim coppia4(2)
                  coppia4(1) = 90
                  coppia4(2) = 33
                  ReDim coppia5(2)
                  coppia5(1) = 90
                  coppia5(2) = 43
                  ReDim coppia6(2)
                  coppia6(1) = 90
                  coppia6(2) = 53
                  ReDim coppia7(2)
                  coppia7(1) = 90
                  coppia7(2) = 63
                  ReDim coppia8(2)
                  coppia8(1) = 90
                  coppia8(2) = 73
                  ReDim coppia9(2)
                  coppia9(1) = 90
                  coppia9(2) = 83
                  ReDim vettoreruoteTTeNZunite(11)
                  vettoreruoteTTeNZunite(1) = BA_
                  vettoreruoteTTeNZunite(2) = CA_
                  vettoreruoteTTeNZunite(3) = FI_
                  vettoreruoteTTeNZunite(4) = GE_
                  vettoreruoteTTeNZunite(5) = MI_
                  vettoreruoteTTeNZunite(6) = NA_
                  vettoreruoteTTeNZunite(7) = PA_
                  vettoreruoteTTeNZunite(8) = RO_
                  vettoreruoteTTeNZunite(9) = TO_
                  vettoreruoteTTeNZunite(10) = VE_
                  vettoreruoteTTeNZunite(11) = NZ_
                  ReDim posta(2)
                  posta(2) = 2
                  Call ImpostaGiocata(1,coppia1,vettoreruoteTTeNZunite,posta,colpidiverifica,sortediverifica)
                  Call ImpostaGiocata(2,coppia2,vettoreruoteTTeNZunite,posta,colpidiverifica,sortediverifica)
                  Call ImpostaGiocata(3,coppia3,vettoreruoteTTeNZunite,posta,colpidiverifica,sortediverifica)
                  Call ImpostaGiocata(4,coppia4,vettoreruoteTTeNZunite,posta,colpidiverifica,sortediverifica)
                  Call ImpostaGiocata(5,coppia5,vettoreruoteTTeNZunite,posta,colpidiverifica,sortediverifica)
                  Call ImpostaGiocata(6,coppia6,vettoreruoteTTeNZunite,posta,colpidiverifica,sortediverifica)
                  Call ImpostaGiocata(7,coppia7,vettoreruoteTTeNZunite,posta,colpidiverifica,sortediverifica)
                  Call ImpostaGiocata(8,coppia8,vettoreruoteTTeNZunite,posta,colpidiverifica,sortediverifica)
                  Call ImpostaGiocata(9,coppia9,vettoreruoteTTeNZunite,posta,colpidiverifica,sortediverifica)
                  Gioca es,,,,,False
                  '----------------
               End If ' x somma 90
            End If ' x evita valori cloni
            If ScriptInterrotto Then Exit For
         Next ' x p
         Messaggio es
         If ScriptInterrotto Then Exit For
      Next ' x ruota
      Call AvanzamentoElab(a,EstrazioneFin,es)
      If ScriptInterrotto Then Exit For
   Next ' x es
   ScriviResoconto
   Call ScriviDistribuzioneCasiInCorso(True,"1,2,3") '4,5,6,7,8,9,10,11,12,13")
   Scrivi
   Scrivi "Nessuna Certezza Solo Poca Probabilità"
   Scrivi
   Scrivi "Tempo trascorso " & TempoTrascorso
   Scrivi
End Sub

 

[Djbene]

Grazieee

a colpo
nazionale 90 03
Al 6 colpo
napoli 90 33

 

[Djbene]

Bari tutte in gioco 90 43 e 90 73

x tre colpi

 

[salvo14]

Scusate ma qualè il metodo? ho visto lo Script ma non cè nessun ambo... non riesco a capire....

 

[briccone]

Ciao a tutti,
il metodo mette in gioco gli ambi che hanno capo gioco 90 con la cadenza 3 quando viene rilevata su qualunque ruota la somma del quarto e quinto estratto uguale a 90.

Vedi gli ambi al #4.

briccone

 

[salvo14]

Ciao a tutti,
il metodo mette in gioco gli ambi che hanno capo gioco 90 con la cadenza 3 quando viene rilevata su qualunque ruota la somma del quarto e quinto estratto uguale a 90.

Vedi gli ambi al #4.

briccone

Grazie adesso ho capito. Buona serata.

 

[Djbene]

Peccato ….90 63

 

[adeleadele]

Buongiorno mi da errore qui grazie.For es = EstrazioneFin - 108 To EstrazioneFin '1080 ok anche per ultime 306 es

 

[Djbene]

Nazionale 34 56 in 4 “ e 5” posizione

Ancora tutto in gioco

Il 90 si presenterà in cadenza 3