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
    giovedì 18 aprile 2024
    Bari
    13
    39
    14
    70
    78
    Cagliari
    67
    65
    03
    87
    63
    Firenze
    85
    90
    19
    67
    78
    Genova
    60
    81
    39
    33
    13
    Milano
    90
    01
    83
    11
    88
    Napoli
    18
    12
    80
    29
    19
    Palermo
    50
    83
    40
    24
    12
    Roma
    74
    48
    75
    65
    37
    Torino
    80
    46
    44
    27
    30
    Venezia
    70
    16
    72
    03
    89
    Nazionale
    89
    22
    06
    87
    13
    Estrazione Simbolotto
    Genova
    28
    21
    43
    25
    17

Ultimi Messaggi

Alto