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
    venerdì 26 aprile 2024
    Bari
    65
    67
    84
    22
    77
    Cagliari
    38
    09
    83
    18
    20
    Firenze
    76
    24
    78
    30
    40
    Genova
    50
    56
    61
    90
    57
    Milano
    87
    21
    15
    12
    79
    Napoli
    13
    66
    86
    25
    49
    Palermo
    72
    60
    68
    74
    09
    Roma
    23
    15
    43
    07
    75
    Torino
    82
    79
    31
    41
    64
    Venezia
    66
    89
    18
    80
    41
    Nazionale
    04
    24
    10
    69
    73
    Estrazione Simbolotto
    Genova
    33
    03
    16
    35
    32
Alto