Novità

AMBATA ED AMBO SULLA NAZIONALE E TUTTE

Abitte

Advanced Member >PLATINUM PLUS<
OOOOOOOO....YESSSSSS!!!!!! E se avessimo messo il 30 (errato ma segnalato da Alien) avremmo fatto doppio ambo e terno in lunghetta,maaaaa......MI ACCONTENTOOOOOO!!!!!!! ;):D:D:D:D:D
 

Rosemary60

Advanced Member >PLATINUM<
Bravi.....io preso solo ambata 29......poco ma lho presa.
Non posso seguire tutti gli abbinamenti...sono troppi... e contando che questo metodo sta funzionando gia parecchioooo........mmmm

Ciao Gabry
 

Alien.

Advanced Premium Member
Abitte;n2110282 ha scritto:
OOOOOOOO....YESSSSSS!!!!!! E se avessimo messo il 30 (errato ma segnalato da Alien) avremmo fatto doppio ambo e terno in lunghetta,maaaaa......MI ACCONTENTOOOOOO!!!!!!! ;):D:D:D:D:D



30 ERRATO ? spiegami perchè ?
 

Alien.

Advanced Premium Member
acc.. vero ho errato la formula di excel ...sorry.........ma a volte sbagliano ..si va al segno hahaahhaha
 

Abitte

Advanced Member >PLATINUM PLUS<
10^ di APRILE--------> NAZ : 46 ambata- 76 ambata second. ed ambo- 32 somma-37 diametr.in dec.somma- 73 suo vertibile- 58 coml. a 90 della somma........purtroppo non giocati perché dimenticata di calcolarli....speriamo aspettino due o tre colpetti per uscire !;)
 

Alien.

Advanced Premium Member
VEDIAMO SE...........................


Martedì 22 Maggio 2018Concorso n. 61vertibile
7717 499086
 
R

Roby

Guest
Salve a tutti

mi son ritrovato uno script con delle caratteristiche solo un po simili.
con piccole modifiche eccolo qui.
fa le cose descritte fino adesso.
L'unica cosa, ho notato che raramente, fra gli abbinamenti potrebbe risultare qualche nunero uguale, ma solo raramente.
Non ho trovato nulla a riguardo di come comportarsi in casi simili.

ecco lo script


Codice:
Sub Main()
   Dim idEstr
   Dim Inizio
   Dim Fine
   Dim ruota(10)
   Dim ruote(10)
   Dim posta(10)
   Dim poste(10)
   Dim r
   Dim nric
   Dim Clp
   Dim am(2)
   Dim n(2)
   Dim Abb(6)
   posta(1) = 1
   poste(2) = 1
   r = CInt(InputBox(" Scegli la ruota ",,"12"))
   nric = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"225"))
   Clp = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"9"))
   Inizio = EstrazioneFin - nric
   Fine = EstrazioneFin
   co = 0
   For idEstr = Inizio To Fine
      If IndiceMensile(idEstr) = 10 Then
         Messaggio "elab. estr. [" &(idEstr) & "] di " & DataEstrazione(idEstr,1)
         Call AvanzamentoElab(Inizio,Fine,idEstr)
         ruote(1) = r
         a = Estratto(idEstr,r,3)
         ok = 0
         b = Fuori90(a + 10)
         c = Fuori90(a + 40)
         n(1) = b
         n(2) = c
         am(1) = b
         am(2) = c
         Abb(1) = b
         Abb(2) = c
         Abb(3) = Fuori90(b + c)
         Abb(4) = DiametraleD(Abb(3))
         Abb(5) = Vert(Abb(4))
         Abb(6) = ComplAdX(Abb(3))
         ok = 1
         If ok = 1 Then
            ruota(1) = r
            ruote(1) = 11
            co = co + 1
            Scrivi String(100,"°") & " Caso n°" & co,1
            Scrivi DataEstrazione(idEstr) & " -- " & SiglaRuota(r) & " - " & StringaEstratti(idEstr,r) & " ** " & "  Ambate :   " & b & " - " & c,1
            Scrivi "                                       Abbinamenti : " & Abb(3) & " - " & Abb(4) & " - " & Abb(5) & " - " & Abb(6),1
            Scrivi String(100,"°"),1
            ImpostaGiocata 1,n,ruota,posta,Clp',1
            ImpostaGiocata 2,am,ruota,poste,Clp',2
            ImpostaGiocata 3,am,ruote,poste,Clp',2
            ImpostaGiocata 4,Abb,ruota,poste,Clp',2
            ImpostaGiocata 5,Abb,ruote,poste,Clp',2
            Gioca idEstr
         End If
      End If
      If ScriptInterrotto Then Exit For
   Next
   Scrivi
   Scrivi String(100,"*")
   ColoreTesto 2
   Scrivi" casi trovati : " & co,1
   ColoreTesto 0
   Scrivi String(100," * ")
   TestoInBandaPassante("  Da  C e r b e r u s  per  A l i e n  "),1,3,0
   ScriviResoconto,False
   Scrivi "Metodo da Alien su Nazionale e Tutte",1
End Sub


saluti
 

Alien.

Advanced Premium Member
Grazie Cerberus .

Per caso puoi inserire le ruote in cui si sono avuti gli ambi (come statistica) es:Ba 6 Ca 3 ecc.
 
Ultima modifica:
R

Roby

Guest
Certo, lo farò. adesso non posso perchè sto con Linux

intendi sempre da dicembre 2016?
 

franca46

Advanced Member >PLATINUM PLUS<
Alien.;n2116954 ha scritto:
VEDIAMO SE...........................


Martedì 22 Maggio 2018Concorso n. 61vertibile
7717 499086
Codice:
mar 22.05.2018  [9476]
  G  1:  M          77.17               Nz    2/12    
     in corso (2° su 12)
  G  2:  ATQ        77.17.04.09.90.86   Nz    2/12    
     in corso (2° su 12)
  G  3:  ATQ        77.17.04.09.90.86   Tu    2/12    
     A  09.04            su Tu (Fi)    1° colpo   [9477/24.05.2018]
     A  90.04            su Tu (Fi)    2° colpo   [9478/26.05.2018]
     in corso (2° su 12)
 

Alien.

Advanced Premium Member
l'archivio di spaziometria è errato :
20.01.2018 - Bari: 37.38.79.13.78 - questo è su spazio.
questo il reale
Sabato 20 Gennaio 2018Concorso n. 9
Bari243153656
Cagliari4129758727
Firenze876823928
Genova5323273854
Milano1963892416
Napoli408885120
Palermo8543704460
Roma384357174
Torino219277089
Venezia3541223130
Nazionale28291358
 
Ultima modifica:

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 23 aprile 2024
    Bari
    47
    22
    34
    20
    50
    Cagliari
    33
    14
    86
    02
    62
    Firenze
    61
    22
    44
    19
    26
    Genova
    21
    12
    57
    82
    55
    Milano
    66
    05
    11
    70
    30
    Napoli
    05
    23
    25
    52
    73
    Palermo
    23
    44
    49
    71
    65
    Roma
    82
    37
    59
    34
    71
    Torino
    26
    42
    66
    15
    58
    Venezia
    57
    06
    68
    54
    84
    Nazionale
    21
    79
    49
    03
    01
    Estrazione Simbolotto
    Genova
    24
    02
    19
    03
    27
Alto