AIUTO SCRIPT

« Older   Newer »
 
  Share  
.
  1. spilloss77
     
    .

    User deleted


    Ciao a tutti, scrivo perchè ho la necessita di uno script che che faccia la somma del 4° e 5° estratto di una ruota (qualsiasi) e jne verifichi la presenza uguale su almeno un'altra ruota.

    Se trova una somma uguale anche su un'altra ruota allora metta in gioco in quelle due ruote il numeor scaturente dalla somma +17 ed il vertibile.

    FACCIO UN ESEMPIO PRATICO:

    ROMA 1 - 2 - 3 - 4 - 5
    PALERMO 9- 7 - 1 - 6 - 3

    ROMA SOMMA DEL 4° E 5° ESTRATTO DA 9
    PALERMO SOMMA DEL 4° E 5° ESTRATTO DA 9

    A QUESTO PUNTO LO SCRIPT SOMMA AL 9, IL NUMEOR FISSO 17

    E METTE IN GIOCO SULLE RUOTE DI ROMA E PALERMO I NUMERI:
    26 (CIOè 9 + 17)
    62 VERTIBILE DEL 26

    Grazie a chi vorrà aiutarmi.
     
    Top
    .
  2.  
    .
    Avatar

    sean69

    Group
    Administrator
    Posts
    5,897
    Location
    Provincia di Roma..

    Status
    Offline
    Spero qualcuno riesca ad aiutarti,ho provato ma non riesco..vediamo..
     
    Top
    .
  3. spilloss77
     
    .

    User deleted


    Grazie comunque Sean. Sei sempre molto disponibile con me.

    Di certo qualcuno mi aiuterà (speriamo ....... :) )
     
    Top
    .
  4.  
    .
    Avatar

    sean69

    Group
    Administrator
    Posts
    5,897
    Location
    Provincia di Roma..

    Status
    Offline
    Eccoti il Listato,ne ho modificato uno che gia' avevo,non so' come,ma ci sono riuscito :D ..dei 2 numeri in gioco,ho messo anche il gioco di Ambata e l'Ambo a tutte..

    Vedi se va' bene:

    CODICE
    Sub main()
    Dim n,t,r1,r2,n1,n2,n3,n4

    Dim AMBATA(2)
    Dim am(4)
    Dim am1(10)
    Dim ruote(10)
    Dim ruota(10)
    Dim posta(5)
    Dim poste(5)
    posta(1)=1
    poste(2)=1
    poste(3)=1
    For n=8300 To EstrazioneFin
    Messaggio DataEstrazione (n)
    t=1
    Do While DISAMBO(n,t,r1,n1,n2,r2,n3,n4)=True
    ruota(1)=11
    ruote(1)=r1
    ruote(2)=r2
    s1=Fuori90(n1+n2)
    Scrivi "----------------------------------------------------------"
    Scrivi NomeRuota(r1)&" "&Cint(n1)&" + "&Cint(n2)&" ="&Cint(s1)&"  "& NomeRuota(r2)&" "&Cint(n3)&" + "&Cint(n4)&" ="&Cint(s1)
    Scrivi "Alla Somma Comune Isotopa "&Cint(s1)&" addizioniamo il fisso 17 per ottenere il Primo Numero"
    Scrivi "Facciamo il Vertibile del primo Numero per ottenere il Secondo Numero"

    'am1(1)=s1


    AMBATA(1)=Fuori90(s1+17)
    AMBATA(2)= Vert (AMBATA(1))
    am1(2)=AMBATA(1)
    am1(3)=AMBATA(2)
    ImpostaGiocata 1,AMBATA,ruote,posta,9,2

    ImpostaGiocata 2,am1,ruote,poste,9,2
    ImpostaGiocata 3,am1,ruota,poste,9,2

    'ImpostaInterruzioni 1,2,2
    'ImpostaInterruzioni 2,1,2
    Gioca n
    'Gioca AMBATA
    t=t+1
    Loop
    Next
    ScriviResoconto
    End Sub


    Function DISAMBO(estrazione, tentativo, byref ruota1, byref numero1, byref numero2, byref ruota2, byref numero3, byref numero4)
    Dim trovati,r,rr,i,ii,j,jj
    trovati=0
    For r= 1 To 9
     For i= 4 To 4
       j=i+1
         a=Estratto (estrazione,r,i)
         b=Estratto(estrazione,r,j)
                   c=Fuori90(a+b)
                   For rr=r+1 To 10
                           aa=Estratto(estrazione,rr,i)
                           bb=Estratto(estrazione,rr,j)
                           cc=Fuori90(aa+bb)
                           If c=cc Then
                                   trovati=trovati+1
                               If trovati=tentativo Then
                                   numero1=a
                                   numero2=b
                                            numero3=aa
                                     numero4=bb
                                           ruota1=r
                                           ruota2=rr
                                           DISAMBO=True
                                     Exit Function
                                     End If
                           End If
                 Next
           Next
    Next
    DISAMBO=False
    End Function



    Infatti ecco i risultati:


    CODICE
    ----------------------------------------------------------
    Genova 11 + 56 =67  Napoli 34 + 33 =67
    Alla Somma Comune Isotopa 67 addizioniamo il fisso 17 per ottenere il Primo Numero
    Facciamo il Vertibile del primo Numero per ottenere il Secondo Numero
    mar 29.03.2011  [8357]
     G  1:  M       84.48   Ge Na    9/9    
        M  84               su Ge    2° colpo   [8359/02.04.2011]
        M  84               su Na    2° colpo   [8359/02.04.2011]
        M  48               su Na    3° colpo   [8360/05.04.2011]
        M  48               su Na    4° colpo   [8361/07.04.2011]
        M  48               su Na    5° colpo   [8362/09.04.2011]

     G  2:  AT      84.48   Ge Na    9/9    
        negativo
     G  3:  AT      84.48   Tu       9/9    
        negativo
    ----------------------------------------------------------
    Palermo 85 + 38 =33  Torino 72 + 51 =33
    Alla Somma Comune Isotopa 33 addizioniamo il fisso 17 per ottenere il Primo Numero
    Facciamo il Vertibile del primo Numero per ottenere il Secondo Numero
    sab 02.04.2011  [8359]
     G  1:  M       50.05   Pa To    9/9    
        M  50               su To    2° colpo   [8361/07.04.2011]

     G  2:  AT      50.05   Pa To    9/9    
        negativo
     G  3:  AT      50.05   Tu       9/9    
        negativo
    ----------------------------------------------------------
    Milano 69 + 76 =55  Napoli 48 + 7 =55
    Alla Somma Comune Isotopa 55 addizioniamo il fisso 17 per ottenere il Primo Numero
    Facciamo il Vertibile del primo Numero per ottenere il Secondo Numero
    mar 05.04.2011  [8360]
     G  1:  M       72.27   Mi Na    9/9    
        M  72               su Mi    7° colpo   [8367/21.04.2011]

     G  2:  AT      72.27   Mi Na    9/9    
        negativo
     G  3:  AT      72.27   Tu       9/9    
        negativo
    ----------------------------------------------------------
    Bari 41 + 75 =26  Roma 59 + 57 =26
    Alla Somma Comune Isotopa 26 addizioniamo il fisso 17 per ottenere il Primo Numero
    Facciamo il Vertibile del primo Numero per ottenere il Secondo Numero
    gio 07.04.2011  [8361]
     G  1:  M       43.34   Ba Ro    9/9    
        M  43               su Ro    3° colpo   [8364/14.04.2011]
        M  34               su Ba    7° colpo   [8368/23.04.2011]

     G  2:  AT      43.34   Ba Ro    9/9    
        negativo
     G  3:  AT      43.34   Tu       9/9    
        negativo
    ----------------------------------------------------------
    Cagliari 85 + 38 =33  Roma 9 + 24 =33
    Alla Somma Comune Isotopa 33 addizioniamo il fisso 17 per ottenere il Primo Numero
    Facciamo il Vertibile del primo Numero per ottenere il Secondo Numero
    gio 21.04.2011  [8367]
     G  1:  M       50.05   Ca Ro    9/9    
        M  05               su Ca    6° colpo   [8373/05.05.2011]
        M  05               su Ca    8° colpo   [8375/10.05.2011]

     G  2:  AT      50.05   Ca Ro    9/9    
        negativo
     G  3:  AT      50.05   Tu       9/9    
        negativo
    ----------------------------------------------------------
    Cagliari 4 + 80 =84  Milano 35 + 49 =84
    Alla Somma Comune Isotopa 84 addizioniamo il fisso 17 per ottenere il Primo Numero
    Facciamo il Vertibile del primo Numero per ottenere il Secondo Numero
    sab 23.04.2011  [8368]
     G  1:  M       11.19   Ca Mi    9/9    
        M  19               su Mi    1° colpo   [8369/26.04.2011]
        M  19               su Mi    8° colpo   [8376/12.05.2011]

     G  2:  AT      11.19   Ca Mi    9/9    
        negativo
     G  3:  AT      11.19   Tu       9/9    
        negativo
    ----------------------------------------------------------
    Cagliari 75 + 20 =5  Napoli 83 + 12 =5
    Alla Somma Comune Isotopa 5 addizioniamo il fisso 17 per ottenere il Primo Numero
    Facciamo il Vertibile del primo Numero per ottenere il Secondo Numero
    mar 03.05.2011  [8372]
     G  1:  M       22.29   Ca Na    9/9    
        M  29               su Ca    1° colpo   [8373/05.05.2011]
        M  22               su Na    1° colpo   [8373/05.05.2011]

     G  2:  AT      22.29   Ca Na    9/9    
        negativo
     G  3:  AT      22.29   Tu       9/9    
        negativo
    ----------------------------------------------------------
    Napoli 78 + 81 =69  Torino 18 + 51 =69
    Alla Somma Comune Isotopa 69 addizioniamo il fisso 17 per ottenere il Primo Numero
    Facciamo il Vertibile del primo Numero per ottenere il Secondo Numero
    sab 07.05.2011  [8374]
     G  1:  M       86.68   Na To    9/9    
        negativo
     G  2:  AT      86.68   Na To    9/9    
        negativo
     G  3:  AT      86.68   Tu       9/9    
        negativo
    ----------------------------------------------------------
    Napoli 78 + 81 =69  Venezia 53 + 16 =69
    Alla Somma Comune Isotopa 69 addizioniamo il fisso 17 per ottenere il Primo Numero
    Facciamo il Vertibile del primo Numero per ottenere il Secondo Numero
    sab 07.05.2011  [8374]
     G  1:  M       86.68   Na Ve    9/9    
        negativo
     G  2:  AT      86.68   Na Ve    9/9    
        negativo
     G  3:  AT      86.68   Tu       9/9    
        negativo
    ----------------------------------------------------------
    Torino 18 + 51 =69  Venezia 53 + 16 =69
    Alla Somma Comune Isotopa 69 addizioniamo il fisso 17 per ottenere il Primo Numero
    Facciamo il Vertibile del primo Numero per ottenere il Secondo Numero
    sab 07.05.2011  [8374]
     G  1:  M       86.68   To Ve    9/9    
        negativo
     G  2:  AT      86.68   To Ve    9/9    
        negativo
     G  3:  AT      86.68   Tu       9/9    
        negativo
    ----------------------------------------------------------
    Cagliari 66 + 64 =40  Venezia 25 + 15 =40
    Alla Somma Comune Isotopa 40 addizioniamo il fisso 17 per ottenere il Primo Numero
    Facciamo il Vertibile del primo Numero per ottenere il Secondo Numero
    mar 10.05.2011  [8375]
     G  1:  M       57.75   Ca Ve    9/9    
        negativo
     G  2:  AT      57.75   Ca Ve    9/9    
        negativo
     G  3:  AT      57.75   Tu       9/9    
        negativo
    ----------------------------------------------------------
    Firenze 85 + 19 =14  Milano 66 + 38 =14
    Alla Somma Comune Isotopa 14 addizioniamo il fisso 17 per ottenere il Primo Numero
    Facciamo il Vertibile del primo Numero per ottenere il Secondo Numero
    mar 17.05.2011  [8378]
     G  1:  M       31.13   Fi Mi    6/9    
        M  31               su Mi    1° colpo   [8379/19.05.2011]
        M  31               su Fi    3° colpo   [8381/24.05.2011]
        in corso (6° su 9)
     G  2:  AT      31.13   Fi Mi    6/9    
        in corso (6° su 9)
     G  3:  AT      31.13   Tu       1/9    
        A  31.13            su Tu (Ve)    1° colpo   [8379/19.05.2011]
        I1
    ----------------------------------------------------------
    Bari 6 + 40 =46  Milano 37 + 9 =46
    Alla Somma Comune Isotopa 46 addizioniamo il fisso 17 per ottenere il Primo Numero
    Facciamo il Vertibile del primo Numero per ottenere il Secondo Numero
    mar 24.05.2011  [8381]
     G  1:  M       63.36   Ba Mi    3/9    
        in corso (3° su 9)
     G  2:  AT      63.36   Ba Mi    3/9    
        in corso (3° su 9)
     G  3:  AT      63.36   Tu       3/9    
        in corso (3° su 9)
    ----------------------------------------------------------
    Bari 26 + 4 =30  Roma 52 + 68 =30
    Alla Somma Comune Isotopa 30 addizioniamo il fisso 17 per ottenere il Primo Numero
    Facciamo il Vertibile del primo Numero per ottenere il Secondo Numero
    gio 26.05.2011  [8382]
     G  1:  M       47.74   Ba Ro    2/9    
        in corso (2° su 9)
     G  2:  AT      47.74   Ba Ro    2/9    
        in corso (2° su 9)
     G  3:  AT      47.74   Tu       2/9    
        in corso (2° su 9)


    vedi se va' bene..ciao..
     
    Top
    .
  5. spilloss77
     
    .

    User deleted


    AGGIORNAMENTO:
    Verificando gli esiti.... ho notato che nell'estrazioni del 24/05/11 si verificano 2 condizioni di somma isotopa, ma il listato ne indentifica solo una
    IN particolare:
    BA 6+40=46
    MI 37+9=46

    &
    FI 70+69 (FUORI 90)=49
    NZ 77+62 (FUORI 90)=49

    Ma il listato ne riconosce solo una e cioè la prima. In pratica il listato ignora la ruota nazionale. perchè? Non dovrebbe essere cosi.

    E ancora, se dovesse accadere che la condizione di somma isotopa si prensenta su 3 ruote.... il listato prenderà in considerazione anche la 3° ruota? Io spererei di si.

    Non c'è la possibilità di fare in modo che il listato dopo aver cercato e trovato la condizione di gioco... mi chieda quali numeri inserire come abbinamenti per eventuali ambi?

    Grazie sempre per il grandissimi aiuto!!! Ho provato a mandarti un mp in risposta al tuo ma mi dice che c'è errore nell'url!!! Come faccio?

    Edited by spilloss77 - 2/6/2011, 11:23
     
    Top
    .
  6.  
    .
    Avatar

    sean69

    Group
    Administrator
    Posts
    5,897
    Location
    Provincia di Roma..

    Status
    Offline
    ciao,per il mp non so' cosa risponderti,riprova,vediamo se funziona..il listato sono riuscito in modo che riconosce anche la nazionale,infatti:

    CODICE
    ----------------------------------------------------------
    Bari 6 + 40 =46  Milano 37 + 9 =46
    Alla Somma Comune Isotopa 46 addizioniamo il fisso 17 per ottenere il Primo Numero
    Facciamo il Vertibile del primo Numero per ottenere il Secondo Numero
    mar 24.05.2011  [8381]
     G  1:  M       63.36   Ba Mi    3/9    
        in corso (3° su 9)
     G  2:  AT      63.36   Ba Mi    3/9    
        in corso (3° su 9)
     G  3:  AT      63.36   Tu       3/9    
        in corso (3° su 9)
    ----------------------------------------------------------
    Firenze 70 + 69 =49  Nazionale 77 + 62 =49
    Alla Somma Comune Isotopa 49 addizioniamo il fisso 17 per ottenere il Primo Numero
    Facciamo il Vertibile del primo Numero per ottenere il Secondo Numero
    mar 24.05.2011  [8381]
     G  1:  M       66.69   Fi Nz    3/9    
        M  66               su Fi    1° colpo   [8382/26.05.2011]
        in corso (3° su 9)
     G  2:  AT      66.69   Fi Nz    3/9    
        in corso (3° su 9)
     G  3:  AT      66.69   Tu       3/9    
        in corso (3° su 9)


    per quanto riguarda i numeri che vorresti inserire tu,dammi un po' di tempo per provare..intanto ti mando il Listato modificato con la Nazionale,eccolo:

    CODICE
    Sub main()
    Dim n,t,r1,r2,n1,n2,n3,n4

    Dim AMBATA(2)
    Dim am(4)
    Dim am1(10)
    Dim ruote(10)
    Dim ruota(10)
    Dim posta(5)
    Dim poste(5)
    posta(1)=1
    poste(2)=1
    poste(3)=1
    For n=8300 To EstrazioneFin
    Messaggio DataEstrazione (n)
    t=1
    Do While DISAMBO(n,t,r1,n1,n2,r2,n3,n4)=True
    ruota(1)=11
    ruote(1)=r1
    ruote(2)=r2
    s1=Fuori90(n1+n2)
    Scrivi "----------------------------------------------------------"
    Scrivi NomeRuota(r1)&" "&Cint(n1)&" + "&Cint(n2)&" ="&Cint(s1)&"  "& NomeRuota(r2)&" "&Cint(n3)&" + "&Cint(n4)&" ="&Cint(s1)
    Scrivi "Alla Somma Comune Isotopa "&Cint(s1)&" addizioniamo il fisso 17 per ottenere il Primo Numero"
    Scrivi "Facciamo il Vertibile del primo Numero per ottenere il Secondo Numero"

    'am1(1)=s1


    AMBATA(1)=Fuori90(s1+17)
    AMBATA(2)= Vert (AMBATA(1))
    am1(2)=AMBATA(1)
    am1(3)=AMBATA(2)
    ImpostaGiocata 1,AMBATA,ruote,posta,9,2

    ImpostaGiocata 2,am1,ruote,poste,9,2
    ImpostaGiocata 3,am1,ruota,poste,9,2

    'ImpostaInterruzioni 1,2,2
    'ImpostaInterruzioni 2,1,2
    Gioca n
    'Gioca AMBATA
    t=t+1
    Loop
    Next
    ScriviResoconto
    End Sub


    Function DISAMBO(estrazione, tentativo, byref ruota1, byref numero1, byref numero2, byref ruota2, byref numero3, byref numero4)
    Dim trovati,r,rr,i,ii,j,jj
    trovati=0
    For r= 1 To 12
     For i= 4 To 4
       j=i+1
         a=Estratto (estrazione,r,i)
         b=Estratto(estrazione,r,j)
                   c=Fuori90(a+b)
                   For rr=r+1 To 12
                           aa=Estratto(estrazione,rr,i)
                           bb=Estratto(estrazione,rr,j)
                           cc=Fuori90(aa+bb)
                           If c=cc Then
                                   trovati=trovati+1
                               If trovati=tentativo Then
                                   numero1=a
                                   numero2=b
                                            numero3=aa
                                     numero4=bb
                                           ruota1=r
                                           ruota2=rr
                                           DISAMBO=True
                                     Exit Function
                                     End If
                           End If
                 Next
           Next
    Next
    DISAMBO=False
    End Function
     
    Top
    .
  7. spilloss77
     
    .

    User deleted


    Sei miticooooooo. Allora riprovo a mandarti l'mp!
     
    Top
    .
  8.  
    .
    Avatar

    sean69

    Group
    Administrator
    Posts
    5,897
    Location
    Provincia di Roma..

    Status
    Offline
    grazie,sono ancora all'abc con i listati,se posso aiuto volentieri..
     
    Top
    .
  9. spilloss77
     
    .

    User deleted


    Sean come levo la giocata a tutte. Al momento non mi interessa.

    in pratica io vedo cosi il resoconto

    V N. [17.71] [TT] [MI][.. .. .. .. 71] C. 2 Estratto 08305 [142 - 27/11/2010]
    V N. [17.71] [TT] [VE][17 .. .. .. ..] C. 2 Estratto 08305 [142 - 27/11/2010]
    V N. [17.71] [NA] [.. .. 71 .. ..] C. 3 Estratto 08306 [143 - 30/11/2010]

    a me il gioco a tutte non interessa, ne per ambata ne per ambo e terno i risultati mi servono solo su quelle due ruote al momento

    Ho confrontato i due listati e l'unica modifica che vedo è qui
    For r= 1 To 9 (il 9 è diventato 12)
    ma il prroblema è che cosi vedo anche il gioco a tutte. COme si fa?
     
    Top
    .
  10.  
    .
    Avatar

    sean69

    Group
    Administrator
    Posts
    5,897
    Location
    Provincia di Roma..

    Status
    Offline
    Basta togliere la Giocata 3,cosi' non gioca a tutte:

    CODICE
    ----------------------------------------------------------
    Bari 6 + 40 =46  Milano 37 + 9 =46
    Alla Somma Comune Isotopa 46 addizioniamo il fisso 17 per ottenere il Primo Numero
    Facciamo il Vertibile del primo Numero per ottenere il Secondo Numero
    mar 24.05.2011  [8381]
     G  1:  M       63.36   Ba Mi    3/9    
        in corso (3° su 9)
     G  2:  AT      63.36   Ba Mi    3/9    
        in corso (3° su 9)
    ----------------------------------------------------------
    Firenze 70 + 69 =49  Nazionale 77 + 62 =49
    Alla Somma Comune Isotopa 49 addizioniamo il fisso 17 per ottenere il Primo Numero
    Facciamo il Vertibile del primo Numero per ottenere il Secondo Numero
    mar 24.05.2011  [8381]
     G  1:  M       66.69   Fi Nz    3/9    
        M  66               su Fi    1° colpo   [8382/26.05.2011]
        in corso (3° su 9)
     G  2:  AT      66.69   Fi Nz    3/9    
        in corso (3° su 9)
    ----------------------------------------------------------
    Bari 26 + 4 =30  Roma 52 + 68 =30
    Alla Somma Comune Isotopa 30 addizioniamo il fisso 17 per ottenere il Primo Numero
    Facciamo il Vertibile del primo Numero per ottenere il Secondo Numero
    gio 26.05.2011  [8382]
     G  1:  M       47.74   Ba Ro    2/9    
        in corso (2° su 9)
     G  2:  AT      47.74   Ba Ro    2/9    
        in corso (2° su 9)



    ecco il listato senza la giocata a Tutte:

    CODICE
    ----------------------------------------------------------
    Sub main()
    Dim n,t,r1,r2,n1,n2,n3,n4

    Dim AMBATA(2)
    Dim am(4)
    Dim am1(10)
    Dim ruote(10)
    Dim ruota(10)
    Dim posta(5)
    Dim poste(5)
    posta(1)=1
    poste(2)=1
    poste(3)=1
    For n=8300 To EstrazioneFin
    Messaggio DataEstrazione (n)
    t=1
    Do While DISAMBO(n,t,r1,n1,n2,r2,n3,n4)=True
    ruota(1)=11
    ruote(1)=r1
    ruote(2)=r2
    s1=Fuori90(n1+n2)
    Scrivi "----------------------------------------------------------"
    Scrivi NomeRuota(r1)&" "&Cint(n1)&" + "&Cint(n2)&" ="&Cint(s1)&"  "& NomeRuota(r2)&" "&Cint(n3)&" + "&Cint(n4)&" ="&Cint(s1)
    Scrivi "Alla Somma Comune Isotopa "&Cint(s1)&" addizioniamo il fisso 17 per ottenere il Primo Numero"
    Scrivi "Facciamo il Vertibile del primo Numero per ottenere il Secondo Numero"

    'am1(1)=s1


    AMBATA(1)=Fuori90(s1+17)
    AMBATA(2)= Vert (AMBATA(1))
    am1(2)=AMBATA(1)
    am1(3)=AMBATA(2)
    ImpostaGiocata 1,AMBATA,ruote,posta,9,2

    ImpostaGiocata 2,am1,ruote,poste,9,2
    'ImpostaGiocata 3,am1,ruota,poste,9,2

    'ImpostaInterruzioni 1,2,2
    'ImpostaInterruzioni 2,1,2
    Gioca n
    'Gioca AMBATA
    t=t+1
    Loop
    Next
    ScriviResoconto
    End Sub


    Function DISAMBO(estrazione, tentativo, byref ruota1, byref numero1, byref numero2, byref ruota2, byref numero3, byref numero4)
    Dim trovati,r,rr,i,ii,j,jj
    trovati=0
    For r= 1 To 12
     For i= 4 To 4
       j=i+1
         a=Estratto (estrazione,r,i)
         b=Estratto(estrazione,r,j)
                   c=Fuori90(a+b)
                   For rr=r+1 To 12
                           aa=Estratto(estrazione,rr,i)
                           bb=Estratto(estrazione,rr,j)
                           cc=Fuori90(aa+bb)
                           If c=cc Then
                                   trovati=trovati+1
                               If trovati=tentativo Then
                                   numero1=a
                                   numero2=b
                                            numero3=aa
                                     numero4=bb
                                           ruota1=r
                                           ruota2=rr
                                           DISAMBO=True
                                     Exit Function
                                     End If
                           End If
                 Next
           Next
    Next
    DISAMBO=False
    End Function
     
    Top
    .
  11. spilloss77
     
    .

    User deleted


    Ciao Sean. Scusa il ritardo.... dormitina pomeridiana.

    Purtroppo la giocata a tutte non si leva. Avevo capito dove togliele la giocata, ma continuo a visualizzare quest
    V N. [17.71] [TT] [MI][.. .. .. .. 71] C. 2 Estratto 08305 [142 - 27/11/2010]
    V N. [17.71] [TT] [VE][17 .. .. .. ..] C. 2 Estratto 08305 [142 - 27/11/2010]
    V N. [17.71] [NA] [.. .. 71 .. ..] C. 3 Estratto 08306 [143 - 30/11/2010]

    e credo che sia il 12 messo qui
    For r= 1 To 9 (il 9 è diventato 12)

    il listato dice dalla ruota 1 (BA) alla ruota 12 (Nazionale) ma in questo range c'è anche la 11 (cioè il gioco a tutte).

    E' possibile creare due righe di codice da 1 a 10 e da 12 a 12?
    COsi si salterebbe il gioco a tutte.
     
    Top
    .
  12.  
    .
    Avatar

    sean69

    Group
    Administrator
    Posts
    5,897
    Location
    Provincia di Roma..

    Status
    Offline
    ciao,non so perche' a te non si leva,a me visualizza solo le 2 ruote in gioco:

    CITAZIONE
    ----------------------------------------------------------
    Firenze 70 + 69 =49 Nazionale 77 + 62 =49
    Alla Somma Comune Isotopa 49 addizioniamo il fisso 17 per ottenere il Primo Numero
    Facciamo il Vertibile del primo Numero per ottenere il Secondo Numero
    mar 24.05.2011 [8381]
    G 1: M 66.69 Fi Nz 3/9
    M 66 su Fi 1° colpo [8382/26.05.2011]
    in corso (3° su 9)
    G 2: AT 66.69 Fi Nz 3/9
    in corso (3° su 9)

     
    Top
    .
  13. spilloss77
     
    .

    User deleted


    Sean ..... ma hai letto tutto il listato fino in fondo?

    Non capita in tutto il listato ma solo in alcune parti.

    GUARDA!
    CODICE
    ----------------------------------------------------------
    Genova 46 + 21 =67  Napoli 76 + 81 =67
    Alla Somma Comune Isotopa 67 addizioniamo il fisso 17 per ottenere il Primo Numero
    Facciamo il Vertibile del primo Numero per ottenere il Secondo Numero
    Estrazione generatrice del pronostico 08320 [  1 - 03/01/2011]
    G 0001
    Numeri in gioco : 84.48 su GE NA per Estratto
     N. [84.48                         ] [GE]     [.. .. .. .. ..] C.   1            08321 [  2 - 04/01/2011]
     N. [84.48                         ] [NA]     [.. .. .. .. ..] C.   1            08321 [  2 - 04/01/2011]
    V N. [84.48                         ] [GE]     [.. .. 48 .. ..] C.   2 Estratto   08322 [  3 - 07/01/2011]
     N. [84.48                         ] [NA]     [.. .. .. .. ..] C.   2            08322 [  3 - 07/01/2011]
     N. [84.48                         ] [GE]     [.. .. .. .. ..] C.   3            08323 [  4 - 08/01/2011]
     N. [84.48                         ] [NA]     [.. .. .. .. ..] C.   3            08323 [  4 - 08/01/2011]
     N. [84.48                         ] [GE]     [.. .. .. .. ..] C.   4            08324 [  5 - 11/01/2011]
     N. [84.48                         ] [NA]     [.. .. .. .. ..] C.   4            08324 [  5 - 11/01/2011]
     N. [84.48                         ] [GE]     [.. .. .. .. ..] C.   5            08325 [  6 - 13/01/2011]
     N. [84.48                         ] [NA]     [.. .. .. .. ..] C.   5            08325 [  6 - 13/01/2011]
     N. [84.48                         ] [GE]     [.. .. .. .. ..] C.   6            08326 [  7 - 15/01/2011]
     N. [84.48                         ] [NA]     [.. .. .. .. ..] C.   6            08326 [  7 - 15/01/2011]
     N. [84.48                         ] [GE]     [.. .. .. .. ..] C.   7            08327 [  8 - 18/01/2011]
     N. [84.48                         ] [NA]     [.. .. .. .. ..] C.   7            08327 [  8 - 18/01/2011]
     N. [84.48                         ] [GE]     [.. .. .. .. ..] C.   8            08328 [  9 - 20/01/2011]
     N. [84.48                         ] [NA]     [.. .. .. .. ..] C.   8            08328 [  9 - 20/01/2011]
     N. [84.48                         ] [GE]     [.. .. .. .. ..] C.   9            08329 [ 10 - 22/01/2011]
    V N. [84.48                         ] [NA]     [.. .. .. 84 ..] C.   9 Estratto   08329 [ 10 - 22/01/2011]
    Interrotta per raggiunta durata

    ----------------------------------------------------------
    Bari 88 + 10 =8  Nazionale 86 + 12 =8
    Alla Somma Comune Isotopa 8 addizioniamo il fisso 17 per ottenere il Primo Numero
    Facciamo il Vertibile del primo Numero per ottenere il Secondo Numero
    Estrazione generatrice del pronostico 08323 [  4 - 08/01/2011]
    G 0001
    Numeri in gioco : 25.52 su BA NZ per Estratto
     N. [25.52                         ] [BA]     [.. .. .. .. ..] C.   1            08324 [  5 - 11/01/2011]
     N. [25.52                         ] [NZ]     [.. .. .. .. ..] C.   1            08324 [  5 - 11/01/2011]
     N. [25.52                         ] [BA]     [.. .. .. .. ..] C.   2            08325 [  6 - 13/01/2011]
     N. [25.52                         ] [NZ]     [.. .. .. .. ..] C.   2            08325 [  6 - 13/01/2011]
     N. [25.52                         ] [BA]     [.. .. .. .. ..] C.   3            08326 [  7 - 15/01/2011]
     N. [25.52                         ] [NZ]     [.. .. .. .. ..] C.   3            08326 [  7 - 15/01/2011]
     N. [25.52                         ] [BA]     [.. .. .. .. ..] C.   4            08327 [  8 - 18/01/2011]
     N. [25.52                         ] [NZ]     [.. .. .. .. ..] C.   4            08327 [  8 - 18/01/2011]
     N. [25.52                         ] [BA]     [.. .. .. .. ..] C.   5            08328 [  9 - 20/01/2011]
    V N. [25.52                         ] [NZ]     [.. .. .. .. 52] C.   5 Estratto   08328 [  9 - 20/01/2011]
     N. [25.52                         ] [BA]     [.. .. .. .. ..] C.   6            08329 [ 10 - 22/01/2011]
     N. [25.52                         ] [NZ]     [.. .. .. .. ..] C.   6            08329 [ 10 - 22/01/2011]
     N. [25.52                         ] [BA]     [.. .. .. .. ..] C.   7            08330 [ 11 - 25/01/2011]
    V N. [25.52                         ] [NZ]     [25 .. .. .. ..] C.   7 Estratto   08330 [ 11 - 25/01/2011]
     N. [25.52                         ] [BA]     [.. .. .. .. ..] C.   8            08331 [ 12 - 27/01/2011]
     N. [25.52                         ] [NZ]     [.. .. .. .. ..] C.   8            08331 [ 12 - 27/01/2011]
     N. [25.52                         ] [BA]     [.. .. .. .. ..] C.   9            08332 [ 13 - 29/01/2011]
     N. [25.52                         ] [NZ]     [.. .. .. .. ..] C.   9            08332 [ 13 - 29/01/2011]
    Interrotta per raggiunta durata

    ----------------------------------------------------------
    Genova 53 + 46 =9  Napoli 29 + 70 =9
    Alla Somma Comune Isotopa 9 addizioniamo il fisso 17 per ottenere il Primo Numero
    Facciamo il Vertibile del primo Numero per ottenere il Secondo Numero
    Estrazione generatrice del pronostico 08326 [  7 - 15/01/2011]
    G 0001
    Numeri in gioco : 26.62 su GE NA per Estratto
     N. [26.62                         ] [GE]     [.. .. .. .. ..] C.   1            08327 [  8 - 18/01/2011]
     N. [26.62                         ] [NA]     [.. .. .. .. ..] C.   1            08327 [  8 - 18/01/2011]
     N. [26.62                         ] [GE]     [.. .. .. .. ..] C.   2            08328 [  9 - 20/01/2011]
     N. [26.62                         ] [NA]     [.. .. .. .. ..] C.   2            08328 [  9 - 20/01/2011]
     N. [26.62                         ] [GE]     [.. .. .. .. ..] C.   3            08329 [ 10 - 22/01/2011]
     N. [26.62                         ] [NA]     [.. .. .. .. ..] C.   3            08329 [ 10 - 22/01/2011]
     N. [26.62                         ] [GE]     [.. .. .. .. ..] C.   4            08330 [ 11 - 25/01/2011]
     N. [26.62                         ] [NA]     [.. .. .. .. ..] C.   4            08330 [ 11 - 25/01/2011]
     N. [26.62                         ] [GE]     [.. .. .. .. ..] C.   5            08331 [ 12 - 27/01/2011]
     N. [26.62                         ] [NA]     [.. .. .. .. ..] C.   5            08331 [ 12 - 27/01/2011]
     N. [26.62                         ] [GE]     [.. .. .. .. ..] C.   6            08332 [ 13 - 29/01/2011]
     N. [26.62                         ] [NA]     [.. .. .. .. ..] C.   6            08332 [ 13 - 29/01/2011]
     N. [26.62                         ] [GE]     [.. .. .. .. ..] C.   7            08333 [ 14 - 01/02/2011]
     N. [26.62                         ] [NA]     [.. .. .. .. ..] C.   7            08333 [ 14 - 01/02/2011]
     N. [26.62                         ] [GE]     [.. .. .. .. ..] C.   8            08334 [ 15 - 03/02/2011]
     N. [26.62                         ] [NA]     [.. .. .. .. ..] C.   8            08334 [ 15 - 03/02/2011]
     N. [26.62                         ] [GE]     [.. .. .. .. ..] C.   9            08335 [ 16 - 05/02/2011]
     N. [26.62                         ] [NA]     [.. .. .. .. ..] C.   9            08335 [ 16 - 05/02/2011]
    Interrotta per raggiunta durata

    ----------------------------------------------------------
    Cagliari 20 + 40 =60  Milano 6 + 54 =60
    Alla Somma Comune Isotopa 60 addizioniamo il fisso 17 per ottenere il Primo Numero
    Facciamo il Vertibile del primo Numero per ottenere il Secondo Numero
    Estrazione generatrice del pronostico 08327 [  8 - 18/01/2011]
    G 0001
    Numeri in gioco : 77.79 su CA MI per Estratto
     N. [77.79                         ] [CA]     [.. .. .. .. ..] C.   1            08328 [  9 - 20/01/2011]
     N. [77.79                         ] [MI]     [.. .. .. .. ..] C.   1            08328 [  9 - 20/01/2011]
     N. [77.79                         ] [CA]     [.. .. .. .. ..] C.   2            08329 [ 10 - 22/01/2011]
     N. [77.79                         ] [MI]     [.. .. .. .. ..] C.   2            08329 [ 10 - 22/01/2011]
    V N. [77.79                         ] [CA]     [.. .. .. 79 ..] C.   3 Estratto   08330 [ 11 - 25/01/2011]
     N. [77.79                         ] [MI]     [.. .. .. .. ..] C.   3            08330 [ 11 - 25/01/2011]
     N. [77.79                         ] [CA]     [.. .. .. .. ..] C.   4            08331 [ 12 - 27/01/2011]
     N. [77.79                         ] [MI]     [.. .. .. .. ..] C.   4            08331 [ 12 - 27/01/2011]
     N. [77.79                         ] [CA]     [.. .. .. .. ..] C.   5            08332 [ 13 - 29/01/2011]
     N. [77.79                         ] [MI]     [.. .. .. .. ..] C.   5            08332 [ 13 - 29/01/2011]
     N. [77.79                         ] [CA]     [.. .. .. .. ..] C.   6            08333 [ 14 - 01/02/2011]
     N. [77.79                         ] [MI]     [.. .. .. .. ..] C.   6            08333 [ 14 - 01/02/2011]
     N. [77.79                         ] [CA]     [.. .. .. .. ..] C.   7            08334 [ 15 - 03/02/2011]
     N. [77.79                         ] [MI]     [.. .. .. .. ..] C.   7            08334 [ 15 - 03/02/2011]
     N. [77.79                         ] [CA]     [.. .. .. .. ..] C.   8            08335 [ 16 - 05/02/2011]
     N. [77.79                         ] [MI]     [.. .. .. .. ..] C.   8            08335 [ 16 - 05/02/2011]
     N. [77.79                         ] [CA]     [.. .. .. .. ..] C.   9            08336 [ 17 - 08/02/2011]
     N. [77.79                         ] [MI]     [.. .. .. .. ..] C.   9            08336 [ 17 - 08/02/2011]
    Interrotta per raggiunta durata

    ----------------------------------------------------------
    Napoli 27 + 68 =5  Palermo 54 + 41 =5
    Alla Somma Comune Isotopa 5 addizioniamo il fisso 17 per ottenere il Primo Numero
    Facciamo il Vertibile del primo Numero per ottenere il Secondo Numero
    Estrazione generatrice del pronostico 08327 [  8 - 18/01/2011]
    G 0001
    Numeri in gioco : 22.29 su NA PA per Estratto
     N. [22.29                         ] [NA]     [.. .. .. .. ..] C.   1            08328 [  9 - 20/01/2011]
     N. [22.29                         ] [PA]     [.. .. .. .. ..] C.   1            08328 [  9 - 20/01/2011]
     N. [22.29                         ] [NA]     [.. .. .. .. ..] C.   2            08329 [ 10 - 22/01/2011]
     N. [22.29                         ] [PA]     [.. .. .. .. ..] C.   2            08329 [ 10 - 22/01/2011]
     N. [22.29                         ] [NA]     [.. .. .. .. ..] C.   3            08330 [ 11 - 25/01/2011]
     N. [22.29                         ] [PA]     [.. .. .. .. ..] C.   3            08330 [ 11 - 25/01/2011]
     N. [22.29                         ] [NA]     [.. .. .. .. ..] C.   4            08331 [ 12 - 27/01/2011]
     N. [22.29                         ] [PA]     [.. .. .. .. ..] C.   4            08331 [ 12 - 27/01/2011]
     N. [22.29                         ] [NA]     [.. .. .. .. ..] C.   5            08332 [ 13 - 29/01/2011]
     N. [22.29                         ] [PA]     [.. .. .. .. ..] C.   5            08332 [ 13 - 29/01/2011]
     N. [22.29                         ] [NA]     [.. .. .. .. ..] C.   6            08333 [ 14 - 01/02/2011]
     N. [22.29                         ] [PA]     [.. .. .. .. ..] C.   6            08333 [ 14 - 01/02/2011]
     N. [22.29                         ] [NA]     [.. .. .. .. ..] C.   7            08334 [ 15 - 03/02/2011]
     N. [22.29                         ] [PA]     [.. .. .. .. ..] C.   7            08334 [ 15 - 03/02/2011]
     N. [22.29                         ] [NA]     [.. .. .. .. ..] C.   8            08335 [ 16 - 05/02/2011]
     N. [22.29                         ] [PA]     [.. .. .. .. ..] C.   8            08335 [ 16 - 05/02/2011]
     N. [22.29                         ] [NA]     [.. .. .. .. ..] C.   9            08336 [ 17 - 08/02/2011]
     N. [22.29                         ] [PA]     [.. .. .. .. ..] C.   9            08336 [ 17 - 08/02/2011]
    Interrotta per raggiunta durata

    ----------------------------------------------------------
    Tutte 0 + 0 =90  Nazionale 37 + 53 =90
    Alla Somma Comune Isotopa 90 addizioniamo il fisso 17 per ottenere il Primo Numero
    Facciamo il Vertibile del primo Numero per ottenere il Secondo Numero
    Estrazione generatrice del pronostico 08327 [  8 - 18/01/2011]
    G 0001
    Numeri in gioco : 17.71 su TT NZ per Estratto
    V N. [17.71                         ] [TT] [CA][17 .. .. .. ..] C.   1 Estratto   08328 [  9 - 20/01/2011]
    V N. [17.71                         ] [TT] [VE][.. .. 17 .. ..] C.   1 Estratto   08328 [  9 - 20/01/2011]
     N. [17.71                         ] [NZ]     [.. .. .. .. ..] C.   1            08328 [  9 - 20/01/2011]
     N. [17.71                         ] [TT] [  ][.. .. .. .. ..] C.   2            08329 [ 10 - 22/01/2011]
     N. [17.71                         ] [NZ]     [.. .. .. .. ..] C.   2            08329 [ 10 - 22/01/2011]
     N. [17.71                         ] [TT] [  ][.. .. .. .. ..] C.   3            08330 [ 11 - 25/01/2011]
     N. [17.71                         ] [NZ]     [.. .. .. .. ..] C.   3            08330 [ 11 - 25/01/2011]
    V N. [17.71                         ] [TT] [BA][.. .. 17 .. ..] C.   4 Estratto   08331 [ 12 - 27/01/2011]
    V N. [17.71                         ] [TT] [NA][.. .. .. .. 17] C.   4 Estratto   08331 [ 12 - 27/01/2011]
    V N. [17.71                         ] [TT] [TO][.. .. 17 .. ..] C.   4 Estratto   08331 [ 12 - 27/01/2011]
     N. [17.71                         ] [NZ]     [.. .. .. .. ..] C.   4            08331 [ 12 - 27/01/2011]
    V N. [17.71                         ] [TT] [BA][.. .. .. .. 17] C.   5 Estratto   08332 [ 13 - 29/01/2011]
    V N. [17.71                         ] [TT] [GE][.. .. .. .. 17] C.   5 Estratto   08332 [ 13 - 29/01/2011]
    V N. [17.71                         ] [NZ]     [.. .. .. 17 ..] C.   5 Estratto   08332 [ 13 - 29/01/2011]
    V N. [17.71                         ] [TT] [BA][.. 17 .. .. ..] C.   6 Estratto   08333 [ 14 - 01/02/2011]
    V N. [17.71                         ] [TT] [PA][.. .. .. 17 ..] C.   6 Estratto   08333 [ 14 - 01/02/2011]
     N. [17.71                         ] [NZ]     [.. .. .. .. ..] C.   6            08333 [ 14 - 01/02/2011]
    V N. [17.71                         ] [TT] [TO][17 .. .. .. ..] C.   7 Estratto   08334 [ 15 - 03/02/2011]
     N. [17.71                         ] [NZ]     [.. .. .. .. ..] C.   7            08334 [ 15 - 03/02/2011]
     N. [17.71                         ] [TT] [  ][.. .. .. .. ..] C.   8            08335 [ 16 - 05/02/2011]
     N. [17.71                         ] [NZ]     [.. .. .. .. ..] C.   8            08335 [ 16 - 05/02/2011]
    V N. [17.71                         ] [TT] [PA][.. .. 71 .. ..] C.   9 Estratto   08336 [ 17 - 08/02/2011]
     N. [17.71                         ] [NZ]     [.. .. .. .. ..] C.   9            08336 [ 17 - 08/02/2011]
    Interrotta per raggiunta durata
     
    Top
    .
  14.  
    .
    Avatar

    sean69

    Group
    Administrator
    Posts
    5,897
    Location
    Provincia di Roma..

    Status
    Offline
    tu usi spaziometria vero?non saprei perche' li' si vede a anche la giocata a tutte,con l8+ non si vede..
     
    Top
    .
  15. spilloss77
     
    .

    User deleted


    :(
    Si uso spaziometria perchè mi rende piu facile la lettura. Ho anche lotto desk e ci voffe un modo per rendere l'output simile a spaziometria sarebbe perfetto.

    Cmq ho fatto delle prove ed il problemaè li dove ti ho detto

    For r= 1 To 12

    For i= 1 To 1
    j=i+1
    a=Estratto (estrazione,r,i)
    b=Estratto(estrazione,r,j)
    c=Fuori90(a+b)
    For rr=r+1 To 12

    se inseriamo il 12, il sistema conta anche a tutte, altrimenti mi devo fermare a 10, ma in questo modo non icludo la Nazionale.
    Mi chiedevo, ma non è possibile creare un altro ciclo for solo per la nazionale? io parlo.... ma ricorda che in pratica sono scarsa!!!
     
    Top
    .
25 replies since 1/6/2011, 18:22   1219 views
  Share  
.